Форум: "Потрепаться";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизНужен компонент типа 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 очень сильно моргает!!!
← →
Феликс (2001-12-11 02:29) [1]Интересно, а что ты делаешь? Наверное, грузишь прогу, а там бац и label моргает! Вот это круто! Потом скинешь исходник, а?
Да, и еще!
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;
-------------------------------------------------------------------
Не проще все в одну кнопку запихнуть?
← →
Феликс (2001-12-11 02:31) [2]Совсем забыл по вопросу ответить! Тут не аля label "с хорошой перерисовкой" нужен, тут только OpenGL. :))))))))))))))))))))))
← →
Nikolay (2001-12-11 10:27) [3]Это вроде потрематься а не общие вопросы:-)
Вот так!(с)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c