Spaltenbreite optimal automatisch einstellen

[Hercules]

Hallo an Alle,
ich habe mal wieder eine heikle Frage, aber vielleicht hat ja schon mal jemand so ein Problem gelöst.
Ich habe eine Datenbank mit mehreren Spalten automatisch aus einer Textdatei gefüllt und möchte
am Ende alle Spaltenbreiten an den größten Text einer Spalte anpassen (ähnlich wie bei EXCEL Saltenbreite optimal).
Dazu verwende ich ein DBGrid, programmiert ist das ganze natürlich mit Lazarus.
Hat jemand sowas schonmal gemacht ?

[af0815]

Hat jemand sowas schonmal gemacht ?

Ja, den längsten Text heraussuchen und dann die Textbreite berechen lassen. Ich finde mein Beispiel nicht, ich habe mir das aber aus den Sourcen von einem Textfeld herausgesucht, wie das sich intern errechnet wie breit es ist. Es war nicht allzu kompliziert.

Edit: TCustomLabel.CalculateSize in StdCtrls ist IMHO das Beispiel. Es zeichnet mal den Text in ein Rechteck um zu sehen, wie groß das Ganze ist.

Man darf aber eines nicht vergessen, das die Buchstaben eine unterschiedliche Breite (und Höhe) haben. der Buchstabe 'X' ist breiter als ein 'l', das kann auf die Spaltenbreite auswirkungen haben. Ich habe daher einen String mit den breitesten Zeichen gemacht und den für die Berechnung herangezogen.

[Hercules]

Hallo af0815,
vielen Dank für Deine schnelle Antwort. Was ich noch nicht so richtig
verstanden habe ist:
Edit: TCustomLabel.CalculateSize in StdCtrls ist IMHO das Beispiel.
Ist das die Stelle wo ich ein Beispiel finde ?

[MmVisual]

So geht's:

Alle Datensätze durchlaufen, bei jedem Datensatz:

iMax := 0;

While alle Zeilen
i := DBGrid1.Canvas.TextWidth(<Textzeile Datensatz>);
If i > iMax Then iMax := i;
Next Zeile

Jetzt hat iMax die Anzahl Pixel. und muss umgerechnet werden in Character-Breite:

iCharacter := iMax Div (DBGrid1.Canvas.TextWidth('MX') Div 2);

Nun kann die Spalte mit der Variable iCharacter breit gemacht werden.

[Hercules]

Hallo MmVisual,
ich glaube, damit kann ich was anfangen.
Danke an Dich und an af0815.
Ich wünsche Euch ein schönes Weihnachtsfest.

[Socke]

Wie wärs mit

Code: Alles auswählen

DBGrid1.Options := DBGrid1.Options + [dgAutoSizeColumns];

wäre doch ein Stück weit einfacher. TCustomStringGrid bringt ebenfalls eine fertige Methode dafür mit.

[af0815]

wäre doch ein Stück weit einfacher

Mir fällt nur ein: Das haben wir schon immer so gemacht, bzw. sieht man den Wald vor lauter Bäumen nicht.

Auch was dazugelernt.

[Hercules]

Hallo Socke, ich glaub ich hatte Tomaten auf den Augen.....
af0815 hat recht wieder was dazugelernt.
Danke !!!!