source: cprs/branches/tmg-cprs/CPRS-Chart/Accessibility_TLB.pas@ 496

Last change on this file since 496 was 496, checked in by Kevin Toppenberg, 15 years ago

Fixed missing TDKLang. Class, Added email demographic, Fixed field error in demographis
File size: 15.5 KB
Line 
1unit Accessibility_TLB;
2
3// ************************************************************************ //
4// WARNING
5// -------
6// The types declared in this file were generated from data read from a
7// Type Library. If this type library is explicitly or indirectly (via
8// another type library referring to this type library) re-imported, or the
9// 'Refresh' command of the Type Library Editor activated while editing the
10// Type Library, the contents of this file will be regenerated and all
11// manual modifications will be lost.
12// ************************************************************************ //
13
14// PASTLWTR : 1.2
15// File generated on 2/18/2009 8:07:41 AM from Type Library described below.
16
17// ************************************************************************ //
18// Type Lib: C:\WINDOWS\system32\oleacc.dll (1)
19// LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}
20// LCID: 0
21// Helpfile:
22// HelpString:
23// DepndLst:
24// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
25// Parent TypeLibrary:
26// (0) v1.0 CPRSChart, (P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb)
27// Errors:
28// Hint: Parameter 'var' of IAccPropServices.SetPropValue changed to 'var_'
29// Hint: Parameter 'var' of IAccPropServices.SetHwndProp changed to 'var_'
30// Hint: Parameter 'var' of IAccPropServices.SetHmenuProp changed to 'var_'
31// ************************************************************************ //
32{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
33{$WARN SYMBOL_PLATFORM OFF}
34{$WRITEABLECONST ON}
35{$VARPROPSETTER ON}
36interface
37
38uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
39
40
41// *********************************************************************//
42// GUIDS declared in the TypeLibrary. Following prefixes are used:
43// Type Libraries : LIBID_xxxx
44// CoClasses : CLASS_xxxx
45// DISPInterfaces : DIID_xxxx
46// Non-DISP interfaces: IID_xxxx
47// *********************************************************************//
48const
49 // TypeLibrary Major and minor versions
50 AccessibilityMajorVersion = 1;
51 AccessibilityMinorVersion = 1;
52
53 LIBID_Accessibility: TGUID = '{1EA4DBF0-3C3B-11CF-810C-00AA00389B71}';
54
55 IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
56 IID_IAccessibleHandler: TGUID = '{03022430-ABC4-11D0-BDE2-00AA001A1953}';
57 IID_IAccIdentity: TGUID = '{7852B78D-1CFD-41C1-A615-9C0C85960B5F}';
58 IID_IAccPropServer: TGUID = '{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}';
59 IID_IAccPropServices: TGUID = '{6E26E776-04F0-495D-80E4-3330352E3169}';
60 CLASS_CAccPropServices: TGUID = '{B5F8350B-0548-48B1-A6EE-88BD00B4A5E7}';
61
62// *********************************************************************//
63// Declaration of Enumerations defined in Type Library
64// *********************************************************************//
65// Constants for enum AnnoScope
66type
67 AnnoScope = TOleEnum;
68const
69 ANNO_THIS = $00000000;
70 ANNO_CONTAINER = $00000001;
71
72type
73
74// *********************************************************************//
75// Forward declaration of types defined in TypeLibrary
76// *********************************************************************//
77 IAccessible = interface;
78 IAccessibleDisp = dispinterface;
79 IAccessibleHandler = interface;
80 IAccIdentity = interface;
81 IAccPropServer = interface;
82 IAccPropServices = interface;
83
84// *********************************************************************//
85// Declaration of CoClasses defined in Type Library
86// (NOTE: Here we map each CoClass to its Default Interface)
87// *********************************************************************//
88 CAccPropServices = IAccPropServices;
89
90
91// *********************************************************************//
92// Declaration of structures, unions and aliases.
93// *********************************************************************//
94 wireHWND = ^_RemotableHandle;
95 wireHMENU = ^_RemotableHandle;
96 PByte1 = ^Byte; {*}
97 PUserType1 = ^TGUID; {*}
98
99
100 __MIDL_IWinTypes_0009 = record
101 case Integer of
102 0: (hInproc: Integer);
103 1: (hRemote: Integer);
104 end;
105
106 _RemotableHandle = packed record
107 fContext: Integer;
108 u: __MIDL_IWinTypes_0009;
109 end;
110
111
112// *********************************************************************//
113// Interface: IAccessible
114// Flags: (4432) Hidden Dual OleAutomation Dispatchable
115// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
116// *********************************************************************//
117 IAccessible = interface(IDispatch)
118 ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
119 function Get_accParent: IDispatch; safecall;
120 function Get_accChildCount: Integer; safecall;
121 function Get_accChild(varChild: OleVariant): IDispatch; safecall;
122 function Get_accName(varChild: OleVariant): WideString; safecall;
123 function Get_accValue(varChild: OleVariant): WideString; safecall;
124 function Get_accDescription(varChild: OleVariant): WideString; safecall;
125 function Get_accRole(varChild: OleVariant): OleVariant; safecall;
126 function Get_accState(varChild: OleVariant): OleVariant; safecall;
127 function Get_accHelp(varChild: OleVariant): WideString; safecall;
128 function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
129 function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
130 function Get_accFocus: OleVariant; safecall;
131 function Get_accSelection: OleVariant; safecall;
132 function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
133 procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
134 procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
135 out pcyHeight: Integer; varChild: OleVariant); safecall;
136 function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
137 function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
138 procedure accDoDefaultAction(varChild: OleVariant); safecall;
139 procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
140 procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
141 property accParent: IDispatch read Get_accParent;
142 property accChildCount: Integer read Get_accChildCount;
143 property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
144 property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
145 property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
146 property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
147 property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
148 property accState[varChild: OleVariant]: OleVariant read Get_accState;
149 property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
150 property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
151 property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
152 property accFocus: OleVariant read Get_accFocus;
153 property accSelection: OleVariant read Get_accSelection;
154 property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
155 end;
156
157// *********************************************************************//
158// DispIntf: IAccessibleDisp
159// Flags: (4432) Hidden Dual OleAutomation Dispatchable
160// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
161// *********************************************************************//
162 IAccessibleDisp = dispinterface
163 ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
164 property accParent: IDispatch readonly dispid -5000;
165 property accChildCount: Integer readonly dispid -5001;
166 property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
167 property accName[varChild: OleVariant]: WideString dispid -5003;
168 property accValue[varChild: OleVariant]: WideString dispid -5004;
169 property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
170 property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
171 property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
172 property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
173 property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
174 property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
175 property accFocus: OleVariant readonly dispid -5011;
176 property accSelection: OleVariant readonly dispid -5012;
177 property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
178 procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
179 procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
180 out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
181 function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
182 function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
183 procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
184 end;
185
186// *********************************************************************//
187// Interface: IAccessibleHandler
188// Flags: (272) Hidden OleAutomation
189// GUID: {03022430-ABC4-11D0-BDE2-00AA001A1953}
190// *********************************************************************//
191 IAccessibleHandler = interface(IUnknown)
192 ['{03022430-ABC4-11D0-BDE2-00AA001A1953}']
193 function AccessibleObjectFromID(hwnd: Integer; lObjectID: Integer; out pIAccessible: IAccessible): HResult; stdcall;
194 end;
195
196// *********************************************************************//
197// Interface: IAccIdentity
198// Flags: (0)
199// GUID: {7852B78D-1CFD-41C1-A615-9C0C85960B5F}
200// *********************************************************************//
201 IAccIdentity = interface(IUnknown)
202 ['{7852B78D-1CFD-41C1-A615-9C0C85960B5F}']
203 function GetIdentityString(dwIDChild: LongWord; out ppIDString: PByte1;
204 out pdwIDStringLen: LongWord): HResult; stdcall;
205 end;
206
207// *********************************************************************//
208// Interface: IAccPropServer
209// Flags: (0)
210// GUID: {76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}
211// *********************************************************************//
212 IAccPropServer = interface(IUnknown)
213 ['{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}']
214 function GetPropValue(var pIDString: Byte; dwIDStringLen: LongWord; idProp: TGUID;
215 out pvarValue: OleVariant; out pfHasProp: Integer): HResult; stdcall;
216 end;
217
218// *********************************************************************//
219// Interface: IAccPropServices
220// Flags: (0)
221// GUID: {6E26E776-04F0-495D-80E4-3330352E3169}
222// *********************************************************************//
223 IAccPropServices = interface(IUnknown)
224 ['{6E26E776-04F0-495D-80E4-3330352E3169}']
225 function SetPropValue(var pIDString: Byte; dwIDStringLen: LongWord; idProp: TGUID;
226 var_: OleVariant): HResult; stdcall;
227 function SetPropServer(var pIDString: Byte; dwIDStringLen: LongWord; var paProps: TGUID;
228 cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
229 function ClearProps(var pIDString: Byte; dwIDStringLen: LongWord; var paProps: TGUID;
230 cProps: SYSINT): HResult; stdcall;
231 function SetHwndProp(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
232 idProp: TGUID; var_: OleVariant): HResult; stdcall;
233 function SetHwndPropStr(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
234 idProp: TGUID; str: PWideChar): HResult; stdcall;
235 function SetHwndPropServer(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
236 var paProps: TGUID; cProps: SYSINT; const pServer: IAccPropServer;
237 AnnoScope: AnnoScope): HResult; stdcall;
238 function ClearHwndProps(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
239 var paProps: TGUID; cProps: SYSINT): HResult; stdcall;
240 function ComposeHwndIdentityString(var hwnd: _RemotableHandle; idObject: LongWord;
241 idChild: LongWord; out ppIDString: PByte1;
242 out pdwIDStringLen: LongWord): HResult; stdcall;
243 function DecomposeHwndIdentityString(var pIDString: Byte; dwIDStringLen: LongWord;
244 out phwnd: wireHWND; out pidObject: LongWord;
245 out pidChild: LongWord): HResult; stdcall;
246 function SetHmenuProp(var hmenu: _RemotableHandle; idChild: LongWord; idProp: TGUID;
247 var_: OleVariant): HResult; stdcall;
248 function SetHmenuPropStr(var hmenu: _RemotableHandle; idChild: LongWord; idProp: TGUID;
249 str: PWideChar): HResult; stdcall;
250 function SetHmenuPropServer(var hmenu: _RemotableHandle; idChild: LongWord; var paProps: TGUID;
251 cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
252 function ClearHmenuProps(var hmenu: _RemotableHandle; idChild: LongWord; var paProps: TGUID;
253 cProps: SYSINT): HResult; stdcall;
254 function ComposeHmenuIdentityString(var hmenu: _RemotableHandle; idChild: LongWord;
255 out ppIDString: PByte1; out pdwIDStringLen: LongWord): HResult; stdcall;
256 function DecomposeHmenuIdentityString(var pIDString: Byte; dwIDStringLen: LongWord;
257 out phmenu: wireHMENU; out pidChild: LongWord): HResult; stdcall;
258 end;
259
260// *********************************************************************//
261// The Class CoCAccPropServices provides a Create and CreateRemote method to
262// create instances of the default interface IAccPropServices exposed by
263// the CoClass CAccPropServices. The functions are intended to be used by
264// clients wishing to automate the CoClass objects exposed by the
265// server of this typelibrary.
266// *********************************************************************//
267 CoCAccPropServices = class
268 class function Create: IAccPropServices;
269 class function CreateRemote(const MachineName: string): IAccPropServices;
270 end;
271
272implementation
273
274uses ComObj;
275
276class function CoCAccPropServices.Create: IAccPropServices;
277begin
278 Result := CreateComObject(CLASS_CAccPropServices) as IAccPropServices;
279end;
280
281class function CoCAccPropServices.CreateRemote(const MachineName: string): IAccPropServices;
282begin
283 Result := CreateRemoteComObject(MachineName, CLASS_CAccPropServices) as IAccPropServices;
284end;
285
286end.
Note: See TracBrowser for help on using the repository browser.