source: cprs/trunk/VA/VA508Accessibility/VA508ScreenReaderDLLStandard.inc@ 1729

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

Upgrade to version 27

File size: 2.3 KB
Line 
1(*
2Screen Reader software wishing to function properly with CPRS and some other VHA
3Win32 applications must provide a DLL in the "\Program Files\VistA\Common Files\"
4directory that has an extension of .SR, (not .DLL)
5
6This DLL must export the routines shown below (they should use this include file)
7*)
8
9// When a component receives focus, the screen reader needs to request data about the
10// component. The Call Back proc is called, and the VA app then supplies the info by
11// calling the returning the ComponentDataAsRequested procedure.
12
13// Checks to see if the screen reader is currently running
14function IsRunning(HighVersion, LowVersion: Word): BOOL; stdcall;
15
16// Executed after IsRunning returns TRUE, when the DLL is accepted as the screen reader of choice
17// if result returns a string, Initialization failed with retuned error message
18// TComponentDataRequestProc is defined in the VA508AccessibilityConst unit
19function Initialize(ComponentCallBackProc: TComponentDataRequestProc): BOOL; stdcall;
20
21// Executed when the DLL is unloaded or screen reader is no longer needed
22procedure ShutDown; stdcall;
23
24// Instructs the Screen Reader to modify the way it handles specific information,
25// such as how it pronounces specific words, or how it handles specific classes of components
26procedure RegisterCustomBehavior(BehaviorType: integer; Before, After: PChar); stdcall;
27
28// Returns Component Data as requested by the screen reader
29// or in response to a change event
30// must be able to support multiple calls for the same custom behavior
31procedure ComponentData(WindowHandle: HWND;
32 DataStatus: LongInt = DATA_NONE;
33 Caption: PChar = nil;
34 Value: PChar = nil;
35 Data: PChar = nil;
36 ControlType: PChar = nil;
37 State: PChar = nil;
38 Instructions: PChar = nil;
39 ItemInstructions: PChar = nil); stdcall;
40
41// Instructs the Screen Reader to say the specified text
42procedure SpeakText(Text: PChar); stdcall;
43
44// A configuration change had been made that has yet to take effect
45function ConfigChangePending: boolean; stdcall;
46
47
Note: See TracBrowser for help on using the repository browser.