VCL.TDBGrid - CustomDraw für selectierte Row?

[himitsu]

Moin,

ich möchte/kann kein Options:gdRowSelect aktivieren.
Dann lässt sich keine Zelle mehr auswählen.
SelectedIndex ist immer die erste Spalte.

Ich würde aber gern eine gewisse Spalte (den selektierten Key) fett darstellen,
oder z.B. ein Highlight alle Zellen der aktuellen Row zeichnen.


OnDrawColumnCell: State:TGridDrawState=gdSelected nur für die "aktuell" selektierte Zelle,
bzw. gdRowSelected nur wenn Options:gdRowSelect aktiv.
Es gibt sonst keinen State für die aktuelle Zeile.

Auch im Column des DrawEvents oder im Grid nichts gesehen, was mir einfach/verständlich sagt, welche Zeile aktuell selektiert ist.
-> Im restlichen Code könnte ich einfach auf das DataSet gehen, nur beim Paint geht es nicht.

Grid.SelectedField und Grid.SelectedIndex ist die aktuell selektierte Zellen-Spalte.
Grid.SelectedRows gibt mir scheinbar nur blöde Bookmarks (ByteArray) raus.

Mit dem DataSet kann ich auch nicht vergleichen, da es beim Zeichnen gescrollt wird. (von Delphi)
-> Ist im OnPaint jeweils der Record der aktuell gezeichneten Cell/Row ... nicht Record der seltektierten Row.

[bcvs]

Ich nehme für so was das TJvDBGrid von den Jedis.

Das hat ein Event OnGetCellParams. Darin kannst du Font und Background ändern.

[himitsu]

Ja, aber ich wollte hier einfach mal keine Fremdkomponente nutzen.

DevExpress hätte ich daliegen gehabt.




TClientDataSet mit einem TDBGrid

Schrift, Farben, Hintergrund, alles kein Problem (außer bei der selektierten Zelle, wenn man Font+FontColor ändert ... da dort das Grid.DefaultDrawColumnCell nicht den Hintergrund neu zeichnet)
Auch eine Sortierung, über Klick auf die Titel-Felder, war recht einfach. (wegen CaseInsensitiv nicht einfach die nur CDS.IndexFieldNames zugewiesen, sondern CDS.AddIndex und IndexName)

[mariusbenz]

Im OnDrawColumnCell ermittle ich mir so die selektierte Zeile, das funktioniert sowohl mit aktivierten und deaktiviertem RowSelect:

Delphi-Quellcode:

IsRowSelected := ((gdSelected in State) OR (Grid.SelectedRows.CurrentRowSelected));

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