PDA

Ver la Versión Completa : Borde de un Timage


NuncaMas
05-12-2003, 11:51:54
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.??

delphi.com.ar
05-12-2003, 16:00:38
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!

madriles
06-12-2003, 11:03:03
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