procedure TFrm_TB.DBG_mRemarkDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);begin if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then begin //DBG_mRemark.Canvas.Font.Style:=[fsBold]; DBG_mRemark.Canvas.Font.Color:=clRed; DBG_mRemark.Canvas.Brush.Color:=clinfobk; DBG_mRemark.DefaultDrawColumnCell(Rect, DataCol, Column, State); endend;