DBGrid1.Columns[0].Width:= .... / geht das auch automatisch?

[Jumpy]

Noch eine Version, die ich meine ich irgendwann mal hier im Forum bekommen habe (find es gerade nicht), ich meine von Sir Rufo. Hier in der Version analysiert es die ersten 40 Zeilen, um die optimale Spaltenbreite zu ermitteln:

Delphi-Quellcode:

procedure TProjekt.SetGridCol_Optimal(DBGrid: TDBGrid);
function TextGroesse(const Text : string; Font : TFont = nil) : TSize;
var
  DC : hDC;
  F : hFont;
begin
  F := 0;
  DC := GetDC(0);
  try
    if Font <> nil then F := SelectObject(DC, Font.Handle);
    if not GetTextExtentPoint32(DC, PChar(Text), Length(Text), Result) then
    begin
      Result.cx := 0;
      Result.cy := 0;
    end;
  finally
    if F <> 0 then SelectObject(DC, F);
    ReleaseDC(0, DC);
  end;
end;

var
  i, j : integer;
  iMaxRow : integer;
begin
  with DBGrid do
  begin
    // maximal XX Zeilen durchsuchen
    iMaxRow := Min(40, DataSource.DataSet.RecordCount);
    try
      DataSource.DataSet.DisableControls;
      Visible := false; // notwendig, da controls disabled!
      DataSource.DataSet.First;
      // mit Breite der Überschriften inizialisieren
      for i := 0 to Columns.Count - 1 do
      begin
        Columns.Items[i].Width := TextGroesse(Columns[i].Title.Caption, Font).cx + 10;
      end;
      // auf die größte Breite der ersten iMaxRow Zeilen stellen
      for j := 0 to iMaxRow - 1 do
      begin
        for i := 0 to Columns.Count - 1 do
        begin
          Columns.Items[i].Width := Max(TextGroesse(Fields[i].Text, Font).cx + 10, Columns.Items[i].Width);
        end;
        DataSource.DataSet.Next;
      end;
      DataSource.DataSet.First;
    finally
      DataSource.DataSet.EnableControls;
      Visible := true;
    end;
  end;
end;

[NicoleWagner]

[ case DBGrid_Trades.Columns[i].DataType of
ftString, ftWideString :]

Das will der Compiler nicht:
DBGrid_Trades.Columns[i].DataType

► undeklarierter Bezeichner 'DataType'

Ja, da gab es eine Version hier, die die Spaltenbreite automatisch erzeugen sollte. Vor langem.
Doch sie lief für mich nicht.
Dieses manuelle Setzen ist nämlich extrem mühsam, weil ich mit dem Grid arbeite und die Reihenfolge der Felder immer wieder mal verändere. Daher probierte ich damals die Implementierung sofort. Doch ging nicht.

[Delphi.Narium]

Müsste wohl DBGrid_Trades.Columns[i].Field.DataType heißen.

[Delphi.Narium]

Eventuell ließe sich aber im AfterOpen der Query sowas realisieren:

Delphi-Quellcode:

procedure TForm1.AfterOpen(DataSet: TDataSet);
var
  i : Integer;
begin
  for i := 0 to DataSet.Fields.Count - 1 do begin
    case DataSet.Fields[i].DataType of
      ftSmallint, ftInteger, ftWord,
      ftLargeInt, ftAutoInc : TFloatField(DataSet.Fields[i]).DisplayFormat := '###,##0 ';
      ftCurrency, ftFloat   : TFloatField(DataSet.Fields[i]).DisplayFormat := '###,##0.00 ';
      ftDate, ftTime, ftDateTime : TDateTimeField(DataSet.Fields[i]).DisplayFormat := 'dd.mm.yyyy hh:nn:ss';
    end;
  end;
end;

Dann könnte man sich beim Zeichnen des Grids die Formatierungen sparen und bliebe bei der Berechnung der Spaltenbreite bei TiGüs Vorschlag.

[NicoleWagner]

Danke für Deine Mühe. Von der Syntax her wird das jetzt genommen.
Allerdings scheint es nichts zu tun bei mir.

Ich schlug jetzt in der Hilfe nach und - ich bin überfordert. Das ist so komplex, was dort steht, ich verstehe es einfach nicht.

Daher drei Kindermundfragen:

1)
Ist die Option des DBGrids "dgColumnResize" relevant?
Ich schaltete sie ein und schaltete sie aus, doch sehe keinen Unterschied.

2)
Diese Abfragen (aus der anderen Idee)
lb.Caption := DBGrid_Trades.Columns[i].Field.AsString;
DBGrid_Trades.Columns[i].Width := lb.Width;
Was fragt die ab?
Ich brauche ja die längste Ausgabe aus dieser Spalte. Es hat ja die Überschrift eine Breite, der Inhalt manchmal eine andere, und manchmal eine wechselnde.
Eine gute Breite wäre z.B. die erste ausgefüllte Zelle oder aber die breiteste.

3)
Wenn ich habe
DBGrid_Trades.Columns[i]
Wie greife ich da auf die Zellen diese Spalte zu? Ich probierte Fields und items, doch irgendie kommt da nichts Sinnvolles.

Wobei es mir nichts nützt, auf die Query zuzugreifen, denn die Werte in den Spalten werden im Draw-Event ins Grid geschrieben und meiner Einschätzung nach nicht in die Datasource etc.

Und mit den Zugriffen auf die Breite wird die Zählung der Spalten noch mehr fuzzy. Es scheinen da in verschiedenen Zeilen verschiedene Spaltenanzahlen gezählt zu werden.

[Delphi.Narium]

dgColumnResize heißt: Die Feldern zugeordneten Spalten können in der Größe geändert oder verschoben werden. Anwender können in der Anzeige die Spaltenbreite ändern. Wenn Du mit der Maus in der Titelzeile die Spaltenbreite ändern kannst, sollte das ok sein.

Delphi-Quellcode:

lb.Caption := DBGrid_Trades.Columns[i].Field.AsString;
DBGrid_Trades.Columns[i].Width := lb.Width;

lb ist ein TLabel, bei dem AutoSize auf true steht. Wenn der Caption des Labels ein Text zugewiesen wird, berechnet das Label die erforderliche Breite, um den Text vollständig anzeigen zu können und verändert seine eigene Breite. Die vom Label berechnet Breite wird dann als Spaltenbreite für die Spalte des DBGrid genommen.

Um einen Text in einer Zelle auszugeben, könntest Du im Ereignis OnDrawColumnCell z. B. sowas machen: DBGrid1.Canvas.TextRect(Rect,2,4,'Dein Text + Feldinhalt: ' + Column.Field.AsString); Dabei gibt Rect die Koordinaten der Zelle an. 2 ist die X-Koordinate für die Ausgabe, 4 die Y-Koordinate der Ausgabe. Hier kannst Du auch 0 oder andere Werte angeben, um den Text in der Zelle nach Deinen Wünschen zu positionieren. Als vierten Parameter kannst Du eigenen Text ausgeben, oder den Text aus der Zelle oder eine Kombination daraus.

[Uwe Raabe]

Ist das nicht alles sehr kompliziert? Dafür gibt es doch TColumn.DefaultWidth ? Das verwendet das DisplayWidth Property des Fields. Durch geeignete Werte dort (z.B. bei calculated fields) kann man die Spaltenbreite recht einfach steuern.

Wenn es denn tatsächlich von Hand gehen soll, bietet sich auch TCustomGrid.TextWidthToColWidth an. Das berücksichtigt wenigstens auch noch die Ränder links und rechts.