aboutos.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· 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.