|
(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: TGauge ForeColor
7. Jun 2007, 12:02
Guck dir doch einfach mal den Funktionskopf an, mit etwas Überlegung siehst du gleich, was diese dann macht, ohne den Code gesehen zu haben.
function LinearGradientStep(ColStart, ColEnd: TColor; Length, Step: Integer): TColor;
ColStart: Anfangsfarbe
ColEnd: Endfarbe
Length: Länge des farbverlaufs (Länge deiner Gauge)
Step: Schrittweite
Result: TColor
Du erhälst somit einen Farbwert im Abhängigkeit der angegebenen Parameter. Das Vorgehen hat dir Luke bereits genannt.
|