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;
как сделать чтобы скриншот полностью отображался?