82 lines
3.9 KiB
Plaintext
82 lines
3.9 KiB
Plaintext
unit VA508AccessibilityConst;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, SysUtils;
|
|
|
|
// When a component receives focus, the screen reader needs to request data about the
|
|
// component. The Call Back proc is called, and the VA app then supplies the info by
|
|
// returning the requested values
|
|
|
|
const
|
|
JAWS_REQUIRED_VERSION = '7.10.500';
|
|
JAWS_APPLICATION_FILENAME = 'jfw.exe';
|
|
|
|
// flags sent to and from the screen reader
|
|
// if data is not sent from the app, then the screen reader should use it's default mechanism to
|
|
// read the data.
|
|
DATA_ALL_BITS = $FFFFFF;
|
|
|
|
DATA_NONE = $000000; // No flags set
|
|
|
|
DATA_CAPTION = $000001; // Sent both ways indicating data requested / sent
|
|
DATA_VALUE = $000002; // Sent both ways indicating data requested / sent
|
|
DATA_CONTROL_TYPE = $000004; // Sent both ways indicating data requested / sent
|
|
DATA_STATE = $000008; // Sent both ways indicating data requested / sent
|
|
DATA_INSTRUCTIONS = $000010; // Sent both ways indicating data requested / sent
|
|
DATA_ITEM_INSTRUCTIONS = $000020; // Sent both ways indicating data requested / sent
|
|
DATA_DATA = $000040; // Sent both ways indicating data requested / sent
|
|
DATA_MASK_DATA = DATA_ALL_BITS - DATA_DATA;
|
|
|
|
DATA_CHANGE_EVENT = $001000; // Sent by app indicating am item or state change event
|
|
DATA_MASK_CHANGE_EVENT = DATA_ALL_BITS - DATA_CHANGE_EVENT;
|
|
|
|
DATA_ITEM_CHANGED = $002000; // in a change event, indicates a child item has changed
|
|
|
|
DATA_CUSTOM_KEY_COMMAND = $100000; // custom key command
|
|
DATA_CUSTOM_KEY_COMMAND_MASK = DATA_ALL_BITS - $100000;
|
|
|
|
DATA_ERROR = $800000; // component not found
|
|
|
|
const
|
|
BEHAVIOR_ADD_DICTIONARY_CHANGE = $0001; // pronounce a word differently
|
|
BEHAVIOR_ADD_COMPONENT_CLASS = $0002; // add assignment to treat a custom component class as a standard component class
|
|
BEHAVIOR_REMOVE_COMPONENT_CLASS = $0003; // remove assignment treat a custom component class as a standard component class
|
|
BEHAVIOR_ADD_COMPONENT_MSAA = $0004; // add assignment to use MSAA for class information
|
|
BEHAVIOR_REMOVE_COMPONENT_MSAA = $0005; // remove assignment to use MSAA for class information
|
|
BEHAVIOR_ADD_CUSTOM_KEY_MAPPING = $0006; // assign a custom key mapping
|
|
BEHAVIOR_ADD_CUSTOM_KEY_DESCRIPTION = $0007; // assign a custom key mapping Description
|
|
BEHAVIOR_PURGE_UNREGISTERED_KEY_MAPPINGS = $0008; // purge custom key mappings that were not assigned using BEHAVIOR_ADD_CUSTOM_KEY_MAPPING
|
|
|
|
const
|
|
CLASS_BEHAVIOR_BUTTON = 'Button';
|
|
CLASS_BEHAVIOR_CHECK_BOX = 'CheckBox';
|
|
CLASS_BEHAVIOR_COMBO_BOX = 'ComboBox';
|
|
CLASS_BEHAVIOR_DIALOG = 'Dialog';
|
|
CLASS_BEHAVIOR_EDIT = 'Edit';
|
|
CLASS_BEHAVIOR_EDIT_COMBO = 'EditCombo';
|
|
CLASS_BEHAVIOR_GROUP_BOX = 'GroupBox';
|
|
CLASS_BEHAVIOR_LIST_VIEW = 'ListView';
|
|
CLASS_BEHAVIOR_LIST_BOX = 'ListBox';
|
|
CLASS_BEHAVIOR_TREE_VIEW = 'TreeView';
|
|
CLASS_BEHAVIOR_STATIC_TEXT = 'StaticText';
|
|
|
|
const
|
|
CRLF = #13#10;
|
|
ERROR_INTRO =
|
|
'In an effort to more fully comply with Section 508 of the Rehabilitation' + CRLF +
|
|
'Act, the software development team has created a special Accessibility' + CRLF +
|
|
'Framework that directly communicates with screen reader applications.' + CRLF + CRLF;
|
|
|
|
type
|
|
TConfigReloadProc = procedure of object;
|
|
TComponentDataRequestProc = procedure(WindowHandle: HWND; DataRequest: LongInt); stdcall;
|
|
TVA508QueryProc = procedure(Sender: TObject; var Text: string);
|
|
TVA508ListQueryProc = procedure(Sender: TObject; ItemIndex: integer; var Text: string);
|
|
TVA508Exception = Exception;
|
|
|
|
implementation
|
|
|
|
end.
|