aboutos.pas

来自「一套来自国外的ERP系统,有兴趣的朋友可以看看!」· PAS 代码 · 共 56 行

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.