| Class TfrmJoy (unit Joy) |
TForm
| Constructors |
| Functions |
procedure butNextClick(Sender: TObject);determine dead spot of Joystick
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure IdleProc(Sender: TObject; var Done : Boolean);To check Joystick-buttons : but1 := (myjoy.
procedure Timer1Timer(Sender: TObject);| Properties |
| Events |
| Variables |
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;
Enabled : boolean;
JoyCfg : TJoyConfig;
status : byte;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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