auf einem Bild einen RichEdit Text einfügen

[spartakus]

Hallo,
hiermit füge ich auf einem Bild(Image) einen RichEdit Text ein.
Das ist kein Problem.

Code:

    var     
  h, i: Integer;
begin
   h := form1.Image1.Canvas.TextHeight('Test');
  for i := 0 to richedit1.Lines.Count - 1 do
    form1.Image1.Canvas.TextOut(0, i * h, richedit1.Lines[i]);
end;

Mein Problem ist dass der Text nicht neue Komplett geschrieben wird,
sondern wird nur dran gehängt!

zb. "Text1" wird eingefügt dann gelöscht, "text2" wird eingefügt aber
"Text1" bleibt auf dem Bild stehen statt zu verschwinden!

wie kann ich lösen?.....danke!

[himitsu]

Indem du den Bildinhalt vorher löschst/übermalst?

[spartakus]

Zitat:

Indem du den Bildinhalt vorher löschst/übermalst?

danke!
den Text lösche schon ich vorher in RichEdit,
aber bleibt immer noch der alte Text auf dem Bild.

[Bummi]

vor dem "malen/schreiben"

Delphi-Quellcode:

Image1.Picture.Bitmap := nil;

[Sir Rufo]

Oder auf verständlich:

Wenn du auf den Canvas malst, so ist das genau so, als ob du auf ein Foto mit dem (permanent) Edding rummalst.

Gefällt dir das nicht mehr, dann kannst du den Edding auch nicht entfernen, sondern holst dir ein neues Bild und malst auf diesem.

Also Lade in das Image wieder das Bild rein (intern wird das dann auch auf den Canvas geklatscht) und dann kannst du auf dem Canvas wieder rumasen :mrgreen:

[spartakus]

danke,

Zitat:

Bummi

Code:

Image1.Picture.Bitmap := nil;

wenn ich so mache verschwindet das Bild!
so kann ich nur auf Canvas was malen(das Funktioniert nur mit weisse Leinwand !).
ich will ja nur aufs Bild statt auf Canvas malen.


-------------
danke auch,

Zitat:

Sir Rufo

auf canvas(auf weisse Fläche) Funktioniert wenn ich Text einfügen ,aber nicht aufs Bild...komisch!

[Die Muhkuh]

Einfach das Originalbild nochmal neu laden und gut ist.