Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизКак выводить на экран пикселы без Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c