Zitat von
lbccaleb:
Für diese funktion muss ich die
Unit "Graphics" einbinden! Das will ich nicht ;-(
Die einzigste Funktion, die aus
Unit Graphics benötigt wird, ist diese:
Delphi-Quellcode:
type
PColor = ^TColor;
TColor = -$7FFFFFFF-1..$7FFFFFFF;
...
function ColorToRGB(Color: TColor): Longint;
begin
if Color < 0 then
Result := GetSysColor(Color and $000000FF) else
Result := Color;
end;
Copy & Paste dürfte hier ja erlaubt sein.
Die anderen Funktionen (
RGB() und GetRValue,...) sind aus
Unit Windows und gegen diese
Unit hast du wohl nichts.