u_gobbo.~pa

Mosaic ERP大型系统 v6.09.rar

unit U_gobbo;

interface

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

type
  TTips_form = class(TForm)
    Panel1: TPanel;
    mostra_Ancora: TCheckBox;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    RxLabel1: TRxLabel;
    RxLabel2: TRxLabel;
    RxLabel3: TRxLabel;
    RxLabel4: TRxLabel;
    RxLabel5: TRxLabel;
    RxLabel6: TRxLabel;
    Label3: TLabel;
    UrlLabel1: TUrlLabel;
    labelverde: TLabel;
    labelemail: TLabel;
    Emaillabel1: TEmaillabel;
    procedure SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RxLabel1MouseLeave(Sender: TObject);
    procedure RxLabel1MouseEnter(Sender: TObject);
    procedure RxLabel1Click(Sender: TObject);
    procedure RxLabel2MouseEnter(Sender: TObject);
    procedure RxLabel2MouseLeave(Sender: TObject);
    procedure RxLabel2Click(Sender: TObject);
    procedure RxLabel3MouseEnter(Sender: TObject);
    procedure RxLabel3MouseLeave(Sender: TObject);
    procedure RxLabel3Click(Sender: TObject);
    procedure RxLabel4MouseEnter(Sender: TObject);
    procedure RxLabel4MouseLeave(Sender: TObject);
    procedure RxLabel4Click(Sender: TObject);
    procedure RxLabel5MouseEnter(Sender: TObject);
    procedure RxLabel5MouseLeave(Sender: TObject);
    procedure RxLabel5Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RxLabel6MouseEnter(Sender: TObject);
    procedure RxLabel6MouseLeave(Sender: TObject);
    procedure RxLabel6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Tips_form: TTips_form;

implementation

uses Umenu, leggiImpostazioni;

{$R *.DFM}

procedure TTips_form.SpeedButton1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 modalResult := mrok ;
end;

procedure TTips_form.RxLabel1MouseLeave(Sender: TObject);
begin
   RxLabel1.Font.Style := [] ;
end;

procedure TTips_form.RxLabel1MouseEnter(Sender: TObject);
begin
  RxLabel1.Font.Style := [fsUnderline] ;
end;

procedure TTips_form.RxLabel1Click(Sender: TObject);
begin
 Menu_form.Nuovo_documento.Execute ;
 ModalResult := mrOk ;
end;

procedure TTips_form.RxLabel2MouseEnter(Sender: TObject);
begin
   RxLabel2.Font.Style := [fsUnderline] 
end;

procedure TTips_form.RxLabel2MouseLeave(Sender: TObject);
begin
  RxLabel2.Font.Style := [] 
end;

procedure TTips_form.RxLabel2Click(Sender: TObject);
begin
  Menu_form.Nuovo_Articolo.Execute ;
  modalResult := mrOK ;
end;

procedure TTips_form.RxLabel3MouseEnter(Sender: TObject);
begin
  RxLabel3.Font.Style := [fsUnderline]
end;

procedure TTips_form.RxLabel3MouseLeave(Sender: TObject);
begin
   RxLabel3.Font.Style := [] 
end;

procedure TTips_form.RxLabel3Click(Sender: TObject);
begin
 Menu_form.Nuovo_soggetto.Execute ;
 modalResult := mrOk ;
end;

procedure TTips_form.RxLabel4MouseEnter(Sender: TObject);
begin
  RxLabel4.Font.Style := [fsUnderline] 
end;

procedure TTips_form.RxLabel4MouseLeave(Sender: TObject);
begin
  RxLabel4.Font.Style := [] 
end;

procedure TTips_form.RxLabel4Click(Sender: TObject);
begin
 Menu_form.document_manager.Execute ;
 MessageDlg('Per aprire il documento desiderato seguire i seguenti passi:'+#13+#13 +
             '1. Selezionare nell''elenco sulla sinistra il tipo di documento desiderato' + #13 +
             '2. Individuare il documento nell''elenco sulla destra' + #13 +
             '3. Cliccare su "Mostra" per aprire il documento e modificarlo, oppure cliccare su "Stampa" per stamparlo' +#13 + #13 +
             'Nota :