Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Borde de un Timage (https://www.clubdelphi.com/foros/showthread.php?t=5815)

NuncaMas 05-12-2003 10:51:54

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.??

delphi.com.ar 05-12-2003 15: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 10: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


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