Changeset 830 for cprs/trunk/CPRS-Chart/CPRSChart_TLB.pas
- Timestamp:
- Jul 7, 2010, 4:51:54 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/CPRSChart_TLB.pas
r456 r830 13 13 14 14 // PASTLWTR : 1.2 15 // File generated on 2/4/2008 6:51:03PM from Type Library described below.15 // File generated on 6/26/2010 8:43:12 PM from Type Library described below. 16 16 17 17 // ************************************************************************ // 18 // Type Lib: C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb (1)18 // Type Lib: P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart\CPRSChart.tlb (1) 19 19 // LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274} 20 20 // LCID: 0 … … 23 23 // DepndLst: 24 24 // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) 25 // (2) v1.1 Accessibility, (C:\WINDOWS\system32\oleacc.dll)26 25 // ************************************************************************ // 27 26 {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. … … 31 30 interface 32 31 33 uses Windows, Ac cessibility_TLB, ActiveX, Classes, Graphics, StdVCL, Variants;32 uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants; 34 33 35 34 … … 51 50 IID_ICPRSState: TGUID = '{63DC619E-6BE0-11D5-82E6-00C04F72C274}'; 52 51 IID_ICPRSExtension: TGUID = '{63DC61C4-6BE0-11D5-82E6-00C04F72C274}'; 53 IID_IAccessibleStringGrid: TGUID = '{EFD768F7-59C0-48D9-889E-49EDF75488A6}';54 CLASS_AccessibleStringGrid: TGUID = '{25CDBD92-C72E-47B0-9E75-9457B603000C}';55 IID_IAccessibleListBox: TGUID = '{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}';56 CLASS_AccessibleListBox: TGUID = '{758002E7-7012-4FAB-BD84-40D372694719}';57 IID_IAccessibleTreeNode: TGUID = '{5974D1D8-0F49-45E5-AEFE-674A61F8771A}';58 CLASS_AccessibleTreeNode: TGUID = '{3AD21DCA-2298-487A-8197-59B8D586C244}';59 IID_IAccessibleTreeView: TGUID = '{06AA97AB-6D67-425C-B794-15FB8C62F870}';60 CLASS_AccessibleTreeView: TGUID = '{507AD9F0-9ED6-4BCD-A3AB-DBA72153F14D}';61 IID_IAccessibleRichEdit: TGUID = '{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}';62 CLASS_AccessibleRichEdit: TGUID = '{DC61493C-51FE-49A4-8749-8464A00D5CFC}';63 52 64 53 // *********************************************************************// … … 85 74 ICPRSExtension = interface; 86 75 ICPRSExtensionDisp = dispinterface; 87 IAccessibleStringGrid = interface;88 IAccessibleStringGridDisp = dispinterface;89 IAccessibleListBox = interface;90 IAccessibleListBoxDisp = dispinterface;91 IAccessibleTreeNode = interface;92 IAccessibleTreeNodeDisp = dispinterface;93 IAccessibleTreeView = interface;94 IAccessibleTreeViewDisp = dispinterface;95 IAccessibleRichEdit = interface;96 IAccessibleRichEditDisp = dispinterface;97 98 // *********************************************************************//99 // Declaration of CoClasses defined in Type Library100 // (NOTE: Here we map each CoClass to its Default Interface)101 // *********************************************************************//102 AccessibleStringGrid = IAccessibleStringGrid;103 AccessibleListBox = IAccessibleListBox;104 AccessibleTreeNode = IAccessibleTreeNode;105 AccessibleTreeView = IAccessibleTreeView;106 AccessibleRichEdit = IAccessibleRichEdit;107 108 76 109 77 // *********************************************************************// … … 227 195 end; 228 196 229 // *********************************************************************//230 // Interface: IAccessibleStringGrid231 // Flags: (4416) Dual OleAutomation Dispatchable232 // GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6}233 // *********************************************************************//234 IAccessibleStringGrid = interface(IDispatch)235 ['{EFD768F7-59C0-48D9-889E-49EDF75488A6}']236 end;237 238 // *********************************************************************//239 // DispIntf: IAccessibleStringGridDisp240 // Flags: (4416) Dual OleAutomation Dispatchable241 // GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6}242 // *********************************************************************//243 IAccessibleStringGridDisp = dispinterface244 ['{EFD768F7-59C0-48D9-889E-49EDF75488A6}']245 end;246 247 // *********************************************************************//248 // Interface: IAccessibleListBox249 // Flags: (4416) Dual OleAutomation Dispatchable250 // GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}251 // *********************************************************************//252 IAccessibleListBox = interface(IDispatch)253 ['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}']254 end;255 256 // *********************************************************************//257 // DispIntf: IAccessibleListBoxDisp258 // Flags: (4416) Dual OleAutomation Dispatchable259 // GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}260 // *********************************************************************//261 IAccessibleListBoxDisp = dispinterface262 ['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}']263 end;264 265 // *********************************************************************//266 // Interface: IAccessibleTreeNode267 // Flags: (4416) Dual OleAutomation Dispatchable268 // GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A}269 // *********************************************************************//270 IAccessibleTreeNode = interface(IDispatch)271 ['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}']272 end;273 274 // *********************************************************************//275 // DispIntf: IAccessibleTreeNodeDisp276 // Flags: (4416) Dual OleAutomation Dispatchable277 // GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A}278 // *********************************************************************//279 IAccessibleTreeNodeDisp = dispinterface280 ['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}']281 end;282 283 // *********************************************************************//284 // Interface: IAccessibleTreeView285 // Flags: (4416) Dual OleAutomation Dispatchable286 // GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870}287 // *********************************************************************//288 IAccessibleTreeView = interface(IDispatch)289 ['{06AA97AB-6D67-425C-B794-15FB8C62F870}']290 end;291 292 // *********************************************************************//293 // DispIntf: IAccessibleTreeViewDisp294 // Flags: (4416) Dual OleAutomation Dispatchable295 // GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870}296 // *********************************************************************//297 IAccessibleTreeViewDisp = dispinterface298 ['{06AA97AB-6D67-425C-B794-15FB8C62F870}']299 end;300 301 // *********************************************************************//302 // Interface: IAccessibleRichEdit303 // Flags: (4416) Dual OleAutomation Dispatchable304 // GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962}305 // *********************************************************************//306 IAccessibleRichEdit = interface(IDispatch)307 ['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}']308 end;309 310 // *********************************************************************//311 // DispIntf: IAccessibleRichEditDisp312 // Flags: (4416) Dual OleAutomation Dispatchable313 // GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962}314 // *********************************************************************//315 IAccessibleRichEditDisp = dispinterface316 ['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}']317 end;318 319 // *********************************************************************//320 // The Class CoAccessibleStringGrid provides a Create and CreateRemote method to321 // create instances of the default interface IAccessibleStringGrid exposed by322 // the CoClass AccessibleStringGrid. The functions are intended to be used by323 // clients wishing to automate the CoClass objects exposed by the324 // server of this typelibrary.325 // *********************************************************************//326 CoAccessibleStringGrid = class327 class function Create: IAccessibleStringGrid;328 class function CreateRemote(const MachineName: string): IAccessibleStringGrid;329 end;330 331 // *********************************************************************//332 // The Class CoAccessibleListBox provides a Create and CreateRemote method to333 // create instances of the default interface IAccessibleListBox exposed by334 // the CoClass AccessibleListBox. The functions are intended to be used by335 // clients wishing to automate the CoClass objects exposed by the336 // server of this typelibrary.337 // *********************************************************************//338 CoAccessibleListBox = class339 class function Create: IAccessibleListBox;340 class function CreateRemote(const MachineName: string): IAccessibleListBox;341 end;342 343 // *********************************************************************//344 // The Class CoAccessibleTreeNode provides a Create and CreateRemote method to345 // create instances of the default interface IAccessibleTreeNode exposed by346 // the CoClass AccessibleTreeNode. The functions are intended to be used by347 // clients wishing to automate the CoClass objects exposed by the348 // server of this typelibrary.349 // *********************************************************************//350 CoAccessibleTreeNode = class351 class function Create: IAccessibleTreeNode;352 class function CreateRemote(const MachineName: string): IAccessibleTreeNode;353 end;354 355 // *********************************************************************//356 // The Class CoAccessibleTreeView provides a Create and CreateRemote method to357 // create instances of the default interface IAccessibleTreeView exposed by358 // the CoClass AccessibleTreeView. The functions are intended to be used by359 // clients wishing to automate the CoClass objects exposed by the360 // server of this typelibrary.361 // *********************************************************************//362 CoAccessibleTreeView = class363 class function Create: IAccessibleTreeView;364 class function CreateRemote(const MachineName: string): IAccessibleTreeView;365 end;366 367 // *********************************************************************//368 // The Class CoAccessibleRichEdit provides a Create and CreateRemote method to369 // create instances of the default interface IAccessibleRichEdit exposed by370 // the CoClass AccessibleRichEdit. The functions are intended to be used by371 // clients wishing to automate the CoClass objects exposed by the372 // server of this typelibrary.373 // *********************************************************************//374 CoAccessibleRichEdit = class375 class function Create: IAccessibleRichEdit;376 class function CreateRemote(const MachineName: string): IAccessibleRichEdit;377 end;378 379 197 implementation 380 198 381 199 uses ComObj; 382 200 383 class function CoAccessibleStringGrid.Create: IAccessibleStringGrid;384 begin385 Result := CreateComObject(CLASS_AccessibleStringGrid) as IAccessibleStringGrid;386 end;387 388 class function CoAccessibleStringGrid.CreateRemote(const MachineName: string): IAccessibleStringGrid;389 begin390 Result := CreateRemoteComObject(MachineName, CLASS_AccessibleStringGrid) as IAccessibleStringGrid;391 end;392 393 class function CoAccessibleListBox.Create: IAccessibleListBox;394 begin395 Result := CreateComObject(CLASS_AccessibleListBox) as IAccessibleListBox;396 end;397 398 class function CoAccessibleListBox.CreateRemote(const MachineName: string): IAccessibleListBox;399 begin400 Result := CreateRemoteComObject(MachineName, CLASS_AccessibleListBox) as IAccessibleListBox;401 end;402 403 class function CoAccessibleTreeNode.Create: IAccessibleTreeNode;404 begin405 Result := CreateComObject(CLASS_AccessibleTreeNode) as IAccessibleTreeNode;406 end;407 408 class function CoAccessibleTreeNode.CreateRemote(const MachineName: string): IAccessibleTreeNode;409 begin410 Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeNode) as IAccessibleTreeNode;411 end;412 413 class function CoAccessibleTreeView.Create: IAccessibleTreeView;414 begin415 Result := CreateComObject(CLASS_AccessibleTreeView) as IAccessibleTreeView;416 end;417 418 class function CoAccessibleTreeView.CreateRemote(const MachineName: string): IAccessibleTreeView;419 begin420 Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeView) as IAccessibleTreeView;421 end;422 423 class function CoAccessibleRichEdit.Create: IAccessibleRichEdit;424 begin425 Result := CreateComObject(CLASS_AccessibleRichEdit) as IAccessibleRichEdit;426 end;427 428 class function CoAccessibleRichEdit.CreateRemote(const MachineName: string): IAccessibleRichEdit;429 begin430 Result := CreateRemoteComObject(MachineName, CLASS_AccessibleRichEdit) as IAccessibleRichEdit;431 end;432 433 201 end.
Note:
See TracChangeset
for help on using the changeset viewer.