DrawColumnCell (aktieven Feld anders darstellen)

[Karstadt]

Hallo.

Delphi-Quellcode:

procedure DbGrib_DrawColumnCell_Einstellung(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

  If  Odd(TPDJXPDBGrid(sender).DataSource.DataSet.RecNo) then
  begin
    TPDJXPDBGrid(sender).Canvas.Font.Color:=Dbgrib_schrift_farbe1;
    TPDJXPDBGrid(sender).Canvas.Brush.Color:=Dbgrib_farbe_1;
  end
  else
  begin
    TPDJXPDBGrid(sender).Canvas.Font.Color:=Dbgrib_schrift_farbe2;
    TPDJXPDBGrid(sender).Canvas.Brush.Color:=Dbgrib_farbe_2;
  end;
  TPDJXPDBGrid(sender).DefaultDrawColumnCell
  (Rect, DataCol, Column, State);
end;

Das ist mein Code. Nun will ich den aktiven Feld ander darstellen. Z.b Blaue umrahmung.

Wie mache ich das?

Momentan sieht das so aus, das das aktives Feld "garnicht" markiert wird...