Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Sleep в canvas e   Найти похожие ветки 

 
wandp ©   (2002-11-14 04:49) [0]

Помогите, нужно между двумя канвасами поставить задержку.
Пример:
Image1.Canvas.Lineto(100,200);
Sleep();
Image1.Canvas.Lineto(100,500);

Да все прохидит без глюков, но невидно как ресуется первый КАНВАС, а только видно что происходит пауза а затем второй КАНВАС.

Одним словом как сделать чтобы сначала рисолвался один КАНВАС, а затем второй, но так чтобы было видно как они рисуются поочередно. (т.е. необходимо чтобы нарисованная линия промигала определенное время, а затем исчезла)?

Спасибо заранее. wandp@ukr.net


 
Evgeny V ©   (2002-11-14 06:11) [1]

делай с TTimer
Timer1.Interval:=...;
Image1.Canvas.Lineto(100,200);
Timer1.Enabled:=true;
while Timer1.Enabled do
begin
Application.ProcessMesagges;
end;
Image1.Canvas.Lineto(100,500);

в событии OnTimer
Timer1.Enabled:=false;

А если хочешь видеть как вообще рисуется линия, рисуй ее по точкам с задержкой (только зачем тебе это видеть, ну да ладно тебе видней :)), через Canvas.Pixels например или LineTo, но по одной точке и др.

PS:Извини, могут быть неточности по синтаксису паскаля, сам пишу на си


 
BSD   (2002-11-14 11:55) [2]

А как насчет использовать Refresh?

Image1.Canvas.LineTo(100,100);
Image1.Canvas.Refresh;
Sleep(1000);
Image1.Canvas.LineTo(200,200);



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
3-98970
Jeka
2002-12-08 14:30
2002.12.30
поиск в базе данных


14-99345
Nox
2002-12-10 12:14
2002.12.30
Откуда такое невезение?


14-99261
hatchy
2002-12-12 09:13
2002.12.30
Людт Срочно нужно помогите please!!!!!


14-99278
McSimm
2002-12-09 10:42
2002.12.30
С Днем Роджения !!!!


4-99404
Yuri Btr
2002-11-12 15:54
2002.12.30
LowLevelKeyboardProc