Zeoslib TZTables

[RebeccaGL]

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
  // Init
  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;
 
  // Continue
  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.