No eso no, mira este ejemplo.
Código Delphi
[-]
procedure TForm_BeEMPPRJ.DBGrid_CVMMOVDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
DBGrid_CVMMOV.Canvas.Font.Style := [];
DBGrid_CVMMOV.Canvas.Font.Color := clWindowText;
if (DBGrid_CVMMOV.SelectedRows.CurrentRowSelected) then
DbGrid_CVMMOV.Canvas.Brush.Color := $00EFD3C6
else
DbGrid_CVMMOV.Canvas.Brush.Color := clWindow;
if (gdSelected in State) and
(DBGrid_CVMMOV.Focused) then
begin
DBGrid_CVMMOV.Canvas.Font.Color := clWhite;
DbGrid_CVMMOV.Canvas.Brush.Color := clHighlight;
end;
DBGrid_CVMMOV.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Algo asi como tener todo el Brush toda la barra del DBGrid pintado en la posicion del registro en curso.
Pero este ejemplo no funciona.