| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мужики, как скаптурить произвольный прямоугольник текущего экрана [D5]
bobo © (2003-12-25 10:36:00)
Мужики, как скаптурить произвольный прямоугольник текущего экрана
shluz (2003-12-26 00:08:00) [1]
ar
hdcScreen,hdcCompatible:HDC;
hbmScreen: Hbitmap;
begin
hdcScreen := GetDC(0);
hdcCompatible := CreateCompatibleDC(hdcScreen);
hbmScreen:= CreateCompatibleBitmap(hdcScreen,
GetDeviceCaps(hdcScreen, HORZRES),
GetDeviceCaps(hdcScreen, VERTRES));
if SelectObject(hdcCompatible, hbmScreen)<>0 then
showmessage("Compatible Bitmap Selection");
if not BitBlt(hdcCompatible ,
0,0,
200, 300,
hdcScreen,
0,0,
SRCCOPY) then
showmessage("Screen to Compat Blt Failed");
ShowWindow(handle, SW_SHOW);
image1.Canvas.Handle:=hdcCompatible;
пример MSDK
Polevi (2003-12-25 16:29:00) [2]
BitBlt
| |
