vorschlag:
Delphi-Quellcode:
while (r<>0)
and (g<>0)
and (b<>0)
do begin
c := ColorToRGB(l_rahmenprogramm.Font.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;
l_rahmenprogramm.Font.Color:=
rgb(r,b,g);
l_rahmenprogramm.Refresh;
sleep(1);
end;
was hab ichn gemacht?
or durch and und
= durch <> in den bedingungen ersetzt
wenn das min. 1mal gemacht werden soll, schreibs einfach nochmal davor
