TYPE TMYDBGRID = Class (TDBGRID);
procedure DemoDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TMyDBGrid (Sender) do begin if DataLink.ActiveRecord = Row - 1 then begin Canvas.Brush.Color: = $ 00fbf0e6; canvas.font.color: = CLBLACK; ELSE BEGIN CANVAS.BRUSH.COLOR: = Color; canvas.font.color: = font.color; end; defaultdrawcolumnultell (Rect, Datacol, Column, State); END;
