Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Im TImage vor das Bild ein Text zeichnen?


jackie05 - Di 27.11.07 20:15
Titel: Im TImage vor das Bild ein Text zeichnen?
Hallo,
ich weiss nicht wie ich den Thread hier nennen soll, ich hoffe ich habe einen richtigen Titel dafür geschrieben.

Nun zu meine Frage:
z.B. öffne ich ein Bild und lasse es in Image1 anzeigen, kann ich vor dieses Bild noch etwas dazu zeichnen lassen?

z.B. wie bei Testversionen, wenn man eine unregistrierte version benutzt, steht vor das Bild (Testversion), wie kann ich das am einfachsten machen, ohne dass das Bild gelöscht wird?

Vielen Dank schonmal.

MfG

Moderiert von user profile iconNarses: Status auf "Frage offen" gesetzt und Titel angepasst


ub60 - Di 27.11.07 20:19

Brush auf transparent, Text mit TextOut(x, y, 'Text')

ub60


TProgger - Di 27.11.07 20:24


Delphi-Quelltext
1:
2:
3:
  Image1.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
  Image1.Picture.Bitmap.Canvas.Font.Color:=clBlack;
  Image1.Picture.Bitmap.Canvas.TextOut(20,20,'huhu');

Allerdings kann man auch ein TLabel auf das TImage packen und da seinen Text anzeigen lassen ;)


jackie05 - Di 27.11.07 20:28

@ub60 das war genau was ich brauchte.
Hat funktioniert.

Vielen Dank.

[EDIT] @TProgger Danke für den Tip, aber ein Text drauf zeichnen langt 8)

[EDIT] Irgendwie erhalte ich jetzt fehlermeldung, wenn ich versuche ein neues Bild zu öffnen:
Ein Bild kann nur geändert werden, wenn es ein Bitmap enthält.

Jetzt funktioniert es, aber wenn ich JPG Bilder öffne, sind sie schwarz, ich kann nur Bitmap Bilder laden, die sind sichtbar, wieso?

Woran kann das liegen?

MfG