【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“VisioGrf2000.pas”一文,供大家参考学习!
unit VisioGrf2000;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.0 $
// File generated on 12/20/2000 8:50:39 AM from Type Library described below.
// ************************************************************************ //
// Type Lib: ..\typelibraries\visgrf32.tlb (1)
// IID\LCID: {000D1140-0000-0000-C000-000000000046}\0
// Helpfile:
// DepndLst:
// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
// Errors:
// Hint: Symbol 'Graph' renamed to 'VisioGraph'
// Hint: TypeInfo 'Graph' changed to 'VisioGraph'
// Hint: Symbol 'Container' renamed to 'VisioContainer'
// Hint: Symbol 'GraphPoints' renamed to 'VisioGraphPoints'
// Hint: Symbol 'GraphPointsEx' renamed to 'VisioGraphPointsEx'
// Hint: Parameter 'Type' of IGraph.SetRouteJumpType changed to 'Type_'
// Hint: Member 'Type' of 'ILayoutObject' changed to 'Type_'
// Hint: Parameter 'Type' of IContainer.SetRouteJumpType changed to 'Type_'
// Hint: Symbol 'Graph' renamed to 'VisioGraph'
// Hint: TypeInfo 'Graph' changed to 'VisioGraph'
// Hint: Symbol 'Container' renamed to 'VisioContainer'
// Hint: Symbol 'GraphPoints' renamed to 'VisioGraphPoints'
// Hint: Symbol 'GraphPointsEx' renamed to 'VisioGraphPointsEx'
// Hint: Member 'Type' of 'ILayoutObject' changed to 'Type_'
// Error creating palette bitmap of (TVisioGraph) : Server D:\Program Files\Visio\VISGRF32.DLL contains no icons
// Error creating palette bitmap of (TVisioContainer) : Server D:\Program Files\Visio\VISGRF32.DLL contains no icons
// Error creating palette bitmap of (TVisioGraphPoints) : Server D:\Program Files\Visio\VISGRF32.DLL contains no icons
// Error creating palette bitmap of (TVisioGraphPointsEx) : Server D:\Program Files\Visio\VISGRF32.DLL contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
interface
uses Windows, ActiveX, Classes, Graphics, StdVCL, OleServer;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
VisioGraphMajorVersion = 2;
VisioGraphMinorVersion = 60;
LIBID_VisioGraph: TGUID = '{000D1140-0000-0000-C000-000000000046}';
IID_IGraphVersion: TGUID = '{000D1154-0000-0000-C000-000000000046}';
IID_IGraphSite: TGUID = '{000D1155-0000-0000-C000-000000000046}';
IID_IGraph: TGUID = '{000D1142-0000-0000-C000-000000000046}';
IID_INodes: TGUID = '{000D1146-0000-0000-C000-000000000046}';
IID_ILayoutObject: TGUID = '{000D1150-0000-0000-C000-000000000046}';
IID_INode: TGUID = '{000D1145-0000-0000-C000-000000000046}';
IID_IGraphProps: TGUID = '{000D114D-0000-0000-C000-000000000046}';
IID_IConnections: TGUID = '{000D114F-0000-0000-C000-000000000046}';
IID_IConnection: TGUID = '{000D114E-0000-0000-C000