ListboxEinträge nicht übers Ende der Listbox hinaus zulassen

[Lefko]

Hallo Freunde ,

ich hab ein Screenshot im Anhang, kann mir jemand sagen, wie man sowas am besten vermeiden kann?
Ich hab schon den Eintrag auf 20 Zeichen begrenzt, aber die Zeichen sind ja unterschiedlich breit...

jemand ne idee?

MfG Lefko


//PS: ich bin jetz erstmal verreist, also keine antworten erwarten von mir

//PPS: Ich wünsch euch ne fette Sylvesterparty heut abend!
Und denkt dran: Finger weg von Böllern! (eindeutig zweideutig )

[neolithos]

mir fallen da zwei Möglichkeiten ein...

entweder rest abschneiden und durch 3 Punkte ersetzen

oder

schon bei der Eingabe prüfen obe der Textstring hinein passt

[Christian Seehase]

Moin Lefko,

Du könntest mit Canvas.TextWidth feststellen, wie breit der Text in Pixeln ist, wenn er ausgegeben wird, unabhängig davon, wie viele Zeichen erumfasst, und daraufhin die Eingabe limitieren.

[Lefko]

Zitat von Christian Seehase:

Moin Lefko,

Du könntest mit Canvas.TextWidth feststellen, wie breit der Text in Pixeln ist, wenn er ausgegeben wird, unabhängig davon, wie viele Zeichen erumfasst, und daraufhin die Eingabe limitieren.

Ich muss dazu sagen, dass das eine Listbox mit Borderstyle = bsNone
da gibts doch keine Canvas??

MfG Lefko.

[Christian Seehase]

Moin Lefko,

Zitat von Lefko:

...da gibts doch keine Canvas??

Gegenfrage:
Hast Du mal einen Blick in die Hilfe geworfen?

[Lefko]

mann Christian, du sitzt wohl vor dem Bildschirm und lauerst darauf, dass du endlcih wieder irgendwo antworten kannst, oder?? das dauert ja nicht mal 2 minuten......

"Juhuuu, schnell ne antwort posten!! jaaaa, endlich, schnell schnell schnell!!"

MfG Lefko.

PS: ja, hab keinen blick in die hilfe geworfen, da müsste ich delphi anmachen, und das dauert mir grad zu lang, weil ich nur nen lahmen rechner hab und gleich verreise
Dann weiss ihc ja jetzt, wie ich es machen muss

[Lefko]

Hm, hat gar nicht geklappt fällt mir mal auf nach ewigen Zeiten...

Bei diesem Code:

Delphi-Quellcode:

repeat
 Name := Inputbox('Namen eingeben!','Bitte geben Sie Ihren Namen ein!','');
 if Name = '' then exit;
 if Form2.ShowList.Canvas.TextWidth(PunkteStr + ' ' + Name) > 200
   then Showmessage('Ihr Name ist zu lang!');
until Form2.ShowList.Canvas.TextWidth(PunkteStr + ' ' + Name) <= 200;

sagt mir die MessageBox (hier jetzt nicht mehr drin), dass z.B. der String "Der BESTE der WELT" nur 140 Pixel lang sei? Dieser String ist es aber beispielsweise, der in dem Screenie oben über den Rand der Listbox hinausgeht?!

Kann mir irgendjemand dazu was sagen? hat das was mit dem Font zu tun? oder so?

MfG Lefko

//Edith sagt, ich sollte sagen, dass ich Comic Sans MS verwende...

[neolithos]

Ja der Font sollte in dem Canvas auch gerade gewählt sein.

Solche Prüfungen mach ich für gewöhnlich mit einem Temporären Canvas der das selbe Font-Object erhält

[teebee]

ListBox.Canvas.Font := ListBox.Font vorher reicht aus.

Gruß, teebee

[Lefko]

Danke, funktioniert wunderbar

MfG Lefko.