unit UsagesInfo;

interface

uses
  Hid, HidUsage;

procedure UsageAndUsagePageText(UsagePage, Usage: TUsage; var UsagePageText, UsageText: string);

implementation

uses
 SysUtils;

procedure UsageAndUsagePageText(UsagePage, Usage: TUsage; var UsagePageText, UsageText: string);
begin
  UsagePageText := '';
  UsageText := '';
  case UsagePage of
    HID_USAGE_PAGE_UNDEFINED:
      UsagePageText := 'Undefined';
    HID_USAGE_PAGE_GENERIC:
      begin
        UsagePageText := 'Generic Desktop';
        case Usage of
          HID_USAGE_UNDEFINED:
            UsageText := 'Undefined';
          HID_USAGE_GENERIC_POINTER:
            UsageText := 'Pointing Device';
          HID_USAGE_GENERIC_MOUSE:
            UsageText := 'Mouse';
          HID_USAGE_GENERIC_RESERVED1:
            UsageText := 'Reserved';
          HID_USAGE_GENERIC_JOYSTICK:
            UsageText := 'Joystick';
          HID_USAGE_GENERIC_GAMEPAD:
            UsageText := 'Gamepad';
          HID_USAGE_GENERIC_KEYBOARD:
            UsageText := 'Keyboard';
          HID_USAGE_GENERIC_KEYPAD:
            UsageText := 'Keypad';
          HID_USAGE_GENERIC_MULTIAXIS:
            UsageText := 'Multi-Axis';
          HID_USAGE_GENERIC_X:
            UsageText := 'X Axis';
          HID_USAGE_GENERIC_Y:
            UsageText := 'Y Axis';
          HID_USAGE_GENERIC_Z:
            UsageText := 'Z Axis';
          HID_USAGE_GENERIC_RX:
            UsageText := 'Relative X Axis';
          HID_USAGE_GENERIC_RY:
            UsageText := 'Relative Y Axis';
          HID_USAGE_GENERIC_RZ:
            UsageText := 'Relative Z Axis';
          HID_USAGE_GENERIC_SLIDER:
            UsageText := 'Slider';
          HID_USAGE_GENERIC_DIAL:
            UsageText := 'Dial';
          HID_USAGE_GENERIC_WHEEL:
            UsageText := 'Wheel';
          HID_USAGE_GENERIC_HATSWITCH:
            UsageText := 'Hat Switch';
          HID_USAGE_GENERIC_COUNTED_BUFFER:
            UsageText := 'Counted Buffer';
          HID_USAGE_GENERIC_BYTE_COUNT:
            UsageText := 'Byte Count';
          HID_USAGE_GENERIC_MOTION_WAKEUP:
            UsageText := 'Motion Wakeup';
          HID_USAGE_GENERIC_START:
            UsageText := 'Start';
          HID_USAGE_GENERIC_SELECT:
            UsageText := 'Select';
          HID_USAGE_GENERIC_RESERVED2:
            UsageText := 'Reserved';
          HID_USAGE_GENERIC_VX:
            UsageText := 'Velocity X';
          HID_USAGE_GENERIC_VY:
            UsageText := 'Velocity Y';
          HID_USAGE_GENERIC_VZ:
            UsageText := 'Velocity Z';
          HID_USAGE_GENERIC_VBRX:
            UsageText := 'Velocity Brake X';
          HID_USAGE_GENERIC_VBRY:
            UsageText := 'Velocity Brake Y';
          HID_USAGE_GENERIC_VBRZ:
            UsageText := 'Velocity Brake Z';
          HID_USAGE_GENERIC_VNO:
            UsageText := 'Vno';
          HID_USAGE_FEATURE_NOTIFICATION:
            UsageText := 'Feature Notification';
          HID_USAGE_GENERIC_SYSTEM_CTL:
            UsageText := 'System Control';
          HID_USAGE_GENERIC_SYSCTL_POWER:
            UsageText := 'System Control Power Down';
          HID_USAGE_GENERIC_SYSCTL_SLEEP:
            UsageText := 'System Control Sleep';
          HID_USAGE_GENERIC_SYSCTL_WAKE:
            UsageText := 'System Control Wake Up';
          HID_USAGE_GENERIC_SYSCTL_CONTEXT_MENU:
            UsageText := 'System Control Context Menu';
          HID_USAGE_GENERIC_SYSCTL_MAIN_MENU:
            UsageText := 'System Control Main Menu';
          HID_USAGE_GENERIC_SYSCTL_APP_MENU:
            UsageText := 'System Control App Menu';
          HID_USAGE_GENERIC_SYSCTL_HELP_MENU:
            UsageText := 'System Control Help Menu';
          HID_USAGE_GENERIC_SYSCTL_MENU_EXIT:
            UsageText := 'System Control Menu Exit';
          HID_USAGE_GENERIC_SYSCTL_MENU_SELECT:
            UsageText := 'System Control Menu Select';
          HID_USAGE_GENERIC_SYSCTL_MENU_RIGHT:
            UsageText := 'System Control Menu Right';
          HID_USAGE_GENERIC_SYSCTL_MENU_LEFT:
            UsageText := 'System Control Menu Left';
          HID_USAGE_GENERIC_SYSCTL_MENU_UP:
            UsageText := 'System Control Menu Up';
          HID_USAGE_GENERIC_SYSCTL_MENU_DOWN:
            UsageText := 'System Control Menu Down';
          HID_USAGE_GENERIC_SYSCTL_COLD_RESTART:
            UsageText := 'System Control Cold Restart';
          HID_USAGE_GENERIC_SYSCTL_WARM_RESTART:
            UsageText := 'System Control Warm Restart';
          HID_USAGE_GENERIC_SYSCTL_DPAD_UP:
            UsageText := 'System Control DPad Up';
          HID_USAGE_GENERIC_SYSCTL_DPAD_DOWN:
            UsageText := 'System Control DPad Down';
          HID_USAGE_GENERIC_SYSCTL_DPAD_RIGHT:
            UsageText := 'System Control DPad Right';
          HID_USAGE_GENERIC_SYSCTL_DPAD_LEFT:
            UsageText := 'System Control DPad Left';
          HID_USAGE_GENERIC_SYSCTL_DOCK:
            UsageText := 'System Control Dock';
          HID_USAGE_GENERIC_SYSCTL_UNDOCK:
            UsageText := 'System Control Undock';
          HID_USAGE_GENERIC_SYSCTL_SETUP:
            UsageText := 'System Control Setup';
          HID_USAGE_GENERIC_SYSCTL_BREAK:
            UsageText := 'System Control Break';
          HID_USAGE_GENERIC_SYSCTL_DEBUGGER_BREAK:
            UsageText := 'System Control Debugger Break';
          HID_USAGE_GENERIC_SYSCTL_APP_BREAK:
            UsageText := 'System Control Application Break';
          HID_USAGE_GENERIC_SYSCTL_APP_DEBUGGER_BREAK:
            UsageText := 'System Control Application Debugger Break';
          HID_USAGE_GENERIC_SYSCTL_SYSTEM_SPEAKER_MUTE:
            UsageText := 'System Control Speaker Mute';
          HID_USAGE_GENERIC_SYSCTL_SYSTEM_HIBERNATE:
            UsageText := 'System Control Hibernate';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_INVERT:
            UsageText := 'System Control Invert Display';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_INTERNAL:
            UsageText := 'System Control Internal Display';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_EXTERNAL:
            UsageText := 'System Control External Display';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_BOTH:
            UsageText := 'System Control Both Displays';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_DUAL:
            UsageText := 'System Control Dual Displays';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_TOGGLE_INT_EXT:
            UsageText := 'System Control Toggle Internal/External Display';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_SWAP:
            UsageText := 'System Control Swap Primary/Secondary Displays';
          HID_USAGE_GENERIC_SYSCTL_DISPLAY_LCD_AUTOSCALE:
            UsageText := 'System Control LCD Autoscale Display';
        end;
      end;
    HID_USAGE_PAGE_SIMULATION:
      begin
        UsagePageText := 'Simulation';
        case Usage of
          HID_USAGE_SIMULATION_UNDEFINED:
            UsageText := 'Undefined';
          HID_USAGE_SIMULATION_FLIGHT:
            UsageText := 'Flight';
          HID_USAGE_SIMULATION_AUTOMOBILE:
            UsageText := 'Automobile';
          HID_USAGE_SIMULATION_TANK:
            UsageText := 'Tank';
          HID_USAGE_SIMULATION_SPACESHIP:
            UsageText := 'Spaceship';
          HID_USAGE_SIMULATION_SUBMARINE:
            UsageText := 'Submarine';
          HID_USAGE_SIMULATION_SAILING:
            UsageText := 'Sailing';
          HID_USAGE_SIMULATION_MOTORCYCLE:
            UsageText := 'Motorcycle';
          HID_USAGE_SIMULATION_SPORTS:
            UsageText := 'Sports';
          HID_USAGE_SIMULATION_AIRPLANE:
            UsageText := 'Airplane';
          HID_USAGE_SIMULATION_HELICOPTER:
            UsageText := 'Helicopter';
          HID_USAGE_SIMULATION_MAGIC_CARPET:
            UsageText := 'Magic Carpet';
          HID_USAGE_SIMULATION_BICYCLE:
            UsageText := 'Bicycle';
          HID_USAGE_SIMULATION_FLIGHT_CONTROL_STICK:
            UsageText := 'Flight Control Stick';
          HID_USAGE_SIMULATION_FLIGHT_STICK:
            UsageText := 'Flight Stick';
          HID_USAGE_SIMULATION_CYCLIC_CONTROL:
            UsageText := 'Cyclic Control';
          HID_USAGE_SIMULATION_CYCLIC_TRIM:
            UsageText := 'Cyclic Trim';
          HID_USAGE_SIMULATION_FLIGHT_YOKE:
            UsageText := 'Flight Yoke';
          HID_USAGE_SIMULATION_TRACK_CONTROL:
            UsageText := 'Track Control';
          HID_USAGE_SIMULATION_AILERON:
            UsageText := 'Aileron';
          HID_USAGE_SIMULATION_AILERON_TRIM:
            UsageText := 'Aileron Trim';
          HID_USAGE_SIMULATION_ANTITORQUE_CONTROL:
            UsageText := 'Anti-Torque Control';
          HID_USAGE_SIMULATION_AUTOPILOT_ENABLE:
            UsageText := 'Enable Autopilot';
          HID_USAGE_SIMULATION_CHAFF_RELEASE:
            UsageText := 'Chaff Release';
          HID_USAGE_SIMULATION_COLLECTIVE_CONTROL:
            UsageText := 'Collective Control';
          HID_USAGE_SIMULATION_DIVE_BREAK:
            UsageText := 'Dive Break';
          HID_USAGE_SIMULATION_ELECTRONIC_COUNTERMEASURES:
            UsageText := 'Electronic Countermeasures';
          HID_USAGE_SIMULATION_ELEVATOR:
            UsageText := 'Elevator';
          HID_USAGE_SIMULATION_ELEVATOR_TRIM:
            UsageText := 'Elevator Trim';
          HID_USAGE_SIMULATION_RUDDER:
            UsageText := 'Rudder';
          HID_USAGE_SIMULATION_THROTTLE:
            UsageText := 'Throttle';
          HID_USAGE_SIMULATION_FLIGHT_COMMUNICATIONS:
            UsageText := 'Flight Communications';
          HID_USAGE_SIMULATION_FLARE_RELEASE:
            UsageText := 'Flare Release';
          HID_USAGE_SIMULATION_LANDING_GEAR:
            UsageText := 'Landing Gear';
          HID_USAGE_SIMULATION_TOE_BRAKE:
            UsageText := 'Toe Brake';
          HID_USAGE_SIMULATION_TRIGGER:
            UsageText := 'Trigger';
          HID_USAGE_SIMULATION_WEAPONS_ARM:
            UsageText := 'Arm Weapons';
          HID_USAGE_SIMULATION_WEAPONS_SELECT:
            UsageText := 'Select Weapons';
          HID_USAGE_SIMULATION_WING_FLAPS:
            UsageText := 'Wing Flaps';
          HID_USAGE_SIMULATION_ACCELERATOR:
            UsageText := 'Accelerator';
          HID_USAGE_SIMULATION_BRAKE:
            UsageText := 'Brake';
          HID_USAGE_SIMULATION_CLUTCH:
            UsageText := 'Clutch';
          HID_USAGE_SIMULATION_SHIFTER:
            UsageText := 'Shifter';
          HID_USAGE_SIMULATION_STEERING:
            UsageText := 'Steering';
          HID_USAGE_SIMULATION_TURRET_DIRECTION:
            UsageText := 'Turret Direction';
          HID_USAGE_SIMULATION_BARREL_ELEVATION:
            UsageText := 'Barrel Elevation';
          HID_USAGE_SIMULATION_DIVE_PLANE:
            UsageText := 'Dive Plane';
          HID_USAGE_SIMULATION_BALLAST:
            UsageText := 'Ballast';
          HID_USAGE_SIMULATION_BICYCLE_CRANK:
            UsageText := 'Bicycle Crank';
          HID_USAGE_SIMULATION_HANDLE_BARS:
            UsageText := 'Handle Bars';
          HID_USAGE_SIMULATION_FRONT_BRAKE:
            UsageText := 'Front Brake';
          HID_USAGE_SIMULATION_REAR_BRAKE:
            UsageText := 'Rear Brake';
        end;
      end;
    HID_USAGE_PAGE_VR:
      begin
        UsagePageText := 'Virtual Reality';
        case Usage of
          HID_USAGE_VR_UNDEFINED:
            UsageText := 'Undefined';
          HID_USAGE_VR_BELT:
            UsageText := 'Belt';
          HID_USAGE_VR_BODY_SUIT:
            UsageText := 'Body Suit';
          HID_USAGE_VR_FLEXOR:
            UsageText := 'Flexor';
          HID_USAGE_VR_GLOVE:
            UsageText := 'Glove';
          HID_USAGE_VR_HEAD_TRACKER:
            UsageText := 'Head Tracker';
          HID_USAGE_VR_HEAD_MOUNTED_DISPLAY:
            UsageText := 'Head Mounted Display';
          HID_USAGE_VR_HAND_TRACKER:
            UsageText := 'Hand Tracker';
          HID_USAGE_VR_OCULOMETER:
            UsageText := 'Oculometer';
          HID_USAGE_VR_VEST:
            UsageText := 'Vest';
          HID_USAGE_VR_ANIMATRONIC_DEVICE:
            UsageText := 'Animatronic Device';
          HID_USAGE_VR_STEREO_ENABLE:
            UsageText := 'Stereo Enable';
          HID_USAGE_VR_DISPLAY_ENABLE:
            UsageText := 'Display Enable';
        end;
      end;
    HID_USAGE_PAGE_SPORT:
      begin
        UsagePageText := 'Sport';
        case Usage of
          HID_USAGE_SPORT_UNDEFINED:
            UsageText := 'Undefined';
          HID_USAGE_SPORT_BASEBALL_BAT:
            UsageText := 'Baseball Bat';
          HID_USAGE_SPORT_GOLF_CLUB:
            UsageText := 'Golf Club';
          HID_USAGE_SPORT_ROWING_MACHINE:
            UsageText := 'Rowing Machine';
          HID_USAGE_SPORT_TREADMILL: