david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
61 lines
1.4 KiB
ObjectPascal
61 lines
1.4 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;
|
|
Image1: TImage;
|
|
Bevel1: TBevel;
|
|
bAceptar: TButton;
|
|
memModulos: TMemo;
|
|
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;
|
|
begin
|
|
memModulos.Lines.Clear;
|
|
|
|
with TJclFileVersionInfo.Create(Application.ExeName) do
|
|
begin
|
|
memModulos.Lines.Add(ProductName + ' - Versión ' + ProductVersion);
|
|
memModulos.Lines.Add(CompanyName);
|
|
memModulos.Lines.Add('');
|
|
memModulos.Lines.Add('Se autoriza el uso de este programa a:');
|
|
memModulos.Lines.Add('');
|
|
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.
|