[Lazarus-es] Mover objetos en tiempo de ejecucion

[Maxi]

El día 27 de agosto de 2013 11:49, Martin Gomez <mmgomez en gmail.com> escribió:
> Me alegro!
> Al menos tenes el código fuente para ver como lograr el efecto deseado.
>
>
> 2013/8/27 Maxi <maximiliano.duarte en gmail.com>
>>
>> El día 25 de agosto de 2013 15:21, Maxi <maximiliano.duarte en gmail.com>
>> escribió:
>> > Gracias Martín ahora no tengo la pc pero apenas llegue lo veo
>> >
>> > El 25/08/2013 12:24, "Martin Gomez" <mmgomez en gmail.com> escribió:
>> >>
>> >> Más aún:
>> >> Este componente francés ya hace lo que necesitas :)
>> >>
>> >> http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html
>> >>
>> >> aquí las descargas: http://www.tcoq.org/composants
>> >>
>> >>
>> >>
>> >>
>> >> 2013/8/25 Martin Gomez <mmgomez en gmail.com>
>> >>>
>> >>>
>> >>> 2013/8/25 Martin Gomez <mmgomez en gmail.com>
>> >>>>
>> >>>> Yo siempre lo hice poniendo una variable boolean en True en el
>> >>>> OnMouseDown, en False en el OnMouseUp y "actuando" en el OnMouseMove
>> >>>> solamente si estaba la bandera en True.
>> >>>
>> >>>
>> >>> por cierto, esto sólo funciona si los objetos que mueves NO reaccionan
>> >>> ante el mouse... yo lo hice sobre un TImage y los "objetos" los
>> >>> dibujaba a
>> >>> mano en el Image.OnPaint, emitiendo un Image.Invalidate() cada vez que
>> >>> necesitaba forzar un cambio (al mover un objeto por ejemplo)
>> >>>
>> >>> Si estás trabajando con objetos visuales (ej, TButton), te convendría
>> >>> echar un vistazo al diseñador de formularios de Lazarus, o a
>> >>> diseñadores de
>> >>> formularios disponibles como componentes.
>> >>>
>> >>> Ej: http://forum.lazarus.freepascal.org/index.php?topic=17515.0
>> >>>
>> >>> CodeTyphon incluye un componente "exDesign" que podría servirte:
>> >>>
>> >>> http://www.pilotlogic.com/sitejoom/index.php/forums/scripting-development/2553-form-designer-component-pl-exdesign
>> >>>
>> >>> --
>> >>> Try not to become a man of success but rather to become a man of
>> >>> value.
>> >>> Albert Einstein
>> >>
>> >>
>> >>
>> >>
>> >> --
>> >> Try not to become a man of success but rather to become a man of value.
>> >> Albert Einstein
>> >>
>> >> _______________________________________________
>> >> Lazarus-es mailing list
>> >> Lazarus-es en lists.lazarus.freepascal.org
>> >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>> >>
>> >
>>
>> Gracias Martin justo esos dos objetos tenia en mente, ahora hice unas
>> pruebas y no sob los ideales pero me sirve para empezar
>> --
>> El que pregunta aprende, y el que contesta aprende a responder.
>>
>> No a la obsolecencia programada:
>>
>> http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml
>>
>> Linux User #495070
>> http://domonetic.com/blog
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
>
> --
> Try not to become a man of success but rather to become a man of value.
> Albert Einstein
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>

Encontré un objeto de la paleta Cindy, TcyRunTimeResize que es mas
simple y permite el uso de de los evento onmousemove, y podes bloquear
el redimensionado. Los objeto de la paleta exDesing estan buenos pero
hay que ponerlos en modo edicion/no edicion y es poco practico. Lo
bueno que tiene es el lector de propiedades de los objetos. Ideal para
hacer programas con scripting


-- 
El que pregunta aprende, y el que contesta aprende a responder.

No a la obsolecencia programada:
http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml

Linux User #495070
http://domonetic.com/blog