about.pas

一套来自国外的ERP系统,有兴趣的朋友可以看看!

unit about;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, jpeg, RXCtrls, {registdays,} dialogs, LabelTypes,
  Emaillabel, UrlLabel;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    Version: TLabel;
    OKButton: TButton;
    RxLabel1: TRxLabel;
    verInfoLab: TRxLabel;
    Label1: TLabel;
    Emaillabel1: TEmaillabel;
    UrlLabel1: TUrlLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Versione : string ;
  public
    function VerInfoReg: string;
    procedure ImpostaPannelli;
    { Public declarations }

  end;

var
  AboutBox: TAboutBox;

implementation

uses registra, leggiImpostazioni;

{$R *.DFM}

function TAboutBox.VerInfoReg: string;
begin
 result := Versione ;
end;

procedure TAboutBox.ImpostaPannelli;
Var
  StdEn,AdvEn : boolean ;

begin
 Versione := 'BancoLN' ;
 (*
 Versione := 'DIMOSTRATIVO' ;
 StdEn := Banco_reg.Registered ;
 AdvEn := Liste_reg.Registered ;
 If AdvEn then
  begin
   Versione := 'BancoLN' ;
   pan_std.Visible := False ;
   pan_adv.Visible := false ;
  end
 else
   If StdEn then
    begin
     Versione := 'Banco' ;
     pan_std.Visible := False ;
     pan_adv.Visible := true ;
    end ;
 VerInfoLab.Caption := Versione ;
 *)
end;

procedure TAboutBox.FormCreate(Sender: TObject);
begin
  Version.Caption := VersioneUfficiale(Version.Caption) ;
  Label1.Caption := Custom('LABEL_VERDE',Label1.Caption) ;
  EmailLabel1.Caption := Custom('LABEL_EMAIL',EmailLabel1.caption) ;
  EmailLabel1.Recipient := EmailAssistenza ;
  UrlLabel1.Caption := Custom('LABEL_URL',UrlLabel1.Caption) ;
  UrlLabel1.URL := UrLAssistenza ;
end;

end.