DBGrid OnDrawColumn Zeile 0

[NoGAD]

Hallo,

wie erhalte ich die erste angezeigte Zeile (0) im OnDrawColumn Ereignis?


Hintergrund: Ich möchte immer die optimale Spaltenbreite der aktuell angezeigten Daten einstellen und müsste bei jeder Änderung des DBGrid die aktuelle Spaltenbreite zurücksetzen, da es sonst dazu kommt, dass kürzere Einträge nicht angepasst werden, sondern nur längere.

Code:

    if CheckBox1.Checked then
    begin
      if DBGrid1. ??? = 0 then
        ColWidth := 10;

      ColWidth := 5 + DBGrid1.Canvas.TextExtent( Column.Field.DisplayText ).cx;
      if ColWidth > Column.Width then
        Column.Width := ColWidth;
    end;

Danke und LG
Mathias