david
dfb8ec0208
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@21 0c75b7a4-871f-7646-8a2f-f78d34cc349f
67 lines
1.6 KiB
ObjectPascal
67 lines
1.6 KiB
ObjectPascal
unit uAcercaDe;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, JvGIF, ExtCtrls, JvExControls, JvComponent, JvGradient, StdCtrls,
|
|
uHostManager;
|
|
|
|
type
|
|
TfAcercaDe = class(TForm)
|
|
JvGradient1: TJvGradient;
|
|
Panel1: TPanel;
|
|
Bevel1: TBevel;
|
|
bAceptar: TButton;
|
|
memModulos: TMemo;
|
|
Image1: TImage;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
FHostManager: THostManager;
|
|
public
|
|
property HostManager : THostManager read FHostManager write FHostManager;
|
|
end;
|
|
|
|
var
|
|
fAcercaDe: TfAcercaDe;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses JclFileUtils;
|
|
|
|
procedure TfAcercaDe.FormShow(Sender: TObject);
|
|
var
|
|
i : integer;
|
|
Obj : TJclFileVersionInfo;
|
|
begin
|
|
memModulos.Lines.Clear;
|
|
|
|
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
|
try
|
|
with Obj do
|
|
begin
|
|
memModulos.Lines.Add(ProductName + ' - Versión ' + FileVersion);
|
|
memModulos.Lines.Add(CompanyName);
|
|
memModulos.Lines.Add('');
|
|
{ memModulos.Lines.Add('Se autoriza el uso de este programa a:');
|
|
memModulos.Lines.Add('VARELA IMAGEN Y DISEÑO S.L.');}
|
|
end;
|
|
finally
|
|
FreeAndNil(Obj);
|
|
end;
|
|
|
|
if Assigned(FHostManager) then
|
|
begin
|
|
memModulos.Lines.Add('');
|
|
memModulos.Lines.Add('');
|
|
memModulos.Lines.Add('Módulos disponibles:');
|
|
for i := 0 to (HostManager.ModulesCount - 1) do
|
|
memModulos.Lines.Add(' - ' + FHostManager.Modules[i].Module.ModuleName +
|
|
' - v. ' + FHostManager.Modules[i].Module.Version);
|
|
end;
|
|
end;
|
|
|
|
end.
|