![]() |
|
#1
|
||||
|
||||
![]() TImage должно программно разворачиваться на весь экран и на нем должен появляться скриншот рабочего стола,но появляется лишь часть скриншота размером с окно,которое было в при разработке в дельфи,а все остально пространство формы-просто серое.
Код:
var dc:HDC; copyRectangle:Tcanvas; begin bt.Height:=Screen.Height; bt.Width:=screen.Width; bt.Align:=alClient; dc:=GetDc(0); copyRectangle:=TCanvas.create; CopyRectangle.Handle:=dc; bt.Canvas.CopyRect(rect(0,0,Screen.Width,Screen.Height),CopyRectangle,rect(0,0,Screen.Width,Screen.Height)); CopyRectangle.Free; как сделать чтобы скриншот полностью отображался? |