Ver Mensaje Individual
  #2  
Antiguo 12-07-2004
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola, aqui te envio unas líneas que te pueden servir, debes poner la propiedad DefaultDrawing del dbgrid a true.
El color lo puedes cambiar a tu gusto, es pero te sirva.
Código PHP:
implementation
 type
  TCustomDBGrid1 
= class(TCustomDBGrid);
{
$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin

  with TCustomDBGrid1
(sender) do begin
    
if DataLink.ActiveRecord = Row - 1 then begin
      Canvas
.Brush.Color := claqua;
      
Canvas.Pen.Color := claqua;
    
end;

    
DefaultDrawColumnCell(Rect, Datacol, Column, State);
  
end;
end; 
Saludos
Responder Con Cita