Kann doch eigentlich nicht sein, dass ich für soetwas eine CustomDraw-Routine schreiben muss.
Mir wäre nichts anderes bekannt, zumindest nicht beim normalen DBGrid. Beim z.B TMS Grid geht das etwas einfacher
Aber beim
VCL DBGrid musst du´s über DrawColumnCell machen
z.B so.
Delphi-Quellcode:
type
TGridHack = Class(TCustomDBGrid);
...
procedure TFormX.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TGridHack(Sender) do
begin
if DataLink.ActiveRecord = Row - 1 then
begin
Canvas.Brush.Color := clHighlight;
Canvas.Font.Color := clHighlightText;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;