aboutos.~pa

来自「Mosaic ERP大型系统 v6.09.rar」· ~PA 代码 · 共 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.