Inherits from
TForm
procedure butNextClick(Sender: TObject);
Form-calls - Calls from buttonsdetermine dead spot of Joystick
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Case-End
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
Form-calls - other events like create, MouseMove .
procedure IdleProc(Sender: TObject; var Done : Boolean);
Additional stuff To check Joystick-buttons : but1 := (myjoy.
procedure Timer1Timer(Sender: TObject);
status : 3
butCancel : TBitBtn;
butCustomize : TButton;
butNext : TButton;
butOK : TBitBtn;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
chkCenter : TCheckBox;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
horzTrackbar : TTrackBar;
lblPos : TLabel;
Memo1 : TMemo;
Panel1 : TPanel;
Timer1 : TTimer;
vertTrackBar : TTrackBar;
CallbackFunction : TCallbackJoy;
Public declarations
Enabled : boolean;
Pointer to function that has to be called when Joy "out of normal"
JoyCfg : TJoyConfig;
status : byte;
Private declarations
procedure butNextClick(Sender: TObject);
Form-calls - Calls from buttons
determine dead spot of Joystick
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Case-End
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
Form-calls - other events like create, MouseMove ...
procedure IdleProc(Sender: TObject; var Done : Boolean);
Additional stuff
To check Joystick-buttons : but1 := (myjoy.wbuttons and joy_button1)>0; but2 := (myjoy.wbuttons and joy_button2)>0;
procedure Timer1Timer(Sender: TObject);
status : 3
butCancel : TBitBtn;
butCustomize : TButton;
butNext : TButton;
butOK : TBitBtn;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
chkCenter : TCheckBox;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
horzTrackbar : TTrackBar;
lblPos : TLabel;
Memo1 : TMemo;
Panel1 : TPanel;
Timer1 : TTimer;
vertTrackBar : TTrackBar;
CallbackFunction : TCallbackJoy;
Public declarations
Enabled : boolean;
Pointer to function that has to be called when Joy "out of normal"
JoyCfg : TJoyConfig;
status : byte;
Private declarations