Image mit Bild und Text

[Arina]

Hallo!

Ich hab ein Image und lade eine Graphik. Jetzt will ich zusätzlich noch ein Text mit
Image1.Canvas.TextOut(..) ausgeben, d.h. Bild + Text. Dann bekomm ich aber diese Fehlermeldung.

"Ein Bild kann nur geändert werden, wenn es ein BitMap enthält."

Nur Bild oder nur Text funktioniert, aber beides geht nicht. :gruebel:
Hat jemand eine Idee?

[STS301]

sag doch einfach, dass du die Schrift (mit den entsprechenden Koordinaten) über dem Imagefeld haben willst

also einfach Form1.Canvas.TextOut(über dem Feld)

[DeddyH]

Wäre eine Paintbox nicht die bessere Wahl?

[toms]

Hallo, ich nehme an, dass es sich beim Bild um ein JPEG-Format handelt.
Lösung: Bild via TJPEGImage laden und dem Image zuweisen. Dann lässt sich auch Text ausgeben!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Jpg: TJPEGImage;
begin
  Jpg := TJPEGImage.Create;
  try
    Jpg.LoadFromFile('C:\Mein Bild.jpg');
    Image1.Picture.Bitmap.Assign(Jpg);
  finally
    Jpg.Free;
  end;
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.TextOut(10 , 10 , 'Hallo !') ;
end;

[DeddyH]

Und dann einmal das Fenster minimieren und wiederherstellen... Schwupps, Text futsch.

[toms]

Zitat:

Zitat von DeddyH

Und dann einmal das Fenster minimieren und wiederherstellen... Schwupps, Text futsch.

Beim mir nicht...

[DeddyH]

*Huch* bei mir auch nicht, dabei hätte ich schwören können...

[toms]

Zitat:

Zitat von DeddyH

*Huch* bei mir auch nicht, dabei hätte ich schwören können...

Wenn der Text jedoch direkt auf die Form ausgegeben wird, dann verschwindet der Text wenn der Bereich überdeckt wird.

[Arina]

Danke für die rasche Hilfe. Das funzt super gut :hello: