Форум: "Основная";
Текущий архив: 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.54 MB
Время: 0.03 c