Сохранить форму в bmp файл

← →
KIR © (2003-09-16 09:50) [0]

Народ, можно ли сохранить форму в bmp файл (требуется для написания руководства пользователя), а PrtScr некрасиво получается.

← →
Skier © (2003-09-16 10:03) [1]

TForm.GetFormImage ?

← →
Kremen © (2003-09-16 10:23) [2]

Используй не просто PrtScr, а Alt-PrtScr, и в буфер загоняется текущая форма

Сейчас сваял нечто, можете проверять на баги :^)

procedure TForm1.Button1Click(Sender: TObject);
var
DC:tHandle;
R:tRect;
Style:longint;
begin
with tBitmap.Create do
begin
R:=Self.ClientRect;
Style:=GetWindowLong(Self.Handle,GWL_STYLE);
AdjustWindowRect(R,Style,GetMenu(Self.Handle)<>0);
DC:=GetDC(Self.Handle);
Width:=R.Right-R.Left;
Height:=R.Bottom-R.Top;
BitBlt(Canvas.Handle,0,0,Width,Height,DC,R.Left,R.Top,SRCCOPY);
SaveToFile("ScreenShot.bmp");
ReleaseDC(Self.Handle,DC);
Free;
end;
end;

Сохранить форму в bmp файл Найти похожие ветки