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(SenderTObject; const RectTRect;
  
DataColIntegerColumnTColumnStateTGridDrawState);
begin

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

    
DefaultDrawColumnCell(RectDatacolColumnState);
  
end;
end
Saludos
Responder Con Cita