VCL.TDBGrid - CustomDraw für selectierte Row?

[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