dll_u.pas

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

unit DLL_U;

interface

uses
  Graphics;

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

////////////////////////////////////////////////////////////////////////////////
implementation


function Enlarge(sz: word; k: single): word;
begin
  Result:=Round(sz*k);
end;

function Reduce(sz: word; k: single): word;
begin
  Result:=Round(sz/k);
end;

function VarColor(cr: TColor): TColor;
var bb,gg,rr: byte;
begin
  rr:=(cr and $0000FF);
  gg:=(cr and $00FF00) div $100;
  bb:=(cr and $FF0000) div $10000;

  rr:=(rr+$06) mod $100;
  gg:=(gg+$08) mod $100;
  bb:=(bb+$0A) mod $100;
  cr:=rr+gg*$100+bb*$10000;
//  if cr<$080000 then
//    cr:=$080000;
  Result:=cr;
end;




end.