[Дикарь]

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;

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

[mav_c]

Сообщение от Дикарь

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;

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

Когда-то я делал так: форма - maximized, Style - bsNone

Код:

BitBlt(Canvas.Handle, 0, 0, Width, Height, GetDC(0), 0, 0, SRCCOPY);

[Дикарь]

Сообщение от mav_c

Когда-то я делал так: форма - maximized, Style - bsNone

Код:

BitBlt(Canvas.Handle, 0, 0, Width, Height, GetDC(0), 0, 0, SRCCOPY);

свойства формы у меня такие же
тока вот чето ни как не пойму куда этот код вставлять
туплю....

[Дикарь]

Сообщение от mav_c

Когда-то я делал так: форма - maximized, Style - bsNone

Код:

BitBlt(Canvas.Handle, 0, 0, Width, Height, GetDC(0), 0, 0, SRCCOPY);

свойства формы у меня такие же
тока вот чето ни как не пойму куда этот код вставлять
Ставлю при открытии формы-просто создается серая форма на весь экран и всё
туплю....

[Дикарь]

а всё понял
тока проблема осталась нерешенной...
скриншот опять отображается на четверти экрана

[mav_c]

Сообщение от Дикарь

а всё понял
тока проблема осталась нерешенной...
скриншот опять отображается на четверти экрана

Вставляй код в FormPaint