unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
XPMan, ExtCtrls, StdCtrls, Menus, ActnList, ExtActns, ImgList;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
Timer1: TTimer;
ListBox1: TListBox;
ImgSfondo: TImage;
Timer2: TTimer;
Label3: TLabel;
Label8: TLabel;
ImageList1: TImageList;
PopupMenuTray: TPopupMenu;
Open: TMenuItem;
N1: TMenuItem;
N11: TMenuItem;
N21: TMenuItem;
N2: TMenuItem;
N31: TMenuItem;
N41: TMenuItem;
N3: TMenuItem;
Chiudi1: TMenuItem;
Label6: TLabel;
Timer3: TTimer;
ImgRight: TImage;
ImgLeft: TImage;
Timer4: TTimer;
opz: TButton;
Hide: TButton;
Stop: TButton;
Esci: TButton;
start: TButton;
procedure Trasparenza1Click(Sender: TObject);
procedure BcBarPopupMenu1Popup(Sender: TObject);
procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);
procedure FormCreate(Sender: TObject);
procedure CaricaProgrammi;
procedure Timer1Timer(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
procedure EsciClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure startClick(Sender: TObject);
procedure opzClick(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure infoClick(Sender: TObject);
procedure StopClick(Sender: TObject);
procedure OpenClick(Sender: TObject);
procedure HideClick(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure BcCustomDrawModule1DrawMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; ABarVisible: Boolean; var DefaultDraw: Boolean);
procedure BcCustomDrawModule1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
procedure BcBarPopupMenu1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
procedure FormHide(Sender: TObject);
procedure ApdComPort1TriggerLineError(CP: TObject; Error: Word; LineBreak: Boolean);
procedure Timer4Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Trasparenza1Click(Sender: TObject);
begin
// Address $4CF5DC
end;
procedure TForm1.BcBarPopupMenu1Popup(Sender: TObject);
begin
// Address $4D05A4
end;
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
begin
// Address $4CD5B8
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Address $4CD674
end;
procedure TForm1.CaricaProgrammi;
begin
// Address $4CF42C
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Address $4CDF58
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Address $4CDCA4
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
// Address $4CE770
end;
procedure TForm1.ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
// Address $4CE8CC
end;
procedure TForm1.EsciClick(Sender: TObject);
begin
// Address $4CE8FC
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Address $4CDE8C
end;
procedure TForm1.startClick(Sender: TObject);
begin
// Address $4CE904
end;
procedure TForm1.opzClick(Sender: TObject);
begin
// Address $4CEB00
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
// Address $4CEBE4
end;
procedure TForm1.StopClick(Sender: TObject);
begin
// Address $4CFA44
end;
procedure TForm1.OpenClick(Sender: TObject);
begin
// Address $4D01D4
end;
procedure TForm1.HideClick(Sender: TObject);
begin
// Address $4D01FC
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
// Address $4D0208
end;
procedure TForm1.BcCustomDrawModule1DrawMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; ABarVisible: Boolean; var DefaultDraw: Boolean);
begin
// Address $4D027C
end;
procedure TForm1.BcCustomDrawModule1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
begin
// Address $4D0504
end;
procedure TForm1.BcBarPopupMenu1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
begin
// Address $4D054C
end;
procedure TForm1.FormHide(Sender: TObject);
begin
// Address $4D05D8
end;
procedure TForm1.ApdComPort1TriggerLineError(CP: TObject; Error: Word; LineBreak: Boolean);
begin
// Address $4D05E8
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
// Address $4D060C
end;
end.