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