VCL.TDBGrid - CustomDraw für selectierte Row?

[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

[himitsu]

Stimmt ... drüben wird nach dem Hinzufügen noch mehrmals gescrollt.
Es gibt mehrere Quellen für die Daten und anschließend wird nochmal über alles gegangen und Zusatzinfos hinzugefügt.

Die einfache Lösung für das fehlende Malen nun entdeckt: AfterScroll und AfterPost (dort auch das AfterScroll-Event angehängt)


@ol1uw:
Hab's nur noch etwas abgewandelt.

• den DataLink-Hack durch ein einfaches RecNo ersetzt
• den Grid-Hack durch einen anderen bösen Cast ersetzt (nach TStringGrid), weil der existiert bereits
• und Hack bzw. Hacked nenne ich solche Klassen nicht mehr. Access klingt freundlicher und beschreibt auch besser, wozu sie hier dienen soll
• ACHTUNG: Aufpassen, ob die dgTitles in den Optionen, also ob das +1 bzw. -1 nötig ist.

if DataSet1.RecNo = {TDBGridAccess}TStringGrid(DBGrid1).Row then // DataSet1.RecNo-1 wenn ohne dgTitles

Hab auch den Anhang in #15 noch schnell mit dem aktuellen Code aktualisiert.