Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Celda resaltada en azul en una DrawGrid (https://www.clubdelphi.com/foros/showthread.php?t=78296)

JosepMLlort 06-04-2012 11:11:02

Celda resaltada en azul en una DrawGrid
 
Hola,

¿Alguien sabe si es posible evitar que en una DrawGrid aparezca, en tiempo de ejecución, una de las celdas resaltada en color azul?

Estoy trabajando con dos DrawGrid en la misma ventana. Si hago click en cualquier celda de una de las DrawGrid, desaparece el resalte azul en ella, pero aparece en la otra. Suponía que tenía que haber alguna propiedad del objeto que permitiera evitar el resalte, pero no he detectado ninguna que lo haga.

Gracias por vuestra atención.

ecfisa 06-04-2012 21:02:36

Hola JosepMLlort y bienvenido a Club Delphi :)

Como a todos los que se inician participando en los foros te invitamos a que leas nuestra guía de estilo.

En cuanto a tu consulta, probá de este modo:
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  DrawGrid1.Selection:= TGridRect(Rect(-1,-1,-1,-1));
  DrawGrid2.Selection:= TGridRect(Rect(-1,-1,-1,-1));
end;

(* Asignar al evento OnExit de ambos TDrawGrid *)
procedure TForm1.DrawGridExit(Sender: TObject);  
begin
  (Sender as TDrawGrid).Selection:= TGridRect(Rect(-1,-1,-1,-1));
end;
...

Saludos.

JosepMLlort 07-04-2012 00:11:01

Funciona perfectamente
 
Hola,

Ecfisa, la solución que propusiste funciona perfectamente.

Muchas gracias a ti y a los que os tomásteis la molestia de intentar ayudarme.

Saludos a todos.


La franja horaria es GMT +2. Ahora son las 12:30:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi