Forum: Multimedia
Delphi
by igel457,
12. Feb 2006
Konnte nicht funktionieren, habe ein wenig mist gebaut:
procedure TForm1.Button1Click(Sender: TObject);
var bitmap:TBitmap;
begin
bitmap := TBitmap.Create;
bitmap.width := clientrect.Right;
bitmap.height := clientrect.Bottom;
bitmap.canvas.copyrect(clientrect,Canvas, clientrect);
bitmap.savetofile('c:\test.bmp');
bitmap.free;
Forum: Multimedia
Delphi
by igel457,
11. Feb 2006
Wenn du direkt auf das Formular gezeichnet hast, dann ist das mit dem Speichern nicht einfach.
Du könntest allerhöchstens folgendes Probieren:
var bitmap:TBitmap;
begin
bitmap := TBitmap.Create;
bitmap.width := canvas.width;
bitmap.height := canvas.height;