farbverlauf in %

[shmia]

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.