Problem beim Speichern eines Timage

[ddog]

Hallo,

ich hab erst vor kurzem mit Lazarus zu Programmieren begonnen und steh jetzt vor einem Problem. Ich hab ein Timage mit einem PNG Bild. Darauf zeichne ich mit einem Buttonclick eine Linie per Image1.Canvas.Line(10,10,80,10);. Mit einem zweiten Button möchte ich das Bild mit der gezeichneten Linie speichern per Image1.Picture.Bitmap.SaveToFile('test.png');. Nur leider funktioniert das nicht. Wenn ich Button1 zum Zeichnen der Linie drücke, dann erscheint meine Linie, drücke ich nun Button zwei zum Speichern, verschwindet die Linie wieder und test.png ist ohne Linie. Erst wenn ich das mit den Buttons ein zweites Mal mache, dann zeigt mir test.png die Linie. Auf dem Bildschirm ist die Linie aber fast nicht zu erkennen und sieht aus als ob sie hinter dem Bild liegen würde.

lg
ddog

[bembulak]

Hi,

ich bin zwar auch nicht firm, aber ich würde versuchen, Bild wie auch Linie auf eine Paintbox zu malen und die Paintbox dann zu speichern. Es geht sicher auch anders, aber da musst du auf Schlauere als mich warten.

[shokwave]

Hallo,

also ich habs grad mal unter Vista32 und 'ner nicht ganz taufrischen 0.9.27 probiert. Bei mir klappt's ohne Probleme.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Brush.Color:=clblack;
  Image1.Canvas.Pen.Color:=clwhite;
  Image1.Canvas.Line(10,10,80,10);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.SaveToFile('D:\Temp\test.png');
end;

Welche Version/welches BS hast du?

[theo]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.Canvas.Brush.Color:=clblack;
  Image1.Picture.Bitmap.Canvas.Pen.Color:=clwhite;
  Image1.Picture.Bitmap.Canvas.Line(10,10,80,10);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.Graphic.SaveToFile('test.png');
end;

[Socke]

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.Graphic.SaveToFile('test.png');
end;

Ich wollte gerade fragen, warum ihr ein (Windows-)Bitmap in eine Datei mit png-Erweiterung speichert... (Dateinamen sind zwar eig. egal, aber wenn ihr das so wie theo macht, siehts besser aus (man könnte auch Picture.PNG.SaveToFile() verwenden).

Alternativ könnte man aber auch direkt auf den Canvas des Bitmaps zeichnen:

Code: Alles auswählen

with Image1.Picture.Bitmap.Canvas do begin
  Line(10,80,80,10);
end;

MfG Socke

[ddog]

Vielen Dank, hat mir sehr geholfen! Jetzt funktioniert alles wie es soll! Ich bin froh, dass ich dieses Forum gefunden hab, sonst hätt ich Lazarus wohl schon wieder von der Platte gelöscht!

lg
ddog