david
344ba18b08
- poder indicar individualmente qué artículos están en la tienda o no - arreglado el problema con ñ y tildes al volcar información a MySQL. git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@247 c93665c3-c93d-084d-9b98-7d5f4a9c3376
48 lines
1.0 KiB
ObjectPascal
48 lines
1.0 KiB
ObjectPascal
unit uAcercaDe;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, JvGIF, ExtCtrls, JvExControls, JvComponent, JvGradient, StdCtrls;
|
|
|
|
type
|
|
TfAcercaDe = class(TForm)
|
|
JvGradient1: TJvGradient;
|
|
Panel1: TPanel;
|
|
Image1: TImage;
|
|
Bevel1: TBevel;
|
|
bAceptar: TButton;
|
|
memModulos: TMemo;
|
|
procedure FormShow(Sender: TObject);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses JclFileUtils, uDAInterfaces;
|
|
|
|
procedure TfAcercaDe.FormShow(Sender: TObject);
|
|
var
|
|
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('LUIS LEÓN REPRESENTACIONES S.L.');
|
|
end;
|
|
finally
|
|
FreeAndNil(Obj);
|
|
end;
|
|
end;
|
|
|
|
end.
|