Borde de un Timage
Estoy haciendo un juego, y el tablero son un monton de TImage, como puedo hacer para que cuando se pincha en uno de ellos se "iluminen" sus bordes.??
|
Una solución sencilla, puede ser poner estos TImages sobre TPanels, y jugar con los bordes de estos últimos.
Otra solución puede ser modificar la imagen con Canvas.DrawFocusRect ó Canvas.FrameRect ó DrawEdge(Canvas.Handle, ....) Saludos! |
otra solucion sencilla puede ser el crear un TShape poniendo
TShape.Brush.Style:=bsClear; y en el codigo procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Shape1.Left:=(Sender as TImage).Left - 3; Shape1.Top:=(Sender as TImage).Top - 3; end; para todos los controles TImage. el tres que aparece es el valor que le adjudico a TShape.Pen.Width := 3; el TShape tiene que tener el ancho y alto el tamaño del TImage mas el doble del valor de pen.width aparte de esto tendrias que poner segun tus necesidades el Tshape.visible a True False. espero que quede claro y que te sirva, es una solucion sencilla pero efectiva y que casi o usa recursos, por cierto si le pones un color al TShape $32EDF4 , por ejemplo resalta muy bien. por ultimo no te olvides que Thape.Enabled:=False; un saludo |
La franja horaria es GMT +2. Ahora son las 06:57:41. |
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