VCL.TDBGrid - CustomDraw für selectierte Row?

[himitsu]

Danke erstmal, das klang grundsätzlich gut (hatte CurrentRowSelected irgendwie übersehn), aber funktioniert leider nicht.
Die "CurrentRow" enthält einen Wert/Bookmark,
aber die SelectedRows sind irgendwie immer leer. Find findet nichts, da auch Count und Items leer sind.
Egal ob mit oder ohne gdRowSelected.

Weder im OnDrawColumnCell, aber auch in einem Button-Click ist SelectedRows immer leer. (akuelles Delphi 11.3)
TStringGrid/TDrawGrid nicht getestet ... hab aktuell nur ein TDBGrid zur Verfügung.

Delphi-Quellcode:

  if Grid.SelectedRows.CurrentRowSelected {and not (gdSelected in State) and not (gdHotTrack in State)} then
    Grid.Canvas.Brush.Color := clFuchsia;//clInfoBk;

  // das Nachfolgende ist aus dem entstanden, was im CurrentRowSelected drin ist

  var Index: Integer;
  if Grid.SelectedRows.Find(Grid.DataSource.DataSet.Bookmark, Index) then
    Grid.Canvas.Brush.Color := clFuchsia;

  if (Grid.SelectedRows.Count = 1) and (Grid.SelectedRows[0] = Grid.DataSource.DataSet.Bookmark) then
    Grid.Canvas.Brush.Color := clFuchsia;

[Delphi.Narium]

Geht sowas?

Delphi-Quellcode:

procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
          sFieldname : String;
begin
  sFieldname := AnsiLowerCase(Column.Field.FieldName);
  if sFieldname = 'id' then begin
    if (Grid.DataSource.DataSet.FieldByName('id').AsInteger = Column.Field.AsInteger) then begin
      Grid.Canvas.Brush.Color := clFuchsia;
    end;
  end;
  // Det muss, sonst wird nix bunt.
  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[Olli73]

Das dazugehörige Dataset ist beim Zeichnen immer auf den zu zeichnenden Record positioniert. So kannst du dir ganz einfach merken, welche "ID" bei dir markiert ist und dann beim Zeichnen "DataSet.FieldByName..." prüfen, ob das diese ID ist.

[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.