FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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.??
|
#2
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|