Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Líneas Guías sobre el Puntero del Mouse (https://www.clubdelphi.com/foros/showthread.php?t=48953)

eddg 09-10-2007 03:37:22

Líneas Guías sobre el Puntero del Mouse
 
1 Archivos Adjunto(s)
Señores deseo colocarle líneas guías al cursor de mi MOUSE y no se como hacerlo! tal y como se muestra en el Archivo Adjunto!

Si alguien sabe como hacerlo o que prpiedades editar, me seria de gran ayuda! porque igual no se como buscarlo en este FORO...

Gracias a todos!

Robert01 09-10-2007 04:02:33

Hola

La posición del puntero del ratón en cada punto está dado por las coordenadas (x,y), pienso que lo que tendrías que hacer es trazar dos rectas perpendiculares entre si que pasen por ese punto.

Saludos

eddg 09-10-2007 04:46:08

Excelente punto de vista, pues ya cuento con las coodenadas X, Y de mi cursor, que de hecho las muestro en mi barra de estado!

sin embargo no tengo idea de como hacer eso que dices de crear dos lineas que pasen justo por ese PUNTO.

Espero tu respuesta hermano!

Robert01 09-10-2007 13:11:44

Pienso que podrías usar algo parecido a esto:

Código Delphi [-]
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin image1.Canvas.MoveTo(startx,starty); image1.Canvas.LineTo(x,y); end;

end;


Ya que tienes los puntos donde está el cursor en cada momento podrías usarlos en el código este.

eddg 10-10-2007 00:41:30

No es necesariamente lo que quiero, en el archivo se muestra graficamente que es lo que necesito!

Nesecito Mostrar los Rectas intersectadas en el puntero del Mouse, y que estas se muevan con el puntero, lo conozco como Líneas Guías pero hasta los momentos no he conseguido ayuda alguna con respecto a esto!


Quien tenga alguna solución, no dude en Postear Por Favor... Muchas Gracias!

Robert01 10-10-2007 04:09:08

Yo no soy un programador profesional, sólo soy un experimentador.

Supongamos que consigo trazar dos líneas que se cruzan en un punto usando

LineTo(x0,y0) y MoveTo(x1,y1)

Como necesitamos que cambien a medida que cambian las coordenadas del cursor variamos los valores y debemos borrar los anteriores.

Si nos movemos horizontalmente la línea en se sentido no va a cambiar para nada, si lo hacemos verticalmente no lo hará la línea vertical, entonces sólo resta dibujar la posición cuando ambas varían.


Yo con esta idea lo haría porque no me gusta parecerme a ups29h9 creo que se llamaba.

Robert01 10-10-2007 04:17:11

Lo siento, fue una broma fuera de lugar. Si puedo te ayudaré a resolver el problema.

Robert01 10-10-2007 04:33:10

Hola

Este tema fue tratado anteriormente. La consulta fue relizada por Picard el 11-07-2004. El título de la consulta es Lines. No se como se pone el link a ese tema. Se da la solución a la duda planteada.

Saludos y mucha suerte

gluglu 10-10-2007 12:19:57

http://www.clubdelphi.com/foros/show...ighlight=Lines


La franja horaria es GMT +2. Ahora son las 03:21:01.

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