home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / DELPHIX.ZIP / Samples / Input / FFCondition / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-06  |  760 b   |  38 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, DXInput, DXClass, ComCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     DXInput: TDXInput;
  12.     TrackBar1: TTrackBar;
  13.     Label1: TLabel;
  14.     procedure TrackBar1Change(Sender: TObject);
  15.     procedure FormCreate(Sender: TObject);
  16.   end;
  17.  
  18. var
  19.   MainForm: TMainForm;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TMainForm.FormCreate(Sender: TObject);
  26. begin
  27.   DXInput.Joystick.Effects.Find('Condition').Start;
  28. end;
  29.  
  30. procedure TMainForm.TrackBar1Change(Sender: TObject);
  31. begin
  32.   with DXInput.Joystick.Effects.Find('Condition') do
  33.     Condition := Point(TrackBar1.Position*1000, TrackBar1.Position*1000);
  34. end;
  35.  
  36. end.
  37.  
  38.