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

[Delphi.Narium]

@TiGü

jo, eindeutig
Soweit hab' ich halt mal wieder nicht gedacht.
Vorteil Deiner Version: Man muss sich nichtmal drum kümmern, ob die Schriftgröße, ... irgendwie passen.

Aber dann machen wir es noch ein bisserl kürzer

Delphi-Quellcode:

  for i := 0 to DBGrid1.Columns.Count - 1 do
  begin
    DBGrid1.Columns[i].Width := DBGrid1.Canvas.TextWidth(DBGrid1.Columns[i].Field.AsString);
  end;

[TiGü]

Zitat von Delphi.Narium:

Aber dann machen wir es noch ein bisserl kürzer

Delphi-Quellcode:

  for i := 0 to DBGrid1.Columns.Count - 1 do
  begin
    DBGrid1.Columns[i].Width := DBGrid1.Canvas.TextWidth(DBGrid1.Columns[i].Field.AsString);
  end;

Du hast doppelt soviele Aufrufe an TDBGridColumns.GetColumn und 5 Assemblerzeilen mehr (Win32, Debug).
Am Ende "spart" man sich vertikalen Platz, um ihn mit horizontalen Platzbedarf einzutauschen.
Die eingesparten 22 Zeichen wiegen die Nachteile nicht auf.

[Delphi.Narium]

Schön, dann ändern wir auch das:

Delphi-Quellcode:

procedure AutoSizeColumns(AGrid : TDBGrid);
var
  i : Integer;
  LColumn : TColumn;
  LCanvas : TCanvas;
  LField : TField;
begin
  LCanvas := AGrid.Canvas;
  for i := 0 to AGrid.Columns.Count - 1 do
  begin
    LColumn := AGrid.Columns[i];
    LField  := LColumn.Field;
    case LField.DataType of
      ftString, ftWideString :
      begin
        LColumn.Width := LCanvas.TextWidth(LField.AsString);
        LColumn.Alignment := taLeftJustify;
      end;
      ftSmallint, ftInteger, ftWord, ftAutoInc, ftLargeint :
      begin
        LColumn.Width := LCanvas.TextWidth(Format('%6.0n',[LField.AsFloat]));
        LColumn.Alignment := taRightJustify;
      end;
      ftFloat, ftCurrency :
      begin
        LColumn.Width := LCanvas.TextWidth(Format('%6.2n',[LField.AsFloat]));
        LColumn.Alignment := taRightJustify;
      end;
      ftDate :
      begin
        LColumn.Width := LCanvas.TextWidth(FormatDateTime('dd.mm:yyyy', LField.AsDateTime]));
        LColumn.Alignment := taLeftJustify;
      end;
      ftTime :
      begin
        LColumn.Width := LCanvas.TextWidth(FormatDateTime('hh:nn:ss', LField.AsDateTime]));
        LColumn.Alignment := taLeftJustify;
      end;
      ftDateTime :
      begin
        LColumn.Width := LCanvas.TextWidth(FormatDateTime('dd.mm.yyyy hh:nn:ss', LField.AsDateTime]));
        LColumn.Alignment := taLeftJustify;
      end;
    else
      LColumn.Width := LCanvas.TextWidth(LField.AsString);
      LColumn.Alignment := taCenter;
    end;
  end; 
end;
// Aufruf:
AutoSizeColumns(DBGrid1);

Sieht dann sogar lesbarer aus.
Ob's damit schneller wird, mag und will ich nicht beurteilen.