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.
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 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 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