Ver Mensaje Individual
  #1  
Antiguo 05-08-2012
JAI_ME JAI_ME is offline
Miembro
 
Registrado: ene 2006
Posts: 188
Reputación: 19
JAI_ME Va por buen camino
Cambiar color por defecto al seleccionar varias celdas de un TStringGrid

Buenas noches tengo un TStringGrid y en el evento OnDrawCell el siguiente codigo


Código Delphi [-]
with SG1.Canvas do begin

  sTexto := Sg1.Cells[ACol,ARow];

    if sTexto <> '' then 
           Brush.Color := $00E1E1FF
    else 
      Brush.Color := clWhite;

end;

pero cuando intento seleccionar varias celdas no me muestra el recuadro azul que indica que celdas estoy seleccionando, si bloqueo la linea
Brush.Color := clWhite; si funciona


como puedo hacer para cambiar el color azul cuando selecciono varias celdas ???
__________________
JaiMelendez

Última edición por Casimiro Notevi fecha: 05-08-2012 a las 09:32:07.
Responder Con Cita