Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

Это вроде потрематься а не общие вопросы:-)

Вот так!(с)




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
3-99835           Андрей К.             2001-12-25 09:38  2002.01.31  
FreeReport для Delphi 6


3-99863           Andrey196             2001-12-26 15:23  2002.01.31  
Ошибка ненайден индекс, хотя индекс имеется, что делать?? Помогите!!!


4-100093          veles                 2001-11-30 10:29  2002.01.31  
ShellExecute(..)


3-99850           kd                    2001-12-24 11:26  2002.01.31  
ADO


1-99954           Yuraz                 2002-01-13 19:03  2002.01.31  
Помогите! Не могу разобраться, почему в этой проц. печатается менее 6 букв