Textfarbe faden

[dizzy]

Nochwas!!!

Wenn du mit "nicht-grauen" Farben arbeitest, kann das recht unschön werden! Mein Tipp:

Delphi-Quellcode:

var
  r,g,b : Integer;
  c : LongInt; // Color ist ein LongInt !
.
.
.
c := ColorToRGB(Label1.Color);

r := GetRValue(c)-1;
if r <   0 then r :=   0;  // Bereichsprüfung, sonst wird's unschön!
if r > 255 then r := 255;  // Bereichsprüfung, sonst wird's unschön!

g := GetGValue(c)-1;
if g <   0 then g :=   0;  // Bereichsprüfung, sonst wird's unschön!
if g > 255 then g := 255;  // Bereichsprüfung, sonst wird's unschön!

b := GetBValue(c)-1;
if b <   0 then b :=   0;  // Bereichsprüfung, sonst wird's unschön!
if b > 255 then b := 255;  // Bereichsprüfung, sonst wird's unschön! ;)

Label1.Color := rgb(r, g, b);

Da du aber nur subtrahierst, und auch immer nur 1, reicht folgendes:

Delphi-Quellcode:

var
  r,g,b : Byte;
  c : LongInt; // Color ist ein LongInt !
.
.
.
c := ColorToRGB(Label1.Color);

if GetRValue(c) > 0 then r := GetRValue(c)-1;
if GetGValue(c) > 0 then g := GetGValue(c)-1;
if GetBValue(c) > 0 then b := GetBValue(c)-1;

Label1.Color := rgb(r, g, b);

gruss,
dizzy