e27_udll.pas

来自「delphi的学习资料」· PAS 代码 · 共 18 行

PAS
18
字号
unit E27_uDLL;

interface
uses Graphics;

function Reduce(sz: word; k: single): word;
function Enlarge(sz: word; k: single): word;
function VarColor(cr: TColor): TColor;


implementation

function Reduce; external 'DLL_E27';
function Enlarge; external 'DLL_E27';
function VarColor;  external 'DLL_E27';

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?