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

Вниз

Как выводить на экран пикселы без   Найти похожие ветки 

 
Miller ©   (2003-03-03 16:43) [0]

Вопрос заключается в следующем: необходимо организовать режим поочередного вывода пикселов на экран. Наличие строчки 1 либо строчки 2 (см. код) обеспечивает данный режим, но экран моргает, что некрасиво. При остутствии этих строчек, пикселы сначала рисуются в памяти, а потом появляются все вместе.
for i:=0 to N-1 do
begin
dLat:=y-round(Latitude[i]*Scale_Factor);
dLong:=x+round(Longtitude[i]*Scale_Factor);
Form1.Image1.Canvas.Pixels[dLong,dLat]:=ClBlack;
Application.ProcessMessages; { 1}
// Form1.Image1.Refresh; { 2}
Sleep(50);
end;


 
MBo ©   (2003-03-03 16:46) [1]

Form1.DoubleBufferd:=True попробуй


 
Miller ©   (2003-03-03 20:17) [2]

Спасибо. Помогает. Только скорость появления очень низкая :(. Кстати в 7-й версии такого бага нет. Т.е. с Application.ProcessMessages работает без моргания.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
4-39644
Uncle Archi
2003-01-21 21:25
2003.03.13
ExitWindowsEx


14-39560
Ketmar
2003-02-26 15:58
2003.03.13
что такое СССР?


1-39399
crippler
2003-03-03 11:25
2003.03.13
Люди, помогите скачать курсовую по Delphi


3-39207
Leviathan
2003-02-21 22:30
2003.03.13
DBGrid


1-39287
VID
2003-03-03 11:09
2003.03.13
Как в TF1BOOK запретить автоформат вставляемых данных ?