Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-39225
{{{KOTOS}}}
2003-02-23 12:08
2003.03.13
МАСТЕРА ПОДСКАЖИТЕ


1-39363
Beglec
2003-03-01 21:09
2003.03.13
Почему и зачем требуется файл qtintf.dll


1-39296
aqaq
2003-03-04 08:18
2003.03.13
crc32


1-39329
Сергей
2003-03-01 00:15
2003.03.13
Бегунок процесса вычисления


14-39561
race1
2003-02-24 17:09
2003.03.13
сон





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский