TJvDBGrid - Text soll Spaltenbreite ausfüllen

[ZOD]

Sorry Neumann, kam erst jetzt zum Testen des Vorschlages.

stimmt, Wordwrap stand auf true. Es ändert sich aber gar nichts, wenn ich es auf false setze.
WordWrapAllFields stand bereits auf False.

Auch die Zeilenhöhe scheint konstant zu bleiben, wenn ich sie über RowHeight im Objektinspektor ändere.

Ich habe die Komponente abgeleitet und in der abgeleiteten Komponente im Create DefaultRowHeight geändert.
Das ergibt dann auch eine geänderte Anzeige zur Laufzeit.

In der Zwischenzeit habe ich mit dem hier vorgeschlagenen Vorgehen experimentiert:
http://www.delphigroups.info/2/8d/313615.html

Das sieht dann zwar so aus, wie ich es brauche. Leider wird nur die Erste Datenzeile angezeigt bzw. immer wieder wiederholt, wenn ich das in der abgeleiteten Komponente im DrawCell einbaue.
Den Zellinhalt hole ich mit

Delphi-Quellcode:

  if (ARow = 0) then
  begin
    S := Self.Columns[ACol].Title.Caption;
  end
  else begin
    S := Self.DataSource.DataSet.Fields[ACol].AsString;
  end;

Irgendwas mache ich falsch .. nur was?