Feldbreiten des DBGrid an Textbreite anpassen

[aldicek]

Hallo, liebe Forumteilnehmer!

Ich möchte in meinem DBGrid mittels einer Prozedur die Spaltenbreiten an den längsten Text jeder Spalte anpassen. Habe schon jede Menge in Google gesucht, bin aber leider bisher nicht fündig geworden. Mein Ansatz ist, durch mein Grid (ist immer nur ein kleines mit einer überschaubaren Anzahl Spalten (5) u. Zeilen (9..20)) spaltenweise durch alle Zeilen zu gehen und die maximale Textbreite respektive -weite zu ermitteln und mit dieser die Spaltenbreite neu zu setzen. Folgende Frage: Wie ermittle ich die Breite des Textes (TextWidth(...)?)? Ist diese in Punkten zu lesen? Setze ich die neue Breite mit DBGrid.Columns.Items[Col].Width := ...? Oder muss ich da etwas umrechen?
Wäre für jeden Hinweis dankbar!

Gruß
Aldi

[Christian]

Canvas.TextExtend('Meintext').x

Gibt dir die Breite eines Textes in Pixeln an.

[monta]

...Und das müsstest du direkt der oben genannten Eigenschaft zuweisen können.

[aldicek]

Hallo und vielen Dank für die schnellen Antworten!

Mein Problem ist momentan noch, dass ich einfach nicht weiss, wie ich an den Text einer durch Spalte, Zeile definierten Zelle heran komme. Das für mich Wichtige: Canvas.TextExtend(DBGrid.DataSource.DataSet.undwaskommtjetzt?) Oder gibt es noch einen einfacheren Weg? (Sorry für die für viele von euch sicher doofe Frage, aber es ist schon eine Zeit her, dass mich mich zuletzt damit beschäftigt habe und man vergißt wirklich verdammt schnell verdammt viel.)

Gruß
Aldi

[monta]

DBGrid.Datasource.DataSet.RecNo(Integer) >> setzt aktiven Datensatz (also letztlich die Zeile)

...DataSet.FieldByName('Feldname').AsString >> gibt den String-Wert der mit Feldnamen angegebenen Spalte der oben gesetzten Zeile zurück, also eine konkrette Zelle.

Mit Dataset.First und Next kannst du in ner Schleife auch alle Datensätze durchgehen, bspw:

Code: Alles auswählen

var: MaxBreite: integer;
 
DataSet.First;
MaxBreite := 0;
while not Dataset.EOF do
begin
  if Canvas.TextExtend(DataSet.FieldByName('Spalte1').AsString > MaxBreite; then
    MaxBreite := Canvas.TextExtend(DataSet.FieldByName('Spalte1').AsString;
  DataSet.Next;
end;
//Und dann Zuweisung an entsprechende Spalte:
DBGrid.Columns.Items[Spalte1].Width := MaxBreite;

[theo]

Also ich versteh zwar nicht viel von DB unter Lazarus, aber ich würde das
OnPrepareCanvas Ereignis nehmen.
Das sollte eigentlich immer auf dem aktuellen Datensatz stehen und mit DataCol kann man das Feld abholen und gleich Column.Width setzen.
Es heisst übrigens TextExtenT, aber TextWidth würde reichen.
Ich stelle mir das so vor, das müsste das Problem eigentlich lösen ohne viel Geeiere (nicht getestet)

Code: Alles auswählen

procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
  Column: TColumn; AState: TGridDrawState);
var Wid:Integer;
begin
 Wid:=Canvas.TextWidth(TDBGrid(Sender).DataSource.DataSet.Fields[DataCol].AsString);
 if Column.Width<Wid then Column.Width:=Wid;
end;

[Christian]

Warnung recNo dürfe nicht bei allen TDataSet abkömmlingen Funktionieren. In SQL Tabellen hat man schlichtweg in 90% der Fälle keine Recordnumber. geht ja auch nicht weil die Abfrage ja stark variieren kann.

Am effizientesten wäre das in Grid zu machen du könntest dir einen Nachfahren vom DBGrid ableiten und das über den Buffer des DataSets machen. Das wäre viel schneller als tatsächlich die datensätze durchzugehn. problem ist dabei das beim scrollen die Spaltenbreite springen dürfte.

[af0815]

Ich meine, der schnellste Ansatz ist (mit einer Unschärfe):

Unmittelbar nach der Abfrage aus der Datenbank, so wie von Monta gebracht, durch die Datenmenge gehen, nur dort den längsten String speichern.
Dann erst mittels TextExtend die Länge bestimmen und die Spalte des Grids setzen.
Dann erst die Datenmenge an das Grid hängen.

Warum: Wird bei der kleinen Anwendung nicht so spürbar sein, sind aber viele Datensätze und Spalten vorhanden, so kosten das ausrechen der Breite mehr. Bei der Stringlänge kann es nur vorkommen, das das Feld nicht zu 100% genau definiert wird, weil bei einigen Zeichen (i etc.) Platz eingespart wird. Ich verwende zur Errechnung der Feldbreite einen breiten Buchstaben als Muster.

[aldicek]

Vielen Dank, Leute!

Es hat wirklich geklappt, prima!

Gruß
Aldi