Plataforma de desarrollo : VLO Framework parte II
Ya he integrado formalmente el framework VLO 1.0 en mi aplicación Thundax Box Manager. Aun funciona de la misma manera pero el código está distribuido de otra forma. La aplicación utiliza la platforma VLO para poder trabajar con las diferentes cajas y conectarlas entre sí, o aplicar diferentes algoritmos sobre éstos para manejar diversos datos. He corregido varias cosas como la detección de múltiples conexiones sobre una caja y el posicionado correcto de las pantallas de propiedades, que al variar el esquema del observer no me había dado cuenta de que la posición de las pantallas de propiedades se ubican en función del canvas. Lo he modificado para que tenga en cuenta el parent y lo ubique en un lateral del formulario. Para la detección de la conexión solo he tenido que modificar el objeto conector y aplicar un esquema de búsqueda para ver si existen sus conectores:
Si intentamos realizar una operación no posible, nos aparecerá un mensaje indicando que las cajas ya están conectadas:
También he puesto la información en el About indicando la versión del framework y un link a mi web: thundaxSoftware.org. Aunque no estén todas las aplicaciones allí, encontraréis otras. (tengo que unificar todas las aplicaciones y ordenarlo un poco).
Aquí os dejo la última versión de Thundax Box Manager para que podáis testear el framework.
function TConnectorList.exists(AObject: TConnector): Boolean;
var
i: integer;
found: boolean;
begin
i := 0;
found := false;
while (not found) and (i < self.Count) do
begin
found := (self.Items[i].HashSourceBox = AObject.HashSourceBox) and
(self.Items[i].HashTargetBox = AObject.HashTargetBox);
if not found then
found := (self.Items[i].HashSourceBox = AObject.HashTargetBox) and
(self.Items[i].HashTargetBox = AObject.HashSourceBox);
i := i + 1;
end;
result := found;
end;
Si intentamos realizar una operación no posible, nos aparecerá un mensaje indicando que las cajas ya están conectadas:
if not connectorList.Exists(conn) then
connectorList.Add(conn)
else
begin
FreeAndNil(conn);
ShowMessage('Box already connected!');
end;
También he puesto la información en el About indicando la versión del framework y un link a mi web: thundaxSoftware.org. Aunque no estén todas las aplicaciones allí, encontraréis otras. (tengo que unificar todas las aplicaciones y ordenarlo un poco).
Aquí os dejo la última versión de Thundax Box Manager para que podáis testear el framework.
- Thundax Box Manager v2.3.0 build 10.rar (with data)
Comments
Post a Comment