Friday, 16 October 2009

Instalando VLO Framework

Aun estoy ultimando detalles del framework y he integrado éste en el IDE de Delphi. La plataforma consiste en un conjunto de librerías las cuales el usuario final no necesita como funcionan internamente. Simplemente se instala la plataforma de desarrollo en el IDE y se empiezan a utilizar las clases necesarias para el dibujado de los objetos sobre un canvas. Ahora cuando iniciamos el Delphi, podemos ver:

Aun tengo que mejorar el Icono, pero de momento es provisional y meramente informativo para indicar que existe el framework dentro del IDE. El aspecto interno es el siguiente:

Luego una duda que nos puede aparecer es, ¿Cómo puedo hacer para que aparezca el logotipo del package en el Splash screen del Delphi?. Muy fácil, aquí os lo explico:

Una vez tenemos creado nuestro package, tenemos que crear un fichero de recursos que contendrá el logo que queremos que se visualize en el splash del delphi. En mi caso lo he llamado ThundaxVLO.res y he utilizado el XN Resource Editor para crearlo:


Utilizando ésta herramienta gratuita y open source, podemos crear nuestros ficheros de recursos e insertar las imágenes que queramos. Para la conversión de ficheros BMP a ICO he utilizado una aplicación freeware llamada ImageIcon 3.0. Una vez tenemos todos los ficheros necesarios, creamos una nueva unidad en nuestro package que incluirá el procedimiento de registro de los recursos y forzará el incrustado de la imagen en el splash inicial:


unit ThundaxFramework;

interface

{$I JEDI.INC}

procedure Register;

implementation

uses DesignIntf, DesignEditors, Graphics, ToolsAPI;

{$R ThundaxVLO.res}

procedure Register;
{$IFDEF DELPHI10_UP}
var
lBitmap: TBitmap;
Service: IOTAAboutBoxServices;
{$ENDIF}
begin
{$IFDEF DELPHI10_UP}
ForceDemandLoadState(dlDisable);
lBitmap := TBitmap.Create;
try
lBitmap.LoadFromResourceName(hInstance, 'LOGO');
if Assigned(SplashScreenServices) then
SplashScreenServices.AddPluginBitmap('VLO Framework v1.0 ', lBitmap.Handle);
BorlandIDEServices.GetService(IOTAAboutBoxServices, Service);
if Assigned(Service) then
Service.AddPluginInfo('Thundax Software',
'VLO Framework v1.0 ' + sLineBreak + 'Thundax Software', lBitmap.Handle);
finally
lBitmap.Free;
end;
{$ENDIF}
end;

end.


El fichero {$I JEDI.INC} nos interesa para obtener la directiva DELPHI10_UP y saber si estamos ejecutando una versión superior o no, de esta manera se muestra o no el logo en el inicio.

De ésta manera podemos ver también el framework instalado en el About del Delphi:


Espero que os sirva de ayuda!.

0 comments:

Post a Comment