VCL.TDBGrid - CustomDraw für selectierte Row?

[himitsu]

Ja, genau, es ist auf die aktuell gezeichnete Row ausgerichtet.
Diese zu zeichnende Cell/Row bekomme ich ja, aber ich bekomme von nirgendwo welche Row "eigentlich" selektiert ist, um damit vergleichen zu können. (nur zur aktuellen Zelle bekomme ich, dass sie selektiert ist, aber nicht bei anderen Zellen dieser Row)

Per se hätte es gestimmt, dass "diese" Row in den SelectedRows hätte drin stehen sollen.



Column.Field ist somit auch immer das jeweilige Field im aktuellen DataSet-Record.
Wie gesagt, der Record wird beim Zeichnen automatisch gescrollt (in dem Sinne eigentlich praktisch, weil ich dadurch Zugriff auf andere Fields der zugehörigen Row bekomme)

Bei DevExpress hat das Grid dagegen eine Kopie aller Records in seinem GridView.DataController,
also dort bleibt das DataSet da, wo es war, und im OnCustomDraw bekommt man die Kopie des zu zeichnenden Records in den Parametern.

[Olli73]

In DataSet.AfterScroll merken (Variable), wo man ist... Sollte beim Zeichnen NICHT ausgelöst werden, aber wenn du einen Datensatz irgendwie auswählst.

[Delphi.Narium]

Du möchtest wissen, welche ID der Satz hat, auf dem der Datensatzzeiger (verarbeitungstechnisch) steht. Im Grid links der markierte Satz.

Im AfterScroll die ID (oder was auch immer) einer Variabel zuweisen und dann diese Variabel im OnDrawEreignis vergleichen.

Delphi-Quellcode:

procedure TForm1.AfterScroll(DataSet: TDataSet);
begin
  fCurrentID := DataSet.FieldByName('ID').AsInteger;
end;

procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (fCurrentID = Column.Field.AsInteger) then begin
    Grid.Canvas.Brush.Color := clFuchsia;
  end;
  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[Uwe Raabe]

Du willst doch nur wissen, ob die aktuell zu zeichnende Zeile die ausgewählte Zeile ist, oder? Dazu sollte eine Überprüfung auf ActiveRecord = CurrentRecord im DataSet ausreichen. Dass das protected Properties sind macht dir sicher keine Probleme.

[himitsu]

Jupp, AfterScroll funktioniert.
Hab aber RecNo benutzt ... einfacher, schneller und universeller.


Nja, aber dennoch würde ich es mal als Bug ansehen, dass man die selektierte Row nicht auslesen kann.

Und zusätzlich als FeatureRequest, dass sie doch einfach diesen Status ins TGridDrawState aufnehmen könnten.




@Uwe: Ich probiers mal.
AfterScoll hatte ich schon ... da nur noch die neue Variable rein ... das mit dem protected wird ein paar Zeilen mehr Code, aber sieht bestimmt dennoch besser aus.

Für MemIniFile hatte ich auch schon einen Bugfix, da dort jemand bei den Default-Werten Mist gebaut hat.

[himitsu]

Nee, CurrentRecord ist immer -1
und ActiveRecord entspricht einem RecNo-1.

[Uwe Raabe]

Zitat von himitsu:

Und zusätzlich als FeatureRequest, dass sie doch einfach diesen Status ins TGridDrawState aufnehmen könnten.

[himitsu]

So, hier erstmal als TestProjekt.

Komisch nur, im eigentlichen Projekt gehen Dinge, die hier nicht gehn,
und zusätzlich sind mir neue Probleme aufgefallen.

• Egal ob im OnCreate oder OnShow (wie im anderen Projekt) erzeugt/gefüllt, wird direkt nach dem Start die selektierte Zeile nicht farbig angezeigt.
  • Auch ein Invalidate am Ende von OnCreate/OnShow hilft nicht.
    Klar, denn AfterScroll machte das auch schon, und das half beim Laden auch noch nicht.
  • Also erstmal die selektierte Zeile ändern.
  • Das Zuweisen des Index vor dem Hinzufügen/Add hilft auch nicht. (so wie es im anderen Projekt passiert)
    Mir war aufgefallen, dass beim Ändern des Sortierungs-Index kein afterScroll ausgelöst wird.
• Ohne das Invalidate im AfterScroll, ist die Färbung falschrum, wenn mit dem Mausrad gescrollt wird. (AfterScroll wird dort nach dem Repaint der beiden Zeilen ausgeführt)
  [EDIT] Nee, im eigentlichen Projekt passiert das nicht, auch ohne ein Invalidate dort. Obwohl das Zeichnen und AfterScroll prinzipiell gleich ist.
  [EDIT2] OK, dort wird die Form.Caption im Scroll geändert, aber ändert nichts am Verhalten.
  [EDIT3] Und ich hatte drüben Form.Style = Windows, damit die Form im Designer der grauenhaft geskinten IDE wie zur Laufzeit aussieht ... aber ändert auch nichts am Verhalten.
• im DBGrid1DrawColumnCell verstecken sich oben je Zeile verschiedene Versuche

[Olli73]

Du könntest Mal probieren, dir die Recno im TDataSource.OnDataChange zu merken.

[ol1uw]

Hallo

bei der jetzigen Implementation nach dem hinzufügen der Daten einen "scroll" auslösen z.B.

Code:

ClientDataSet1.First;

Eine andere Möglichkeit wurde hier beschrieben https://stackoverflow.com/questions/...d-row-via-code

Code:

type
 THackDBGrid = class (TDBGrid);

...

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
           const Rect: TRect; DataCol: Integer; Column: TColumn;
           State: TGridDrawState);
begin
 if (THackDBGrid(dbGrid1).DataLink.ActiveRecord + 1 = THackDBGrid(dbGrid1).Row)
  or (gdFocused in State) or (gdSelected in State) then
   dbGrid1.canvas.Brush.Color:= clMoneyGreen;


 dbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

Uwe