source: cprs/trunk/VA/VA508Accessibility/VA508AccessibilityConst.pas@ 1729

Last change on this file since 1729 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 3.9 KB
Line 
1unit VA508AccessibilityConst;
2
3interface
4
5uses
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
12const
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
42const
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
52const
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
65const
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
72type
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
79implementation
80
81end.
Note: See TracBrowser for help on using the repository browser.