| [829] | 1 | unit VA508AccessibilityConst;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Windows, SysUtils;
|
|---|
| 7 |
|
|---|
| 8 | // When a component receives focus, the screen reader needs to request data about the
|
|---|
| 9 | // component. The Call Back proc is called, and the VA app then supplies the info by
|
|---|
| 10 | // returning the requested values
|
|---|
| 11 |
|
|---|
| 12 | const
|
|---|
| 13 | JAWS_REQUIRED_VERSION = '7.10.500';
|
|---|
| 14 | JAWS_APPLICATION_FILENAME = 'jfw.exe';
|
|---|
| 15 |
|
|---|
| 16 | // flags sent to and from the screen reader
|
|---|
| 17 | // if data is not sent from the app, then the screen reader should use it's default mechanism to
|
|---|
| 18 | // read the data.
|
|---|
| 19 | DATA_ALL_BITS = $FFFFFF;
|
|---|
| 20 |
|
|---|
| 21 | DATA_NONE = $000000; // No flags set
|
|---|
| 22 |
|
|---|
| 23 | DATA_CAPTION = $000001; // Sent both ways indicating data requested / sent
|
|---|
| 24 | DATA_VALUE = $000002; // Sent both ways indicating data requested / sent
|
|---|
| 25 | DATA_CONTROL_TYPE = $000004; // Sent both ways indicating data requested / sent
|
|---|
| 26 | DATA_STATE = $000008; // Sent both ways indicating data requested / sent
|
|---|
| 27 | DATA_INSTRUCTIONS = $000010; // Sent both ways indicating data requested / sent
|
|---|
| 28 | DATA_ITEM_INSTRUCTIONS = $000020; // Sent both ways indicating data requested / sent
|
|---|
| 29 | DATA_DATA = $000040; // Sent both ways indicating data requested / sent
|
|---|
| 30 | DATA_MASK_DATA = DATA_ALL_BITS - DATA_DATA;
|
|---|
| 31 |
|
|---|
| 32 | DATA_CHANGE_EVENT = $001000; // Sent by app indicating am item or state change event
|
|---|
| 33 | DATA_MASK_CHANGE_EVENT = DATA_ALL_BITS - DATA_CHANGE_EVENT;
|
|---|
| 34 |
|
|---|
| 35 | DATA_ITEM_CHANGED = $002000; // in a change event, indicates a child item has changed
|
|---|
| 36 |
|
|---|
| 37 | DATA_CUSTOM_KEY_COMMAND = $100000; // custom key command
|
|---|
| 38 | DATA_CUSTOM_KEY_COMMAND_MASK = DATA_ALL_BITS - $100000;
|
|---|
| 39 |
|
|---|
| 40 | DATA_ERROR = $800000; // component not found
|
|---|
| 41 |
|
|---|
| 42 | const
|
|---|
| 43 | BEHAVIOR_ADD_DICTIONARY_CHANGE = $0001; // pronounce a word differently
|
|---|
| 44 | BEHAVIOR_ADD_COMPONENT_CLASS = $0002; // add assignment to treat a custom component class as a standard component class
|
|---|
| 45 | BEHAVIOR_REMOVE_COMPONENT_CLASS = $0003; // remove assignment treat a custom component class as a standard component class
|
|---|
| 46 | BEHAVIOR_ADD_COMPONENT_MSAA = $0004; // add assignment to use MSAA for class information
|
|---|
| 47 | BEHAVIOR_REMOVE_COMPONENT_MSAA = $0005; // remove assignment to use MSAA for class information
|
|---|
| 48 | BEHAVIOR_ADD_CUSTOM_KEY_MAPPING = $0006; // assign a custom key mapping
|
|---|
| 49 | BEHAVIOR_ADD_CUSTOM_KEY_DESCRIPTION = $0007; // assign a custom key mapping Description
|
|---|
| 50 | BEHAVIOR_PURGE_UNREGISTERED_KEY_MAPPINGS = $0008; // purge custom key mappings that were not assigned using BEHAVIOR_ADD_CUSTOM_KEY_MAPPING
|
|---|
| 51 |
|
|---|
| 52 | const
|
|---|
| 53 | CLASS_BEHAVIOR_BUTTON = 'Button';
|
|---|
| 54 | CLASS_BEHAVIOR_CHECK_BOX = 'CheckBox';
|
|---|
| 55 | CLASS_BEHAVIOR_COMBO_BOX = 'ComboBox';
|
|---|
| 56 | CLASS_BEHAVIOR_DIALOG = 'Dialog';
|
|---|
| 57 | CLASS_BEHAVIOR_EDIT = 'Edit';
|
|---|
| 58 | CLASS_BEHAVIOR_EDIT_COMBO = 'EditCombo';
|
|---|
| 59 | CLASS_BEHAVIOR_GROUP_BOX = 'GroupBox';
|
|---|
| 60 | CLASS_BEHAVIOR_LIST_VIEW = 'ListView';
|
|---|
| 61 | CLASS_BEHAVIOR_LIST_BOX = 'ListBox';
|
|---|
| 62 | CLASS_BEHAVIOR_TREE_VIEW = 'TreeView';
|
|---|
| 63 | CLASS_BEHAVIOR_STATIC_TEXT = 'StaticText';
|
|---|
| 64 |
|
|---|
| 65 | const
|
|---|
| 66 | CRLF = #13#10;
|
|---|
| 67 | ERROR_INTRO =
|
|---|
| 68 | 'In an effort to more fully comply with Section 508 of the Rehabilitation' + CRLF +
|
|---|
| 69 | 'Act, the software development team has created a special Accessibility' + CRLF +
|
|---|
| 70 | 'Framework that directly communicates with screen reader applications.' + CRLF + CRLF;
|
|---|
| 71 |
|
|---|
| 72 | type
|
|---|
| 73 | TConfigReloadProc = procedure of object;
|
|---|
| 74 | TComponentDataRequestProc = procedure(WindowHandle: HWND; DataRequest: LongInt); stdcall;
|
|---|
| 75 | TVA508QueryProc = procedure(Sender: TObject; var Text: string);
|
|---|
| 76 | TVA508ListQueryProc = procedure(Sender: TObject; ItemIndex: integer; var Text: string);
|
|---|
| 77 | TVA508Exception = Exception;
|
|---|
| 78 |
|
|---|
| 79 | implementation
|
|---|
| 80 |
|
|---|
| 81 | end.
|
|---|
