Hallo,
ich probiere gerade mit savedialoge zu programmieren und ein bitmap zu speichern
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap.PixelFormat:= pf1bit;
Bitmap.Width:=100;
Bitmap.Height:=100;
bitmap.Canvas.pen.Color:=clred;
bitmap.canvas.Polyline([Point(0, 0), Point(50, 0), Point(75, 50), Point(25, 50), Point(0, 0)]);
if SaveDialog1.Execute then Bitmap.SaveToFile(SaveDialog1.Filename);
Bitmap.Free;
end;
es funktioniert auch so wie ich will, aber wenn ich das "if SaveDialog1.Execute then" weglase kommt eine fehlermeldung:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Project1.exe ist eine
Exception der Klasse EFCreateError aufgetreten. Meldung: 'Datei "" kann nicht erstellt werden. Das System kann den angegebenen Pfad nicht finden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
Ich verstehe nicht warum, wie kann diese if abfrage den fehler vermeiden, es kann ja nichts anders sein wenn ich die if abfrage weglasse da savedialog sowiso ausgelöst wird??? ich blick da nicht durch???
Und dann habe ich noch Fragen zu
Bitmap.PixelFormat:= pf1bit;
wiviel Farben entsprechen 1 und 24 bit?
Wiviel bit sind 16 und 256 Farben?