Нужен компонент типа LABEL, только с большей скоростью перерисовки!!!

← →
VEG (2001-12-10 22:01) [0]

Короче, пишу:

var
P:Integer=0;
L:Integer=255;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If P=0 Then
begin
If L>0 Then
begin
L:=L-5;
Label11.Font.Color:=RGB(L,L,L);
end;
end;
If P=1 then
begin
If L<255 Then
begin
L:=L+5;
Label11.Font.Color:=RGB(L,L,L);
end;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
P:=0;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
P:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
P:=2;
end;

При выполнении кода LABEL очень сильно моргает!!!

Нужен компонент типа LABEL, только с большей скоростью перерисовки!!! Найти похожие ветки