[Дикарь]

TImage должно программно разворачиваться на весь экран и на нем должен появляться скриншот рабочего стола,но появляется лишь часть скриншота размером с окно,которое было в при разработке в дельфи,а все остально пространство формы-просто серое.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

как сделать чтобы скриншот полностью отображался?