|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как принтскринуть часть экрана?
мне необходимо скопировать часть формочки в файл, а точнее компоненту abcPage, вместе со всем ее содержимым... Как это сделать?
|
#2
|
|||
|
|||
Получаешь канвас экрана:
var c: TCanvas; begin c := TCanvas.Create; c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER)); а дальше уже раздерешься... Caecus non indicat de colore http://www.proedd.com |
#3
|
||||
|
||||
Код:
var dc: hdc; Bmp: TBitmap; begin dc:=GetWindowDC(GetDesktopWindow); try Bmp:=TBitmap.Create; try Bmp.Width:=Screen.Width; Bmp.Height:=Screen.Height; BitBlt(Bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,DC,0,0,SRCCOPY); Bmp.SaveToFile('c:\tmp\1.bmp'); finally Bmp.Free; end; finally ReleaseDC(GetDesktopWindow, dc); end; Image1.Picture.LoadFromFile('c:\tmp\1.bmp'); end; Дальше сам... |