Wahrscheinlich finde ich zu diesem Effekt nichts, weil die Lösung zu banal ist:
Die Fixed Row in einem Drawgrid bleibt nicht stehen, sondern wird mit rausgescrollt.
Die Zellen fülle ich im OnDrawCell-Ereignis.
Die Komponente ist auch eher unspektakulär:

zusammenfalten · markieren

Delphi-Quellcode:

  object dgUmsVal: TDrawGrid
    Left = 8
    Top = 216
    Width = 929
    Height = 252
    FixedCols = 0
    TabOrder = 1
    OnDblClick = dgUmsDblClick
    OnDrawCell = dgUmsDrawCell
    ColWidths = (..)
    RowHeights = (..)
  end

Fällt dazu jemand etwas spontan ein?
VG
Reinhold

Hallo,
und und wo ist hier FixedRows oder wird das per Programm gesetzt?

Die ist standardmäßig 1 und steht deshalb nicht explizit in der dfm.

Und in OnDblClick und OnDrawCell wird nich zufällig noch etwas verändert?
Ich habe schon ein paar Sachen mit dem Grid gemacht. Die FixedRow bleibt bei mir immer stehen.

So, Ursache gefunden.
Wenn sich die Anzahl der Listeneinträge ändert, die in dem Grid abgebildet werden,
ist zwangsläufig ein RowCount := <neue Anzahl + 1) erforderlich.
Bei mir sieht das im Prinzip so aus:

markieren

Delphi-Quellcode:

DrawGrid1.RowCount := 1;
DrawGrid1.RowCount := Succ(TList1.Count);

RowCount := 1 setzt FixedRows auf 0. (Null verschiebbare Zeilen nicht zulässig?)

Dieses 'Reset'-Vorgehen hat mir irgendwann ein Darstellungsproblem gelöst,
aber da hatte ich wahrscheinlich keine Fixed Row.
In diesem Fall müsste ich es lassen, oder auf FixedRow +1 setzen oder FixedRows neu setzen.

Danke nochmal

Zitat von Graf Gustav:

RowCount := 1 setzt FixedRows auf 0. (Null verschiebbare Zeilen nicht zulässig?)

Ja, das ist sogar dokumentiert (Vcl.Grids.TCustomGrid.FixedRows):

Zitat:

Anmerkung: Ein Gitter muss mindestens eine Zeile enthalten, die verschoben werden kann. Stellen Sie FixedRows nicht auf einen größeren Wert als RowCount - 1 ein.