PDA

Ver la Versión Completa : Componente FMX Container


AgustinOrtu
14-06-2016, 22:33:03
Saludos,

Simplemente queria compartir este componente llamado FireMonkey Container (github.com/vintagedave/firemonkey-container/), desarollado por David Millington

El componente es open-source y se distribuye bajo la licencia MPL

Esta es la pagina principal: Parnassus: FireMonkey Container (https://parnassus.co/open-source/tfiremonkeycontainer/)

Basicamente lo que permite es utilizar Forms Firemonkey en aplicaciones VCL. Oficialmente, no se pueden mezclar ambos frameworks, pero este componente permite hacerlo y funciona bastante bien (hay algunos bugs o problemillas)

Osea que uno puede tomar sus aplicaciones VCL de toda la vida, y agregar los nuevos y bonitos controles FMX, o algunos otros componentes muy utiles como las animaciones. De esta manera se puede ir probando un poquito el nuevo framework sin desprendernos totalmente de la VCL y su indiscutible madurez, estabilidad y performance

Tambien es posible incrustar Forms 3D sin ningun problema

La instalacion del componente es la misma de siempre: se abre el paquete acorde a nuestra version de Delphi, y se instala el componente. Luego sera necesario incluir en el Library path la ruta donde esta el componente

El uso es muy sencillo, solamente hay que tener un par de recaudos (explicado acá (https://parnassus.co/tfiremonkeycontainer-a-vcl-control-for-mixing-vcl-and-fmx/)en ingles)

1. Colocamos un componente TFireMonkeyContainer en nuestro form VCL
2. La parte "tediosa" o "rara" ya que el IDE no soporta esto directamente: Hay que agregar a nuestro
Project Group un nuevo proyecto, esta vez un proyecto multi-device (Firemonkey)

Luego, arrastramos la unidad que contiene el form FMX que queremos incrustar, y soltamos sobre el proyecto VCL. Se va a abrir un cuadro de dialogo advirtiendonos de los problemas al mezclar los frameworks. Aceptamos y luego...

3. Como conectar el Form FMX con el componente:
a. La mas sencilla pero que tiene algunos problemas, es, en tiempo de diseño, usar la propiedad FireMonkeyForm del componente y referenciar al form que queremos incrustar en nuestra aplicacion VCL. Es neceasrio que el form en cuestion este abierto para que el IDE lo vea. Es un proceso sencillo y muy similar a lo que seria referenciar a un TImageList por ejemplo

Limitaciones: En tiempo de diseño, no se puede editar el form FMX desde el formulario VCL, es como una especie de vista previa; para editarlo, debemos abrir el form FMX

b. De manera similar, se puede asignar el valor de esta propiedad en tiempo de ejecucion. En particular yo siempre uso esta alternativa

c. Mediante los eventos OnCreateFMXForm y OnDestroyFMXForm. Estos eventos nos permiten controlar el tiempo de vida de nuestro Form FMX. Esta forma es la recomendada por David

Otra nota importante: El orden de las unidades de nuestro form VCL (el host, es decir, en el que incrustamos el form FMX). El orden debe ser tal que primero se referencia a la unidad FMX.Forms y luego a la unidad Vcl.Forms. Esto es porque para ambos frameworks, la clase para los forms se llama "TForm", y en Delphi quien "gana" cuando hay colisiones de calificadores es el que es referenciado por la ultima unidad en cuestion. Si invertimos el orden, vamos a tener problemas en tiempo de ejecucion cuando se active el mecanismo de Streaming (lectura del .dfm)

Serie de articulos de David (en ingles)
TFireMonkeyContainer – a VCL control for mixing VCL and FMX (http://parnassus.co/?p=211)
TFireMonkeyContainer update: bugs fixed, features added (http://parnassus.co/?p=210)
TFireMonkeyContainer bugfix for instances created at runtime (http://parnassus.co/?p=201)
VCL drag/drop support, support for XE2 and XE3 reintroduced, and more (http://parnassus.co/tfiremonkeycontainer-multiple-fmx-forms-dragdrop/)

Repositorio del proyecto: GitHub (github.com/vintagedave/firemonkey-container)

Saludos

dec
15-06-2016, 03:07:08
Hola,

Gracias por la información Agustín. :)

AgustinOrtu
15-06-2016, 03:15:40
Por cierto, recomiendo a todo aquel que use el componente que incorpore estas dos actualizaciones a su codigo fuente:

- Property AllowTabKey to allow the inner FMX form to handle Tab key eventshttp:// (https://github.com/vintagedave/firemonkey-container/pull/11)

- Arrow keys do not always work (https://github.com/vintagedave/firemonkey-container/pull/14)

Ambos se corresponden a dos pull request del desarrollador yonojoy (https://github.com/yonojoy)

Pueden encontrar mas informacion sobre los bugs que se solucionan en la seccion Issues (https://github.com/vintagedave/firemonkey-container/issues)

Al González
15-06-2016, 07:45:15
Muchas gracias, Agustín. Suena muy interesante. :)

ElKurgan
15-06-2016, 07:51:44
Muchas gracias por el aporte

Saludos

Casimiro Notevi
15-06-2016, 10:41:43
^\||/^\||/^\||/

Neftali [Germán.Estévez]
15-06-2016, 14:29:49
Hace tiempo (y la entrada data del 2011) ya hablé sobre este tema de mezclar ambos tipos de formularios en un proyecto VCL (http://neftali.clubdelphi.com/?p=1835).

Una opción que personalmente no me parece mala es utilizar packages como forma de separar conceptualmente las 2 plataformas en los proyectos. En esa entrada se explica cómo hacerlo utilizando packages y directamente, tal y como hace ese componente.

En su día se utilizaba la unit DSharp.Windows.FMXAdapter.pas de Stefan Glienke que os adjunto a este mensaje.

Lo he probado y sigue funcionando bien, salvo que hay que cambiar este código:


PlatformWin.SetWindowRect(FForm, RectF(BorderWidth, BorderWidth,
ClientWidth + BorderWidth, ClientHeight + BorderWidth));


Por este otro, simplemente porque a partir de XE3 el acceso al procedimiento SetWindowRect hay que hacerlo de forma ligéramente distinta.


var
WindowService : IFMXWindowService;
begin
...
WindowService := TPlatformServices.Current.GetPlatformService(IFMXWindowService) as IFMXWindowService;
WindowService.SetWindowRect(FForm, RectF(BorderWidth, BorderWidth,
ClientWidth + BorderWidth, ClientHeight + BorderWidth));
...


Por si alguien quiere hacer las pruebas sin necesidad de instalar nada extra, simplemente añadiendo esta unit al proyecto.

AgustinOrtu
15-06-2016, 18:54:53
Hola Germán, me parece muy interesante tu aporte, ya pagaré un vistazo a la implementación de DSharp.

Según lo comentado fmx container esta inspirado por DSharp y les corrige algunos bugs