SoloCodigo

Programación General => Delphi => Mensaje iniciado por: Perrero en Martes 11 de Abril de 2006, 18:46

Título: Ayuda Con Imagenes
Publicado por: Perrero en Martes 11 de Abril de 2006, 18:46

weno tengo una duda sobre las imagenes, quisiera saber si hay una manera de hacer que una imagen (ya sea bmp o un ico) al momento de darle clic se vea seleccionado, osea que tome un color, es igual como en los iconos del escritorio que al darles clic se ponen de color azulito. weno ojala me puedan ayudar...gracias

Título: Re: Ayuda Con Imagenes
Publicado por: Enko en Martes 11 de Abril de 2006, 21:20

Pone esto en el evento OnClick.

La cosa es que con FillRect no me funcionaba, por eso es que se pinta un rectangulo con las coordenadas (-1,-1, w+1, h+1). Con lo que el rectangulo no se ve, pero le hace un Xor a la imagen.

Fijate si averiguas como para hacerlo más prolijo :whistling:

Código: Text

1.  
2. procedure TForm1.Image1Click(Sender: TObject);
3. begin
4.   Image1.Canvas.Pen.Mode := pmXor;
5.   Image1.Canvas.Rectangle(Rect(-1,-1, Image1.Width+1,  Image1.Height+1));
6. end;
7.  
8.