Скачать: CL | DM;

Сохранить форму в 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, и в буфер загоняется текущая форма

---

← →
PVOzerski ©   (2003-09-16 10:27) [3]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c