Ver Mensaje Individual
  #2  
Antiguo 13-11-2004
Avatar de RONPABLO
[RONPABLO] RONPABLO is offline
Miembro Premium
 
Registrado: oct 2004
Posts: 1.514
Reputación: 21
RONPABLO Va por buen camino
Tal vez esto pueda ayudar

Cambia en donde compara el estado el '='por 'in'. mira en el codigo abajo

Código Delphi [-]
procedure TfFacturas.gridFacDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
{ gdSelected
   gdFocused }
  if not PVentaCheck then
    if (Column.Index = 3)and (gdSelected in State)then begin
      //Pintar el Color de la Letra
      gridFac.Canvas.Font.Color := clBlack;   
      //Pintar el Fondo de la Celda
      gridFac.Canvas.Brush.Color := clSilver;
      gridFac.DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;
end;
Responder Con Cita