FixedRow in TDrawGrid bleibt nicht stehen

[Graf Gustav]

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:

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

[hoika]

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

[Graf Gustav]

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

[hhcm]

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.

[Graf Gustav]

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:

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

[Uwe Raabe]

Zitat:

Zitat von Graf Gustav (Beitrag 1461324)

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.