Hallo Delphifreunde,
habe im Forum einen interessanten Code für das Speichern der eigenen Form gefunden. Stammt von Martin K unter dem Artikel
http://www.delphipraxis.net/internal...ght=screenshot
Kann man das auch so machen, das nur ein bestimmter, einstellbarer Bereich auf der Form abfotografiert werden kann. Also mit dem angegebenen Code habe ich das nicht geschafft. Sobald ich an den angegebenen Parametern was verändere wird zwar das Bild verschoben, dann erscheint aber an dieser Stelle eine weiße Fläche.
Ich hänge diesen Code mal hier rein ...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var BMP: TBitmap;
//Original stammt von Martin K !
begin
BMP := TBitmap.Create;
try
BMP.Width := ClientWidth;
BMP.Height := ClientHeight;
BMP.Canvas.CopyRect(Rect(0, 0, BMP.Width, BMP.Height), Canvas, Rect(0, 0, ClientWidth, ClientHeight));
BMP.SaveToFile('C:\test.bmp');
finally
BMP.Free;
end;
end;
Vielleicht kann mir jemand einen Tipp geben.
Vielen Dank
LingNeu