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

Вниз

Своё, что то типа DoubleBuffered   Найти похожие ветки 

 
Chlavik ©   (2003-10-16 19:14) [0]

Привет... Как мне как можно быстрее нарисовать окно на моём битмапе, а потом уже на самом окне? Пробовал как в исходнике Controls ( TwinControl.WMPaint) но у меня не получается, воопервых постоянно RangeCheck Error выскаивает при Perfom(wm_EareBackGround....) (DC выходит за пределы Integer)) интересно что мой исходник копия того.. Кто посоветует как сделать правильно?


 
clickmaker ©   (2003-10-16 19:24) [1]

Общая идея такова:

// Обработчик WM_PAINT

DC := BeginPaint(Handle, ps);
Bitmap := CreateCompatibleBitmap(DC, Width, Height);
MemDC := CreateCompatibleDC(DC);
OldBitmap := SelectObject(MemDC, Bitmap);
// рисуешь на MemDC

BitBlt(DC, Left, Top, Width, Height, Canvas.Handle, 0, 0, SRCCOPY);
SelectObject(MemDC, OldBitmap);
DeleteDC(MemDC);
DeleteObject(Bitmap);
EndPaint(Handle, ps);


 
clickmaker ©   (2003-10-16 19:25) [2]

Сорри,

BitBlt(DC, Left, Top, Width, Height, MemDC, 0, 0, SRCCOPY);



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
1-89370
Anatoly P
2003-10-15 19:35
2003.10.27
Timer


4-89655
Barez
2003-08-19 14:10
2003.10.27
Шрифт и его размер в STATIC


8-89394
prorok
2003-06-27 22:28
2003.10.27
Проблема с анимированным gif


1-89352
DimonA
2003-10-16 10:34
2003.10.27
PopupMenu


1-89246
GreySerg
2003-10-14 17:22
2003.10.27
Есть ли в Delphi стандартная функция FileSize (FileName: string)