JAI_ME
05-08-2012, 07:40:53
Buenas noches tengo un TStringGrid y en el evento OnDrawCell el siguiente codigo
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 ???
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 ???