Speichern der Canvas

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure TForm1.btnSaveClick(Sender: TObject);
var
  jpg: TJpegImage;
begin
  if SaveDialog1.Execute then
    begin
      jpg := TJpegImage.Create;
      Try
        jpg.Assign(Image1.Picture.Bitmap);
        jpg.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.jpg'));
        ShowMessage('Gespeichert!');
      Finally
        jpg.Free;
      end;
    end;
end;