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
Narses: 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
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!