Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Text > Label? (https://www.delphipraxis.net/48568-text-label.html)

_Sebastian_ 27. Jun 2005 13:50


Text > Label?
 
Hallo

Ich müsste irgendwie rausfinden ob ein gegebener Text in ein Label passt oder ob der text zu lang ist. Das Label hat eine feste göße (AutoSize=False) und Wordwrap ist aktiviert.
Mein Ziel ist es den Text ggf. abzuschneiden und nen '...' ranzuhängen.

Für eine Idee oder nen kleinen Denkanstoß wäre ich sehr dankbar...

Kompon Ente 27. Jun 2005 13:54

Hi Sebastian,

lies doch einfach die Länge des Wortes in einer Schleife und füge dementsprechend die Größe dann hinzu.

Also, wenn das Wort 7 Buchstaben hat, machst Du die Länge auf 5 Zentimeter oder so ähnlich.

JasonDX 27. Jun 2005 14:04

Re: Text > Label?
 
Die TCanvas-Klasse hat eine Methode namens Delphi-Referenz durchsuchenTextWidth
Somit kannst du es prüfen durch:
Delphi-Quellcode:
if Label1.Canvas.TextWidth('dein Text') > Label1.Width then
  ShowMessage('Zu klein');
Dies funktioniert zwar nur für einen Einzeiligen Text, aber ein bisschen modifizieren und es funzt auch für mehrzeilige Texte ;)

_Sebastian_ 27. Jun 2005 14:09

Re: Text > Label?
 
@Kompon Ente: Ich brauch die höhe und nicht die breite. Und ich habe halt einen Text und nicht nur ein einziges Wort.


Wie könnt ich denn rausfinden wo das Label den Text umgebrochen hat?

Kompon Ente 27. Jun 2005 14:10

Re: Text > Label?
 
Zitat:

Zitat von _Sebastian_
@Kompon Ente: Ich brauch die höhe und nicht die breite. Und ich habe halt einen Text und nicht nur ein einziges Wort.

Dann schreib das auch hin, woher soll ich das denn riechen?

Luckie 27. Jun 2005 14:16

Re: Text > Label?
 
Zitat:

Zitat von _Sebastian_
@Kompon Ente: Ich brauch die höhe und nicht die breite. Und ich habe halt einen Text und nicht nur ein einziges Wort.

Dann les mal dein eigenes Posting durch. :roll: ist das beispiel von Kompon Ente auf ein Wort beschränkt? Eventuell erstmal die Lösung angucken und ausprobieren.

Zitat:

Wie könnt ich denn rausfinden wo das Label den Text umgebrochen hat?
Ein zeilenumvruch unter Windows ist: #13#10.

JasonDX 27. Jun 2005 14:21

Re: Text > Label?
 
Du hattest geschrieben, ob der Text zu lang ist -> Für mich gings auch um die Länge

anywayz: Es gibt dann dafür auch die Methode Delphi-Referenz durchsuchenTextHeight, wie du rausfinden kannst, wo der text geschitten wurde, kannst du a) durch ein temporäres Memo, mit wordwrap und gleicher breite wie dein Label, und dann mit TMemo.Lines[] abfragen, ist allerdings sehr unschön
ansonsten könntest du in einer While-schleife selbst schaun, sobald der "Teil-Text" zu lang wird kommt ein wordwrap (zu deutsch: wordwrap selber simulieren). Dadurch kriegst du die anzahl zeilen, die Position der umbrüche, und mit TextHeight auch die Gesamthöhe raus.


@Luckie: In der Caption eines Labels sind trotz Zeilenumbruch keine #10#13 o.Ä. enthalten.

Luckie 27. Jun 2005 14:23

Re: Text > Label?
 
Zitat:

Zitat von Chimaira
@Luckie: In der Caption eines Labels sind trotz Zeilenumbruch keine #10#13 o.Ä. enthalten.

Echt nicht? :gruebel:

_Sebastian_ 27. Jun 2005 14:30

Re: Text > Label?
 
Sorry wenn ich mich unklar ausgedrückt habe.

Es geht ja auch schon um die Länge des Textes, denn wenn der zu lang ist wird öfters gebrochen und bekommt eben mehrere Zeilen.
Ich suche halt die länge ab wann der Text nicht mehr in mein Label passt...


Ich werd mal nen bischen mit nem eigenen WordWrap probieren und sonst mach ich das halt "unschön" mit dem memo. :)

Danke schonmal für die Hilfe

Kompon Ente 27. Jun 2005 14:32

Könntest Du nun mal 'ne Entscheidung fällen?

Was willst Du denn überhaupt?


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:48 Uhr.
Seite 1 von 2  1 2      

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