source: cprs/branches/foia-cprs/CPRS-Chart/Accessibility_TLB.pas@ 594

Last change on this file since 594 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258
File size: 8.3 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 : $Revision: 1.130.1.0.1.0.1.6 $
15// File generated on 7/24/2003 8:23:53 AM from Type Library described below.
16
17// ************************************************************************ //
18// Type Lib: C:\WINNT\System32\oleacc.dll (1)
19// LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}
20// LCID: 0
21// Helpfile:
22// DepndLst:
23// (1) v2.0 stdole, (C:\WINNT\System32\Stdole2.tlb)
24// Parent TypeLibrary:
25// (0) v1.0 CPRSChart, (C:\cprs\Current\CPRS-Chart\CPRSChart.tlb)
26// ************************************************************************ //
27{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
28{$WARN SYMBOL_PLATFORM OFF}
29{$WRITEABLECONST ON}
30{$VARPROPSETTER ON}
31interface
32
33uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
34
35
36// *********************************************************************//
37// GUIDS declared in the TypeLibrary. Following prefixes are used:
38// Type Libraries : LIBID_xxxx
39// CoClasses : CLASS_xxxx
40// DISPInterfaces : DIID_xxxx
41// Non-DISP interfaces: IID_xxxx
42// *********************************************************************//
43const
44 // TypeLibrary Major and minor versions
45 AccessibilityMajorVersion = 1;
46 AccessibilityMinorVersion = 1;
47
48 LIBID_Accessibility: TGUID = '{1EA4DBF0-3C3B-11CF-810C-00AA00389B71}';
49
50 IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
51 IID_IAccessibleHandler: TGUID = '{03022430-ABC4-11D0-BDE2-00AA001A1953}';
52type
53
54// *********************************************************************//
55// Forward declaration of types defined in TypeLibrary
56// *********************************************************************//
57 IAccessible = interface;
58 IAccessibleDisp = dispinterface;
59 IAccessibleHandler = interface;
60
61// *********************************************************************//
62// Interface: IAccessible
63// Flags: (4432) Hidden Dual OleAutomation Dispatchable
64// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
65// *********************************************************************//
66 IAccessible = interface(IDispatch)
67 ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
68 function Get_accParent: IDispatch; safecall;
69 function Get_accChildCount: Integer; safecall;
70 function Get_accChild(varChild: OleVariant): IDispatch; safecall;
71 function Get_accName(varChild: OleVariant): WideString; safecall;
72 function Get_accValue(varChild: OleVariant): WideString; safecall;
73 function Get_accDescription(varChild: OleVariant): WideString; safecall;
74 function Get_accRole(varChild: OleVariant): OleVariant; safecall;
75 function Get_accState(varChild: OleVariant): OleVariant; safecall;
76 function Get_accHelp(varChild: OleVariant): WideString; safecall;
77 function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
78 function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
79 function Get_accFocus: OleVariant; safecall;
80 function Get_accSelection: OleVariant; safecall;
81 function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
82 procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
83 procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
84 out pcyHeight: Integer; varChild: OleVariant); safecall;
85 function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
86 function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
87 procedure accDoDefaultAction(varChild: OleVariant); safecall;
88 procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
89 procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
90 property accParent: IDispatch read Get_accParent;
91 property accChildCount: Integer read Get_accChildCount;
92 property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
93 property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
94 property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
95 property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
96 property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
97 property accState[varChild: OleVariant]: OleVariant read Get_accState;
98 property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
99 property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
100 property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
101 property accFocus: OleVariant read Get_accFocus;
102 property accSelection: OleVariant read Get_accSelection;
103 property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
104 end;
105
106// *********************************************************************//
107// DispIntf: IAccessibleDisp
108// Flags: (4432) Hidden Dual OleAutomation Dispatchable
109// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
110// *********************************************************************//
111 IAccessibleDisp = dispinterface
112 ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
113 property accParent: IDispatch readonly dispid -5000;
114 property accChildCount: Integer readonly dispid -5001;
115 property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
116 property accName[varChild: OleVariant]: WideString dispid -5003;
117 property accValue[varChild: OleVariant]: WideString dispid -5004;
118 property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
119 property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
120 property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
121 property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
122 property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
123 property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
124 property accFocus: OleVariant readonly dispid -5011;
125 property accSelection: OleVariant readonly dispid -5012;
126 property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
127 procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
128 procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
129 out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
130 function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
131 function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
132 procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
133 end;
134
135// *********************************************************************//
136// Interface: IAccessibleHandler
137// Flags: (272) Hidden OleAutomation
138// GUID: {03022430-ABC4-11D0-BDE2-00AA001A1953}
139// *********************************************************************//
140 IAccessibleHandler = interface(IUnknown)
141 ['{03022430-ABC4-11D0-BDE2-00AA001A1953}']
142 function AccessibleObjectFromID(hwnd: Integer; lObjectID: Integer; out pIAccessible: IAccessible): HResult; stdcall;
143 end;
144
145implementation
146
147uses ComObj;
148
149end.
150
151
152
153
154
155
Note: See TracBrowser for help on using the repository browser.