Главная страница
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.012 c
7-99378
Sodom
2002-09-11 15:02
2002.12.30
Driver


8-99200
Серик
2002-09-13 18:14
2002.12.30
Как определить уровень сигнала подавамого на звуковую карту???


14-99287
DiamondShark
2002-12-09 13:47
2002.12.30
Новый WEB-проект


3-98967
epifansan
2002-12-10 08:45
2002.12.30
Подскажите как обойтись без регистрации своих баз в БД


1-99079
Sectey
2002-12-19 17:06
2002.12.30
Блокировать/Раблокировать форму