[Casper-Hacker]

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

Проблема.
Как запихнуть в Stream или BMP отпечаток всей формы. Форма на экран без скролов не помещается. Все что нашел - это как сохранить экран в BMP.
А у мня форма на экран не помещается

Код:

var
  BMP1: Graphics.TBitmap;
  DC1: HDC;
  Image1: TImage;
begin
   BMP1:=Graphics.TBitmap.Create;
   BMP1.Height:=Screen.Height;
   BMP1.Width:=Screen.Width;
   DC1:=GetDC(Form1.Handle);
   BitBlt(BMP1.Canvas.Handle, 0, 0, Screen.Width,
   Screen.Height, DC1, 0, 0, SRCCOPY);
   Image1:= TImage.Create(nil);
   BMP1.IgnorePalette:=true;
   Image1.Picture.Assign(BMP1);
   BMP1.SaveToFile('c:\cs.bmp');