Forum: Multimedia
by delphianfänger123,
4. Jan 2011
Okay. Vielen lieben Dank!
Mit TSaveDialog.DefaultExt funktioniert es jetzt!
Forum: Multimedia
by delphianfänger123,
4. Jan 2011
Okay super! Vielen Dank!
Bliebe nur noch das Problem mit dem abgespeicherten Bild, das keine .bmp ist. Die Datei ist zwar nicht unbrauchbar, dennoch ist es ziemlich unkomfortabel, sie erst durch manuelles Eingreifen zu einer .bmp.Datei zu machen! Wenn da jemand noch ne Lösung hätte wäre ich sehr sehr dankbar!
Forum: Multimedia
by delphianfänger123,
4. Jan 2011
Hm so weit so gut, ich weiß jetzt wo der Fehler liegt, aber ich weiß nicht so recht wie ich den Quellcode in die verschiedenen Blöcke einteilen soll :?
procedure TForm1.Button5Click(Sender: TObject);
begin // .bmp-Bild laden
if OpenPictureDialog1.Execute then
begin
Bitmap:=TBitmap.create; // Hier weise ich der var Bitmap ja ihre Eigenschaften zu, oder?
Bitmap.Width:=704;
...
Forum: Multimedia
by delphianfänger123,
4. Jan 2011
Danke für die schnelle Antwort!
Das Ende des Dateinamens...naja, denn gibts nicht wirklich. Ich die Datei nur als weißes Blatt, der Dateityp ist laut Eigenschaften einfach nur "Datei".
Ich kann dieses Ding aber mit z.B. Paint öffnen!
Forum: Multimedia
by delphianfänger123,
4. Jan 2011
Hallo!
Ich habe erneut ein bzw. zwei riesige Probleme, bei denen ihr mir hoffentlich helfen könnt!
Mein Zeichenpogramm hat einmal diese Prozedur
procedure TForm1.Button5Click(Sender: TObject);
begin // .bmp-Bild laden
if OpenPictureDialog1.Execute then
Bitmap:=TBitmap.create;
Bitmap.Width:=704;
Bitmap.Height:=603;