проблема с процедерой fade text color для scrolltex

[beegl]

проблема с процедурой fade text color для scrolltex


цикл прерывает скролл для компонента scrolltext, помогите розобраться

или дайте пример функции ColorFade

[beegl]

немножко так

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Font.Color := rgb(255, 200, 18);
Form1.DoubleBuffered := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var r,g,b: Integer;
c: LongInt;
begin
c := ColorToRGB(Label1.Font.Color);
r := GetRValue(c);
g := GetGValue(c);
b := GetBValue(c);

repeat
Application.ProcessMessages();
inc(g);
Label1.Font.Color := rgb(r, g, b);
Label1.Refresh;
sleep(6);
until g = r;

Button1.Perform(WM_LBUTTONDOWN, 0, 0);
Button1.Perform(WM_LBUTTONUP, 0, 0);
Label1.Font.Color := rgb(255, 200, 18);
end;

добавил Application.ProcessMessages();, теперь нормально. Подскажите, как оформить затухание и приростание(ярче) одного цвета, безконечно, что-то не понятно.Буду рад любым предложениям

[Аватар]

безконечно

?? на таймер изменение цвета

[beegl]

как сделать определенный цвет, ? ..... в этом коде он меняется на другой цвет



только для текста, Label1

[Аватар]

ColorRGBToHLS из GraphUtil
параметр Luminance - яркость (0-240)
Обратно в RGB - ColorHLSToRGB

[beegl]

подскажите, чем заполнить эти параметры:

c := ColorRGBToHLS(RGB(128, 128, 128,?,?,?));

где ? - не знаю что там поставить

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var Hue, Luminance, Saturation: Word;
begin
  ColorRGBToHLS(ColorToRGB(Label1.Color),Hue,Luminance,Saturation);
  Inc(Luminance,2);
  if Luminance>240 then Luminance:=240;
  Label1.Color:=ColorHLSToRGB(Hue,Luminance,Saturation);
end;

[beegl]

procedure TForm1.Button1Click(Sender: TObject);
var
   Hue, Luminance, Saturation: Word;
begin
  ColorRGBToHLS(ColorToRGB(Label4.Font.Color),Hue,Luminance,Saturation);
  Inc(Luminance,2);
  if Luminance>240 then
  Luminance:=240;
  Label4.Font.Color:=ColorHLSToRGB(Hue,Luminance,Saturation);
end;

что-то ничего не происходит, чего оно так?

[Аватар]

Ёлы-палы, много раз нажмите произойдёт. За один клик не заметно. А в цикле с задержками еще как будет заметно

[beegl]

я в таймер ставил, ничего не происходило, и нажимал, 5-7 раз на баттон, и ничего, и подскажите код как в цикле, может так будет работать