Einzelnen Beitrag anzeigen

Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Weimar
345 Beiträge
 
Delphi 10.4 Sydney
 
#1

DBGrid OnDrawColumn Zeile 0

  Alt 1. Mär 2020, 17:00
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
Mathias
  Mit Zitat antworten Zitat