Mewarnai Colom Yang Dipilih pada DBGrid

procedure TDBGridForm.DBGrid1DrawColumnCell(

Sender: TObject;

const Rect: TRect;

DataCol: Integer;

Column: TColumn;

State: TGridDrawState) ;

begin

if NOT DBGrid1.Focused then

begin

if (gdSelected in State) then

begin

with DBGrid1.Canvas do

begin

Brush.Color := clHighlight;

Font.Style := Font.Style + [fsBold];

Font.Color := clHighlightText;

end;

end;

end;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;

end;