Hallo,

in meinem Proramm benutze ich eine Listview und 3 Spalten. 2 davon möchte ich, dass sie genau so breit sind wie der längste Text in der entsprechenden Zeile. Die 3. soll danach einfach den Rest des Platzes nutzen und wenn ein Text länger ist, abgeschnitten werden.
Leider hab ich das nicht geschafft, dass es klappt.
Ich hab's ungefähr so probiert:


Leider kann ich die Breite nicht mehr ermitteln wenn ich eine Spalte auf -1 gesetzt habe. Kann mir jemand diesbezüglich helfen ?

soviel ich weiss, ist -1 autosize. Allerdings erst wenn Text drinne steht. Also erst die Texte rein und dann Autosize := -1. Dann das ganze in einem BeginUpdates/Endupdate Block, damits den Anwender nicht verwirrt.
grez
msch

MSCH hat folgendes geschrieben:

soviel ich weiss, ist -1 autosize. Allerdings erst wenn Text drinne steht. Also erst die Texte rein und dann Autosize := -1. Dann das ganze in einem BeginUpdates/Endupdate Block, damits den Anwender nicht verwirrt.

Das mit dem BeginUpdates/Endupdate Block hab ich jetzt nicht geschnallt. Hab noch nie damit gearbeitet ?

Hallo Zaubär!

Ich verstehe überhaupt nicht so recht warum du die Breite der Spalte auf -1 setzt. Ich würde die Spalten manuell anpassen, indem du zunächst deine ganzen Datensätze druchgehst und den längsten mit Canvas.TextWidth ermittels. Danach legst du die Breiten der beiden Spalten fest. Warscheinlich musst du zu beiden Breiten noch ein Faktor c addieren, aber das merkst du dann selber. Zum Schluss ziehst du die beiden Breiten von der absoluten Breite ab.
Ich weisse schwer zu verstehen, aber hier mal veranschaulicht :Ich hoffe das war verständlich

Gruß wulfskin!

Verliert man nicht sehr viel Zeit wenn man alles durchgehen muss um die Breite zu ermitteln ?

PS: Das mit dem Scrollbalken brauch ich nicht, dafür habe ich dieses "ClientRect.Left" gefunden

Zaubär hat folgendes geschrieben:

Verliert man nicht sehr viel Zeit wenn man alles durchgehen muss um die Breite zu ermitteln ? PS: Das mit dem Scrollbalken brauch ich nicht, dafür habe ich dieses "ClientRect.Left" gefunden

Kurz gesagt: Nein. Das geht in Bruchstücken einen Sekunde...

Ok, stimmt eigentlich!
Auf meinem neuen PC sowieso

wulfskin hat folgendes geschrieben:

Hallo Zaubär! Ich verstehe überhaupt nicht so recht warum du die Breite der Spalte auf -1 setzt. Ich würde die Spalten manuell anpassen, indem du zunächst deine ganzen Datensätze druchgehst und den längsten mit Canvas.TextWidth ermittels. Danach legst du die Breiten der beiden Spalten fest. Warscheinlich musst du zu beiden Breiten noch ein Faktor c addieren, aber das merkst du dann selber. Zum Schluss ziehst du die beiden Breiten von der absoluten Breite ab. Ich weisse schwer zu verstehen, aber hier mal veranschaulicht : markieren Quelltext     1: 2: 3: 4: 5: 6: 7: 8: const   LängsteBreite = 120;   c = 10; //ein bisschen Platz lassen   d = 20; //Platz für den Scrollbalken begin   Columns[0].Width := LängsteBreite + c;   Columns[1].Width := LängsteBreite + c;   Columns[2].Width := Width - Columns[0].Width - Columns[1].Width - d; Ich hoffe das war verständlich Gruß wulfskin!

so ein quatsch, sorry, aber TListViews können sehr wohl die Spaltenbreite selbst (-1) ausrechnen, da muß man nicht diese Geschütze auffahren.
Was soll den "ein bisschen Platz lassen"
Das ist kein richtiges Programmieren, das ist "mit den Bauch-durch die Brust ins Linke Auge" programmierstil.
grez
msch

MSCH hat folgendes geschrieben:

wulfskin hat folgendes geschrieben: Hallo Zaubär! Ich verstehe überhaupt nicht so recht warum du die Breite der Spalte auf -1 setzt. Ich würde die Spalten manuell anpassen, indem du zunächst deine ganzen Datensätze druchgehst und den längsten mit Canvas.TextWidth ermittels. Danach legst du die Breiten der beiden Spalten fest. Warscheinlich musst du zu beiden Breiten noch ein Faktor c addieren, aber das merkst du dann selber. Zum Schluss ziehst du die beiden Breiten von der absoluten Breite ab. Ich weisse schwer zu verstehen, aber hier mal veranschaulicht : markieren Quelltext     1: 2: 3: 4: 5: 6: 7: 8: const   LängsteBreite = 120;   c = 10; //ein bisschen Platz lassen   d = 20; //Platz für den Scrollbalken begin   Columns[0].Width := LängsteBreite + c;   Columns[1].Width := LängsteBreite + c;   Columns[2].Width := Width - Columns[0].Width - Columns[1].Width - d; Ich hoffe das war verständlich Gruß wulfskin! so ein quatsch, sorry, aber TListViews können sehr wohl die Spaltenbreite selbst (-1) ausrechnen, da muß man nicht diese Geschütze auffahren. Was soll den "ein bisschen Platz lassen" Das ist kein richtiges Programmieren, das ist "mit den Bauch-durch die Brust ins Linke Auge" programmierstil. grez msch

Wenn du meinst. Ich sehe das etwas anders....

Ich hab's gestern Abend schnell getestet. Es funktioniert nicht

Die Funktion liefert zwar die Breite des Textes aber unabhängig von Schriftart und Schriftgrösse....