usagesinfo.pas

jvcl driver development envionment

{******************************************************************

                       JEDI-VCL Demo

 Copyright (C) 2002 Project JEDI

 Original author:

 Contributor(s):

 You may retrieve the latest version of this file at the JEDI-JVCL
 home page, located at http://jvcl.sourceforge.net

 The contents of this file are used with permission, subject to
 the Mozilla Public License Version 1.1 (the "License"); you may
 not use this file except in compliance with the License. You may
 obtain a copy of the License at
 http://www.mozilla.org/MPL/MPL-1_1Final.html

 Software distributed under the License is distributed on an
 "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 implied. See the License for the specific language governing
 rights and limitations under the License.

******************************************************************}

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 := 'Rotational X Axis';
          HID_USAGE_GENERIC_RY:
            UsageText := 'Rotational Y Axis';
          HID_USAGE_GENERIC_RZ:
            UsageText := 'Rotational 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: