aboutos.pas

基于OOP设计的一套较好的ERP系统

unit aboutOS;

// Questa unit viene utilizzata anche nel multi, fare attenzione quando si modificano le procedure

interface

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

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    Version: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    ApplicationLabel: TRxLabel;
    verInfoLab: TRxLabel;
    Memo2: TMemo;
    UrlLabel1: TUrlLabel;
    LabelVerde: TLabel;
    Emaillabel1: TEmaillabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  AboutBox: TAboutBox;

implementation

uses leggiImpostazioni;

{$R *.DFM}


procedure TAboutBox.FormCreate(Sender: TObject);
begin
  Comments.Caption := Custom('AZIENDA_ESTESA',Comments.Caption);
  labelverde.caption := Custom('LABEL_VERDE',labelVerde.Caption) ;
  emaillabel1.Caption := Custom('LABEL_EMAIL',emaillabel1.Caption) ;
  emaillabel1.recipient := EmailAssistenza ;
  urllabel1.Caption := Custom('LABEL_URL',urllabel1.caption) ;
  urllabel1.url := UrlAssistenza ;
  Version.Caption := VersioneUfficiale(Version.Caption) ;
  ApplicationLabel.Caption := Custom('LABEL_APPLICAZIONE',ApplicationLabel.Caption) ;

end;

end.