Bilder beschriften

[400kmh]

Wie beschriftet man TImages?

Auf einem TImage möchte ich Dinge zeichnen und beschriften. Ein TLabel auf einem TImage zu platzieren, funktioniert jedoch nicht.

[theo]

Du kansst einfach im OnPaint Ereignis des TImage etwas auf dessen Canvas schreiben:

Code: Alles auswählen

procedure TForm1.Image1Paint(Sender:TObject);
begin
  Image1.Canvas.TextOut(10,10,'Test');
end;

[pluto]

oder du packst ein Label oder ein Panel über das TImage:
Du packst das TImage in einen Panel. Das Panel machst du so groß, dass du ein weiters Panel in das erste Panel packen kannst.
Nun kannst du das zweite Panel ausrichten mit Aligen und das TImage ebenfalls. Fertig.

[Socke]

Ein TLabel auf einem TImage zu platzieren, funktioniert jedoch nicht.

Du kannst das TLabel zwar nicht auf dem TImage platzieren, aber darüber!

[pluto]

Habe ich das nicht schon geschrieben?

[Socke]

Habe ich das nicht schon geschrieben?

Hab ich das gelesen?

[pluto]

Hab ich das gelesen?

Gute Frage.... wer kann diese Frage beantworten? *G* Naja, Doppelt hält besser...

[400kmh]

Danke für die Antworten.

Du kansst einfach im OnPaint Ereignis des TImage etwas auf dessen Canvas schreiben:

Code: Alles auswählen

procedure TForm1.Image1Paint(Sender:TObject);
begin
  Image1.Canvas.TextOut(10,10,'Test');
end;

Wie verändert man dabei Eigenschaften der Schrift wie Schriftgröße, Schriftart udn Schriftfarbe?

[theo]

Wie verändert man dabei Eigenschaften der Schrift wie Schriftgröße, Schriftart udn Schriftfarbe?

Du solltest vielleicht mal beginnen dir Code-Insight anzuschauen.
Wenn du das Eintippst:

Image1.Canvas.Font.

kommen alle möglichen Properties. Such dir was aus

[400kmh]

Wie verändert man dabei Eigenschaften der Schrift wie Schriftgröße, Schriftart udn Schriftfarbe?

Du solltest vielleicht mal beginnen dir Code-Insight anzuschauen.
Wenn du das Eintippst:

Image1.Canvas.Font.

kommen alle möglichen Properties. Such dir was aus

Gut, da finde ich einiges, aber gibt es auch etwas, mit dem man den Text mittig über den angegebenen Punkt positionieren kann, anstatt rechts-unten neben den angegebenen Punkt?

[pluto]

Schau dir mal TextRect an. Damit kann man auch Text Ausrichten