Текущий архив: 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
