Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Texteingabe wie in MS Paint (https://www.delphipraxis.net/121626-texteingabe-wie-ms-paint.html)

Schwedenbitter 1. Okt 2008 15:03


Texteingabe wie in MS Paint
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,

ich möchte gern ein Programm schreiben, in welchem man Linien (Unterstreichung) und Text (Bemerkungen) in ein TImage einfügen kann. Das an sich ist nicht mein Problem. Ich habe mal Code angefügt, wie weit ich schon bin. Ich benutze für die Texteingabe zur Zeit ein TEdit, hänge aber nicht daran.
Mein Ziel ist es, die Texteingabe wie in MS Paint so zu machen, dass das Bild im Hintergrund sichtbar bleibt und sich das Eingabefenster auch der Größe des Textes anpasst bzw. mit der Mausangepasst werden kann.

Danke für Eure Ideen.

Alex

mimi 1. Okt 2008 16:34

Re: Texteingabe wie in MS Paint
 
Du könntest ein TMemo nehmen.
Dort stellst du die Eigenschaft Visible auf False.
Denn Rand kannst du auch noch ausblenden. Mit Einigen Trickst ist es auch Möglich den Hintergrund Transparent zu bekommen:
http://www.swissdelphicenter.ch/de/showcode.php?id=2150
das Beispiel könntest du anpassen.

Ein Problem gibt es aber noch mit der Größe. Wenn Enter gedrückt wird, solltest du Prüfen, ob für die nächste Zeile platzt ist im Memo, wenn nicht um eine Zeile vergrößern. Wie genau das jetzt geht weiß ich nicht.

Wenn du eine Text Eingabe brauchst, kannst du sie einfach Sichtbar schalten.
Wobei unter Dehlpi kannst du auch ein TRichEdit nehmen. Das kann einiges mehr.
Ist die gleiche Vorgehensweise.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz