PagePicker

[Kraisel]

Hallo,

GetFormImage kannte ich in der Tat nicht. Nun, damit bekommt man die gesamte Form, leider aber ohne Windows-Rahmen, in eine Bitmap. Gehts nun auch irgendwie mit Komponenten innerhalb einer Form?

Liebe Grüße aus Bochum

[Perlsau]

Wie wär's damit:

Delphi-Quellcode:

procedure TForm1.AppFormKopieren;
Var
  Bitmap: TBitmap;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;

  Try
    Canvas.Handle := GetWindowDC(0);
    Try
      Bitmap             := TBitmap.Create;
      Bitmap.Width       := Self.Width;
      Bitmap.Height      := Self.Height;
      Bitmap.PixelFormat := pfDevice;
      BitBlt(Bitmap.Canvas.Handle, 0, 0, Self.Width, Self.Height, Canvas.Handle, Self.Left, Self.Top, Bitmap.Canvas.CopyMode);
      Img_Kopie.Picture.Bitmap.Assign(BitMap);
    Finally
      BitMap.Free;
    End;
  Finally
    ReleaseDC(0, Canvas.Handle);
    Canvas.Free;
  End;
end;

Img_Kopie ist ein TImage, das zum Testen auf der Form liegt ... Du kannst auch gleich den Dateinamen mitgeben und das Bitmap abspeichern. Und für einzelne Komponenten machst du das dann ebenso, natürlich mit entsprechender Umrechnung der Koordinaten, die sich bei Komponenten ja auf das jeweilige Parent beziehen.

Quelle

[sx2008]

Nimm mal die Procedure aus diesem Thema (Posting #4)
http://www.delphipraxis.net/159466-d...roupboxen.html