[Lazarus-es] Mover objetos en tiempo de ejecucion

[Martin Gomez]

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*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130827/0fc55a1d/attachment-0002.html>