unit klTLB; // ************************************************************************ // // 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.88 $ // File generated on 01.06.2004 15:12:59 from Type Library described below. // *************************************************************************// // 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. // ************************************************************************ // // Type Lib: S:\lib\klAPI5.tlb (1) // IID\LCID: {737224C1-8E29-48E7-918F-09922E51B664}\0 // Helpfile: // DepndLst: // (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb) // (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL) // Errors: // Hint: Parameter 'type' of KompasObject.GetDynamicArray changed to 'type_' // Hint: Parameter 'file' of KompasObject.ksOpenHelpFile changed to 'file_' // Hint: Parameter 'type' of ksDocument2D.ksMacro changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksNewGroup changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksGetCursorPosition changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksCreateViewObject changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksGetStyleParam changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksAddStyle changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksIsStyleInDocument changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksDeleteStyleFromDocument changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksDecomposeObj changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksGetTableItemsCount changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksZoomPrevNextOrAll changed to 'type_' // Hint: Parameter 'type' of ksDocument2D.ksChangeObjectsOrder changed to 'type_' // Hint: Parameter 'type' of ksDocument3D.GetPart changed to 'type_' // Hint: Parameter 'type' of ksDocument3D.ZoomPrevNextOrAll changed to 'type_' // Hint: Member 'type' of 'ksEntity' changed to 'type_' // Hint: Member 'type' of 'ksFeature' changed to 'type_' // Hint: Parameter 'type' of ksPlacement.GetAxis changed to 'type_' // Hint: Parameter 'type' of ksPlacement.SetAxis changed to 'type_' // Hint: Parameter 'type' of ksPart.GetPart changed to 'type_' // Hint: Parameter 'type' of ksPart.PutStorage changed to 'type_' // Hint: Member 'type' of 'ksTextItemParam' changed to 'type_' // Hint: Member 'type' of 'ksBaseParam' changed to 'type_' // Hint: Parameter 'array' of ksMathematic2D.ksTanLinePointCurve changed to 'array_' // Hint: Member 'type' of 'ksCentreParam' changed to 'type_' // Hint: Parameter 'type' of ksFragmentLibrary.ksChoiceFragmentFromLib changed to 'type_' // Hint: Parameter 'type' of ksFragmentLibrary.ksFragmentLibraryOperation changed to 'type_' // Hint: Member 'type' of 'ksOrdinatedDrawingParam' changed to 'type_' // Hint: Member 'type' of 'ksDocumentParam' changed to 'type_' // Hint: Parameter 'type' of ksSheetOptions.GetSheetParam changed to 'type_' // Hint: Parameter 'type' of ksCurveStyleParam.GetPPattern changed to 'type_' // Hint: Member 'type' of 'ksRoughPar' changed to 'type_' // Hint: Member 'type' of 'ksViewPointerParam' changed to 'type_' // Hint: Member 'type' of 'ksCutLineParam' changed to 'type_' // Hint: Member 'type' of 'ksToleranceParam' changed to 'type_' // Hint: Member 'type' of 'ksSpcStyleParam' changed to 'type_' // Hint: Parameter 'type' of ksDataBaseObject.ksRChar changed to 'type_' // Hint: Member 'type' of 'ksColumnInfoParam' changed to 'type_' // Hint: Parameter 'type' of ksAttributeObject.ksViewEditAttr changed to 'type_' // Hint: Parameter 'type' of ksAttributeObject.ksViewEditAttrType changed to 'type_' // Hint: Parameter 'type' of ksModelLibrary.ModelLibraryOperation changed to 'type_' // Hint: Parameter 'type' of ksModelLibrary.ChoiceModelFromLib changed to 'type_' // Hint: Parameter 'begin' of ksEdgeDefinition.EdgeCollection changed to 'begin_' // Hint: Member 'array' of 'ksChamferDefinition' changed to 'array_' // Hint: Member 'array' of 'ksFilletDefinition' changed to 'array_' // Hint: Parameter 'type' of ksBaseExtrusionDefinition.GetSideParam changed to 'type_' // Hint: Parameter 'type' of ksBaseExtrusionDefinition.SetSideParam changed to 'type_' // Hint: Parameter 'type' of ksBossExtrusionDefinition.GetSideParam changed to 'type_' // Hint: Parameter 'type' of ksBossExtrusionDefinition.SetSideParam changed to 'type_' // Hint: Parameter 'type' of ksCutExtrusionDefinition.GetSideParam changed to 'type_' // Hint: Parameter 'type' of ksCutExtrusionDefinition.SetSideParam changed to 'type_' // Hint: Member 'unit' of 'ksMeasurer' changed to 'unit_' // Hint: Member 'type' of 'ksTreeNodeParam' changed to 'type_' // Hint: Member 'type' of 'ksTextDocumentParam' changed to 'type_' // Error creating palette bitmap of (TObject2DNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSelectionMngNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDocument2DNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDocument3DNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TObject3DNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TApp) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TObject2DNotifyResult) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TFeatureCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (Tplacement) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TObject3DNotifyResult) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpecRoughParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEllipseParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEllipseArcParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEllipseArcParam1) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEquidistantParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TParagraphParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTextItemParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTextLineParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTextItemFont) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCornerParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TContourParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLayerParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLineParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRegularPolygonParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRectangleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBaseParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLtVariant) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TUserParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMathPointParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurvePicture) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurvePattern) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTAN) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCON) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TInertiaParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMassInertiaParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMathematic2D) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDynamicArray) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRDimDrawingParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRDimSourceParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRDimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLineSegParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCircleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TArcByAngleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TArcByPointParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPointParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (THatchParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTextParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsPointParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDoubleValue) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TConicArcParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCentreParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlacementParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRasterParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPolylineParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TInsertFragmentParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TViewParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLBreakDimSource) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBreakDimDrawing) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLBreakDimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TABreakDimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TInsertFragmentParamEx) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBezierParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBezierPointParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDimTextParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLDimSourceParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDimDrawingParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLDimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TADimSourceParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDimensionPartsParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TADimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRBreakDrawingParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRBreakDimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TQualityItemParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TQualityContensParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TIterator) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TFragment) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TFragmentLib) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTechnicalDemandParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TOrdinatedSourceParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TOrdinatedDimParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TOrdinatedDrawingParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSheetSize) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TStandartSheet) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSheetPar) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDocumentParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDimensionsOptions) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSnapOptions) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLibraryStyleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TStamp) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSheetOptions) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurvePatternEx) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurveStyleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTextStyleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (THatchLineParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (THatchStyleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRectParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TShelfPar) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TroughPar) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRoughParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TChar255) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLeaderParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TposLeaderParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TbrandLeaderParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TmarkerLeaderParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TType1) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TType2) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TType3) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TType5) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TType6) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (Tphantom) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRequestInfo) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TViewPointerParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutLineParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TToleranceBranch) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TToleranceParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcColumnParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRecordTypeAttrParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNumberTypeAttrParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcStyleColumnParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcStyleSectionParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcSubSectionParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcTuningSectionParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcTuningStyleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcStyleParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcDescrParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDocAttachedSpcParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcObjParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLibStyle) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDataBaseObject) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcDocumentNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcDocument) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpcObjectNotify) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSpecification) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDocumentTxt) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAttributeTypeParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TColumnInfoParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAttributeParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TVariable) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLibraryAttrTypeParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAttributeObject) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRequestInfo3D) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMateConstraint) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDefaultObject) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (Tentity) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (Tpart) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TModelLibrary) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEntityCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TVariableCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMateConstraintCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPartCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMeshPartArrayDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCircularPartArrayDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurvePartArrayDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDerivativePartArrayDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAxis2PlanesDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAxisOperationsDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAxis2PointsDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAxisEdgeDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMeshCopyDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCircularCopyDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurveCopyDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMirrorCopyDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMirrorCopyAllDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TConicSpiralDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCylindricSpiralDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPolyLineDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSplineDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TfaceDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEdgeDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TChamferDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TFilletDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBaseExtrusionDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBossExtrusionDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutExtrusionDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBaseLoftDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBossLoftDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutLoftDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TInclineDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TShellDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBaseEvolutionDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBossEvolutionDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutEvolutionDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRibDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutByPlaneDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutBySketchDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneOffsetDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneAngleDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlane3PointsDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneNormalToSurfaceDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneTangentToSurfaceDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneEdgePointDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneParallelDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlanePerpendicularDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneLineToEdgeDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneLineToPlaneDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TThinParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TExtrusionParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRotatedParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TColorParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBaseRotatedDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBossRotatedDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCutRotatedDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSketchDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRasterFormatParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAdditionFormatParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TConstraintParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TImportedSurfaceDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TFaceCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TVertexDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TFeature) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTessellation) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (Tfacet) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TMeasurer) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBodyCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TBody) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSurface) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEdgeCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TOrientedEdge) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TOrientedEdgeCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLoop) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLoopCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCurve3D) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TLineSeg3dParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCircle3dParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TEllipse3dParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TPlaneParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TConeParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCylinderParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSphereParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTorusParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsPoint3dParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsSurfaceParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbs3dParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsKnotCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsPoint3dCollCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TNurbsPoint3dCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TViewProjection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TViewProjectionCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TSelectionMng) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TChooseMng) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TArc3dParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTreeNodeParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAssociationViewParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TViewColorParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAxisLineParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TTextDocumentParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TRemoteElementParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TDeletedCopyCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TCopyObjectParam) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TThreadDefinition) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TOverlapObjectOptions) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAttribute3D) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TAttribute3DCollection) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TComponentPositioner) : Server Q:\exe\kompaslt.exe contains no icons // Error creating palette bitmap of (TObjectFilter3D) : Server Q:\exe\kompaslt.exe contains no icons // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. interface uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; // *********************************************************************// // 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 Kompas6LTAPI5MajorVersion = 1; Kompas6LTAPI5MinorVersion = 0; LIBID_Kompas6LTAPI5: TGUID = '{737224C1-8E29-48E7-918F-09922E51B664}'; DIID_KompasObject: TGUID = '{2557A84B-0FB9-4BA5-ACE3-B43819F9751F}'; DIID_ksDocument2D: TGUID = '{AF4E160D-5C89-4F21-B0F2-D53397BDAF78}'; DIID_ksObject2DNotify: TGUID = '{2E29C343-C521-4B0F-B37D-587D0347B7BA}'; CLASS_Object2DNotify: TGUID = '{C7EBA9A1-9E76-436E-B362-A80C5763944C}'; DIID_ksSelectionMngNotify: TGUID = '{A421368A-34B6-4DDF-9A52-73B3488EE83F}'; CLASS_SelectionMngNotify: TGUID = '{DC2E4057-7F8E-4652-860D-6B9E1F6F43AA}'; DIID_ksObject2DNotifyResult: TGUID = '{1FE1EB28-CD28-4700-8E46-25CCFE9C0EC8}'; DIID_ksDocument2DNotify: TGUID = '{13F0BE95-3361-4AD9-90AF-D935EA64A127}'; CLASS_Document2DNotify: TGUID = '{1B9B9B4E-DCD7-496E-A583-547EC1E91E47}'; DIID_ksDocument3D: TGUID = '{111CEFE1-A0A7-11D6-95CE-00C0262D30E3}'; DIID_ksDocument3DNotify: TGUID = '{B6C1BCFD-68DA-4A0A-A95C-296084C6A01A}'; CLASS_Document3DNotify: TGUID = '{22B81342-42D6-4907-A91E-F75A959F2270}'; DIID_ksEntity: TGUID = '{508A0CCA-9D74-11D6-95CE-00C0262D30E3}'; DIID_ksAttribute3DCollection: TGUID = '{EB61A981-F63E-47E1-BEE8-2D1612C78E78}'; DIID_ksAttribute3D: TGUID = '{3EEB2B43-56FF-49C0-AFCF-69E990A7D84C}'; DIID_ksFeatureCollection: TGUID = '{CE6A46FF-02B4-4C7E-AF50-3F3707C8B122}'; DIID_ksFeature: TGUID = '{088BF9A8-37D3-4B15-A7CA-8C52FF1DBC41}'; DIID_ksEntityCollection: TGUID = '{B0170141-C02C-11D6-8734-00C0262CDD2C}'; DIID_ksComponentPositioner: TGUID = '{508B5962-DF59-4CEE-8611-AD10FDF0C811}'; DIID_ksPlacement: TGUID = '{2DFACC64-C4A4-11D6-8734-00C0262CDD2C}'; DIID_ksPart: TGUID = '{508A0CCD-9D74-11D6-95CE-00C0262D30E3}'; DIID_ksObject3DNotify: TGUID = '{BFA024B6-679E-4A95-B6C2-1EA47A7CD0E9}'; CLASS_Object3DNotify: TGUID = '{CA35F3C6-7E2D-4700-BE12-BAA26DC1945B}'; DIID_ksObject3DNotifyResult: TGUID = '{9C3ECC92-E72F-4892-8921-7886F34CA9AD}'; DIID_ksKompasObjectNotify: TGUID = '{C7CB743A-C59D-4C27-8CB6-971C2A393F2F}'; CLASS_App: TGUID = '{3B1C886B-EB51-42CF-87B2-427E3BCC5B09}'; DIID_ksDocumentFileNotify: TGUID = '{324C1A45-67AD-41FB-BE57-624F930646F1}'; CLASS_Object2DNotifyResult: TGUID = '{DE8219EC-0A9F-44E1-AC2B-F17269484FFF}'; CLASS_FeatureCollection: TGUID = '{87CD4F95-083C-4514-B8B4-025C8907D8F1}'; CLASS_placement: TGUID = '{2DFACC66-C4A4-11D6-8734-00C0262CDD2C}'; CLASS_Object3DNotifyResult: TGUID = '{600F12DF-D8B8-4CA8-A476-D2A7E425C740}'; CLASS_Document2D: TGUID = '{14FD27F5-B7FD-4276-AC2C-2804EDC3944F}'; DIID_ksSpecRoughParam: TGUID = '{364521A3-94B5-11D6-8732-00C0262CDD2C}'; CLASS_SpecRoughParam: TGUID = '{364521A5-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksEllipseParam: TGUID = '{364521A6-94B5-11D6-8732-00C0262CDD2C}'; CLASS_EllipseParam: TGUID = '{364521A8-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksEllipseArcParam: TGUID = '{364521A9-94B5-11D6-8732-00C0262CDD2C}'; CLASS_EllipseArcParam: TGUID = '{364521AB-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksEllipseArcParam1: TGUID = '{364521AC-94B5-11D6-8732-00C0262CDD2C}'; CLASS_EllipseArcParam1: TGUID = '{364521AE-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksEquidistantParam: TGUID = '{364521AF-94B5-11D6-8732-00C0262CDD2C}'; CLASS_EquidistantParam: TGUID = '{364521B1-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksParagraphParam: TGUID = '{364521B2-94B5-11D6-8732-00C0262CDD2C}'; CLASS_ParagraphParam: TGUID = '{364521B4-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksTextItemParam: TGUID = '{364521B7-94B5-11D6-8732-00C0262CDD2C}'; CLASS_TextItemParam: TGUID = '{364521B9-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksTextLineParam: TGUID = '{364521BA-94B5-11D6-8732-00C0262CDD2C}'; CLASS_TextLineParam: TGUID = '{364521BC-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksTextItemFont: TGUID = '{364521BD-94B5-11D6-8732-00C0262CDD2C}'; CLASS_TextItemFont: TGUID = '{364521BF-94B5-11D6-8732-00C0262CDD2C}'; DIID_ksCornerParam: TGUID = '{E79C2501-9584-11D6-8732-00C0262CDD2C}'; CLASS_CornerParam: TGUID = '{E79C2503-9584-11D6-8732-00C0262CDD2C}'; DIID_ksContourParam: TGUID = '{E79C2504-9584-11D6-8732-00C0262CDD2C}'; CLASS_ContourParam: TGUID = '{E79C2506-9584-11D6-8732-00C0262CDD2C}'; DIID_ksLayerParam: TGUID = '{E79C2507-9584-11D6-8732-00C0262CDD2C}'; CLASS_LayerParam: TGUID = '{E79C2509-9584-11D6-8732-00C0262CDD2C}'; DIID_ksLineParam: TGUID = '{E79C250A-9584-11D6-8732-00C0262CDD2C}'; CLASS_LineParam: TGUID = '{E79C250C-9584-11D6-8732-00C0262CDD2C}'; DIID_ksRegularPolygonParam: TGUID = '{E79C250D-9584-11D6-8732-00C0262CDD2C}'; CLASS_RegularPolygonParam: TGUID = '{E79C250F-9584-11D6-8732-00C0262CDD2C}'; DIID_ksRectangleParam: TGUID = '{E79C2510-9584-11D6-8732-00C0262CDD2C}'; CLASS_RectangleParam: TGUID = '{E79C2512-9584-11D6-8732-00C0262CDD2C}'; DIID_ksBaseParam: TGUID = '{E79C2513-9584-11D6-8732-00C0262CDD2C}'; CLASS_BaseParam: TGUID = '{E79C2515-9584-11D6-8732-00C0262CDD2C}'; DIID_ksLtVariant: TGUID = '{E79C2516-9584-11D6-8732-00C0262CDD2C}'; CLASS_LtVariant: TGUID = '{E79C2518-9584-11D6-8732-00C0262CDD2C}'; DIID_ksUserParam: TGUID = '{E79C2519-9584-11D6-8732-00C0262CDD2C}'; CLASS_UserParam: TGUID = '{E79C251B-9584-11D6-8732-00C0262CDD2C}'; DIID_ksMathPointParam: TGUID = '{3198E121-9585-11D6-95CE-00C0262D30E3}'; CLASS_MathPointParam: TGUID = '{3198E123-9585-11D6-95CE-00C0262D30E3}'; DIID_ksCurvePicture: TGUID = '{910EC541-958D-11D6-95CE-00C0262D30E3}'; CLASS_CurvePicture: TGUID = '{910EC543-958D-11D6-95CE-00C0262D30E3}'; DIID_ksCurvePattern: TGUID = '{910EC544-958D-11D6-95CE-00C0262D30E3}'; CLASS_CurvePattern: TGUID = '{910EC546-958D-11D6-95CE-00C0262D30E3}'; DIID_ksTAN: TGUID = '{8075EDE4-6C85-4711-8685-68FBE359D4C4}'; CLASS_TAN: TGUID = '{9F8CA523-173C-4206-8F2A-AB221138692E}'; DIID_ksCON: TGUID = '{C175BFB8-D7D6-4325-BFDA-2A282B9D1119}'; CLASS_CON: TGUID = '{9CC1A2E2-29A8-49BB-ABF6-792FA2D38014}'; DIID_ksInertiaParam: TGUID = '{EA92E649-239E-4105-BBD3-AEF4817BD783}'; CLASS_InertiaParam: TGUID = '{7B8B632E-5BDD-4EE5-B623-DF2880BE0EE4}'; DIID_ksMassInertiaParam: TGUID = '{283F77EB-7E2C-4F71-8B16-4D286FA4857E}'; CLASS_MassInertiaParam: TGUID = '{4693323B-42A7-42CC-902E-7123DD916FB4}'; DIID_ksMathematic2D: TGUID = '{F2D5AE01-45DE-4496-B01B-9958CAEF5943}'; CLASS_Mathematic2D: TGUID = '{C77421D3-13EC-4595-A198-677EFB45AEF3}'; DIID_ksDynamicArray: TGUID = '{4D91CD9A-6E02-409D-9360-CF7FEF60D31C}'; CLASS_DynamicArray: TGUID = '{FD30B325-9E27-42CA-ADCF-C30EEBE0BBB8}'; DIID_ksRDimDrawingParam: TGUID = '{2A4D4542-95B3-11D6-8732-00C0262CDD2C}'; CLASS_RDimDrawingParam: TGUID = '{2A4D4544-95B3-11D6-8732-00C0262CDD2C}'; DIID_ksRDimSourceParam: TGUID = '{2A4D4545-95B3-11D6-8732-00C0262CDD2C}'; CLASS_RDimSourceParam: TGUID = '{2A4D4547-95B3-11D6-8732-00C0262CDD2C}'; DIID_ksRDimParam: TGUID = '{7F7D6F81-97DA-11D6-8732-00C0262CDD2C}'; CLASS_RDimParam: TGUID = '{7F7D6F83-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksLineSegParam: TGUID = '{7F7D6F84-97DA-11D6-8732-00C0262CDD2C}'; CLASS_LineSegParam: TGUID = '{7F7D6F86-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksCircleParam: TGUID = '{7F7D6F87-97DA-11D6-8732-00C0262CDD2C}'; CLASS_CircleParam: TGUID = '{7F7D6F89-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksArcByAngleParam: TGUID = '{7F7D6F8A-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ArcByAngleParam: TGUID = '{7F7D6F8C-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksArcByPointParam: TGUID = '{7F7D6F8D-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ArcByPointParam: TGUID = '{7F7D6F8F-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksPointParam: TGUID = '{7F7D6F90-97DA-11D6-8732-00C0262CDD2C}'; CLASS_PointParam: TGUID = '{7F7D6F92-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksHatchParam: TGUID = '{7F7D6F93-97DA-11D6-8732-00C0262CDD2C}'; CLASS_HatchParam: TGUID = '{7F7D6F95-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksTextParam: TGUID = '{7F7D6F96-97DA-11D6-8732-00C0262CDD2C}'; CLASS_TextParam: TGUID = '{7F7D6F98-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksNurbsPointParam: TGUID = '{7F7D6F99-97DA-11D6-8732-00C0262CDD2C}'; CLASS_NurbsPointParam: TGUID = '{7F7D6F9B-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksDoubleValue: TGUID = '{7F7D6F9C-97DA-11D6-8732-00C0262CDD2C}'; CLASS_DoubleValue: TGUID = '{7F7D6F9E-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksNurbsParam: TGUID = '{7F7D6F9F-97DA-11D6-8732-00C0262CDD2C}'; CLASS_NurbsParam: TGUID = '{7F7D6FA1-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksConicArcParam: TGUID = '{7F7D6FA2-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ConicArcParam: TGUID = '{7F7D6FA4-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksCentreParam: TGUID = '{7F7D6FA5-97DA-11D6-8732-00C0262CDD2C}'; CLASS_CentreParam: TGUID = '{7F7D6FA7-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksPlacementParam: TGUID = '{7F7D6FA8-97DA-11D6-8732-00C0262CDD2C}'; CLASS_PlacementParam: TGUID = '{7F7D6FAA-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksRasterParam: TGUID = '{7F7D6FAB-97DA-11D6-8732-00C0262CDD2C}'; CLASS_RasterParam: TGUID = '{7F7D6FAD-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksPolylineParam: TGUID = '{7F7D6FAE-97DA-11D6-8732-00C0262CDD2C}'; CLASS_PolylineParam: TGUID = '{7F7D6FB0-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksInsertFragmentParam: TGUID = '{7F7D6FB1-97DA-11D6-8732-00C0262CDD2C}'; CLASS_InsertFragmentParam: TGUID = '{7F7D6FB3-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksViewParam: TGUID = '{7F7D6FB4-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ViewParam: TGUID = '{7F7D6FB6-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksLBreakDimSource: TGUID = '{7F7D6FB7-97DA-11D6-8732-00C0262CDD2C}'; CLASS_LBreakDimSource: TGUID = '{7F7D6FB9-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksBreakDimDrawing: TGUID = '{7F7D6FBA-97DA-11D6-8732-00C0262CDD2C}'; CLASS_BreakDimDrawing: TGUID = '{7F7D6FBC-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksLBreakDimParam: TGUID = '{7F7D6FBD-97DA-11D6-8732-00C0262CDD2C}'; CLASS_LBreakDimParam: TGUID = '{7F7D6FBF-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksABreakDimParam: TGUID = '{7F7D6FC0-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ABreakDimParam: TGUID = '{7F7D6FC2-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksInsertFragmentParamEx: TGUID = '{7F7D6FC3-97DA-11D6-8732-00C0262CDD2C}'; CLASS_InsertFragmentParamEx: TGUID = '{7F7D6FC5-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksBezierParam: TGUID = '{7F7D6FC6-97DA-11D6-8732-00C0262CDD2C}'; CLASS_BezierParam: TGUID = '{7F7D6FC8-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksBezierPointParam: TGUID = '{7F7D6FC9-97DA-11D6-8732-00C0262CDD2C}'; CLASS_BezierPointParam: TGUID = '{7F7D6FCB-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksDimTextParam: TGUID = '{7F7D6FCC-97DA-11D6-8732-00C0262CDD2C}'; CLASS_DimTextParam: TGUID = '{7F7D6FCE-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksLDimSourceParam: TGUID = '{7F7D6FCF-97DA-11D6-8732-00C0262CDD2C}'; CLASS_LDimSourceParam: TGUID = '{7F7D6FD1-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksDimDrawingParam: TGUID = '{7F7D6FD2-97DA-11D6-8732-00C0262CDD2C}'; CLASS_DimDrawingParam: TGUID = '{7F7D6FD4-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksLDimParam: TGUID = '{7F7D6FD5-97DA-11D6-8732-00C0262CDD2C}'; CLASS_LDimParam: TGUID = '{7F7D6FD7-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksADimSourceParam: TGUID = '{7F7D6FD8-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ADimSourceParam: TGUID = '{7F7D6FDA-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksDimensionPartsParam: TGUID = '{7F7D6FDB-97DA-11D6-8732-00C0262CDD2C}'; CLASS_DimensionPartsParam: TGUID = '{7F7D6FDD-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksADimParam: TGUID = '{7F7D6FDE-97DA-11D6-8732-00C0262CDD2C}'; CLASS_ADimParam: TGUID = '{7F7D6FE0-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksRBreakDrawingParam: TGUID = '{7F7D6FE1-97DA-11D6-8732-00C0262CDD2C}'; CLASS_RBreakDrawingParam: TGUID = '{7F7D6FE3-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksRBreakDimParam: TGUID = '{7F7D6FE4-97DA-11D6-8732-00C0262CDD2C}'; CLASS_RBreakDimParam: TGUID = '{7F7D6FE6-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksQualityItemParam: TGUID = '{7F7D6FE7-97DA-11D6-8732-00C0262CDD2C}'; CLASS_QualityItemParam: TGUID = '{7F7D6FE9-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksQualityContensParam: TGUID = '{7F7D6FEA-97DA-11D6-8732-00C0262CDD2C}'; CLASS_QualityContensParam: TGUID = '{7F7D6FEC-97DA-11D6-8732-00C0262CDD2C}'; DIID_ksIterator: TGUID = '{D06C9101-98CA-11D6-8732-00C0262CDD2C}'; CLASS_Iterator: TGUID = '{D06C9103-98CA-11D6-8732-00C0262CDD2C}'; DIID_ksFragment: TGUID = '{D06C9104-98CA-11D6-8732-00C0262CDD2C}'; CLASS_Fragment: TGUID = '{D06C9106-98CA-11D6-8732-00C0262CDD2C}'; DIID_ksFragmentLibrary: TGUID = '{D06C910A-98CA-11D6-8732-00C0262CDD2C}'; CLASS_FragmentLib: TGUID = '{D06C910C-98CA-11D6-8732-00C0262CDD2C}'; DIID_ksTechnicalDemandParam: TGUID = '{FBCC5B81-996C-11D6-8732-00C0262CDD2C}'; CLASS_TechnicalDemandParam: TGUID = '{FBCC5B83-996C-11D6-8732-00C0262CDD2C}'; DIID_ksOrdinatedSourceParam: TGUID = '{FBCC5B84-996C-11D6-8732-00C0262CDD2C}'; CLASS_OrdinatedSourceParam: TGUID = '{FBCC5B86-996C-11D6-8732-00C0262CDD2C}'; DIID_ksOrdinatedDimParam: TGUID = '{FBCC5B87-996C-11D6-8732-00C0262CDD2C}'; CLASS_OrdinatedDimParam: TGUID = '{FBCC5B89-996C-11D6-8732-00C0262CDD2C}'; DIID_ksOrdinatedDrawingParam: TGUID = '{FBCC5B8A-996C-11D6-8732-00C0262CDD2C}'; CLASS_OrdinatedDrawingParam: TGUID = '{FBCC5B8C-996C-11D6-8732-00C0262CDD2C}'; DIID_ksSheetSize: TGUID = '{FBCC5B8D-996C-11D6-8732-00C0262CDD2C}'; CLASS_SheetSize: TGUID = '{FBCC5B8F-996C-11D6-8732-00C0262CDD2C}'; DIID_ksStandartSheet: TGUID = '{FBCC5B90-996C-11D6-8732-00C0262CDD2C}'; CLASS_StandartSheet: TGUID = '{FBCC5B92-996C-11D6-8732-00C0262CDD2C}'; DIID_ksSheetPar: TGUID = '{FBCC5B93-996C-11D6-8732-00C0262CDD2C}'; CLASS_SheetPar: TGUID = '{FBCC5B95-996C-11D6-8732-00C0262CDD2C}'; DIID_ksDocumentParam: TGUID = '{FBCC5B96-996C-11D6-8732-00C0262CDD2C}'; CLASS_DocumentParam: TGUID = '{FBCC5B98-996C-11D6-8732-00C0262CDD2C}'; DIID_ksDimensionsOptions: TGUID = '{FBCC5B99-996C-11D6-8732-00C0262CDD2C}'; CLASS_DimensionsOptions: TGUID = '{FBCC5B9B-996C-11D6-8732-00C0262CDD2C}'; DIID_ksSnapOptions: TGUID = '{FBCC5B9C-996C-11D6-8732-00C0262CDD2C}'; CLASS_SnapOptions: TGUID = '{FBCC5B9E-996C-11D6-8732-00C0262CDD2C}'; DIID_ksLibraryStyleParam: TGUID = '{FBCC5B9F-996C-11D6-8732-00C0262CDD2C}'; CLASS_LibraryStyleParam: TGUID = '{FBCC5BA1-996C-11D6-8732-00C0262CDD2C}'; DIID_ksStampNotify: TGUID = '{404E7D5A-A13F-4CFF-8214-FEA7012110CB}'; DIID_ksStamp: TGUID = '{FBCC5BA5-996C-11D6-8732-00C0262CDD2C}'; CLASS_Stamp: TGUID = '{FBCC5BA7-996C-11D6-8732-00C0262CDD2C}'; DIID_ksSheetOptions: TGUID = '{FBCC5BA8-996C-11D6-8732-00C0262CDD2C}'; CLASS_SheetOptions: TGUID = '{FBCC5BAA-996C-11D6-8732-00C0262CDD2C}'; DIID_ksCurvePatternEx: TGUID = '{910EC549-958D-11D6-95CE-00C0262D30E3}'; CLASS_CurvePatternEx: TGUID = '{910EC54B-958D-11D6-95CE-00C0262D30E3}'; DIID_ksCurveStyleParam: TGUID = '{910EC54C-958D-11D6-95CE-00C0262D30E3}'; CLASS_CurveStyleParam: TGUID = '{910EC54E-958D-11D6-95CE-00C0262D30E3}'; DIID_ksTextStyleParam: TGUID = '{3F715E24-97D9-11D6-95CE-00C0262D30E3}'; CLASS_TextStyleParam: TGUID = '{3F715E26-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksHatchLineParam: TGUID = '{3F715E27-97D9-11D6-95CE-00C0262D30E3}'; CLASS_HatchLineParam: TGUID = '{3F715E29-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksHatchStyleParam: TGUID = '{3F715E2A-97D9-11D6-95CE-00C0262D30E3}'; CLASS_HatchStyleParam: TGUID = '{3F715E2C-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksRectParam: TGUID = '{3F715E2D-97D9-11D6-95CE-00C0262D30E3}'; CLASS_RectParam: TGUID = '{3F715E2F-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksShelfPar: TGUID = '{3F715E30-97D9-11D6-95CE-00C0262D30E3}'; CLASS_ShelfPar: TGUID = '{3F715E32-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksRoughPar: TGUID = '{3F715E33-97D9-11D6-95CE-00C0262D30E3}'; CLASS_roughPar: TGUID = '{3F715E35-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksRoughParam: TGUID = '{3F715E36-97D9-11D6-95CE-00C0262D30E3}'; CLASS_RoughParam: TGUID = '{3F715E38-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksChar255: TGUID = '{3F715E39-97D9-11D6-95CE-00C0262D30E3}'; CLASS_Char255: TGUID = '{3F715E3B-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksLeaderParam: TGUID = '{3F715E40-97D9-11D6-95CE-00C0262D30E3}'; CLASS_LeaderParam: TGUID = '{3F715E42-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksPosLeaderParam: TGUID = '{3F715E43-97D9-11D6-95CE-00C0262D30E3}'; CLASS_posLeaderParam: TGUID = '{3F715E45-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksBrandLeaderParam: TGUID = '{3F715E46-97D9-11D6-95CE-00C0262D30E3}'; CLASS_brandLeaderParam: TGUID = '{3F715E48-97D9-11D6-95CE-00C0262D30E3}'; DIID_ksMarkerLeaderParam: TGUID = '{9AF8E341-98A0-11D6-95CE-00C0262D30E3}'; CLASS_markerLeaderParam: TGUID = '{9AF8E343-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksType1: TGUID = '{9AF8E344-98A0-11D6-95CE-00C0262D30E3}'; CLASS_Type1: TGUID = '{9AF8E346-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksType2: TGUID = '{9AF8E347-98A0-11D6-95CE-00C0262D30E3}'; CLASS_Type2: TGUID = '{9AF8E349-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksType3: TGUID = '{9AF8E34A-98A0-11D6-95CE-00C0262D30E3}'; CLASS_Type3: TGUID = '{9AF8E34C-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksType5: TGUID = '{9AF8E34D-98A0-11D6-95CE-00C0262D30E3}'; CLASS_Type5: TGUID = '{9AF8E34F-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksType6: TGUID = '{9AF8E350-98A0-11D6-95CE-00C0262D30E3}'; CLASS_Type6: TGUID = '{9AF8E352-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksPhantom: TGUID = '{9AF8E353-98A0-11D6-95CE-00C0262D30E3}'; CLASS_phantom: TGUID = '{9AF8E355-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksRequestInfo: TGUID = '{9AF8E356-98A0-11D6-95CE-00C0262D30E3}'; CLASS_RequestInfo: TGUID = '{9AF8E358-98A0-11D6-95CE-00C0262D30E3}'; DIID_ksViewPointerParam: TGUID = '{CD1C0144-98DC-11D6-95CE-00C0262D30E3}'; CLASS_ViewPointerParam: TGUID = '{CD1C0146-98DC-11D6-95CE-00C0262D30E3}'; DIID_ksCutLineParam: TGUID = '{4FD7CE81-9968-11D6-95CE-00C0262D30E3}'; CLASS_CutLineParam: TGUID = '{4FD7CE83-9968-11D6-95CE-00C0262D30E3}'; DIID_ksToleranceBranch: TGUID = '{4FD7CE84-9968-11D6-95CE-00C0262D30E3}'; CLASS_ToleranceBranch: TGUID = '{4FD7CE86-9968-11D6-95CE-00C0262D30E3}'; DIID_ksToleranceParam: TGUID = '{4FD7CE87-9968-11D6-95CE-00C0262D30E3}'; CLASS_ToleranceParam: TGUID = '{4FD7CE89-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcColumnParam: TGUID = '{4FD7CE8A-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcColumnParam: TGUID = '{4FD7CE8C-9968-11D6-95CE-00C0262D30E3}'; DIID_ksRecordTypeAttrParam: TGUID = '{4FD7CE8D-9968-11D6-95CE-00C0262D30E3}'; CLASS_RecordTypeAttrParam: TGUID = '{4FD7CE8F-9968-11D6-95CE-00C0262D30E3}'; DIID_ksNumberTypeAttrParam: TGUID = '{4FD7CE90-9968-11D6-95CE-00C0262D30E3}'; CLASS_NumberTypeAttrParam: TGUID = '{4FD7CE92-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcStyleColumnParam: TGUID = '{4FD7CE93-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcStyleColumnParam: TGUID = '{4FD7CE95-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcStyleSectionParam: TGUID = '{4FD7CE96-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcStyleSectionParam: TGUID = '{4FD7CE98-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcSubSectionParam: TGUID = '{4FD7CE99-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcSubSectionParam: TGUID = '{4FD7CE9B-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcTuningSectionParam: TGUID = '{4FD7CE9C-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcTuningSectionParam: TGUID = '{4FD7CE9E-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcTuningStyleParam: TGUID = '{4FD7CE9F-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcTuningStyleParam: TGUID = '{4FD7CEA1-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcStyleParam: TGUID = '{4FD7CEA2-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcStyleParam: TGUID = '{4FD7CEA4-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcDescrParam: TGUID = '{4FD7CEA5-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcDescrParam: TGUID = '{4FD7CEA7-9968-11D6-95CE-00C0262D30E3}'; DIID_ksDocAttachedSpcParam: TGUID = '{4FD7CEA8-9968-11D6-95CE-00C0262D30E3}'; CLASS_DocAttachedSpcParam: TGUID = '{4FD7CEAA-9968-11D6-95CE-00C0262D30E3}'; DIID_ksSpcObjParam: TGUID = '{4FD7CEAB-9968-11D6-95CE-00C0262D30E3}'; CLASS_SpcObjParam: TGUID = '{4FD7CEAD-9968-11D6-95CE-00C0262D30E3}'; DIID_ksLibStyle: TGUID = '{4FD7CEAE-9968-11D6-95CE-00C0262D30E3}'; CLASS_LibStyle: TGUID = '{4FD7CEB0-9968-11D6-95CE-00C0262D30E3}'; DIID_ksDataBaseObject: TGUID = '{0981CD01-9A49-11D6-8732-00C0262CDD2C}'; CLASS_DataBaseObject: TGUID = '{0981CD03-9A49-11D6-8732-00C0262CDD2C}'; DIID_ksSpcDocumentNotify: TGUID = '{1BD030F4-4058-4A86-9F4F-1AEEF8BE8D23}'; CLASS_SpcDocumentNotify: TGUID = '{DC32EB43-4615-4717-8C67-48875A357B06}'; DIID_ksSpcDocument: TGUID = '{51E74521-9A3A-11D6-95CE-00C0262D30E3}'; CLASS_SpcDocument: TGUID = '{51E74523-9A3A-11D6-95CE-00C0262D30E3}'; DIID_ksSpcObjectNotify: TGUID = '{AC5004D1-C240-41FC-AB84-7EB5C793AE7F}'; CLASS_SpcObjectNotify: TGUID = '{02CBC423-BC8C-40DE-BE65-03A67DF1C834}'; DIID_ksSpecificationNotify: TGUID = '{0331AB4B-F25B-4EB9-9C8A-BFEA414E3822}'; DIID_ksSpecification: TGUID = '{51E74524-9A3A-11D6-95CE-00C0262D30E3}'; CLASS_Specification: TGUID = '{51E74526-9A3A-11D6-95CE-00C0262D30E3}'; DIID_ksDocumentTxt: TGUID = '{74D745F1-9A3A-11D6-95CE-00C0262D30E3}'; CLASS_DocumentTxt: TGUID = '{74D745F3-9A3A-11D6-95CE-00C0262D30E3}'; DIID_ksAttributeTypeParam: TGUID = '{CC26DA61-9B22-11D6-95CE-00C0262D30E3}'; CLASS_AttributeTypeParam: TGUID = '{CC26DA63-9B22-11D6-95CE-00C0262D30E3}'; DIID_ksColumnInfoParam: TGUID = '{CE0D05E1-9B2A-11D6-95CE-00C0262D30E3}'; CLASS_ColumnInfoParam: TGUID = '{CE0D05E3-9B2A-11D6-95CE-00C0262D30E3}'; DIID_ksAttributeParam: TGUID = '{CE0D05E4-9B2A-11D6-95CE-00C0262D30E3}'; CLASS_AttributeParam: TGUID = '{CE0D05E6-9B2A-11D6-95CE-00C0262D30E3}'; DIID_ksVariable: TGUID = '{508A0CC1-9D74-11D6-95CE-00C0262D30E3}'; CLASS_Variable: TGUID = '{508A0CC3-9D74-11D6-95CE-00C0262D30E3}'; DIID_ksLibraryAttrTypeParam: TGUID = '{FA93AA21-9B3D-11D6-95CE-00C0262D30E3}'; CLASS_LibraryAttrTypeParam: TGUID = '{FA93AA23-9B3D-11D6-95CE-00C0262D30E3}'; DIID_ksAttributeObject: TGUID = '{FA93AA24-9B3D-11D6-95CE-00C0262D30E3}'; CLASS_AttributeObject: TGUID = '{FA93AA26-9B3D-11D6-95CE-00C0262D30E3}'; DIID_ksRequestInfo3D: TGUID = '{E9807824-9D55-11D6-95CE-00C0262D30E3}'; CLASS_RequestInfo3D: TGUID = '{E9807826-9D55-11D6-95CE-00C0262D30E3}'; DIID_ksMateConstraint: TGUID = '{508A0CC4-9D74-11D6-95CE-00C0262D30E3}'; CLASS_MateConstraint: TGUID = '{508A0CC6-9D74-11D6-95CE-00C0262D30E3}'; DIID_ksDefaultObject: TGUID = '{508A0CC7-9D74-11D6-95CE-00C0262D30E3}'; CLASS_DefaultObject: TGUID = '{508A0CC9-9D74-11D6-95CE-00C0262D30E3}'; CLASS_entity: TGUID = '{508A0CCC-9D74-11D6-95CE-00C0262D30E3}'; CLASS_part: TGUID = '{508A0CCF-9D74-11D6-95CE-00C0262D30E3}'; CLASS_Document3D: TGUID = '{111CEFE3-A0A7-11D6-95CE-00C0262D30E3}'; DIID_ksModelLibrary: TGUID = '{111CEFE4-A0A7-11D6-95CE-00C0262D30E3}'; CLASS_ModelLibrary: TGUID = '{111CEFE6-A0A7-11D6-95CE-00C0262D30E3}'; CLASS_EntityCollection: TGUID = '{B0170143-C02C-11D6-8734-00C0262CDD2C}'; DIID_ksVariableCollection: TGUID = '{03CEAC81-C0B8-11D6-8734-00C0262CDD2C}'; CLASS_VariableCollection: TGUID = '{03CEAC83-C0B8-11D6-8734-00C0262CDD2C}'; DIID_ksMateConstraintCollection: TGUID = '{03CEAC84-C0B8-11D6-8734-00C0262CDD2C}'; CLASS_MateConstraintCollection: TGUID = '{03CEAC86-C0B8-11D6-8734-00C0262CDD2C}'; DIID_ksPartCollection: TGUID = '{03CEAC87-C0B8-11D6-8734-00C0262CDD2C}'; CLASS_PartCollection: TGUID = '{03CEAC89-C0B8-11D6-8734-00C0262CDD2C}'; DIID_ksMeshPartArrayDefinition: TGUID = '{E6E78D61-C0FA-11D6-8734-00C0262CDD2C}'; CLASS_MeshPartArrayDefinition: TGUID = '{E6E78D63-C0FA-11D6-8734-00C0262CDD2C}'; DIID_ksCircularPartArrayDefinition: TGUID = '{DDD05143-C180-11D6-8734-00C0262CDD2C}'; CLASS_CircularPartArrayDefinition: TGUID = '{DDD05145-C180-11D6-8734-00C0262CDD2C}'; DIID_ksCurvePartArrayDefinition: TGUID = '{DDD05146-C180-11D6-8734-00C0262CDD2C}'; CLASS_CurvePartArrayDefinition: TGUID = '{DDD05148-C180-11D6-8734-00C0262CDD2C}'; DIID_ksDerivativePartArrayDefinition: TGUID = '{DDD05149-C180-11D6-8734-00C0262CDD2C}'; CLASS_DerivativePartArrayDefinition: TGUID = '{DDD0514B-C180-11D6-8734-00C0262CDD2C}'; DIID_ksAxis2PlanesDefinition: TGUID = '{0307BB81-C193-11D6-8734-00C0262CDD2C}'; CLASS_Axis2PlanesDefinition: TGUID = '{0307BB83-C193-11D6-8734-00C0262CDD2C}'; DIID_ksAxisOperationsDefinition: TGUID = '{0307BB84-C193-11D6-8734-00C0262CDD2C}'; CLASS_AxisOperationsDefinition: TGUID = '{0307BB86-C193-11D6-8734-00C0262CDD2C}'; DIID_ksAxis2PointsDefinition: TGUID = '{0307BB87-C193-11D6-8734-00C0262CDD2C}'; CLASS_Axis2PointsDefinition: TGUID = '{0307BB89-C193-11D6-8734-00C0262CDD2C}'; DIID_ksAxisEdgeDefinition: TGUID = '{0307BB8A-C193-11D6-8734-00C0262CDD2C}'; CLASS_AxisEdgeDefinition: TGUID = '{0307BB8C-C193-11D6-8734-00C0262CDD2C}'; DIID_ksMeshCopyDefinition: TGUID = '{0307BB8D-C193-11D6-8734-00C0262CDD2C}'; CLASS_MeshCopyDefinition: TGUID = '{0307BB8F-C193-11D6-8734-00C0262CDD2C}'; DIID_ksCircularCopyDefinition: TGUID = '{0307BB90-C193-11D6-8734-00C0262CDD2C}'; CLASS_CircularCopyDefinition: TGUID = '{0307BB92-C193-11D6-8734-00C0262CDD2C}'; DIID_ksCurveCopyDefinition: TGUID = '{0307BB93-C193-11D6-8734-00C0262CDD2C}'; CLASS_CurveCopyDefinition: TGUID = '{0307BB95-C193-11D6-8734-00C0262CDD2C}'; DIID_ksMirrorCopyDefinition: TGUID = '{0307BB96-C193-11D6-8734-00C0262CDD2C}'; CLASS_MirrorCopyDefinition: TGUID = '{0307BB98-C193-11D6-8734-00C0262CDD2C}'; DIID_ksMirrorCopyAllDefinition: TGUID = '{0307BB99-C193-11D6-8734-00C0262CDD2C}'; CLASS_MirrorCopyAllDefinition: TGUID = '{0307BB9B-C193-11D6-8734-00C0262CDD2C}'; DIID_ksConicSpiralDefinition: TGUID = '{0307BB9C-C193-11D6-8734-00C0262CDD2C}'; CLASS_ConicSpiralDefinition: TGUID = '{0307BB9E-C193-11D6-8734-00C0262CDD2C}'; DIID_ksCylindricSpiralDefinition: TGUID = '{0307BB9F-C193-11D6-8734-00C0262CDD2C}'; CLASS_CylindricSpiralDefinition: TGUID = '{0307BBA1-C193-11D6-8734-00C0262CDD2C}'; DIID_ksPolyLineDefinition: TGUID = '{0307BBA2-C193-11D6-8734-00C0262CDD2C}'; CLASS_PolyLineDefinition: TGUID = '{0307BBA4-C193-11D6-8734-00C0262CDD2C}'; DIID_ksSplineDefinition: TGUID = '{0307BBA5-C193-11D6-8734-00C0262CDD2C}'; CLASS_SplineDefinition: TGUID = '{0307BBA7-C193-11D6-8734-00C0262CDD2C}'; DIID_ksFaceDefinition: TGUID = '{0307BBA8-C193-11D6-8734-00C0262CDD2C}'; CLASS_faceDefinition: TGUID = '{0307BBAA-C193-11D6-8734-00C0262CDD2C}'; DIID_ksEdgeDefinition: TGUID = '{0307BBAB-C193-11D6-8734-00C0262CDD2C}'; CLASS_EdgeDefinition: TGUID = '{0307BBAD-C193-11D6-8734-00C0262CDD2C}'; DIID_ksChamferDefinition: TGUID = '{0307BBAE-C193-11D6-8734-00C0262CDD2C}'; CLASS_ChamferDefinition: TGUID = '{0307BBB0-C193-11D6-8734-00C0262CDD2C}'; DIID_ksFilletDefinition: TGUID = '{0307BBB1-C193-11D6-8734-00C0262CDD2C}'; CLASS_FilletDefinition: TGUID = '{0307BBB3-C193-11D6-8734-00C0262CDD2C}'; DIID_ksBaseExtrusionDefinition: TGUID = '{DEEFEFE1-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_BaseExtrusionDefinition: TGUID = '{DEEFEFE3-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksBossExtrusionDefinition: TGUID = '{DEEFEFE4-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_BossExtrusionDefinition: TGUID = '{DEEFEFE6-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksCutExtrusionDefinition: TGUID = '{DEEFEFE7-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_CutExtrusionDefinition: TGUID = '{DEEFEFE9-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksBaseLoftDefinition: TGUID = '{DEEFEFEA-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_BaseLoftDefinition: TGUID = '{DEEFEFEC-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksBossLoftDefinition: TGUID = '{DEEFEFED-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_BossLoftDefinition: TGUID = '{DEEFEFEF-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksCutLoftDefinition: TGUID = '{DEEFEFF0-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_CutLoftDefinition: TGUID = '{DEEFEFF2-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksInclineDefinition: TGUID = '{DEEFEFF3-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_InclineDefinition: TGUID = '{DEEFEFF5-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksShellDefinition: TGUID = '{DEEFEFF6-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_ShellDefinition: TGUID = '{DEEFEFF8-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksBaseEvolutionDefinition: TGUID = '{DEEFEFF9-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_BaseEvolutionDefinition: TGUID = '{DEEFEFFB-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksBossEvolutionDefinition: TGUID = '{DEEFEFFC-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_BossEvolutionDefinition: TGUID = '{DEEFEFFE-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksCutEvolutionDefinition: TGUID = '{DEEFEFFF-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_CutEvolutionDefinition: TGUID = '{DEEFF001-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksRibDefinition: TGUID = '{DEEFF002-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_RibDefinition: TGUID = '{DEEFF004-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksCutByPlaneDefinition: TGUID = '{DEEFF005-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_CutByPlaneDefinition: TGUID = '{DEEFF007-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksCutBySketchDefinition: TGUID = '{DEEFF008-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_CutBySketchDefinition: TGUID = '{DEEFF00A-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneOffsetDefinition: TGUID = '{DEEFF00B-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneOffsetDefinition: TGUID = '{DEEFF00D-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneAngleDefinition: TGUID = '{DEEFF00E-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneAngleDefinition: TGUID = '{DEEFF010-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlane3PointsDefinition: TGUID = '{DEEFF011-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_Plane3PointsDefinition: TGUID = '{DEEFF013-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneNormalToSurfaceDefinition: TGUID = '{DEEFF014-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneNormalToSurfaceDefinition: TGUID = '{DEEFF016-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneTangentToSurfaceDefinition: TGUID = '{DEEFF017-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneTangentToSurfaceDefinition: TGUID = '{DEEFF019-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneEdgePointDefinition: TGUID = '{DEEFF01A-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneEdgePointDefinition: TGUID = '{DEEFF01C-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneParallelDefinition: TGUID = '{DEEFF01D-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneParallelDefinition: TGUID = '{DEEFF01F-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlanePerpendicularDefinition: TGUID = '{DEEFF020-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlanePerpendicularDefinition: TGUID = '{DEEFF022-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneLineToEdgeDefinition: TGUID = '{DEEFF023-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneLineToEdgeDefinition: TGUID = '{DEEFF025-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksPlaneLineToPlaneDefinition: TGUID = '{DEEFF026-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_PlaneLineToPlaneDefinition: TGUID = '{DEEFF028-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksThinParam: TGUID = '{DEEFF029-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_ThinParam: TGUID = '{DEEFF02B-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksExtrusionParam: TGUID = '{DEEFF02C-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_ExtrusionParam: TGUID = '{DEEFF02E-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksRotatedParam: TGUID = '{DEEFF02F-C3E2-11D6-8734-00C0262CDD2C}'; CLASS_RotatedParam: TGUID = '{DEEFF031-C3E2-11D6-8734-00C0262CDD2C}'; DIID_ksColorParam: TGUID = '{2DFACC61-C4A4-11D6-8734-00C0262CDD2C}'; CLASS_ColorParam: TGUID = '{2DFACC63-C4A4-11D6-8734-00C0262CDD2C}'; DIID_ksBaseRotatedDefinition: TGUID = '{2DFACC67-C4A4-11D6-8734-00C0262CDD2C}'; CLASS_BaseRotatedDefinition: TGUID = '{2DFACC69-C4A4-11D6-8734-00C0262CDD2C}'; DIID_ksBossRotatedDefinition: TGUID = '{2DFACC6A-C4A4-11D6-8734-00C0262CDD2C}'; CLASS_BossRotatedDefinition: TGUID = '{2DFACC6C-C4A4-11D6-8734-00C0262CDD2C}'; DIID_ksCutRotatedDefinition: TGUID = '{2DFACC6D-C4A4-11D6-8734-00C0262CDD2C}'; CLASS_CutRotatedDefinition: TGUID = '{2DFACC6F-C4A4-11D6-8734-00C0262CDD2C}'; DIID_ksSketchDefinition: TGUID = '{2DFACC70-C4A4-11D6-8734-00C0262CDD2C}'; CLASS_SketchDefinition: TGUID = '{2DFACC72-C4A4-11D6-8734-00C0262CDD2C}'; DIID_ksRasterFormatParam: TGUID = '{1A91A8AB-AF8C-4EE3-86D4-0A9C00123195}'; CLASS_RasterFormatParam: TGUID = '{CD6054FC-D754-4139-8CD9-381F7488A6C7}'; DIID_ksAdditionFormatParam: TGUID = '{0FD25FF9-AB0A-48F3-BAD4-F193116C0887}'; CLASS_AdditionFormatParam: TGUID = '{13DF9CCA-122C-4CEC-87FA-CF16818E013A}'; DIID_ksConstraintParam: TGUID = '{862E250D-9DB1-47E8-8EE2-9BE2D2453D5A}'; CLASS_ConstraintParam: TGUID = '{77C095F7-3ABC-4292-B9E1-C112620AFC56}'; DIID_ksImportedSurfaceDefinition: TGUID = '{78A2C35E-A7DA-414E-B90A-F19998EC7BD1}'; CLASS_ImportedSurfaceDefinition: TGUID = '{102FA83C-E0D6-4DB5-937A-FC149526899A}'; DIID_ksFaceCollection: TGUID = '{0E95ACE0-0E73-406F-AE94-E8A0592E298D}'; CLASS_FaceCollection: TGUID = '{CB7B9677-9F62-473E-9663-AD516B5F37B5}'; DIID_ksVertexDefinition: TGUID = '{A7257E73-EB61-4602-BC8B-2D00EA4AA062}'; CLASS_VertexDefinition: TGUID = '{5CE6E053-3EC8-427B-BCB5-82B01D4BCBF3}'; CLASS_Feature: TGUID = '{1978BA1C-EE2F-48ED-86D7-B15065B36E4A}'; DIID_ksTessellation: TGUID = '{B810650E-7819-485C-90D2-ADEB647AE5E2}'; CLASS_Tessellation: TGUID = '{923A48A1-C159-4959-B13E-E8C558534C89}'; DIID_ksFacet: TGUID = '{EB6AFBC0-C387-4E07-B24E-DDF2B7926A26}'; CLASS_facet: TGUID = '{F7F45063-0B37-40B1-B3AD-BB0A545EC2C8}'; DIID_ksMeasurer: TGUID = '{ABC84FE5-3945-4A0B-820A-719BF4B79224}'; CLASS_Measurer: TGUID = '{E07C6920-E361-4A4D-9140-95969C26A9ED}'; DIID_ksBodyCollection: TGUID = '{CFC49C01-7653-4845-93FD-13428F5D58EC}'; CLASS_BodyCollection: TGUID = '{EEEAB203-43D8-4F04-A7CE-010D9BA419C2}'; DIID_ksBody: TGUID = '{03EFC9DD-E05A-4277-BC7C-4FD499A252DE}'; CLASS_Body: TGUID = '{A99FFD41-AA46-4BFC-B6F2-32E1A956E0B1}'; DIID_ksSurface: TGUID = '{963CB6E1-B9BF-4234-964A-13BFE6C0282A}'; CLASS_Surface: TGUID = '{B1C40242-CD49-4207-B728-B67057BEC339}'; DIID_ksEdgeCollection: TGUID = '{6096A4FD-970B-468C-815E-37CA1970A203}'; CLASS_EdgeCollection: TGUID = '{7519BF63-27B3-415F-AC25-904910CB27B5}'; DIID_ksOrientedEdge: TGUID = '{88C32A80-3735-4E18-A02E-9B2A8F0A90E3}'; CLASS_OrientedEdge: TGUID = '{C66FB80F-97BE-4437-A8A0-AEDCFCBCF982}'; DIID_ksOrientedEdgeCollection: TGUID = '{5CE8909D-CF3D-418F-A9B9-0A12B23916C0}'; CLASS_OrientedEdgeCollection: TGUID = '{6EF08DCB-A1D4-43A2-ACAF-AF32FDE5F338}'; DIID_ksLoop: TGUID = '{22BC5C86-CF58-45E4-AA46-5E8D5A825798}'; CLASS_Loop: TGUID = '{38386E28-C404-431E-9F30-5BE44B0F283F}'; DIID_ksLoopCollection: TGUID = '{1BD7207E-36AA-47DF-913E-AD26DE6C16E8}'; CLASS_LoopCollection: TGUID = '{3EA3B143-96A5-408A-897E-27D852E6EE9B}'; DIID_ksCurve3D: TGUID = '{7572648A-D4EE-41FE-8D74-EC7D1F91BDE2}'; CLASS_Curve3D: TGUID = '{54152184-0B08-4DFB-8249-4579A7368BF4}'; DIID_ksLineSeg3dParam: TGUID = '{DC8F6A7B-FF16-46FF-986D-2F7E1F6B25C4}'; CLASS_LineSeg3dParam: TGUID = '{4D295A34-4F20-4231-8806-78E40213FA72}'; DIID_ksCircle3dParam: TGUID = '{82758442-C9EB-48F7-B304-083C5E64D4E0}'; CLASS_Circle3dParam: TGUID = '{4E96B6C2-BF75-4B32-A4E7-7267F60A2593}'; DIID_ksEllipse3dParam: TGUID = '{5B8082B8-6AD3-4509-826D-D23B7F613213}'; CLASS_Ellipse3dParam: TGUID = '{33583282-14FB-4975-B040-9267A639E340}'; DIID_ksPlaneParam: TGUID = '{6A6F6B95-D100-4D54-A430-70A42D342917}'; CLASS_PlaneParam: TGUID = '{94A91D78-30AE-4B04-AEE2-B098D3270602}'; DIID_ksConeParam: TGUID = '{CCFA0D95-0834-4F92-988B-6E477AD67589}'; CLASS_ConeParam: TGUID = '{3940C963-446D-4701-883C-A93BBDAC5469}'; DIID_ksCylinderParam: TGUID = '{5D462836-CF69-4995-AB78-8C7A83D09BD7}'; CLASS_CylinderParam: TGUID = '{379D658E-47BB-414F-A952-FB41037F17AC}'; DIID_ksSphereParam: TGUID = '{C32977F3-3CA7-4D56-8AE7-4963E6851B75}'; CLASS_SphereParam: TGUID = '{C82A3D03-4BEE-467F-9240-C1C58FDB144E}'; DIID_ksTorusParam: TGUID = '{FDA3B147-BAF1-4F75-99AA-39D11323EA97}'; CLASS_TorusParam: TGUID = '{B7833CCA-936D-4689-BD90-90B5209D94E8}'; DIID_ksNurbsPoint3dParam: TGUID = '{F1CD604D-1D26-4F6B-8F94-F112133E6162}'; CLASS_NurbsPoint3dParam: TGUID = '{4F3C6D95-FBDC-4C53-AE82-9AF9C05093FF}'; DIID_ksNurbsSurfaceParam: TGUID = '{A12B63E8-9E0A-4854-B724-E18275B9FF20}'; CLASS_NurbsSurfaceParam: TGUID = '{BA13BE42-059B-4EEB-9C39-673732763EE3}'; DIID_ksNurbs3dParam: TGUID = '{4DDDAEDB-2819-42D9-BDBB-4CCBC98D76DF}'; CLASS_Nurbs3dParam: TGUID = '{F829344F-B49F-43A3-AC93-E817EF8D3319}'; DIID_ksNurbsKnotCollection: TGUID = '{483E9889-E1CA-4CA5-BE4E-ECB3D5CF0126}'; CLASS_NurbsKnotCollection: TGUID = '{81317653-9BBA-46FE-9877-AEEE62BD8AA4}'; DIID_ksNurbsPoint3dCollCollection: TGUID = '{84AF9C81-1795-4631-B58A-101732262E75}'; CLASS_NurbsPoint3dCollCollection: TGUID = '{A2BD36E2-C99B-40FE-A6A7-E5A9CCDCF63D}'; DIID_ksNurbsPoint3dCollection: TGUID = '{3AD5E519-74E2-4D3B-B6A3-B1E81F1006F1}'; CLASS_NurbsPoint3dCollection: TGUID = '{25AE92BA-055F-431E-AC3E-EA2E793D446C}'; DIID_ksViewProjection: TGUID = '{BF65B990-C2DC-4A12-9EB7-3E868608AF47}'; CLASS_ViewProjection: TGUID = '{0CA54EDF-BC8C-4A6A-94CF-EDBA74A6FA00}'; DIID_ksViewProjectionCollection: TGUID = '{A174F872-C800-409E-9FB2-FF5B89D8B4B8}'; CLASS_ViewProjectionCollection: TGUID = '{9A3E39C6-B6AB-42CF-9FBD-AC05F0B4B161}'; DIID_ksSelectionMng: TGUID = '{BE41850C-CFC5-40D4-AE49-37AA391BCF4B}'; CLASS_SelectionMng: TGUID = '{39EE8E9D-C228-4F61-9F66-DD58F20CD224}'; DIID_ksChooseMng: TGUID = '{8F2AA755-D9D1-42A0-97BF-C92548CE7232}'; CLASS_ChooseMng: TGUID = '{2280DF87-5688-4082-8FAE-6E4C84249352}'; DIID_ksArc3dParam: TGUID = '{7DCBCC76-5041-4C1E-9B33-12B1352D6D57}'; CLASS_Arc3dParam: TGUID = '{4CA2655E-EC4E-433C-9706-8E3864D5DBD2}'; DIID_ksTreeNodeParam: TGUID = '{9F8DE1DC-1268-4785-9217-1B0DD59B85FA}'; CLASS_TreeNodeParam: TGUID = '{05A4578F-A41F-48F2-92F9-A0F0856BCBC0}'; DIID_ksAssociationViewParam: TGUID = '{C81EB1DA-BCB0-491A-8D22-923BF817D572}'; CLASS_AssociationViewParam: TGUID = '{7A86E2BA-6DE3-4DB3-AEB6-9738DAA69CFC}'; DIID_ksViewColorParam: TGUID = '{5A42B962-8F78-4557-B17A-1B871F8DBDB5}'; CLASS_ViewColorParam: TGUID = '{34AFC10F-4FBB-40F0-8A23-74B1250F42EF}'; DIID_ksAxisLineParam: TGUID = '{AFE694D7-C1E5-468F-99B0-FE4C60C49899}'; CLASS_AxisLineParam: TGUID = '{705962E9-5E9B-4379-8504-FA754D11FC66}'; DIID_ksTextDocumentParam: TGUID = '{33706D56-D085-4840-833B-435AEB00BE2A}'; CLASS_TextDocumentParam: TGUID = '{02286DB8-98D4-4D0B-97D7-E2EED32EEBD6}'; DIID_ksRemoteElementParam: TGUID = '{25076616-4949-455E-A45C-1B801884D825}'; CLASS_RemoteElementParam: TGUID = '{F37A40F6-4E15-4E01-B4F0-25C49175227A}'; DIID_ksDeletedCopyCollection: TGUID = '{82F60797-D69C-4EB4-9F1A-24D625D5EAFA}'; CLASS_DeletedCopyCollection: TGUID = '{9807E658-53C5-4445-A389-3F800FB3BB8A}'; DIID_ksCopyObjectParam: TGUID = '{AACAD820-7790-46EB-B17F-06AE42215ED7}'; CLASS_CopyObjectParam: TGUID = '{8867DEAC-C699-41B6-BD3D-C470A52B1B9C}'; DIID_ksThreadDefinition: TGUID = '{5DDB6B14-6F3D-431F-B62F-C5FCCAFC3632}'; CLASS_ThreadDefinition: TGUID = '{2A8AE692-45A3-4C22-88B5-76B4830F2235}'; DIID_ksOverlapObjectOptions: TGUID = '{F78E6B71-BEF3-4A4D-AE50-FE96426F6FD1}'; CLASS_OverlapObjectOptions: TGUID = '{E41D019C-2D40-452D-8F7B-3FB5FE2D3E8E}'; CLASS_Attribute3D: TGUID = '{620BFE17-2F66-4102-A8EA-4DD33C081061}'; CLASS_Attribute3DCollection: TGUID = '{17CAB61A-770A-4FCE-8FC5-F291CDADF80A}'; CLASS_ComponentPositioner: TGUID = '{7DAB018D-9EF9-4D0F-84BB-54B3DC0558D3}'; DIID_ksObjectFilter3D: TGUID = '{ABBA6CE0-CB4C-4A32-98B4-B639352C75BA}'; CLASS_ObjectFilter3D: TGUID = '{50E1BEFB-46C6-4A2C-B033-B9A96C5910F2}'; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// KompasObject = dispinterface; ksDocument2D = dispinterface; ksObject2DNotify = dispinterface; ksSelectionMngNotify = dispinterface; ksObject2DNotifyResult = dispinterface; ksDocument2DNotify = dispinterface; ksDocument3D = dispinterface; ksDocument3DNotify = dispinterface; ksEntity = dispinterface; ksAttribute3DCollection = dispinterface; ksAttribute3D = dispinterface; ksFeatureCollection = dispinterface; ksFeature = dispinterface; ksEntityCollection = dispinterface; ksComponentPositioner = dispinterface; ksPlacement = dispinterface; ksPart = dispinterface; ksObject3DNotify = dispinterface; ksObject3DNotifyResult = dispinterface; ksKompasObjectNotify = dispinterface; ksDocumentFileNotify = dispinterface; ksSpecRoughParam = dispinterface; ksEllipseParam = dispinterface; ksEllipseArcParam = dispinterface; ksEllipseArcParam1 = dispinterface; ksEquidistantParam = dispinterface; ksParagraphParam = dispinterface; ksTextItemParam = dispinterface; ksTextLineParam = dispinterface; ksTextItemFont = dispinterface; ksCornerParam = dispinterface; ksContourParam = dispinterface; ksLayerParam = dispinterface; ksLineParam = dispinterface; ksRegularPolygonParam = dispinterface; ksRectangleParam = dispinterface; ksBaseParam = dispinterface; ksLtVariant = dispinterface; ksUserParam = dispinterface; ksMathPointParam = dispinterface; ksCurvePicture = dispinterface; ksCurvePattern = dispinterface; ksTAN = dispinterface; ksCON = dispinterface; ksInertiaParam = dispinterface; ksMassInertiaParam = dispinterface; ksMathematic2D = dispinterface; ksDynamicArray = dispinterface; ksRDimDrawingParam = dispinterface; ksRDimSourceParam = dispinterface; ksRDimParam = dispinterface; ksLineSegParam = dispinterface; ksCircleParam = dispinterface; ksArcByAngleParam = dispinterface; ksArcByPointParam = dispinterface; ksPointParam = dispinterface; ksHatchParam = dispinterface; ksTextParam = dispinterface; ksNurbsPointParam = dispinterface; ksDoubleValue = dispinterface; ksNurbsParam = dispinterface; ksConicArcParam = dispinterface; ksCentreParam = dispinterface; ksPlacementParam = dispinterface; ksRasterParam = dispinterface; ksPolylineParam = dispinterface; ksInsertFragmentParam = dispinterface; ksViewParam = dispinterface; ksLBreakDimSource = dispinterface; ksBreakDimDrawing = dispinterface; ksLBreakDimParam = dispinterface; ksABreakDimParam = dispinterface; ksInsertFragmentParamEx = dispinterface; ksBezierParam = dispinterface; ksBezierPointParam = dispinterface; ksDimTextParam = dispinterface; ksLDimSourceParam = dispinterface; ksDimDrawingParam = dispinterface; ksLDimParam = dispinterface; ksADimSourceParam = dispinterface; ksDimensionPartsParam = dispinterface; ksADimParam = dispinterface; ksRBreakDrawingParam = dispinterface; ksRBreakDimParam = dispinterface; ksQualityItemParam = dispinterface; ksQualityContensParam = dispinterface; ksIterator = dispinterface; ksFragment = dispinterface; ksFragmentLibrary = dispinterface; ksTechnicalDemandParam = dispinterface; ksOrdinatedSourceParam = dispinterface; ksOrdinatedDimParam = dispinterface; ksOrdinatedDrawingParam = dispinterface; ksSheetSize = dispinterface; ksStandartSheet = dispinterface; ksSheetPar = dispinterface; ksDocumentParam = dispinterface; ksDimensionsOptions = dispinterface; ksSnapOptions = dispinterface; ksLibraryStyleParam = dispinterface; ksStampNotify = dispinterface; ksStamp = dispinterface; ksSheetOptions = dispinterface; ksCurvePatternEx = dispinterface; ksCurveStyleParam = dispinterface; ksTextStyleParam = dispinterface; ksHatchLineParam = dispinterface; ksHatchStyleParam = dispinterface; ksRectParam = dispinterface; ksShelfPar = dispinterface; ksRoughPar = dispinterface; ksRoughParam = dispinterface; ksChar255 = dispinterface; ksLeaderParam = dispinterface; ksPosLeaderParam = dispinterface; ksBrandLeaderParam = dispinterface; ksMarkerLeaderParam = dispinterface; ksType1 = dispinterface; ksType2 = dispinterface; ksType3 = dispinterface; ksType5 = dispinterface; ksType6 = dispinterface; ksPhantom = dispinterface; ksRequestInfo = dispinterface; ksViewPointerParam = dispinterface; ksCutLineParam = dispinterface; ksToleranceBranch = dispinterface; ksToleranceParam = dispinterface; ksSpcColumnParam = dispinterface; ksRecordTypeAttrParam = dispinterface; ksNumberTypeAttrParam = dispinterface; ksSpcStyleColumnParam = dispinterface; ksSpcStyleSectionParam = dispinterface; ksSpcSubSectionParam = dispinterface; ksSpcTuningSectionParam = dispinterface; ksSpcTuningStyleParam = dispinterface; ksSpcStyleParam = dispinterface; ksSpcDescrParam = dispinterface; ksDocAttachedSpcParam = dispinterface; ksSpcObjParam = dispinterface; ksLibStyle = dispinterface; ksDataBaseObject = dispinterface; ksSpcDocumentNotify = dispinterface; ksSpcDocument = dispinterface; ksSpcObjectNotify = dispinterface; ksSpecificationNotify = dispinterface; ksSpecification = dispinterface; ksDocumentTxt = dispinterface; ksAttributeTypeParam = dispinterface; ksColumnInfoParam = dispinterface; ksAttributeParam = dispinterface; ksVariable = dispinterface; ksLibraryAttrTypeParam = dispinterface; ksAttributeObject = dispinterface; ksRequestInfo3D = dispinterface; ksMateConstraint = dispinterface; ksDefaultObject = dispinterface; ksModelLibrary = dispinterface; ksVariableCollection = dispinterface; ksMateConstraintCollection = dispinterface; ksPartCollection = dispinterface; ksMeshPartArrayDefinition = dispinterface; ksCircularPartArrayDefinition = dispinterface; ksCurvePartArrayDefinition = dispinterface; ksDerivativePartArrayDefinition = dispinterface; ksAxis2PlanesDefinition = dispinterface; ksAxisOperationsDefinition = dispinterface; ksAxis2PointsDefinition = dispinterface; ksAxisEdgeDefinition = dispinterface; ksMeshCopyDefinition = dispinterface; ksCircularCopyDefinition = dispinterface; ksCurveCopyDefinition = dispinterface; ksMirrorCopyDefinition = dispinterface; ksMirrorCopyAllDefinition = dispinterface; ksConicSpiralDefinition = dispinterface; ksCylindricSpiralDefinition = dispinterface; ksPolyLineDefinition = dispinterface; ksSplineDefinition = dispinterface; ksFaceDefinition = dispinterface; ksEdgeDefinition = dispinterface; ksChamferDefinition = dispinterface; ksFilletDefinition = dispinterface; ksBaseExtrusionDefinition = dispinterface; ksBossExtrusionDefinition = dispinterface; ksCutExtrusionDefinition = dispinterface; ksBaseLoftDefinition = dispinterface; ksBossLoftDefinition = dispinterface; ksCutLoftDefinition = dispinterface; ksInclineDefinition = dispinterface; ksShellDefinition = dispinterface; ksBaseEvolutionDefinition = dispinterface; ksBossEvolutionDefinition = dispinterface; ksCutEvolutionDefinition = dispinterface; ksRibDefinition = dispinterface; ksCutByPlaneDefinition = dispinterface; ksCutBySketchDefinition = dispinterface; ksPlaneOffsetDefinition = dispinterface; ksPlaneAngleDefinition = dispinterface; ksPlane3PointsDefinition = dispinterface; ksPlaneNormalToSurfaceDefinition = dispinterface; ksPlaneTangentToSurfaceDefinition = dispinterface; ksPlaneEdgePointDefinition = dispinterface; ksPlaneParallelDefinition = dispinterface; ksPlanePerpendicularDefinition = dispinterface; ksPlaneLineToEdgeDefinition = dispinterface; ksPlaneLineToPlaneDefinition = dispinterface; ksThinParam = dispinterface; ksExtrusionParam = dispinterface; ksRotatedParam = dispinterface; ksColorParam = dispinterface; ksBaseRotatedDefinition = dispinterface; ksBossRotatedDefinition = dispinterface; ksCutRotatedDefinition = dispinterface; ksSketchDefinition = dispinterface; ksRasterFormatParam = dispinterface; ksAdditionFormatParam = dispinterface; ksConstraintParam = dispinterface; ksImportedSurfaceDefinition = dispinterface; ksFaceCollection = dispinterface; ksVertexDefinition = dispinterface; ksTessellation = dispinterface; ksFacet = dispinterface; ksMeasurer = dispinterface; ksBodyCollection = dispinterface; ksBody = dispinterface; ksSurface = dispinterface; ksEdgeCollection = dispinterface; ksOrientedEdge = dispinterface; ksOrientedEdgeCollection = dispinterface; ksLoop = dispinterface; ksLoopCollection = dispinterface; ksCurve3D = dispinterface; ksLineSeg3dParam = dispinterface; ksCircle3dParam = dispinterface; ksEllipse3dParam = dispinterface; ksPlaneParam = dispinterface; ksConeParam = dispinterface; ksCylinderParam = dispinterface; ksSphereParam = dispinterface; ksTorusParam = dispinterface; ksNurbsPoint3dParam = dispinterface; ksNurbsSurfaceParam = dispinterface; ksNurbs3dParam = dispinterface; ksNurbsKnotCollection = dispinterface; ksNurbsPoint3dCollCollection = dispinterface; ksNurbsPoint3dCollection = dispinterface; ksViewProjection = dispinterface; ksViewProjectionCollection = dispinterface; ksSelectionMng = dispinterface; ksChooseMng = dispinterface; ksArc3dParam = dispinterface; ksTreeNodeParam = dispinterface; ksAssociationViewParam = dispinterface; ksViewColorParam = dispinterface; ksAxisLineParam = dispinterface; ksTextDocumentParam = dispinterface; ksRemoteElementParam = dispinterface; ksDeletedCopyCollection = dispinterface; ksCopyObjectParam = dispinterface; ksThreadDefinition = dispinterface; ksOverlapObjectOptions = dispinterface; ksObjectFilter3D = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// Object2DNotify = IUnknown; SelectionMngNotify = IUnknown; Document2DNotify = IUnknown; Document3DNotify = IUnknown; Object3DNotify = IUnknown; App = KompasObject; Object2DNotifyResult = ksObject2DNotifyResult; FeatureCollection = ksFeatureCollection; placement = ksPlacement; Object3DNotifyResult = ksObject3DNotifyResult; Document2D = ksDocument2D; SpecRoughParam = ksSpecRoughParam; EllipseParam = ksEllipseParam; EllipseArcParam = ksEllipseArcParam; EllipseArcParam1 = ksEllipseArcParam1; EquidistantParam = ksEquidistantParam; ParagraphParam = ksParagraphParam; TextItemParam = ksTextItemParam; TextLineParam = ksTextLineParam; TextItemFont = ksTextItemFont; CornerParam = ksCornerParam; ContourParam = ksContourParam; LayerParam = ksLayerParam; LineParam = ksLineParam; RegularPolygonParam = ksRegularPolygonParam; RectangleParam = ksRectangleParam; BaseParam = ksBaseParam; LtVariant = ksLtVariant; UserParam = ksUserParam; MathPointParam = ksMathPointParam; CurvePicture = ksCurvePicture; CurvePattern = ksCurvePattern; TAN = ksTAN; CON = ksCON; InertiaParam = ksInertiaParam; MassInertiaParam = ksMassInertiaParam; Mathematic2D = ksMathematic2D; DynamicArray = ksDynamicArray; RDimDrawingParam = ksRDimDrawingParam; RDimSourceParam = ksRDimSourceParam; RDimParam = ksRDimParam; LineSegParam = ksLineSegParam; CircleParam = ksCircleParam; ArcByAngleParam = ksArcByAngleParam; ArcByPointParam = ksArcByPointParam; PointParam = ksPointParam; HatchParam = ksHatchParam; TextParam = ksTextParam; NurbsPointParam = ksNurbsPointParam; DoubleValue = ksDoubleValue; NurbsParam = ksNurbsParam; ConicArcParam = ksConicArcParam; CentreParam = ksCentreParam; PlacementParam = ksPlacementParam; RasterParam = ksRasterParam; PolylineParam = ksPolylineParam; InsertFragmentParam = ksInsertFragmentParam; ViewParam = ksViewParam; LBreakDimSource = ksLBreakDimSource; BreakDimDrawing = ksBreakDimDrawing; LBreakDimParam = ksLBreakDimParam; ABreakDimParam = ksABreakDimParam; InsertFragmentParamEx = ksInsertFragmentParamEx; BezierParam = ksBezierParam; BezierPointParam = ksBezierPointParam; DimTextParam = ksDimTextParam; LDimSourceParam = ksLDimSourceParam; DimDrawingParam = ksDimDrawingParam; LDimParam = ksLDimParam; ADimSourceParam = ksADimSourceParam; DimensionPartsParam = ksDimensionPartsParam; ADimParam = ksADimParam; RBreakDrawingParam = ksRBreakDrawingParam; RBreakDimParam = ksRBreakDimParam; QualityItemParam = ksQualityItemParam; QualityContensParam = ksQualityContensParam; Iterator = ksIterator; Fragment = ksFragment; FragmentLib = ksFragmentLibrary; TechnicalDemandParam = ksTechnicalDemandParam; OrdinatedSourceParam = ksOrdinatedSourceParam; OrdinatedDimParam = ksOrdinatedDimParam; OrdinatedDrawingParam = ksOrdinatedDrawingParam; SheetSize = ksSheetSize; StandartSheet = ksStandartSheet; SheetPar = ksSheetPar; DocumentParam = ksDocumentParam; DimensionsOptions = ksDimensionsOptions; SnapOptions = ksSnapOptions; LibraryStyleParam = ksLibraryStyleParam; Stamp = ksStamp; SheetOptions = ksSheetOptions; CurvePatternEx = ksCurvePatternEx; CurveStyleParam = ksCurveStyleParam; TextStyleParam = ksTextStyleParam; HatchLineParam = ksHatchLineParam; HatchStyleParam = ksHatchStyleParam; RectParam = ksRectParam; ShelfPar = ksShelfPar; roughPar = ksRoughPar; RoughParam = ksRoughParam; Char255 = ksChar255; LeaderParam = ksLeaderParam; posLeaderParam = ksPosLeaderParam; brandLeaderParam = ksBrandLeaderParam; markerLeaderParam = ksMarkerLeaderParam; Type1 = ksType1; Type2 = ksType2; Type3 = ksType3; Type5 = ksType5; Type6 = ksType6; phantom = ksPhantom; RequestInfo = ksRequestInfo; ViewPointerParam = ksViewPointerParam; CutLineParam = ksCutLineParam; ToleranceBranch = ksToleranceBranch; ToleranceParam = ksToleranceParam; SpcColumnParam = ksSpcColumnParam; RecordTypeAttrParam = ksRecordTypeAttrParam; NumberTypeAttrParam = ksNumberTypeAttrParam; SpcStyleColumnParam = ksSpcStyleColumnParam; SpcStyleSectionParam = ksSpcStyleSectionParam; SpcSubSectionParam = ksSpcSubSectionParam; SpcTuningSectionParam = ksSpcTuningSectionParam; SpcTuningStyleParam = ksSpcTuningStyleParam; SpcStyleParam = ksSpcStyleParam; SpcDescrParam = ksSpcDescrParam; DocAttachedSpcParam = ksDocAttachedSpcParam; SpcObjParam = ksSpcObjParam; LibStyle = ksLibStyle; DataBaseObject = ksDataBaseObject; SpcDocumentNotify = IUnknown; SpcDocument = ksSpcDocument; SpcObjectNotify = IUnknown; Specification = ksSpecification; DocumentTxt = ksDocumentTxt; AttributeTypeParam = ksAttributeTypeParam; ColumnInfoParam = ksColumnInfoParam; AttributeParam = ksAttributeParam; Variable = ksVariable; LibraryAttrTypeParam = ksLibraryAttrTypeParam; AttributeObject = ksAttributeObject; RequestInfo3D = ksRequestInfo3D; MateConstraint = ksMateConstraint; DefaultObject = ksDefaultObject; entity = ksEntity; part = ksPart; Document3D = ksDocument3D; ModelLibrary = ksModelLibrary; EntityCollection = ksEntityCollection; VariableCollection = ksVariableCollection; MateConstraintCollection = ksMateConstraintCollection; PartCollection = ksPartCollection; MeshPartArrayDefinition = ksMeshPartArrayDefinition; CircularPartArrayDefinition = ksCircularPartArrayDefinition; CurvePartArrayDefinition = ksCurvePartArrayDefinition; DerivativePartArrayDefinition = ksDerivativePartArrayDefinition; Axis2PlanesDefinition = ksAxis2PlanesDefinition; AxisOperationsDefinition = ksAxisOperationsDefinition; Axis2PointsDefinition = ksAxis2PointsDefinition; AxisEdgeDefinition = ksAxisEdgeDefinition; MeshCopyDefinition = ksMeshCopyDefinition; CircularCopyDefinition = ksCircularCopyDefinition; CurveCopyDefinition = ksCurveCopyDefinition; MirrorCopyDefinition = ksMirrorCopyDefinition; MirrorCopyAllDefinition = ksMirrorCopyAllDefinition; ConicSpiralDefinition = ksConicSpiralDefinition; CylindricSpiralDefinition = ksCylindricSpiralDefinition; PolyLineDefinition = ksPolyLineDefinition; SplineDefinition = ksSplineDefinition; faceDefinition = ksFaceDefinition; EdgeDefinition = ksEdgeDefinition; ChamferDefinition = ksChamferDefinition; FilletDefinition = ksFilletDefinition; BaseExtrusionDefinition = ksBaseExtrusionDefinition; BossExtrusionDefinition = ksBossExtrusionDefinition; CutExtrusionDefinition = ksCutExtrusionDefinition; BaseLoftDefinition = ksBaseLoftDefinition; BossLoftDefinition = ksBossLoftDefinition; CutLoftDefinition = ksCutLoftDefinition; InclineDefinition = ksInclineDefinition; ShellDefinition = ksShellDefinition; BaseEvolutionDefinition = ksBaseEvolutionDefinition; BossEvolutionDefinition = ksBossEvolutionDefinition; CutEvolutionDefinition = ksCutEvolutionDefinition; RibDefinition = ksRibDefinition; CutByPlaneDefinition = ksCutByPlaneDefinition; CutBySketchDefinition = ksCutBySketchDefinition; PlaneOffsetDefinition = ksPlaneOffsetDefinition; PlaneAngleDefinition = ksPlaneAngleDefinition; Plane3PointsDefinition = ksPlane3PointsDefinition; PlaneNormalToSurfaceDefinition = ksPlaneNormalToSurfaceDefinition; PlaneTangentToSurfaceDefinition = ksPlaneTangentToSurfaceDefinition; PlaneEdgePointDefinition = ksPlaneEdgePointDefinition; PlaneParallelDefinition = ksPlaneParallelDefinition; PlanePerpendicularDefinition = ksPlanePerpendicularDefinition; PlaneLineToEdgeDefinition = ksPlaneLineToEdgeDefinition; PlaneLineToPlaneDefinition = ksPlaneLineToPlaneDefinition; ThinParam = ksThinParam; ExtrusionParam = ksExtrusionParam; RotatedParam = ksRotatedParam; ColorParam = ksColorParam; BaseRotatedDefinition = ksBaseRotatedDefinition; BossRotatedDefinition = ksBossRotatedDefinition; CutRotatedDefinition = ksCutRotatedDefinition; SketchDefinition = ksSketchDefinition; RasterFormatParam = ksRasterFormatParam; AdditionFormatParam = ksAdditionFormatParam; ConstraintParam = ksConstraintParam; ImportedSurfaceDefinition = ksImportedSurfaceDefinition; FaceCollection = ksFaceCollection; VertexDefinition = ksVertexDefinition; Feature = ksFeature; Tessellation = ksTessellation; facet = ksFacet; Measurer = ksMeasurer; BodyCollection = ksBodyCollection; Body = ksBody; Surface = ksSurface; EdgeCollection = ksEdgeCollection; OrientedEdge = ksOrientedEdge; OrientedEdgeCollection = ksOrientedEdgeCollection; Loop = ksLoop; LoopCollection = ksLoopCollection; Curve3D = ksCurve3D; LineSeg3dParam = ksLineSeg3dParam; Circle3dParam = ksCircle3dParam; Ellipse3dParam = ksEllipse3dParam; PlaneParam = ksPlaneParam; ConeParam = ksConeParam; CylinderParam = ksCylinderParam; SphereParam = ksSphereParam; TorusParam = ksTorusParam; NurbsPoint3dParam = ksNurbsPoint3dParam; NurbsSurfaceParam = ksNurbsSurfaceParam; Nurbs3dParam = ksNurbs3dParam; NurbsKnotCollection = ksNurbsKnotCollection; NurbsPoint3dCollCollection = ksNurbsPoint3dCollCollection; NurbsPoint3dCollection = ksNurbsPoint3dCollection; ViewProjection = ksViewProjection; ViewProjectionCollection = ksViewProjectionCollection; SelectionMng = ksSelectionMng; ChooseMng = ksChooseMng; Arc3dParam = ksArc3dParam; TreeNodeParam = ksTreeNodeParam; AssociationViewParam = ksAssociationViewParam; ViewColorParam = ksViewColorParam; AxisLineParam = ksAxisLineParam; TextDocumentParam = ksTextDocumentParam; RemoteElementParam = ksRemoteElementParam; DeletedCopyCollection = ksDeletedCopyCollection; CopyObjectParam = ksCopyObjectParam; ThreadDefinition = ksThreadDefinition; OverlapObjectOptions = ksOverlapObjectOptions; Attribute3D = ksAttribute3D; Attribute3DCollection = ksAttribute3DCollection; ComponentPositioner = ksComponentPositioner; ObjectFilter3D = ksObjectFilter3D; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// PDouble1 = ^Double; {*} PInteger1 = ^Integer; {*} PWordBool1 = ^WordBool; {*} PSmallint1 = ^Smallint; {*} PSingle1 = ^Single; {*} // *********************************************************************// // DispIntf: KompasObject // Flags: (4096) Dispatchable // GUID: {2557A84B-0FB9-4BA5-ACE3-B43819F9751F} // *********************************************************************// KompasObject = dispinterface ['{2557A84B-0FB9-4BA5-ACE3-B43819F9751F}'] property Visible: WordBool dispid 1; function Document3D: IDispatch; dispid 2; function ActiveDocument3D: IDispatch; dispid 3; function Document2D: ksDocument2D; dispid 4; function ActiveDocument2D: IDispatch; dispid 5; function DataBaseObject: IDispatch; dispid 6; function GetIterator: IDispatch; dispid 7; function GetMathematic2D: IDispatch; dispid 8; function GetParamStruct(structType: Smallint): IDispatch; dispid 9; function SpcDocument: IDispatch; dispid 10; function SpcActiveDocument: IDispatch; dispid 11; function ksMessage(const s: WideString): WordBool; dispid 12; function ksError(const s: WideString): WordBool; dispid 13; function ksEnableTaskAccess(enabl: Integer): WordBool; dispid 14; function ksReturnResult: Integer; dispid 15; function ksResultNULL: Integer; dispid 16; function ksIsEnableTaskAccess: Integer; dispid 17; function ksMessageBoxResult: WordBool; dispid 18; function ksDrawSlide(HWindow: Integer; sldID: Integer): Integer; dispid 19; function ksStrResult: WideString; dispid 20; function ksGetHWindow: Integer; dispid 21; function ksGetWorkWindowColor: Integer; dispid 22; function ksPumpWaitingMessages: WordBool; dispid 23; function ksSetCriticalProcess: Integer; dispid 24; function ksChoiceFile(const ext: WideString; const filter: WideString; preview: WordBool): WideString; dispid 25; function ksDrawBitmap(HWindow: Integer; sldID: Integer): Integer; dispid 26; function ksYesNo(const s: WideString): Integer; dispid 27; function ksDrawSlideFromFile(HWindow: Integer; const fileName: WideString): Integer; dispid 28; function ksWriteSlide(const fileName: WideString; iD: Integer; x: Double; y: Double): Integer; dispid 29; function ksSlideBackground(color: Integer): WordBool; dispid 30; function ksReadDouble(const mess: WideString; defValue: Double; min: Double; max: Double; var value: Double): Integer; dispid 31; function ksReadInt(const mess: WideString; defValue: Integer; min: Integer; max: Integer; var value: Integer): Integer; dispid 32; function ksReadString(const mess: WideString; const value: WideString): WideString; dispid 33; function ksFullFileName(const oldName: WideString): WideString; dispid 34; function ksUniqueFileName: WideString; dispid 35; function ksRemoveUniqueFile(const fileName: WideString): WordBool; dispid 36; function ksSystemControlStop: WordBool; dispid 37; function ksSystemControlStart(const menuCommand: WideString): Integer; dispid 38; function GetDynamicArray(type_: Integer): IDispatch; dispid 39; function ksChoiceFileAppointedDir(const ext: WideString; const filter: WideString; preview: WordBool; typeDir: Integer): WideString; dispid 40; function ksChoiceFiles(const ext: WideString; const filter: WideString; const p: IDispatch; preview: WordBool): Integer; dispid 41; function ksSaveFile(const ext: WideString; const oldName: WideString; const filter: WideString; preview: WordBool): WideString; dispid 42; function GetAttributeObject: IDispatch; dispid 43; function ksRefreshActiveWindow: Integer; dispid 44; function ksSystemPath(pathType: Integer): WideString; dispid 45; function ksGetRelativePathFromSystemPath(const sourcePath: WideString; pathType: Integer): WideString; dispid 46; function ksGetFullPathFromSystemPath(const relativePath: WideString; pathType: Integer): WideString; dispid 47; function ksGetRelativePathFromFullPath(const mainFilePath: WideString; const sourcePath: WideString): WideString; dispid 48; function ksGetFullPathFromRelativePath(const mainFilePath: WideString; const relativePath: WideString): WideString; dispid 49; function ksGetSystemVersion(var iMajor: Integer; var iMinor: Integer; var iRelease: Integer; var iBuild: Integer): Integer; dispid 50; function ksGetSystemProfileString(const lpSection: WideString; const lpKey: WideString): WideString; dispid 51; function ksOpenHelpFile(const file_: WideString; command: Integer; iD: Integer): WordBool; dispid 52; function ksSetSysOptions(optionsType: Integer; const param: IDispatch): Integer; dispid 53; function ksGetSysOptions(optionsType: Integer; const param: IDispatch): Integer; dispid 54; function ksPrintPreviewWindow(const docsArr: IDispatch; inquiry: Integer): Integer; dispid 55; function ksGetLibraryStylesArray(const libraryName: WideString; libraryType: Smallint): IDispatch; dispid 56; function ksViewGetDensity(HWindow: Integer): Double; dispid 57; function ksCalculate(const s: WideString; var rez: Double): Integer; dispid 58; function ksCalculateReset: Integer; dispid 59; function ksExecuteLibraryCommand(const fileName: WideString; command: Integer): Integer; dispid 60; function ksGetQualityNames(const names: IDispatch; dimValue: Double; high: Double; low: Double; system: Smallint; withLimitation: Smallint): Integer; dispid 61; function ksGetQualityDefects(const name: WideString; dimValue: Double; var high: Double; var low: Double; inMM: Smallint): Integer; dispid 62; function ksGetQualityContensParam(const name: WideString; const param: IDispatch; inMM: Smallint): Integer; dispid 63; function ksGet3dDocumentFromRef(doc: Integer): IDispatch; dispid 64; function GetModelLibrary: IDispatch; dispid 65; function GetFragmentLibrary: IDispatch; dispid 66; function ksIsLibraryEnabled(const libName: WideString): Integer; dispid 67; function ksIsModuleSpecificationActive: Integer; dispid 68; function ksModuleSpecification(attach: WordBool): Integer; dispid 69; function ksMaterialDlg(HWindow: Integer; var res: Integer; var plt: Double; var kod_size_1: Double; var kod_size_2: Double; var kod_size_3: Double; var kod_size_4: Double; const kod_tip: WideString): WideString; dispid 70; function ksExecDialPredefinedText(HWindow: Integer; var res: Integer): WideString; dispid 71; function ksDrawSlideEx(HWindow: Integer; sldID: Integer; hInst: Integer): Integer; dispid 72; function ksViewGetDensityAndMaterial(var density: Double; HWindow: Integer): WideString; dispid 73; function ksConvertLangStr(const src: WideString): WideString; dispid 74; function ksConvertLangWindow(hWnd: Integer): WordBool; dispid 75; function ksConvertLangMenu(hMenu: Integer): Integer; dispid 76; function ksEditTextLine(HWindow: Integer; var res: Integer; const str: WideString): WideString; dispid 77; function ksGetDocOptions(optionsType: Integer; const param: IDispatch): Integer; dispid 78; function ksAttachKompasLibrary(const libName: WideString): Integer; dispid 79; function ksDetachKompasLibrary(libId: Integer): Integer; dispid 80; function ksExecuteKompasLibraryCommand(libId: Integer; command: Integer): Integer; dispid 81; procedure Quit; dispid 82; function ksPrintKompasDocument(const fileName: WideString; const toFile: WideString; scale: Double): Integer; dispid 83; function ksDrawKompasDocument(HWindow: Integer; const docFileName: WideString): Integer; dispid 84; function ksSetFlagDisableLockApp(setDisableLockApp: WordBool): WordBool; dispid 85; function ActivateControllerAPI: WordBool; dispid 86; function DocumentTxt: IDispatch; dispid 87; function ActiveDocumentTxt: IDispatch; dispid 88; function ksGetLibraryTreeStruct(const libName: WideString; const p: IDispatch): WordBool; dispid 89; function ksSetDocOptions(optionsType: Integer; const param: IDispatch): Integer; dispid 90; function ksGetDocumentType(doc: Integer): Integer; dispid 91; function ksDrawKompasDocumentByReference(HWindow: Integer; pDoc: Integer): Integer; dispid 92; function ksExecDialPredefinedTextEx(HWindow: Integer): IDispatch; dispid 93; function ksGetDocumentTypeByName(const fileName: WideString): Integer; dispid 94; function ksGetDocumentByReference(docRef: Integer): IDispatch; dispid 95; function ksConvertLangStrEx(hInstance: Integer; strID: Integer): WideString; dispid 96; function ksConvertLangWindowEx(hWnd: Integer; hInstance: Integer; const dlgID: WideString): WordBool; dispid 97; function LoadDSK: WordBool; dispid 98; function GetObjectsFilter3D: IDispatch; dispid 100; end; // *********************************************************************// // DispIntf: ksDocument2D // Flags: (4096) Dispatchable // GUID: {AF4E160D-5C89-4F21-B0F2-D53397BDAF78} // *********************************************************************// ksDocument2D = dispinterface ['{AF4E160D-5C89-4F21-B0F2-D53397BDAF78}'] property reference: Integer dispid 1; property orthoMode: WordBool dispid 212; function ksLineSeg(x1: Double; y1: Double; x2: Double; y2: Double; style: Integer): Integer; dispid 2; function ksRectangle(const par: IDispatch; centre: Smallint): Integer; dispid 3; function ksCircle(xc: Double; yc: Double; rad: Double; style: Integer): Integer; dispid 4; function ksArcByAngle(xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; direction: Smallint; style: Integer): Integer; dispid 5; function ksArcByPoint(xc: Double; yc: Double; rad: Double; x1: Double; y1: Double; x2: Double; y2: Double; direction: Smallint; style: Integer): Integer; dispid 6; function ksArcBy3Points(x1: Double; y1: Double; x2: Double; y2: Double; x3: Double; y3: Double; style: Integer): Integer; dispid 7; function ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; dispid 8; function ksSetObjParam(referObj: Integer; const param: IDispatch; parType: Integer): Integer; dispid 9; function ksContour(style: Integer): Integer; dispid 10; function ksMacro(type_: Smallint): Integer; dispid 11; function ksParagraph(const par: IDispatch): Integer; dispid 12; function ksTextLine(const textItem: IDispatch): Integer; dispid 13; function ksUpdateMacro(macro: Integer; gr: Integer): Integer; dispid 14; function ksLine(x: Double; y: Double; angle: Double): Integer; dispid 15; function ksPoint(x: Double; y: Double; style: Integer): Integer; dispid 16; function ksText(x: Double; y: Double; ang: Double; hStr: Double; ksuStr: Double; bitVector: Integer; const s: WideString): Integer; dispid 17; function ksHatchByParam(const param: IDispatch): Integer; dispid 18; function ksEndObj: Integer; dispid 19; function ksLayer(n: Integer): Integer; dispid 20; function ksGetLayerNumber(p: Integer): Integer; dispid 21; function ksGetLayerReference(number: Integer): Integer; dispid 22; function ksChangeObjectLayer(obj: Integer; number: Integer): Integer; dispid 23; function ksNewGroup(type_: Smallint): Integer; dispid 24; function ksEndGroup: Integer; dispid 25; function ksMakeEncloseContours(gr: Integer; x: Double; y: Double): Integer; dispid 26; function ksIsCursorOrPlacementDocument: Integer; dispid 27; function ksIsActiveProcessRunnig: Integer; dispid 28; function ksPhantomShowHide(const show: WideString): Integer; dispid 29; function ksGetCursorPosition(var x: Double; var y: Double; type_: Integer): Integer; dispid 30; function ksKeepReference(r: Integer): Integer; dispid 31; function ksGetMacroParamSize(ref: Integer): Integer; dispid 32; function ksEditMacroMode: Integer; dispid 33; function ksDeleteObj(ref: Integer): Integer; dispid 34; function ksMoveObj(ref: Integer; x: Double; y: Double): Integer; dispid 35; function ksRotateObj(ref: Integer; x: Double; y: Double; angle: Double): Integer; dispid 36; function ksTransformObj(ref: Integer): Integer; dispid 37; function ksLightObj(ref: Integer; light: Smallint): Integer; dispid 38; function ksFindObj(x: Double; y: Double; limit: Double): Integer; dispid 39; function ksSymmetryObj(ref: Integer; x1: Double; y1: Double; x2: Double; y2: Double; const copy: WideString): Integer; dispid 40; function ksCopyObj(ref: Integer; xOld: Double; yOld: Double; xNew: Double; yNew: Double; scale: Double; angle: Double): Integer; dispid 41; function ksCreateViewObject(type_: Integer): Integer; dispid 42; function ksEditViewObject(ref: Integer): Integer; dispid 43; function ksAnnLineSeg(x1: Double; y1: Double; x2: Double; y2: Double; term1: Smallint; term2: Smallint; style: Integer): Integer; dispid 44; function ksPointArraw(x: Double; y: Double; ang: Double; term: Smallint): Integer; dispid 45; function ksAnnArcByPoint(xc: Double; yc: Double; rad: Double; x1: Double; y1: Double; x2: Double; y2: Double; direction: Smallint; term1: Smallint; term2: Smallint; style: Integer): Integer; dispid 46; function ksEllipse(const par: IDispatch): Integer; dispid 47; function ksEllipseArc(const par: IDispatch): Integer; dispid 48; function ksParEllipseArc(const par: IDispatch): Integer; dispid 49; function ksEquidistant(const par: IDispatch): Integer; dispid 50; function ksIsPointInsideContour(p: Integer; x: Double; y: Double; precision: Double): Integer; dispid 51; function ksConvertTextToCurve(text: Integer): Integer; dispid 52; function ksStoreTmpGroup(g: Integer): Integer; dispid 53; function ksOpenMacro(macro: Integer): Integer; dispid 54; function ksAddObjectToMacro(macro: Integer; obj: Integer): Integer; dispid 55; function ksHatch(style: Integer; angle: Double; step: Double; width: Double; x0: Double; y0: Double): Integer; dispid 56; function ksColouring(color: Integer): Integer; dispid 57; function ksDuplicateBoundaries(p: Integer): Integer; dispid 58; function ksNurbsPoint(const par: IDispatch): Integer; dispid 59; function ksNurbsKnot(knot: Double): Integer; dispid 60; function ksNurbs(degree: Smallint; close: WordBool; style: Integer): Integer; dispid 61; function ksRegularPolygon(const par: IDispatch; centre: Smallint): Integer; dispid 62; function ksClearGroup(g: Integer; deleteTmp: WordBool): Integer; dispid 63; function ksExcludeObjGroup(g: Integer; p: Integer): Integer; dispid 64; function ksAddObjGroup(g: Integer; p: Integer): Integer; dispid 65; function ksSaveGroup(g: Integer; const name: WideString): Integer; dispid 66; function ksSelectGroup(g: Integer; selectMode: Smallint; xmin: Double; ymin: Double; xmax: Double; ymax: Double): Integer; dispid 67; function ksExistGroupObj(g: Integer): Integer; dispid 68; function ksWriteGroupToClip(g: Integer; copy: WordBool): Integer; dispid 69; function ksGetGroup(const name: WideString): Integer; dispid 70; function ksReadGroupFromClip: Integer; dispid 71; function ksConicArc(const par: IDispatch): Integer; dispid 72; function ksCentreMarker(const par: IDispatch): Integer; dispid 73; function ksBezier(closed: Smallint; style: Integer): Integer; dispid 74; function ksBezierPoint(const par: IDispatch): Integer; dispid 75; function ksGetStyleParam(type_: Smallint; styleId: Smallint; const param: IDispatch): Integer; dispid 76; function ksInsertRaster(const par: IDispatch): Integer; dispid 77; function ksLinDimension(const linPar: IDispatch): Integer; dispid 78; function ksAngDimension(const angPar: IDispatch): Integer; dispid 79; function ksDiamDimension(const par: IDispatch): Integer; dispid 80; function ksRadDimension(const par: IDispatch): Integer; dispid 81; function ksRadBreakDimension(const par: IDispatch): Integer; dispid 82; function ksOrdinatedDimension(const ordPar: IDispatch): Integer; dispid 83; function ksAddStyle(type_: Smallint; const param: IDispatch; copy: Smallint): Integer; dispid 84; function ksIsStyleInDocument(type_: Smallint; const param: IDispatch; copy: Smallint): Integer; dispid 85; function ksDeleteStyleFromDocument(type_: Smallint; const param: IDispatch; copy: Smallint): Integer; dispid 86; function ksExistObj(ref: Integer): Integer; dispid 87; function ksGetObjGabaritRect(p: Integer; const par: IDispatch): Integer; dispid 88; function ksSheetToView(x: Double; y: Double; var outX: Double; var outY: Double): Integer; dispid 89; function ksViewToSheet(x: Double; y: Double; var outX: Double; var outY: Double): Integer; dispid 90; function ksPolyline(style: Integer): Integer; dispid 91; function ksPolylineByParam(const par: IDispatch): Integer; dispid 92; function ksGetReferenceDocumentPart(t: Smallint): Integer; dispid 93; function ksGetViewReference(number: Integer): Integer; dispid 94; function ksGetViewNumber(p: Integer): Integer; dispid 95; function ksOpenView(number: Integer): Integer; dispid 96; function ksNewViewNumber: Integer; dispid 97; function ksCreateSheetView(const par: IDispatch; var number: Integer): Integer; dispid 98; function ksDecomposeObj(p: Integer; level: Smallint; arrow: Double; type_: Smallint): Integer; dispid 99; function ksGetViewObjCount(p: Integer): Integer; dispid 100; function ksLinBreakDimension(const linPar: IDispatch): Integer; dispid 101; function ksAngBreakDimension(const angPar: IDispatch): Integer; dispid 102; function ksIsCurveClosed(p: Integer): Integer; dispid 103; function ksBase(const par: IDispatch): Integer; dispid 104; function ksRough(const roughPar: IDispatch): Integer; dispid 105; function ksGetGroupName(gr: Integer; var group: Integer; size: Integer): WideString; dispid 106; function ksMtr(x: Double; y: Double; angle: Double; scaleX: Double; scaleY: Double): Integer; dispid 107; function ksDeleteMtr: Integer; dispid 108; function ksPointIntoMtr(x: Double; y: Double; var xn: Double; var yn: Double): Integer; dispid 109; function ksPointFromMtr(x: Double; y: Double; var xn: Double; var yn: Double): Integer; dispid 110; function ksLengthIntoMtr(var len: Double): Integer; dispid 111; function ksLengthFromMtr(var len: Double): Integer; dispid 112; function ksLeader(const leaderPar: IDispatch): Integer; dispid 113; function ksPositionLeader(const posLeaderParam: IDispatch): Integer; dispid 114; function ksBrandLeader(const brandLeaderParam: IDispatch): Integer; dispid 115; function ksMarkerLeader(const markerLeaderParam: IDispatch): Integer; dispid 116; function ksCursor(const info: IDispatch; var x: Double; var y: Double; const phantom: IDispatch): Integer; dispid 117; function ksPlacement(const info: IDispatch; var x: Double; var y: Double; var angle: Double; const phantom: IDispatch): Integer; dispid 118; function ksCommandWindow(const info: IDispatch): Integer; dispid 119; function ksChangeObjectInLibRequest(const info: IDispatch; const phantom: IDispatch): Integer; dispid 120; function ksReleaseReference(p: Integer): Integer; dispid 121; function GetFragment: IDispatch; dispid 122; function ksInitFilePreviewFunc(const funcName: WideString; hInst: Integer; const dispatchOCX: IDispatch): Integer; dispid 123; function ksTable: Integer; dispid 124; function ksRebuildTableVirtualGrid: Integer; dispid 125; function ksGetTableItemsCount(type_: Integer): Integer; dispid 126; function ksGetTableColumnText(var numb: Integer; const par: IDispatch): Integer; dispid 127; function ksSetTableColumnText(numb: Integer; const par: IDispatch): Integer; dispid 128; function ksClearTableColumnText(numb: Integer): Integer; dispid 129; function ksCombineTwoTableItems(index1: Integer; index2: Integer): Integer; dispid 130; function ksDivideTableItem(index: Integer; vertical: WordBool; style: Integer): Integer; dispid 131; function ksSetTableBorderStyle(index: Integer; typeBorder: Smallint; style: Integer): Integer; dispid 132; function ksGetTableBorderStyle(index: Integer; typeBorder: Smallint): Integer; dispid 133; function ksOpenTable(table: Integer): Integer; dispid 134; function ksColumnNumber(numb: Integer): Integer; dispid 135; function ksSetMacroParam(ref: Integer; const userPars: IDispatch; dblClickOff: WordBool; hotpoints: WordBool; externEdit: WordBool): Integer; dispid 136; function ksGetMacroParam(ref: Integer; const userPars: IDispatch): Integer; dispid 137; function ksOpenTechnicalDemand(const pGab: IDispatch; style: Integer): Integer; dispid 138; function ksCloseTechnicalDemand: Integer; dispid 139; function ksSpecRough(const par: IDispatch): Integer; dispid 140; function ksViewPointer(const par: IDispatch): Integer; dispid 141; function ksCutLine(const par: IDispatch): Integer; dispid 142; function ksApproximationCurve(p: Integer; eps: Double; curentLayer: WordBool; maxRad: Double; smooth: WordBool): Integer; dispid 143; function ksTolerance(const par: IDispatch): Integer; dispid 144; function ksOpenTolerance(tolerance: Integer): Integer; dispid 145; function ksGetToleranceColumnText(var numb: Integer; const par: IDispatch): Integer; dispid 146; function ksSetToleranceColumnText(numb: Integer; const par: IDispatch): Integer; dispid 147; function ksGetPointOnToleranceTable(tolerance: Integer; entry: Smallint; const point: IDispatch): Integer; dispid 148; function ksOpenDocument(const nameDoc: WideString; regim: WordBool): WordBool; dispid 149; function ksSaveDocument(const fileName: WideString): WordBool; dispid 150; function ksCloseDocument: WordBool; dispid 151; function ksCreateDocument(const par: IDispatch): WordBool; dispid 152; function ksMovePoint(var x: Double; var y: Double; ang: Double; len: Double): WordBool; dispid 153; function ksReadTableFromFile(const tblFileName: WideString): Integer; dispid 154; function ksDrawKompasDocument(HWindow: Integer; const docFileName: WideString): Integer; dispid 155; function ksViewGetObjectArea: Integer; dispid 156; function ksGetMacroPlacement(macro: Integer; var x: Double; var y: Double; var angl: Double): Integer; dispid 157; function ksSetMacroPlacement(macro: Integer; x: Double; y: Double; angl: Double; relativ: Integer): Integer; dispid 158; function ksDrawKompasGroup(HWindow: Integer; gr: Integer): Integer; dispid 159; function ksGetDocVariableArray(p: Integer): IDispatch; dispid 160; function ksSetDocVariableArray(obj: Integer; const arr: IDispatch; setNote: WordBool): Integer; dispid 161; function ksGetDocOptions(optionsType: Integer; const param: IDispatch): Integer; dispid 162; function ksSetObjConstraint(obj: Integer; const par: IDispatch): Integer; dispid 163; function ksGetObjConstraints(obj: Integer): IDispatch; dispid 164; function ksDestroyObjConstraint(obj: Integer; const par: IDispatch): Integer; dispid 165; function ksGetZona(x: Double; y: Double; var result_: Integer): WideString; dispid 166; function ksClearRegion(grClear: Integer; grRegion: Integer; inside: WordBool): Integer; dispid 167; function ksNurbsForConicCurve(const xArr: IDispatch; const yArr: IDispatch; style: Smallint): Integer; dispid 168; function GetStamp: IDispatch; dispid 169; function ksGetTextLength(const text: WideString; style: Integer): Double; dispid 170; function ksGetTextLengthFromReference(pText: Integer): Double; dispid 171; function ksZoom(x1: Double; y1: Double; x2: Double; y2: Double): Integer; dispid 172; function ksZoomScale(x: Double; y: Double; scale: Double): Integer; dispid 173; function ksZoomPrevNextOrAll(type_: Smallint): Integer; dispid 174; function ksGetZoomScale(var x: Double; var y: Double; var scale: Double): Integer; dispid 175; function ksSpecificationOnSheet(onSheet: Smallint): Integer; dispid 176; function GetSpecification: IDispatch; dispid 177; function ksReDrawDocPart(const rect: IDispatch; view: Integer): Integer; dispid 178; function ksGetCursorLimit: Double; dispid 179; function ksGetTextAlign(pText: Integer): Integer; dispid 180; function ksSetTextAlign(pText: Integer; align: Integer): Integer; dispid 181; function ksSetTextLineAlign(align: Smallint): Integer; dispid 182; function ksDestroyObjects(gr: Integer): Integer; dispid 183; function ksEnableUndo(enabl: WordBool): WordBool; dispid 184; function ksAddPowerForm(x: Double; y: Double): Integer; dispid 185; function ksCreatePowerArc: Integer; dispid 186; function ksTrimNurbs(pObj: Integer; tMin: Double; tMax: Double): Integer; dispid 187; function ksGetDimensionVariableName(dimObj: Integer): WideString; dispid 188; function ksTrimmCurve(curve: Integer; x1: Double; y1: Double; x2: Double; y2: Double; x3: Double; y3: Double; deleteOldCurve: Smallint): Integer; dispid 189; function SaveAsToRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; dispid 190; function RasterFormatParam: IDispatch; dispid 191; function ksGetLeaderShelfLength(leader: Integer; var x: Double; var y: Double): Double; dispid 192; function ksSetDocOptions(optionsType: Integer; const param: IDispatch): Integer; dispid 193; function ksAxisLine(const param: IDispatch): Integer; dispid 194; function SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; dispid 195; function ksCreateSheetArbitraryView(const par: IDispatch; var number: Integer): Integer; dispid 196; function ksCreateSheetStandartViews(const par: IDispatch; bitVector: Integer; dx: Double; dy: Double): WordBool; dispid 197; function ksCreateSheetProjectionView(const par: IDispatch; var number: Integer; view: Integer): Integer; dispid 198; function ksCreateSheetArrowView(const par: IDispatch; var number: Integer; obj: Integer): Integer; dispid 199; function ksCreateSheetSectionView(const par: IDispatch; var number: Integer; obj: Integer): Integer; dispid 200; function ksCreateSheetRemoteView(const par: IDispatch; var number: Integer; obj: Integer): Integer; dispid 201; function ksRebuildDocument: WordBool; dispid 202; function ksRemoteElement(const par: IDispatch): Integer; dispid 203; function ksCopyObjEx(const param: IDispatch): Integer; dispid 204; function GetObject2DNotify(objType: Integer): Object2DNotify; dispid 205; function GetSelectionMngNotify: SelectionMngNotify; dispid 206; function GetObject2DNotifyResult: ksObject2DNotifyResult; dispid 207; function GetDocument2DNotify: Document2DNotify; dispid 208; function ksSetMaterialParam(const material: IDispatch; density: Double): Integer; dispid 209; function ksChangeObjectsOrder(group: Integer; obj: Integer; type_: SYSINT): Integer; dispid 210; function ksIsSlaveSpcOpened: Integer; dispid 211; end; // *********************************************************************// // DispIntf: ksObject2DNotify // Flags: (4096) Dispatchable // GUID: {2E29C343-C521-4B0F-B37D-587D0347B7BA} // *********************************************************************// ksObject2DNotify = dispinterface ['{2E29C343-C521-4B0F-B37D-587D0347B7BA}'] function ChangeActive(objRef: Integer): WordBool; dispid 1; function BeginDelete(objRef: Integer): WordBool; dispid 2; function Delete(objRef: Integer): WordBool; dispid 3; function BeginMove(objRef: Integer): WordBool; dispid 4; function Move(objRef: Integer): WordBool; dispid 5; function BeginRotate(objRef: Integer): WordBool; dispid 6; function Rotate(objRef: Integer): WordBool; dispid 7; function BeginScale(objRef: Integer): WordBool; dispid 8; function scale(objRef: Integer): WordBool; dispid 9; function BeginTransform(objRef: Integer): WordBool; dispid 10; function Transform(objRef: Integer): WordBool; dispid 11; function BeginCopy(objRef: Integer): WordBool; dispid 12; function copy(objRef: Integer): WordBool; dispid 13; function BeginSymmetry(objRef: Integer): WordBool; dispid 14; function Symmetry(objRef: Integer): WordBool; dispid 15; function BeginProcess(pType: Integer; objRef: Integer): WordBool; dispid 16; function EndProcess(pType: Integer): WordBool; dispid 17; function CreateObject(objRef: Integer): WordBool; dispid 18; function UpdateObject(objRef: Integer): WordBool; dispid 19; end; // *********************************************************************// // DispIntf: ksSelectionMngNotify // Flags: (4096) Dispatchable // GUID: {A421368A-34B6-4DDF-9A52-73B3488EE83F} // *********************************************************************// ksSelectionMngNotify = dispinterface ['{A421368A-34B6-4DDF-9A52-73B3488EE83F}'] function Select(obj: OleVariant): WordBool; dispid 1; function Unselect(obj: OleVariant): WordBool; dispid 2; function UnselectAll: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksObject2DNotifyResult // Flags: (4096) Dispatchable // GUID: {1FE1EB28-CD28-4700-8E46-25CCFE9C0EC8} // *********************************************************************// ksObject2DNotifyResult = dispinterface ['{1FE1EB28-CD28-4700-8E46-25CCFE9C0EC8}'] function GetNotifyType: Integer; dispid 1; function IsCopy: WordBool; dispid 2; function GetSheetPoint(from: WordBool; var x: Double; var y: Double): WordBool; dispid 3; function GetCopyObject: Integer; dispid 4; function GetAngle: Double; dispid 5; function GetScale(var sx: Double; var sy: Double): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksDocument2DNotify // Flags: (4096) Dispatchable // GUID: {13F0BE95-3361-4AD9-90AF-D935EA64A127} // *********************************************************************// ksDocument2DNotify = dispinterface ['{13F0BE95-3361-4AD9-90AF-D935EA64A127}'] function BeginRebuild: WordBool; dispid 1; function Rebuild: WordBool; dispid 2; function BeginChoiceMaterial: WordBool; dispid 3; function ChoiceMaterial(const material: WideString; density: Double): WordBool; dispid 4; function BeginInsertFragment: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksDocument3D // Flags: (4096) Dispatchable // GUID: {111CEFE1-A0A7-11D6-95CE-00C0262D30E3} // *********************************************************************// ksDocument3D = dispinterface ['{111CEFE1-A0A7-11D6-95CE-00C0262D30E3}'] property fileName: WideString dispid 1; property comment: WideString dispid 2; property author: WideString dispid 3; property reference: Integer dispid 39; property perspective: WordBool dispid 40; property drawMode: SYSINT dispid 41; property hideAllPlanes: WordBool dispid 50; property hideAllAxis: WordBool dispid 51; property hideAllSketches: WordBool dispid 52; property hideAllPlaces: WordBool dispid 53; property hideAllSurfaces: WordBool dispid 54; property hideAllThreads: WordBool dispid 55; property shadedWireframe: WordBool dispid 63; property invisibleMode: WordBool readonly dispid 4; function Create(Visible: WordBool; typeDoc: WordBool): WordBool; dispid 5; function IsDetail: WordBool; dispid 6; function GetPart(type_: Integer): IDispatch; dispid 7; function MateConstraintCollection: IDispatch; dispid 8; function UpdateDocumentParam: WordBool; dispid 9; function IsEditMode: WordBool; dispid 10; function ChangeObjectInLibRequest: WordBool; dispid 11; function StopLibRequest: WordBool; dispid 12; function GetSpecification: IDispatch; dispid 13; function GetRequestInfo(const part: IDispatch): IDispatch; dispid 14; function UserGetPlacementAndEntity(entityCount: Integer): WordBool; dispid 15; function SetActive: WordBool; dispid 16; function IsActive: WordBool; dispid 17; function Open(const fileName: WideString; invisible: WordBool): WordBool; dispid 18; function Save: WordBool; dispid 19; function SaveAs(const fileName: WideString): WordBool; dispid 20; function close: WordBool; dispid 21; function UserGetCursor(const prompt: WideString; var x: Double; var y: Double; var z: Double): WordBool; dispid 22; function SetPartFromFile(const fileName: WideString; const part: IDispatch; externalFile: WordBool): WordBool; dispid 23; function EntityCollection(objType: Smallint; checkEntity: WordBool): IDispatch; dispid 24; function UserSelectEntity(const filterObject: IDispatch; const methodName: WideString; const prompt: WideString; hInst: Integer; const val: IDispatch): IDispatch; dispid 25; function RemoveMateConstraint(constraintType: Integer; const obj1: IDispatch; const obj2: IDispatch): WordBool; dispid 26; function AddMateConstraint(constraintType: Integer; const obj1: IDispatch; const obj2: IDispatch; direction: Smallint; fixed: Smallint; val: Double): WordBool; dispid 27; function ksDeleteObj(ref: Integer): Integer; dispid 28; function PartCollection(refresh: WordBool): IDispatch; dispid 29; function CreatePartFromFile(const fileName: WideString; const part: IDispatch; const plane: IDispatch): WordBool; dispid 30; function CreatePartInAssembly(const fileName: WideString; const plane: IDispatch): IDispatch; dispid 31; function RebuildDocument: WordBool; dispid 32; function ZoomPrevNextOrAll(type_: Smallint): WordBool; dispid 33; function GetMateConstraint: IDispatch; dispid 34; function SaveAsToRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; dispid 35; function RasterFormatParam: IDispatch; dispid 36; function SaveAsToAdditionFormat(const fileName: WideString; const additionPar: IDispatch): WordBool; dispid 37; function AdditionFormatParam: IDispatch; dispid 38; function GetViewProjectionCollection: IDispatch; dispid 42; function DeleteObject(const obj: IDispatch): WordBool; dispid 43; function GetSelectionMng: IDispatch; dispid 44; function GetChooseMng: IDispatch; dispid 45; function GetObjectType(const obj: IDispatch): Integer; dispid 46; function ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; dispid 47; function ksSetObjParam(referObj: Integer; const param: IDispatch; parType: Integer): Integer; dispid 48; function SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; dispid 49; function AddImportedSurfaces(const fileName: WideString; together: WordBool): IDispatch; dispid 56; function GetDocument3DNotify: Document3DNotify; dispid 57; function AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double; const pObj: IDispatch): ksAttribute3DCollection; dispid 58; function FeatureCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double; objType: SYSINT): ksFeatureCollection; dispid 59; function SetPartFromFileEx(const fileName: WideString; const part: IDispatch; externalFile: WordBool; redraw: WordBool): WordBool; dispid 60; function ComponentPositioner: ksComponentPositioner; dispid 61; function DefaultPlacement: ksPlacement; dispid 62; function ksIsSlaveSpcOpened: Integer; dispid 64; end; // *********************************************************************// // DispIntf: ksDocument3DNotify // Flags: (4096) Dispatchable // GUID: {B6C1BCFD-68DA-4A0A-A95C-296084C6A01A} // *********************************************************************// ksDocument3DNotify = dispinterface ['{B6C1BCFD-68DA-4A0A-A95C-296084C6A01A}'] function BeginRebuild: WordBool; dispid 1; function Rebuild: WordBool; dispid 2; function BeginChoiceMaterial: WordBool; dispid 3; function ChoiceMaterial(const material: WideString; density: Double): WordBool; dispid 4; function BeginChoiceMarking: WordBool; dispid 5; function ChoiceMarking(const marking: WideString): WordBool; dispid 6; function BeginSetPartFromFile: WordBool; dispid 7; function BeginCreatePartFromFile(typeDoc: WordBool; const plane: ksEntity): WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksEntity // Flags: (4096) Dispatchable // GUID: {508A0CCA-9D74-11D6-95CE-00C0262D30E3} // *********************************************************************// ksEntity = dispinterface ['{508A0CCA-9D74-11D6-95CE-00C0262D30E3}'] property hidden: WordBool dispid 1; property name: WideString dispid 2; property excluded: WordBool dispid 4; property type_: Smallint readonly dispid 3; function GetDefinition: IDispatch; dispid 5; function GetParent: IDispatch; dispid 6; function IsCreated: WordBool; dispid 7; function IsIt(objType: Integer): WordBool; dispid 8; function Create: WordBool; dispid 9; function Update: WordBool; dispid 10; function ColorParam: IDispatch; dispid 11; function GetAdvancedColor(var GetAdvancedColor: Integer; var ambient: Double; var diffuse: Double; var specularity: Double; var shininess: Double; var transparency: Double; var emission: Double): WordBool; dispid 12; function SetAdvancedColor(color: Integer; ambient: Double; diffuse: Double; specularity: Double; shininess: Double; transparency: Double; emission: Double): WordBool; dispid 13; function GetFeature: IDispatch; dispid 14; end; // *********************************************************************// // DispIntf: ksAttribute3DCollection // Flags: (4096) Dispatchable // GUID: {EB61A981-F63E-47E1-BEE8-2D1612C78E78} // *********************************************************************// ksAttribute3DCollection = dispinterface ['{EB61A981-F63E-47E1-BEE8-2D1612C78E78}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: ksAttribute3D; dispid 3; function Last: ksAttribute3D; dispid 4; function Next: ksAttribute3D; dispid 5; function Prev: ksAttribute3D; dispid 6; function GetByIndex(index: Integer): ksAttribute3D; dispid 7; function FindIt(const obj: ksAttribute3D): Integer; dispid 8; function Select(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double; objType: Integer): WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksAttribute3D // Flags: (4096) Dispatchable // GUID: {3EEB2B43-56FF-49C0-AFCF-69E990A7D84C} // *********************************************************************// ksAttribute3D = dispinterface ['{3EEB2B43-56FF-49C0-AFCF-69E990A7D84C}'] property reference: Integer readonly dispid 1; function FeatureCollection(objType: Integer): ksFeatureCollection; dispid 2; end; // *********************************************************************// // DispIntf: ksFeatureCollection // Flags: (4096) Dispatchable // GUID: {CE6A46FF-02B4-4C7E-AF50-3F3707C8B122} // *********************************************************************// ksFeatureCollection = dispinterface ['{CE6A46FF-02B4-4C7E-AF50-3F3707C8B122}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: ksFeature; dispid 3; function Last: ksFeature; dispid 4; function Next: ksFeature; dispid 5; function Prev: ksFeature; dispid 6; function GetByIndex(index: Integer): ksFeature; dispid 7; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): ksFeature; dispid 8; function FindIt(const entity: ksFeature): Integer; dispid 9; function Add(const obj: ksFeature): WordBool; dispid 10; function AddAt(const obj: ksFeature; index: Integer): WordBool; dispid 11; function AddBefore(const obj: ksFeature; const base: ksFeature): WordBool; dispid 12; function DetachByIndex(index: Integer): WordBool; dispid 13; function DetachByBody(const obj: ksFeature): WordBool; dispid 14; function Clear: WordBool; dispid 15; function SetByIndex(const obj: ksFeature; index: Integer): WordBool; dispid 16; function AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): ksAttribute3DCollection; dispid 17; end; // *********************************************************************// // DispIntf: ksFeature // Flags: (4096) Dispatchable // GUID: {088BF9A8-37D3-4B15-A7CA-8C52FF1DBC41} // *********************************************************************// ksFeature = dispinterface ['{088BF9A8-37D3-4B15-A7CA-8C52FF1DBC41}'] property excluded: WordBool dispid 9; property name: WideString readonly dispid 1; property updateStamp: LongWord readonly dispid 2; function IsModified(recursive: WordBool): WordBool; dispid 3; function SubFeatureCollection(through: WordBool; libObject: WordBool): IDispatch; dispid 4; function GetOwnerFeature: IDispatch; dispid 5; function IsValid: WordBool; dispid 6; property type_: Smallint readonly dispid 7; function GetObject: IDispatch; dispid 8; function AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): ksAttribute3DCollection; dispid 10; function EntityCollection(objType: Smallint): ksEntityCollection; dispid 11; end; // *********************************************************************// // DispIntf: ksEntityCollection // Flags: (4096) Dispatchable // GUID: {B0170141-C02C-11D6-8734-00C0262CDD2C} // *********************************************************************// ksEntityCollection = dispinterface ['{B0170141-C02C-11D6-8734-00C0262CDD2C}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function SelectByPoint(x: Double; y: Double; z: Double): WordBool; dispid 8; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; dispid 9; function Add(const entity: IDispatch): WordBool; dispid 10; function AddAt(const entity: IDispatch; index: Integer): WordBool; dispid 11; function AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; dispid 12; function DetachByIndex(index: Integer): WordBool; dispid 13; function DetachByBody(const entity: IDispatch): WordBool; dispid 14; function Clear: WordBool; dispid 15; function SetByIndex(const entity: IDispatch; index: Integer): WordBool; dispid 16; function FindIt(const entity: IDispatch): Integer; dispid 17; end; // *********************************************************************// // DispIntf: ksComponentPositioner // Flags: (4096) Dispatchable // GUID: {508B5962-DF59-4CEE-8611-AD10FDF0C811} // *********************************************************************// ksComponentPositioner = dispinterface ['{508B5962-DF59-4CEE-8611-AD10FDF0C811}'] function SetPlaneByPlacement(const plane: ksPlacement): WordBool; dispid 1; function SetPlane(const plane: IDispatch): WordBool; dispid 2; function SetPlaneByPoints(x1: Double; y1: Double; z1: Double; x2: Double; y2: Double; z2: Double; x3: Double; y3: Double; z3: Double): WordBool; dispid 3; function SetDragPoint(x: Double; y: Double; z: Double): WordBool; dispid 4; function SetAxis(const axis: IDispatch): WordBool; dispid 5; function SetAxisByPoints(x1: Double; y1: Double; z1: Double; x2: Double; y2: Double; z2: Double): WordBool; dispid 6; function Prepare(const part: ksPart; positionerType: Integer): Integer; dispid 7; function MoveComponent(x: Double; y: Double; z: Double): WordBool; dispid 8; function RotateComponent(angl: Double): WordBool; dispid 9; function Finish: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksPlacement // Flags: (4096) Dispatchable // GUID: {2DFACC64-C4A4-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlacement = dispinterface ['{2DFACC64-C4A4-11D6-8734-00C0262CDD2C}'] function GetOrigin(var x: Double; var y: Double; var z: Double): WordBool; dispid 1; function SetOrigin(x: Double; y: Double; z: Double): WordBool; dispid 2; function GetAxis(var x: Double; var y: Double; var z: Double; type_: Integer): WordBool; dispid 3; function SetAxis(x: Double; y: Double; z: Double; type_: Integer): WordBool; dispid 4; function SetPlacement(const placement: IDispatch): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksPart // Flags: (4096) Dispatchable // GUID: {508A0CCD-9D74-11D6-95CE-00C0262D30E3} // *********************************************************************// ksPart = dispinterface ['{508A0CCD-9D74-11D6-95CE-00C0262D30E3}'] property name: WideString dispid 1; property marking: WideString dispid 2; property fixedComponent: WordBool dispid 3; property standardComponent: WordBool dispid 4; property fileName: WideString dispid 6; property excluded: WordBool dispid 7; property useColor: Integer dispid 38; property material: WideString readonly dispid 5; function SetPlacement(const placement: IDispatch): WordBool; dispid 8; function GetPlacement: IDispatch; dispid 9; function ColorParam: IDispatch; dispid 10; function VariableCollection: IDispatch; dispid 11; function Update: WordBool; dispid 12; function GetUserParamSize: Integer; dispid 13; function UpdatePlacement: WordBool; dispid 14; function RebuildModel: WordBool; dispid 15; function GetDefaultEntity(objType: Smallint): IDispatch; dispid 16; function NewEntity(objType: Smallint): IDispatch; dispid 17; function EntityCollection(objType: Smallint): IDispatch; dispid 18; function GetAdvancedColor(var color: Integer; var ambient: Double; var diffuse: Double; var specularity: Double; var shininess: Double; var transparency: Double; var emission: Double): WordBool; dispid 19; function SetAdvancedColor(color: Integer; ambient: Double; diffuse: Double; specularity: Double; shininess: Double; transparency: Double; emission: Double): WordBool; dispid 20; function SetUserParam(const userPars: IDispatch): WordBool; dispid 21; function IsDetail: WordBool; dispid 22; function BeginEdit: IDispatch; dispid 23; function EndEdit(Rebuild: WordBool): WordBool; dispid 24; function GetPart(type_: Smallint): IDispatch; dispid 25; function GetMass: Double; dispid 26; function PutStorage(const fileName: WideString; type_: Integer; mirror: WordBool): WordBool; dispid 27; function SetMateConstraintObjects(const collection: IDispatch): WordBool; dispid 28; function GetMateConstraintObjects: IDispatch; dispid 29; function GetUserParam(const userPars: IDispatch): WordBool; dispid 30; property density: Double readonly dispid 31; function SetMaterial(const material: WideString; density: Double): WordBool; dispid 32; function BodyCollection: IDispatch; dispid 33; function GetFeature: IDispatch; dispid 34; function CalcMassInertiaProperties(bitVector: LongWord): IDispatch; dispid 35; function GetMeasurer: IDispatch; dispid 36; function GetMainBody: IDispatch; dispid 37; function GetObject3DNotify(objType: Integer; const obj: IDispatch): Object3DNotify; dispid 39; function GetObject3DNotifyResult: ksObject3DNotifyResult; dispid 40; function UpdatePlacementEx(redraw: WordBool): WordBool; dispid 41; function RebuildModelEx(redraw: WordBool): WordBool; dispid 42; end; // *********************************************************************// // DispIntf: ksObject3DNotify // Flags: (4096) Dispatchable // GUID: {BFA024B6-679E-4A95-B6C2-1EA47A7CD0E9} // *********************************************************************// ksObject3DNotify = dispinterface ['{BFA024B6-679E-4A95-B6C2-1EA47A7CD0E9}'] function BeginDelete(const obj: IDispatch): WordBool; dispid 1; function Delete(const obj: IDispatch): WordBool; dispid 2; function excluded(const obj: IDispatch; excluded: WordBool): WordBool; dispid 3; function hidden(const obj: IDispatch; _hidden: WordBool): WordBool; dispid 4; function BeginPropertyChanged(const obj: IDispatch): WordBool; dispid 5; function PropertyChanged(const obj: IDispatch): WordBool; dispid 6; function BeginPlacementChanged(const obj: IDispatch): WordBool; dispid 7; function PlacementChanged(const obj: IDispatch): WordBool; dispid 8; function BeginProcess(pType: Integer; const obj: IDispatch): WordBool; dispid 9; function EndProcess(pType: Integer): WordBool; dispid 10; function CreateObject(const obj: IDispatch): WordBool; dispid 11; function UpdateObject(const obj: IDispatch): WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksObject3DNotifyResult // Flags: (4096) Dispatchable // GUID: {9C3ECC92-E72F-4892-8921-7886F34CA9AD} // *********************************************************************// ksObject3DNotifyResult = dispinterface ['{9C3ECC92-E72F-4892-8921-7886F34CA9AD}'] function GetNotifyType: Integer; dispid 1; function GetFeatureCollection: ksFeatureCollection; dispid 2; function GetPlacement: ksPlacement; dispid 3; end; // *********************************************************************// // DispIntf: ksKompasObjectNotify // Flags: (4096) Dispatchable // GUID: {C7CB743A-C59D-4C27-8CB6-971C2A393F2F} // *********************************************************************// ksKompasObjectNotify = dispinterface ['{C7CB743A-C59D-4C27-8CB6-971C2A393F2F}'] function CreateDocument(const newDoc: IDispatch; docType: Integer): WordBool; dispid 1; function BeginOpenDocument(const fileName: WideString): WordBool; dispid 2; function OpenDocument(const newDoc: IDispatch; docType: Integer): WordBool; dispid 3; function ChangeActiveDocument(const newDoc: IDispatch; docType: Integer): WordBool; dispid 4; function ApplicationDestroy: WordBool; dispid 5; function BeginCreate(docType: Integer): WordBool; dispid 6; function BeginOpenFile: WordBool; dispid 7; function BeginCloseAllDocument: WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksDocumentFileNotify // Flags: (4096) Dispatchable // GUID: {324C1A45-67AD-41FB-BE57-624F930646F1} // *********************************************************************// ksDocumentFileNotify = dispinterface ['{324C1A45-67AD-41FB-BE57-624F930646F1}'] function BeginCloseDocument: WordBool; dispid 1; function CloseDocument: WordBool; dispid 2; function BeginSaveDocument(const fileName: WideString): WordBool; dispid 3; function SaveDocument: WordBool; dispid 4; function Activate: WordBool; dispid 5; function Deactivate: WordBool; dispid 6; function BeginSaveAsDocument: WordBool; dispid 7; end; // *********************************************************************// // DispIntf: ksSpecRoughParam // Flags: (4096) Dispatchable // GUID: {364521A3-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksSpecRoughParam = dispinterface ['{364521A3-94B5-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property sign: Smallint dispid 2; property t: WordBool dispid 3; property s: WideString dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksEllipseParam // Flags: (4096) Dispatchable // GUID: {364521A6-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksEllipseParam = dispinterface ['{364521A6-94B5-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property A: Double dispid 3; property B: Double dispid 4; property angle: Double dispid 5; property style: Integer dispid 6; function Init: WordBool; dispid 7; end; // *********************************************************************// // DispIntf: ksEllipseArcParam // Flags: (4096) Dispatchable // GUID: {364521A9-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksEllipseArcParam = dispinterface ['{364521A9-94B5-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property A: Double dispid 3; property B: Double dispid 4; property angle: Double dispid 5; property angleFirst: Double dispid 6; property angleSecond: Double dispid 7; property direction: Double dispid 8; property style: Integer dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksEllipseArcParam1 // Flags: (4096) Dispatchable // GUID: {364521AC-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksEllipseArcParam1 = dispinterface ['{364521AC-94B5-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property A: Double dispid 3; property B: Double dispid 4; property angle: Double dispid 5; property parFirst: Double dispid 6; property parSecond: Double dispid 7; property direction: Double dispid 8; property style: Integer dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksEquidistantParam // Flags: (4096) Dispatchable // GUID: {364521AF-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksEquidistantParam = dispinterface ['{364521AF-94B5-11D6-8732-00C0262CDD2C}'] property geoObj: Integer dispid 1; property side: Smallint dispid 2; property cutMode: WordBool dispid 3; property degState: WordBool dispid 4; property radRight: Double dispid 5; property radLeft: Double dispid 6; property style: Integer dispid 7; function Init: WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksParagraphParam // Flags: (4096) Dispatchable // GUID: {364521B2-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksParagraphParam = dispinterface ['{364521B2-94B5-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property x: Double dispid 2; property y: Double dispid 3; property ang: Double dispid 4; property width: Double dispid 5; property height: Double dispid 6; property vFormat: Integer dispid 7; property hFormat: Integer dispid 8; function Init: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksTextItemParam // Flags: (4096) Dispatchable // GUID: {364521B7-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksTextItemParam = dispinterface ['{364521B7-94B5-11D6-8732-00C0262CDD2C}'] property type_: Integer dispid 1; property s: WideString dispid 2; property iSNumb: Integer dispid 3; function Init: WordBool; dispid 4; function GetItemFont: IDispatch; dispid 5; function SetItemFont(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksTextLineParam // Flags: (4096) Dispatchable // GUID: {364521BA-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksTextLineParam = dispinterface ['{364521BA-94B5-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; function GetTextItemArr: IDispatch; dispid 2; function SetTextItemArr(const val: IDispatch): WordBool; dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksTextItemFont // Flags: (4096) Dispatchable // GUID: {364521BD-94B5-11D6-8732-00C0262CDD2C} // *********************************************************************// ksTextItemFont = dispinterface ['{364521BD-94B5-11D6-8732-00C0262CDD2C}'] property fontName: WideString dispid 1; property height: Double dispid 2; property ksu: Double dispid 3; property color: Integer dispid 4; property bitVector: Integer dispid 5; function Init: WordBool; dispid 6; function GetBitVectorValue(val: Integer): WordBool; dispid 7; function SetBitVectorValue(val: Integer; state: WordBool): WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksCornerParam // Flags: (4096) Dispatchable // GUID: {E79C2501-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksCornerParam = dispinterface ['{E79C2501-9584-11D6-8732-00C0262CDD2C}'] property index: Integer dispid 1; property fillet: WordBool dispid 2; property l1: Double dispid 3; property l2: Double dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksContourParam // Flags: (4096) Dispatchable // GUID: {E79C2504-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksContourParam = dispinterface ['{E79C2504-9584-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; function Init: WordBool; dispid 2; end; // *********************************************************************// // DispIntf: ksLayerParam // Flags: (4096) Dispatchable // GUID: {E79C2507-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLayerParam = dispinterface ['{E79C2507-9584-11D6-8732-00C0262CDD2C}'] property state: Smallint dispid 1; property color: Integer dispid 2; property name: WideString dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksLineParam // Flags: (4096) Dispatchable // GUID: {E79C250A-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLineParam = dispinterface ['{E79C250A-9584-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property angle: Double dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksRegularPolygonParam // Flags: (4096) Dispatchable // GUID: {E79C250D-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRegularPolygonParam = dispinterface ['{E79C250D-9584-11D6-8732-00C0262CDD2C}'] property count: Integer dispid 1; property xc: Double dispid 2; property yc: Double dispid 3; property ang: Double dispid 4; property radius: Double dispid 5; property describe: WordBool dispid 6; property style: Integer dispid 7; function GetPCorner: IDispatch; dispid 8; function SetPCorner(const val: IDispatch): WordBool; dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksRectangleParam // Flags: (4096) Dispatchable // GUID: {E79C2510-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRectangleParam = dispinterface ['{E79C2510-9584-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property ang: Double dispid 3; property height: Double dispid 4; property width: Double dispid 5; property style: Integer dispid 6; function GetPCorner: IDispatch; dispid 7; function SetPCorner(const val: IDispatch): WordBool; dispid 8; function Init: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksBaseParam // Flags: (4096) Dispatchable // GUID: {E79C2513-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksBaseParam = dispinterface ['{E79C2513-9584-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property x1: Double dispid 2; property y1: Double dispid 3; property x2: Double dispid 4; property y2: Double dispid 5; property type_: WordBool dispid 6; property str: WideString dispid 7; function GetPTextItem: IDispatch; dispid 8; function SetPTextItem(const val: IDispatch): WordBool; dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksLtVariant // Flags: (4096) Dispatchable // GUID: {E79C2516-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLtVariant = dispinterface ['{E79C2516-9584-11D6-8732-00C0262CDD2C}'] property strVal: WideString dispid 2; property shortVal: Smallint dispid 3; property intVal: Integer dispid 4; property longVal: Integer dispid 5; property floatVal: Single dispid 6; property doubleVal: Double dispid 7; property charVal: Smallint dispid 8; property uCharVal: Smallint dispid 9; property uIntVal: Integer dispid 10; property valType: Smallint readonly dispid 1; function Init: WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksUserParam // Flags: (4096) Dispatchable // GUID: {E79C2519-9584-11D6-8732-00C0262CDD2C} // *********************************************************************// ksUserParam = dispinterface ['{E79C2519-9584-11D6-8732-00C0262CDD2C}'] property fileName: WideString dispid 1; property libName: WideString dispid 2; property number: Integer dispid 3; function GetUserArray: IDispatch; dispid 4; function SetUserArray(const val: IDispatch): WordBool; dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksMathPointParam // Flags: (4096) Dispatchable // GUID: {3198E121-9585-11D6-95CE-00C0262D30E3} // *********************************************************************// ksMathPointParam = dispinterface ['{3198E121-9585-11D6-95CE-00C0262D30E3}'] property x: Double dispid 1; property y: Double dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksCurvePicture // Flags: (4096) Dispatchable // GUID: {910EC541-958D-11D6-95CE-00C0262D30E3} // *********************************************************************// ksCurvePicture = dispinterface ['{910EC541-958D-11D6-95CE-00C0262D30E3}'] function GetPolygon: IDispatch; dispid 1; function SetPolygon(const polygon: IDispatch): WordBool; dispid 2; function GetFill: IDispatch; dispid 3; function SetFill(const fill: IDispatch): WordBool; dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksCurvePattern // Flags: (4096) Dispatchable // GUID: {910EC544-958D-11D6-95CE-00C0262D30E3} // *********************************************************************// ksCurvePattern = dispinterface ['{910EC544-958D-11D6-95CE-00C0262D30E3}'] property visibleSeg: Double dispid 1; property invisibleSeg: Double dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksTAN // Flags: (4096) Dispatchable // GUID: {8075EDE4-6C85-4711-8685-68FBE359D4C4} // *********************************************************************// ksTAN = dispinterface ['{8075EDE4-6C85-4711-8685-68FBE359D4C4}'] property x1[index: Integer]: Double readonly dispid 1; property y1[index: Integer]: Double readonly dispid 2; property x2[index: Integer]: Double readonly dispid 3; property y2[index: Integer]: Double readonly dispid 4; end; // *********************************************************************// // DispIntf: ksCON // Flags: (4096) Dispatchable // GUID: {C175BFB8-D7D6-4325-BFDA-2A282B9D1119} // *********************************************************************// ksCON = dispinterface ['{C175BFB8-D7D6-4325-BFDA-2A282B9D1119}'] function GetCount: Integer; dispid 1; function GetXc(index: Integer): Double; dispid 2; function GetYc(index: Integer): Double; dispid 3; function GetX1(index: Integer): Double; dispid 4; function GetY1(index: Integer): Double; dispid 5; function GetX2(index: Integer): Double; dispid 6; function GetY2(index: Integer): Double; dispid 7; end; // *********************************************************************// // DispIntf: ksInertiaParam // Flags: (4096) Dispatchable // GUID: {EA92E649-239E-4105-BBD3-AEF4817BD783} // *********************************************************************// ksInertiaParam = dispinterface ['{EA92E649-239E-4105-BBD3-AEF4817BD783}'] property xc: Double readonly dispid 1; property yc: Double readonly dispid 2; property F: Double readonly dispid 3; property ly: Double readonly dispid 4; property lx: Double readonly dispid 5; property lxy: Double readonly dispid 6; property mx: Double readonly dispid 7; property my: Double readonly dispid 8; property mxy: Double readonly dispid 9; property jx: Double readonly dispid 10; property jy: Double readonly dispid 11; property A: Double readonly dispid 12; end; // *********************************************************************// // DispIntf: ksMassInertiaParam // Flags: (4096) Dispatchable // GUID: {283F77EB-7E2C-4F71-8B16-4D286FA4857E} // *********************************************************************// ksMassInertiaParam = dispinterface ['{283F77EB-7E2C-4F71-8B16-4D286FA4857E}'] property xc: Double readonly dispid 1; property yc: Double readonly dispid 2; property zc: Double readonly dispid 3; property lx: Double readonly dispid 4; property ly: Double readonly dispid 5; property lz: Double readonly dispid 6; property jx: Double readonly dispid 7; property jy: Double readonly dispid 8; property jz: Double readonly dispid 9; property jxy: Double readonly dispid 10; property jxz: Double readonly dispid 11; property jyz: Double readonly dispid 12; property jx0z: Double readonly dispid 13; property jy0z: Double readonly dispid 14; property jx0y: Double readonly dispid 15; property lxy: Double readonly dispid 16; property lxz: Double readonly dispid 17; property lyz: Double readonly dispid 18; property r: Double readonly dispid 19; property m: Double readonly dispid 20; property v: Double readonly dispid 21; function SetBitVectorValue(val: Integer; setState: WordBool): WordBool; dispid 22; property F: Double readonly dispid 23; property jx0: Double readonly dispid 24; property jy0: Double readonly dispid 25; property jz0: Double readonly dispid 26; function GetAxisX(var x: Double; var y: Double; var z: Double): WordBool; dispid 27; function GetAxisY(var x: Double; var y: Double; var z: Double): WordBool; dispid 28; function GetAxisZ(var x: Double; var y: Double; var z: Double): WordBool; dispid 29; end; // *********************************************************************// // DispIntf: ksMathematic2D // Flags: (4096) Dispatchable // GUID: {F2D5AE01-45DE-4496-B01B-9958CAEF5943} // *********************************************************************// ksMathematic2D = dispinterface ['{F2D5AE01-45DE-4496-B01B-9958CAEF5943}'] function ksCosD(x: Double): Double; dispid 1; function ksSinD(x: Double): Double; dispid 2; function ksTanD(x: Double): Double; dispid 3; function ksAtanD(x: Double): Double; dispid 4; function ksAngle(x1: Double; y1: Double; x2: Double; y2: Double): Double; dispid 5; function ksEqualPoints(x1: Double; y1: Double; x2: Double; y2: Double): Integer; dispid 6; function ksIntersectLinSLinS(x11: Double; y11: Double; x12: Double; y12: Double; x21: Double; y21: Double; x22: Double; y22: Double; const param: IDispatch): WordBool; dispid 7; function ksIntersectLinSLine(x1: Double; y1: Double; x2: Double; y2: Double; x: Double; y: Double; ang: Double; const param: IDispatch): WordBool; dispid 8; function ksIntersectArcLin(xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; n: Integer; x: Double; y: Double; ang: Double; const param: IDispatch): WordBool; dispid 9; function ksIntersectLinLin(x1: Double; y1: Double; angle1: Double; x2: Double; y2: Double; angle2: Double; const param: IDispatch): WordBool; dispid 10; function ksIntersectCirCir(xc1: Double; yc1: Double; radius1: Double; xc2: Double; yc2: Double; radius2: Double; const param: IDispatch): WordBool; dispid 11; function ksIntersectArcArc(xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint; xbc: Double; ybc: Double; radb: Double; fb1: Double; fb2: Double; directb: Integer; const param: IDispatch): WordBool; dispid 12; function ksIntersectLinSArc(x1: Double; y1: Double; x2: Double; y2: Double; xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; direct: Smallint; const param: IDispatch): WordBool; dispid 13; function ksIntersectLinSCir(x1: Double; y1: Double; x2: Double; y2: Double; xc: Double; yc: Double; rad: Double; const param: IDispatch): WordBool; dispid 14; function ksIntersectCirLin(xc: Double; yc: Double; rad: Double; xl: Double; yl: Double; angle: Double; const param: IDispatch): WordBool; dispid 15; function ksIntersectCirArc(xcc: Double; ycc: Double; radc: Double; xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint; const param: IDispatch): WordBool; dispid 16; function ksIntersectCurvCurv(p1: Integer; p2: Integer; const param: IDispatch): Integer; dispid 17; function ksTanLinePointCircle(x: Double; y: Double; xc: Double; yc: Double; rad: Double; const param: IDispatch): WordBool; dispid 18; function ksTanLineAngCircle(xc: Double; yc: Double; rad: Double; ang: Double; const param: IDispatch): WordBool; dispid 19; function ksTanCircleCircle(xc1: Double; yc1: Double; radius1: Double; xc2: Double; yc2: Double; radius2: Double; const param: IDispatch): WordBool; dispid 20; function ksTanLinePointCurve(x: Double; y: Double; pCur: Integer; const array_: IDispatch): Integer; dispid 21; function ksCouplingLineLine(x1: Double; y1: Double; angle1: Double; x2: Double; y2: Double; angle2: Double; rad: Double; const param: IDispatch): WordBool; dispid 22; function ksCouplingLineCircle(xc: Double; yc: Double; radc: Double; x1: Double; y1: Double; angle1: Double; rad: Double; const param: IDispatch): WordBool; dispid 23; function ksCouplingCircleCircle(xc1: Double; yc1: Double; radc1: Double; xc2: Double; yc2: Double; radc2: Double; rad: Double; const param: IDispatch): WordBool; dispid 24; function ksSymmetry(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double; var xc: Double; var yc: Double): WordBool; dispid 25; function ksRotate(x: Double; y: Double; xc: Double; yc: Double; ang: Double; var xr: Double; var yr: Double): WordBool; dispid 26; function ksDistancePntPnt(x1: Double; y1: Double; x2: Double; y2: Double): Double; dispid 27; function ksDistancePntLineSeg(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double): Double; dispid 28; function ksDistancePntArc(x: Double; y: Double; xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint): Double; dispid 29; function ksDistancePntCircle(x: Double; y: Double; xc: Double; yc: Double; rad: Double): Double; dispid 30; function ksDistancePntLine(x: Double; y: Double; x1: Double; y1: Double; angle: Double): Double; dispid 31; function ksDistancePntLineForPoint(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double): Double; dispid 32; function ksPerpendicular(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double; var xp: Double; var yp: Double): WordBool; dispid 33; function ksPointsOnCurve(curve: Integer; count: Integer): IDispatch; dispid 34; function ksGetCurvePerpendicular(curve: Integer; x: Double; y: Double): Double; dispid 35; function ksGetCurvePointProjection(curve: Integer; x: Double; y: Double; var kx: Double; var ky: Double): Integer; dispid 36; function ksMovePointOnCurve(curve: Integer; var x: Double; var y: Double; len: Double; dir: Integer): Integer; dispid 37; function ksCalcInertiaProperties(p: Integer; const prop: IDispatch; dimension: Smallint): Integer; dispid 38; function ksCalcMassInertiaProperties(p: Integer; const prop: IDispatch; density: Double; param: Double): Integer; dispid 39; function ksGetCurvePerimeter(curve: Integer; dimension: Smallint): Double; dispid 40; function ksPointsOnCurveByStep(curve: Integer; step: Double): IDispatch; dispid 41; function ksDistancePntPntOnCurve(curve: Integer; x1: Double; y1: Double; x2: Double; y2: Double): Double; dispid 42; end; // *********************************************************************// // DispIntf: ksDynamicArray // Flags: (4096) Dispatchable // GUID: {4D91CD9A-6E02-409D-9360-CF7FEF60D31C} // *********************************************************************// ksDynamicArray = dispinterface ['{4D91CD9A-6E02-409D-9360-CF7FEF60D31C}'] property reference: Integer dispid 1; function ksDeleteArray: Integer; dispid 2; function ksClearArray: Integer; dispid 3; function ksGetArrayCount: Integer; dispid 4; function ksGetArrayType: Integer; dispid 5; function ksExcludeArrayItem(index: Integer): Integer; dispid 6; function ksAddArrayItem(index: Integer; const item: IDispatch): Integer; dispid 7; function ksGetArrayItem(index: Integer; const item: IDispatch): Integer; dispid 8; function ksSetArrayItem(index: Integer; const item: IDispatch): Integer; dispid 9; end; // *********************************************************************// // DispIntf: ksRDimDrawingParam // Flags: (4096) Dispatchable // GUID: {2A4D4542-95B3-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRDimDrawingParam = dispinterface ['{2A4D4542-95B3-11D6-8732-00C0262CDD2C}'] property pt1: Smallint dispid 1; property pt2: Smallint dispid 2; property textPos: Integer dispid 3; property ang: Double dispid 4; property shelfDir: Integer dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksRDimSourceParam // Flags: (4096) Dispatchable // GUID: {2A4D4545-95B3-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRDimSourceParam = dispinterface ['{2A4D4545-95B3-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property rad: Double dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksRDimParam // Flags: (4096) Dispatchable // GUID: {7F7D6F81-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRDimParam = dispinterface ['{7F7D6F81-97DA-11D6-8732-00C0262CDD2C}'] function GetTPar: IDispatch; dispid 1; function SetTPar(const val: IDispatch): WordBool; dispid 2; function GetDPar: IDispatch; dispid 3; function SetDPar(const val: IDispatch): WordBool; dispid 4; function GetSPar: IDispatch; dispid 5; function SetSPar(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksLineSegParam // Flags: (4096) Dispatchable // GUID: {7F7D6F84-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLineSegParam = dispinterface ['{7F7D6F84-97DA-11D6-8732-00C0262CDD2C}'] property x1: Double dispid 1; property y1: Double dispid 2; property x2: Double dispid 3; property y2: Double dispid 4; property style: Integer dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksCircleParam // Flags: (4096) Dispatchable // GUID: {7F7D6F87-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksCircleParam = dispinterface ['{7F7D6F87-97DA-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property rad: Double dispid 3; property style: Integer dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksArcByAngleParam // Flags: (4096) Dispatchable // GUID: {7F7D6F8A-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksArcByAngleParam = dispinterface ['{7F7D6F8A-97DA-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property rad: Double dispid 3; property ang1: Double dispid 4; property ang2: Double dispid 5; property dir: Smallint dispid 6; property style: Integer dispid 7; function Init: WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksArcByPointParam // Flags: (4096) Dispatchable // GUID: {7F7D6F8D-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksArcByPointParam = dispinterface ['{7F7D6F8D-97DA-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property rad: Double dispid 3; property x1: Double dispid 4; property y1: Double dispid 5; property x2: Double dispid 6; property y2: Double dispid 7; property dir: Smallint dispid 8; property style: Integer dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksPointParam // Flags: (4096) Dispatchable // GUID: {7F7D6F90-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksPointParam = dispinterface ['{7F7D6F90-97DA-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property style: Integer dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksHatchParam // Flags: (4096) Dispatchable // GUID: {7F7D6F93-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksHatchParam = dispinterface ['{7F7D6F93-97DA-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property step: Double dispid 3; property ang: Double dispid 4; property width: Double dispid 5; property boundaries: Integer dispid 6; property color: Integer dispid 7; property sheeting: Smallint dispid 8; property style: Integer dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksTextParam // Flags: (4096) Dispatchable // GUID: {7F7D6F96-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksTextParam = dispinterface ['{7F7D6F96-97DA-11D6-8732-00C0262CDD2C}'] function Init: WordBool; dispid 1; function GetParagraphParam: IDispatch; dispid 2; function SetParagraphParam(const val: IDispatch): WordBool; dispid 3; function GetTextLineArr: IDispatch; dispid 4; function SetTextLineArr(const val: IDispatch): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksNurbsPointParam // Flags: (4096) Dispatchable // GUID: {7F7D6F99-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksNurbsPointParam = dispinterface ['{7F7D6F99-97DA-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property weight: Double dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksDoubleValue // Flags: (4096) Dispatchable // GUID: {7F7D6F9C-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDoubleValue = dispinterface ['{7F7D6F9C-97DA-11D6-8732-00C0262CDD2C}'] property value: Double dispid 1; function Init: WordBool; dispid 2; end; // *********************************************************************// // DispIntf: ksNurbsParam // Flags: (4096) Dispatchable // GUID: {7F7D6F9F-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksNurbsParam = dispinterface ['{7F7D6F9F-97DA-11D6-8732-00C0262CDD2C}'] property degree: Smallint dispid 1; property close: WordBool dispid 2; property style: Integer dispid 3; property periodic: WordBool readonly dispid 4; function Init: WordBool; dispid 5; function GetPPoint: IDispatch; dispid 6; function SetPPoint(const val: IDispatch): WordBool; dispid 7; function GetPKnot: IDispatch; dispid 8; function SetPKnot(const val: IDispatch): WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksConicArcParam // Flags: (4096) Dispatchable // GUID: {7F7D6FA2-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksConicArcParam = dispinterface ['{7F7D6FA2-97DA-11D6-8732-00C0262CDD2C}'] property A: Double dispid 1; property B: Double dispid 2; property C: Double dispid 3; property D: Double dispid 4; property E: Double dispid 5; property F: Double dispid 6; property x1: Double dispid 7; property y1: Double dispid 8; property x2: Double dispid 9; property y2: Double dispid 10; property style: Integer dispid 11; function Init: WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksCentreParam // Flags: (4096) Dispatchable // GUID: {7F7D6FA5-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksCentreParam = dispinterface ['{7F7D6FA5-97DA-11D6-8732-00C0262CDD2C}'] property baseCurve: Integer dispid 1; property x: Double dispid 2; property y: Double dispid 3; property angle: Double dispid 4; property type_: Smallint dispid 5; property standXpTail: WordBool dispid 6; property standXmTail: WordBool dispid 7; property standYpTail: WordBool dispid 8; property standYmTail: WordBool dispid 9; property lenXpTail: Double dispid 10; property lenXmTail: Double dispid 11; property lenYpTail: Double dispid 12; property lenYmTail: Double dispid 13; function Init: WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksPlacementParam // Flags: (4096) Dispatchable // GUID: {7F7D6FA8-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksPlacementParam = dispinterface ['{7F7D6FA8-97DA-11D6-8732-00C0262CDD2C}'] property xBase: Double dispid 1; property yBase: Double dispid 2; property scale_: Double dispid 3; property angle: Double dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksRasterParam // Flags: (4096) Dispatchable // GUID: {7F7D6FAB-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRasterParam = dispinterface ['{7F7D6FAB-97DA-11D6-8732-00C0262CDD2C}'] property fileName: WideString dispid 1; property embeded: WordBool dispid 2; function Init: WordBool; dispid 3; function GetPlace: IDispatch; dispid 4; function SetPlace(const val: IDispatch): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksPolylineParam // Flags: (4096) Dispatchable // GUID: {7F7D6FAE-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksPolylineParam = dispinterface ['{7F7D6FAE-97DA-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property closed: WordBool dispid 5; function Init: WordBool; dispid 2; function GetpMathPoint: IDispatch; dispid 3; function SetpMathPoint(const val: IDispatch): WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksInsertFragmentParam // Flags: (4096) Dispatchable // GUID: {7F7D6FB1-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksInsertFragmentParam = dispinterface ['{7F7D6FB1-97DA-11D6-8732-00C0262CDD2C}'] property fileName: WideString dispid 1; property comment: WideString dispid 2; property insertType: Smallint dispid 3; property multiLayer: WordBool dispid 4; function Init: WordBool; dispid 5; function GetPlace: IDispatch; dispid 6; function SetPlace(const val: IDispatch): WordBool; dispid 7; end; // *********************************************************************// // DispIntf: ksViewParam // Flags: (4096) Dispatchable // GUID: {7F7D6FB4-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksViewParam = dispinterface ['{7F7D6FB4-97DA-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property angle: Double dispid 3; property scale_: Double dispid 4; property color: Integer dispid 5; property state: Smallint dispid 6; property name: WideString dispid 7; function Init: WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksLBreakDimSource // Flags: (4096) Dispatchable // GUID: {7F7D6FB7-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLBreakDimSource = dispinterface ['{7F7D6FB7-97DA-11D6-8732-00C0262CDD2C}'] property x1: Double dispid 1; property y1: Double dispid 2; property x2: Double dispid 3; property y2: Double dispid 4; property x3: Double dispid 5; property y3: Double dispid 6; function Init: WordBool; dispid 7; end; // *********************************************************************// // DispIntf: ksBreakDimDrawing // Flags: (4096) Dispatchable // GUID: {7F7D6FBA-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksBreakDimDrawing = dispinterface ['{7F7D6FBA-97DA-11D6-8732-00C0262CDD2C}'] property pl: WordBool dispid 1; property pt: Smallint dispid 2; property textPos: Integer dispid 3; property shelfDir: Integer dispid 4; property angle: Double dispid 5; property length: Integer dispid 6; function Init: WordBool; dispid 7; end; // *********************************************************************// // DispIntf: ksLBreakDimParam // Flags: (4096) Dispatchable // GUID: {7F7D6FBD-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLBreakDimParam = dispinterface ['{7F7D6FBD-97DA-11D6-8732-00C0262CDD2C}'] function GetTPar: IDispatch; dispid 1; function SetTPar(const val: IDispatch): WordBool; dispid 2; function GetDPar: IDispatch; dispid 3; function SetDPar(const val: IDispatch): WordBool; dispid 4; function GetSPar: IDispatch; dispid 5; function SetSPar(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksABreakDimParam // Flags: (4096) Dispatchable // GUID: {7F7D6FC0-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksABreakDimParam = dispinterface ['{7F7D6FC0-97DA-11D6-8732-00C0262CDD2C}'] function GetTPar: IDispatch; dispid 1; function SetTPar(const val: IDispatch): WordBool; dispid 2; function GetDPar: IDispatch; dispid 3; function SetDPar(const val: IDispatch): WordBool; dispid 4; function GetSPar: IDispatch; dispid 5; function SetSPar(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksInsertFragmentParamEx // Flags: (4096) Dispatchable // GUID: {7F7D6FC3-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksInsertFragmentParamEx = dispinterface ['{7F7D6FC3-97DA-11D6-8732-00C0262CDD2C}'] property fileName: WideString dispid 1; property comment: WideString dispid 2; property insertType: Smallint dispid 3; property multiLayer: WordBool dispid 4; property scaleProjLinesSize: Smallint dispid 5; function Init: WordBool; dispid 6; function GetPlace: IDispatch; dispid 7; function SetPlace(const val: IDispatch): WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksBezierParam // Flags: (4096) Dispatchable // GUID: {7F7D6FC6-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksBezierParam = dispinterface ['{7F7D6FC6-97DA-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property closed: Smallint dispid 2; function Init: WordBool; dispid 3; function GetMathPointArr: IDispatch; dispid 4; function SetMathPointArr(const val: IDispatch): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksBezierPointParam // Flags: (4096) Dispatchable // GUID: {7F7D6FC9-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksBezierPointParam = dispinterface ['{7F7D6FC9-97DA-11D6-8732-00C0262CDD2C}'] property x: Double dispid 1; property y: Double dispid 2; property ang: Double dispid 3; property left: Double dispid 4; property right: Double dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksDimTextParam // Flags: (4096) Dispatchable // GUID: {7F7D6FCC-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDimTextParam = dispinterface ['{7F7D6FCC-97DA-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property sign: Integer dispid 2; property stringFlag: WordBool dispid 3; property bitFlag: Integer dispid 4; function Init(stringFlag: WordBool): WordBool; dispid 5; function GetBitFlagValue(bitFlag: Integer): WordBool; dispid 6; function SetBitFlagValue(val: Integer; state: WordBool): WordBool; dispid 7; function GetTextArr: IDispatch; dispid 8; function SetTextArr(const val: IDispatch): WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksLDimSourceParam // Flags: (4096) Dispatchable // GUID: {7F7D6FCF-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLDimSourceParam = dispinterface ['{7F7D6FCF-97DA-11D6-8732-00C0262CDD2C}'] property x1: Double dispid 1; property y1: Double dispid 2; property x2: Double dispid 3; property y2: Double dispid 4; property dx: Double dispid 5; property dy: Double dispid 6; property ps: Smallint dispid 7; property basePoint: Smallint dispid 8; function Init: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksDimDrawingParam // Flags: (4096) Dispatchable // GUID: {7F7D6FD2-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDimDrawingParam = dispinterface ['{7F7D6FD2-97DA-11D6-8732-00C0262CDD2C}'] property pl1: WordBool dispid 1; property pl2: WordBool dispid 2; property pt1: Smallint dispid 3; property pt2: Smallint dispid 4; property textPos: Integer dispid 5; property textBase: Smallint dispid 6; property shelfDir: Integer dispid 7; property ang: Double dispid 8; property lenght: Integer dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksLDimParam // Flags: (4096) Dispatchable // GUID: {7F7D6FD5-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLDimParam = dispinterface ['{7F7D6FD5-97DA-11D6-8732-00C0262CDD2C}'] function GetTPar: IDispatch; dispid 1; function SetTPar(const val: IDispatch): WordBool; dispid 2; function GetDPar: IDispatch; dispid 3; function SetDPar(const val: IDispatch): WordBool; dispid 4; function GetSPar: IDispatch; dispid 5; function SetSPar(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksADimSourceParam // Flags: (4096) Dispatchable // GUID: {7F7D6FD8-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksADimSourceParam = dispinterface ['{7F7D6FD8-97DA-11D6-8732-00C0262CDD2C}'] property xc: Double dispid 1; property yc: Double dispid 2; property x1: Double dispid 3; property y1: Double dispid 4; property x2: Double dispid 5; property y2: Double dispid 6; property ang1: Double dispid 7; property ang2: Double dispid 8; property dir: Integer dispid 9; property rad: Double dispid 10; function Init: WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksDimensionPartsParam // Flags: (4096) Dispatchable // GUID: {7F7D6FDB-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDimensionPartsParam = dispinterface ['{7F7D6FDB-97DA-11D6-8732-00C0262CDD2C}'] property line1: Integer dispid 1; property line2: Integer dispid 2; property dimLine: Integer dispid 3; property dimLine1: Integer dispid 4; property leg: Integer dispid 5; property shelf: Integer dispid 6; property gr: Integer dispid 7; property curveExt: Integer dispid 8; function Init: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksADimParam // Flags: (4096) Dispatchable // GUID: {7F7D6FDE-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksADimParam = dispinterface ['{7F7D6FDE-97DA-11D6-8732-00C0262CDD2C}'] function GetTPar: IDispatch; dispid 1; function SetTPar(const val: IDispatch): WordBool; dispid 2; function GetDPar: IDispatch; dispid 3; function SetDPar(const val: IDispatch): WordBool; dispid 4; function GetSPar: IDispatch; dispid 5; function SetSPar(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksRBreakDrawingParam // Flags: (4096) Dispatchable // GUID: {7F7D6FE1-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRBreakDrawingParam = dispinterface ['{7F7D6FE1-97DA-11D6-8732-00C0262CDD2C}'] property pt: Smallint dispid 1; property ang: Double dispid 2; property pb: Integer dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksRBreakDimParam // Flags: (4096) Dispatchable // GUID: {7F7D6FE4-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksRBreakDimParam = dispinterface ['{7F7D6FE4-97DA-11D6-8732-00C0262CDD2C}'] function GetTPar: IDispatch; dispid 1; function SetTPar(const val: IDispatch): WordBool; dispid 2; function GetDPar: IDispatch; dispid 3; function SetDPar(const val: IDispatch): WordBool; dispid 4; function GetSPar: IDispatch; dispid 5; function SetSPar(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksQualityItemParam // Flags: (4096) Dispatchable // GUID: {7F7D6FE7-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksQualityItemParam = dispinterface ['{7F7D6FE7-97DA-11D6-8732-00C0262CDD2C}'] property minLimit: Smallint dispid 1; property maxLimit: Smallint dispid 2; property high: Double dispid 3; property low: Double dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksQualityContensParam // Flags: (4096) Dispatchable // GUID: {7F7D6FEA-97DA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksQualityContensParam = dispinterface ['{7F7D6FEA-97DA-11D6-8732-00C0262CDD2C}'] property systemQuality: Smallint dispid 1; property kindQuality: Smallint dispid 2; property name: WideString dispid 3; function Init: WordBool; dispid 4; function GetpQualityItems: IDispatch; dispid 5; function SetpQualityItems(const val: IDispatch): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksIterator // Flags: (4096) Dispatchable // GUID: {D06C9101-98CA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksIterator = dispinterface ['{D06C9101-98CA-11D6-8732-00C0262CDD2C}'] property reference: Integer dispid 1; function ksCreateIterator(tipSeartch: Integer; parent: Integer): WordBool; dispid 2; function ksMoveIterator(const ksMoveIterator: WideString): Integer; dispid 3; function ksCreateAttrIterator(obj: Integer; key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): WordBool; dispid 4; function ksMoveAttrIterator(const ch: WideString; var pObj: Integer): Integer; dispid 5; function ksCreateSpcIterator(const nameLib: WideString; styleNumb: Integer; spcObjType: Integer): WordBool; dispid 6; function ksCreateQualityIterator(system: Smallint; withLimitation: Smallint): WordBool; dispid 7; function ksMoveQualityIterator(const param: IDispatch; inMM: Smallint; const ch: WideString): WordBool; dispid 8; function ksDeleteIterator: Integer; dispid 9; end; // *********************************************************************// // DispIntf: ksFragment // Flags: (4096) Dispatchable // GUID: {D06C9104-98CA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksFragment = dispinterface ['{D06C9104-98CA-11D6-8732-00C0262CDD2C}'] function ksFragmentDefinition(const fileName: WideString; const comment: WideString; insertType: Smallint): Integer; dispid 1; function ksInsertFragment(p: Integer; curentLayer: WordBool; const par: IDispatch): Integer; dispid 2; function ksReadFragment(const fileName: WideString; curentLayer: WordBool; const par: IDispatch): Integer; dispid 3; function ksReadFragmentToGroup(const fileName: WideString; curentLayer: WordBool; const par: IDispatch): Integer; dispid 4; function ksReadFragmentToGroupEx(const fileName: WideString; curentLayer: WordBool; const par: IDispatch; scaleProjLinesSize: WordBool): Integer; dispid 5; function ksWriteFragment(gr: Integer; const fileName: WideString; const comment: WideString; xb: Double; yb: Double): Integer; dispid 6; function ksLocalFragmentDefinition(const comment: WideString): Integer; dispid 7; function ksCloseLocalFragmentDefinition: Integer; dispid 8; function ksInsertFragmentEx(p: Integer; curentLayer: WordBool; const par: IDispatch; scaleProjLinesSize: WordBool): Integer; dispid 9; end; // *********************************************************************// // DispIntf: ksFragmentLibrary // Flags: (4096) Dispatchable // GUID: {D06C910A-98CA-11D6-8732-00C0262CDD2C} // *********************************************************************// ksFragmentLibrary = dispinterface ['{D06C910A-98CA-11D6-8732-00C0262CDD2C}'] function ksChoiceFragmentFromLib(const frwLibFile: WideString; var type_: Integer): WideString; dispid 1; function ksFragmentLibraryOperation(const libName: WideString; type_: Integer): Integer; dispid 2; function ksAddFragmentToLibrary(const libName: WideString; const frwName: WideString): Integer; dispid 3; function ksCheckFragmentLibrary(const libName: WideString; possibleMessage: WordBool): Integer; dispid 4; function ksExistFragmentInLibrary(const frwName: WideString): Integer; dispid 5; end; // *********************************************************************// // DispIntf: ksTechnicalDemandParam // Flags: (4096) Dispatchable // GUID: {FBCC5B81-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksTechnicalDemandParam = dispinterface ['{FBCC5B81-996C-11D6-8732-00C0262CDD2C}'] property style: Integer dispid 1; property strCount: Smallint dispid 2; function Init: WordBool; dispid 3; function GetPGab: IDispatch; dispid 4; function SetPGab(const val: IDispatch): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksOrdinatedSourceParam // Flags: (4096) Dispatchable // GUID: {FBCC5B84-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksOrdinatedSourceParam = dispinterface ['{FBCC5B84-996C-11D6-8732-00C0262CDD2C}'] property x0: Double dispid 1; property x1: Double dispid 2; property y1: Double dispid 3; property y0: Double dispid 4; property x2: Double dispid 5; property y2: Double dispid 6; end; // *********************************************************************// // DispIntf: ksOrdinatedDimParam // Flags: (4096) Dispatchable // GUID: {FBCC5B87-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksOrdinatedDimParam = dispinterface ['{FBCC5B87-996C-11D6-8732-00C0262CDD2C}'] function Init: WordBool; dispid 1; function GetTPar: IDispatch; dispid 2; function SetTPar(const val: IDispatch): WordBool; dispid 3; function GetDPar: IDispatch; dispid 4; function SetDPar(const val: IDispatch): WordBool; dispid 5; function GetSPar: IDispatch; dispid 6; function SetSPar(const val: IDispatch): WordBool; dispid 7; end; // *********************************************************************// // DispIntf: ksOrdinatedDrawingParam // Flags: (4096) Dispatchable // GUID: {FBCC5B8A-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksOrdinatedDrawingParam = dispinterface ['{FBCC5B8A-996C-11D6-8732-00C0262CDD2C}'] property type_: Integer dispid 1; end; // *********************************************************************// // DispIntf: ksSheetSize // Flags: (4096) Dispatchable // GUID: {FBCC5B8D-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksSheetSize = dispinterface ['{FBCC5B8D-996C-11D6-8732-00C0262CDD2C}'] property width: Double dispid 1; property height: Double dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksStandartSheet // Flags: (4096) Dispatchable // GUID: {FBCC5B90-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksStandartSheet = dispinterface ['{FBCC5B90-996C-11D6-8732-00C0262CDD2C}'] property format: Smallint dispid 1; property multiply: Smallint dispid 2; property direct: WordBool dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksSheetPar // Flags: (4096) Dispatchable // GUID: {FBCC5B93-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksSheetPar = dispinterface ['{FBCC5B93-996C-11D6-8732-00C0262CDD2C}'] property layoutName: WideString dispid 1; property shtType: Smallint dispid 2; function Init: WordBool; dispid 3; function GetSheetParam: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksDocumentParam // Flags: (4096) Dispatchable // GUID: {FBCC5B96-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDocumentParam = dispinterface ['{FBCC5B96-996C-11D6-8732-00C0262CDD2C}'] property fileName: WideString dispid 1; property comment: WideString dispid 2; property author: WideString dispid 3; property type_: Smallint dispid 4; property regime: Smallint dispid 5; function Init: WordBool; dispid 6; function GetLayoutParam: IDispatch; dispid 7; end; // *********************************************************************// // DispIntf: ksDimensionsOptions // Flags: (4096) Dispatchable // GUID: {FBCC5B99-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDimensionsOptions = dispinterface ['{FBCC5B99-996C-11D6-8732-00C0262CDD2C}'] property proLineExtension: Double dispid 1; property textDistanceFromDimLine: Double dispid 2; property textDistanceFromProLine: Double dispid 3; property dimLineExtension: Double dispid 4; property arrowLength: Double dispid 5; property style: Integer dispid 6; property decimalsCount: Smallint dispid 7; property anglePrecisionLevel: Integer dispid 8; property hiddenToleranceNumber: Integer dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksSnapOptions // Flags: (4096) Dispatchable // GUID: {FBCC5B9C-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksSnapOptions = dispinterface ['{FBCC5B9C-996C-11D6-8732-00C0262CDD2C}'] property nearestPoint: WordBool dispid 1; property nearestMiddle: WordBool dispid 2; property intersect: WordBool dispid 3; property tangentToCurve: WordBool dispid 4; property normalToCurve: WordBool dispid 5; property grid: WordBool dispid 6; property xyAlign: WordBool dispid 7; property angSnap: WordBool dispid 8; property pointOnCurve: WordBool dispid 9; property commonOpt: Integer dispid 10; property angleStep: Double dispid 11; property localSnap: Smallint dispid 12; function Init: WordBool; dispid 13; function GetCommonOptValue(val: Integer): WordBool; dispid 14; function SetCommonOptValue(val: Integer; state: WordBool): WordBool; dispid 15; end; // *********************************************************************// // DispIntf: ksLibraryStyleParam // Flags: (4096) Dispatchable // GUID: {FBCC5B9F-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksLibraryStyleParam = dispinterface ['{FBCC5B9F-996C-11D6-8732-00C0262CDD2C}'] property styleName: WideString dispid 1; property styleId: Integer dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksStampNotify // Flags: (4096) Dispatchable // GUID: {404E7D5A-A13F-4CFF-8214-FEA7012110CB} // *********************************************************************// ksStampNotify = dispinterface ['{404E7D5A-A13F-4CFF-8214-FEA7012110CB}'] function BeginEditStamp: WordBool; dispid 1; function EndEditStamp(editResult: WordBool): WordBool; dispid 2; function StampCellDblClick(number: Integer): WordBool; dispid 3; function StampCellBeginEdit(number: Integer): WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksStamp // Flags: (4096) Dispatchable // GUID: {FBCC5BA5-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksStamp = dispinterface ['{FBCC5BA5-996C-11D6-8732-00C0262CDD2C}'] property reference: Integer dispid 1; function ksOpenStamp: Integer; dispid 2; function ksCloseStamp: Integer; dispid 3; function ksClearStamp(numb: Integer): Integer; dispid 4; function ksGetStampColumnText(var numb: Integer): IDispatch; dispid 5; function ksSetStampColumnText(numb: Integer; const textArr: IDispatch): Integer; dispid 6; function ksColumnNumber(numb: Integer): Integer; dispid 7; function ksTextLine(const textItem: IDispatch): Integer; dispid 8; end; // *********************************************************************// // DispIntf: ksSheetOptions // Flags: (4096) Dispatchable // GUID: {FBCC5BA8-996C-11D6-8732-00C0262CDD2C} // *********************************************************************// ksSheetOptions = dispinterface ['{FBCC5BA8-996C-11D6-8732-00C0262CDD2C}'] property shtType: Smallint dispid 1; property layoutName: WideString dispid 2; property sheetType: WordBool dispid 5; function Init: WordBool; dispid 3; function GetSheetParam(type_: WordBool): IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksCurvePatternEx // Flags: (4096) Dispatchable // GUID: {910EC549-958D-11D6-95CE-00C0262D30E3} // *********************************************************************// ksCurvePatternEx = dispinterface ['{910EC549-958D-11D6-95CE-00C0262D30E3}'] property visibleSeg: Double dispid 1; property invisibleSeg: Double dispid 2; property dx: Double dispid 3; property dy: Double dispid 4; property pictureType: Smallint dispid 5; property frwName: WideString dispid 6; function Init: WordBool; dispid 7; function GetCurvePicture: IDispatch; dispid 8; function SetCurvePicture(const picture: IDispatch): WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksCurveStyleParam // Flags: (4096) Dispatchable // GUID: {910EC54C-958D-11D6-95CE-00C0262D30E3} // *********************************************************************// ksCurveStyleParam = dispinterface ['{910EC54C-958D-11D6-95CE-00C0262D30E3}'] property name: WideString dispid 1; property color: Integer dispid 2; property paperWidth: Double dispid 3; property screenWidth: Smallint dispid 4; property curveType: Smallint dispid 5; property even: Smallint dispid 6; function GetPPattern(type_: Integer): IDispatch; dispid 7; function SetPPattern(const pattern: IDispatch): WordBool; dispid 8; function SetPropertyCurve(val: Integer; state: WordBool): WordBool; dispid 9; function GetPropertyCurve(val: Integer): WordBool; dispid 10; function Init: WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksTextStyleParam // Flags: (4096) Dispatchable // GUID: {3F715E24-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksTextStyleParam = dispinterface ['{3F715E24-97D9-11D6-95CE-00C0262D30E3}'] property name: WideString dispid 1; property height: Double dispid 2; property ksu: Double dispid 3; property step: Double dispid 4; property fontName: WideString dispid 5; property color: Integer dispid 6; property align: Smallint dispid 7; property bold: Smallint dispid 8; property italic: Smallint dispid 9; property underline: Smallint dispid 10; property posKS: Double dispid 11; property stepParPre: Double dispid 12; property stepParPst: Double dispid 13; property leftEdge: Double dispid 14; property rightEdge: Double dispid 15; function Init: WordBool; dispid 16; end; // *********************************************************************// // DispIntf: ksHatchLineParam // Flags: (4096) Dispatchable // GUID: {3F715E27-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksHatchLineParam = dispinterface ['{3F715E27-97D9-11D6-95CE-00C0262D30E3}'] property x: Double dispid 1; property y: Double dispid 2; property dx: Double dispid 3; property dy: Double dispid 4; property ang: Double dispid 5; property typeCurvStyle: Smallint dispid 6; property style: Smallint dispid 7; function GetCurPar: IDispatch; dispid 8; function SetCurPar(const curPar: IDispatch): WordBool; dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksHatchStyleParam // Flags: (4096) Dispatchable // GUID: {3F715E2A-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksHatchStyleParam = dispinterface ['{3F715E2A-97D9-11D6-95CE-00C0262D30E3}'] property name: WideString dispid 1; property step: Double dispid 2; property ang: Double dispid 3; property width: Double dispid 6; property color: Integer dispid 7; property mayChangeAngle: Smallint dispid 8; property mayChangeWidth: Smallint dispid 9; property mayChangeSpace: Smallint dispid 10; property isScalable: Smallint dispid 11; function GetRefPoint: IDispatch; dispid 4; function SetRefPoint(const refPoint: IDispatch): WordBool; dispid 5; function GetArrLineParam: IDispatch; dispid 12; function SetArrLineParam(const arrLineParam: IDispatch): WordBool; dispid 13; function Init: WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksRectParam // Flags: (4096) Dispatchable // GUID: {3F715E2D-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksRectParam = dispinterface ['{3F715E2D-97D9-11D6-95CE-00C0262D30E3}'] function GetpBot: IDispatch; dispid 1; function SetpBot(const pBot: IDispatch): WordBool; dispid 2; function GetpTop: IDispatch; dispid 3; function SetpTop(const pTop: IDispatch): WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksShelfPar // Flags: (4096) Dispatchable // GUID: {3F715E30-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksShelfPar = dispinterface ['{3F715E30-97D9-11D6-95CE-00C0262D30E3}'] property psh: Integer dispid 1; property ang: Double dispid 2; property length: Integer dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksRoughPar // Flags: (4096) Dispatchable // GUID: {3F715E33-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksRoughPar = dispinterface ['{3F715E33-97D9-11D6-95CE-00C0262D30E3}'] property style: Integer dispid 1; property type_: Smallint dispid 2; property around: Smallint dispid 3; property x: Double dispid 4; property y: Double dispid 5; property ang: Double dispid 6; property cText0: Smallint dispid 7; property cText1: Smallint dispid 8; property cText2: Smallint dispid 9; property cText3: Smallint dispid 10; function GetpText: IDispatch; dispid 11; function SetpText(const pText: IDispatch): WordBool; dispid 12; function Init: WordBool; dispid 13; function InitEx(style: Integer): WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksRoughParam // Flags: (4096) Dispatchable // GUID: {3F715E36-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksRoughParam = dispinterface ['{3F715E36-97D9-11D6-95CE-00C0262D30E3}'] function GetrPar: IDispatch; dispid 1; function SetrPar(const par: IDispatch): WordBool; dispid 2; function GetshPar: IDispatch; dispid 3; function SetshPar(const shPar: IDispatch): WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksChar255 // Flags: (4096) Dispatchable // GUID: {3F715E39-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksChar255 = dispinterface ['{3F715E39-97D9-11D6-95CE-00C0262D30E3}'] property str: WideString dispid 1; function Init: WordBool; dispid 2; end; // *********************************************************************// // DispIntf: ksLeaderParam // Flags: (4096) Dispatchable // GUID: {3F715E40-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksLeaderParam = dispinterface ['{3F715E40-97D9-11D6-95CE-00C0262D30E3}'] property x: Double dispid 1; property y: Double dispid 2; property arrowType: Smallint dispid 3; property dirX: Integer dispid 4; property signType: Smallint dispid 5; property around: Smallint dispid 6; property cText0: Smallint dispid 7; property cText1: Smallint dispid 8; property cText2: Smallint dispid 9; property cText3: Smallint dispid 10; function GetpTextline: IDispatch; dispid 11; function SetpTextline(const pTextLine: IDispatch): WordBool; dispid 12; function GetpPolyline: IDispatch; dispid 13; function SetpPolyline(const pPolyline: IDispatch): WordBool; dispid 14; function Init: WordBool; dispid 15; end; // *********************************************************************// // DispIntf: ksPosLeaderParam // Flags: (4096) Dispatchable // GUID: {3F715E43-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksPosLeaderParam = dispinterface ['{3F715E43-97D9-11D6-95CE-00C0262D30E3}'] property style: Integer dispid 1; property x: Double dispid 2; property y: Double dispid 3; property arrowType: Smallint dispid 4; property dirX: Integer dispid 5; property dirY: Integer dispid 6; function GetpTextline: IDispatch; dispid 7; function SetpTextline(const textline: IDispatch): WordBool; dispid 8; function GetpPolyline: IDispatch; dispid 9; function SetpPolyline(const polyline: IDispatch): WordBool; dispid 10; function Init: WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksBrandLeaderParam // Flags: (4096) Dispatchable // GUID: {3F715E46-97D9-11D6-95CE-00C0262D30E3} // *********************************************************************// ksBrandLeaderParam = dispinterface ['{3F715E46-97D9-11D6-95CE-00C0262D30E3}'] property dirX: Integer dispid 1; property x: Double dispid 2; property y: Double dispid 3; property arrowType: Smallint dispid 4; property style1: Integer dispid 5; property style2: Integer dispid 6; property cText0: Smallint dispid 7; property cText1: Smallint dispid 8; property cText2: Integer dispid 9; function GetpTextline: IDispatch; dispid 10; function SetpTextline(const pTextLine: IDispatch): WordBool; dispid 11; function GetpPolyline: IDispatch; dispid 12; function SetpPolyline(const pPolyline: IDispatch): WordBool; dispid 13; function Init: WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksMarkerLeaderParam // Flags: (4096) Dispatchable // GUID: {9AF8E341-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksMarkerLeaderParam = dispinterface ['{9AF8E341-98A0-11D6-95CE-00C0262D30E3}'] property x: Double dispid 1; property y: Double dispid 2; property arrowType: Smallint dispid 3; property style1: Integer dispid 4; property style2: Integer dispid 5; property cText0: Smallint dispid 6; property cText1: Smallint dispid 7; property cText2: Smallint dispid 8; function GetpTextline: IDispatch; dispid 9; function SetpTextline(const pTextLine: IDispatch): WordBool; dispid 10; function GetpPolyline: IDispatch; dispid 11; function SetpPolyline(const pPolyline: IDispatch): WordBool; dispid 12; function Init: WordBool; dispid 13; end; // *********************************************************************// // DispIntf: ksType1 // Flags: (4096) Dispatchable // GUID: {9AF8E344-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksType1 = dispinterface ['{9AF8E344-98A0-11D6-95CE-00C0262D30E3}'] property xBase: Double dispid 1; property yBase: Double dispid 2; property scale_: Double dispid 3; property angle: Double dispid 4; property gr: Integer dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksType2 // Flags: (4096) Dispatchable // GUID: {9AF8E347-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksType2 = dispinterface ['{9AF8E347-98A0-11D6-95CE-00C0262D30E3}'] property xBase: Double dispid 1; property yBase: Double dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksType3 // Flags: (4096) Dispatchable // GUID: {9AF8E34A-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksType3 = dispinterface ['{9AF8E34A-98A0-11D6-95CE-00C0262D30E3}'] property xBase: Double dispid 1; property yBase: Double dispid 2; property angle: Double dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksType5 // Flags: (4096) Dispatchable // GUID: {9AF8E34D-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksType5 = dispinterface ['{9AF8E34D-98A0-11D6-95CE-00C0262D30E3}'] property xBase: Double dispid 1; property yBase: Double dispid 2; property angle: Double dispid 3; property horizon: WordBool dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksType6 // Flags: (4096) Dispatchable // GUID: {9AF8E350-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksType6 = dispinterface ['{9AF8E350-98A0-11D6-95CE-00C0262D30E3}'] property gr: Integer dispid 1; function Init: WordBool; dispid 2; end; // *********************************************************************// // DispIntf: ksPhantom // Flags: (4096) Dispatchable // GUID: {9AF8E353-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksPhantom = dispinterface ['{9AF8E353-98A0-11D6-95CE-00C0262D30E3}'] property phantom: Smallint dispid 1; function GetPhantomParam: IDispatch; dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksRequestInfo // Flags: (4096) Dispatchable // GUID: {9AF8E356-98A0-11D6-95CE-00C0262D30E3} // *********************************************************************// ksRequestInfo = dispinterface ['{9AF8E356-98A0-11D6-95CE-00C0262D30E3}'] property prompt: WideString dispid 1; property title: WideString dispid 2; property commandsString: WideString dispid 3; property cursor: WideString dispid 4; property dynamic: Integer dispid 5; property commInstance: Integer dispid 6; property menuId: Integer dispid 7; property titleId: Integer dispid 8; property promptId: Integer dispid 9; property cursorId: Integer dispid 10; function GetCallBackC: WideString; dispid 11; function SetCallBackC(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; dispid 12; function GetCallBackP: WideString; dispid 13; function SetCallBackP(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; dispid 14; function GetCallBackCm: WideString; dispid 15; function SetCallBackCm(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; dispid 16; function Init: WordBool; dispid 17; end; // *********************************************************************// // DispIntf: ksViewPointerParam // Flags: (4096) Dispatchable // GUID: {CD1C0144-98DC-11D6-95CE-00C0262D30E3} // *********************************************************************// ksViewPointerParam = dispinterface ['{CD1C0144-98DC-11D6-95CE-00C0262D30E3}'] property style: Integer dispid 1; property x1: Double dispid 2; property y1: Double dispid 3; property x2: Double dispid 4; property y2: Double dispid 5; property xt: Double dispid 6; property yt: Double dispid 7; property type_: Smallint dispid 8; property str: WideString dispid 9; function GetpTextline: IDispatch; dispid 10; function SetpTextline(const pTextLine: IDispatch): WordBool; dispid 11; function Init: WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksCutLineParam // Flags: (4096) Dispatchable // GUID: {4FD7CE81-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksCutLineParam = dispinterface ['{4FD7CE81-9968-11D6-95CE-00C0262D30E3}'] property style: Integer dispid 1; property right: Smallint dispid 2; property x1: Double dispid 3; property y1: Double dispid 4; property x2: Double dispid 5; property y2: Double dispid 6; property type_: Smallint dispid 7; property str: WideString dispid 8; function GetpTextline: IDispatch; dispid 9; function SetpTextline(const pTextLine: IDispatch): WordBool; dispid 10; function GetpMathPoint: IDispatch; dispid 11; function SetpMathPoint(const pMathPoint: IDispatch): WordBool; dispid 12; function Init: WordBool; dispid 13; end; // *********************************************************************// // DispIntf: ksToleranceBranch // Flags: (4096) Dispatchable // GUID: {4FD7CE84-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksToleranceBranch = dispinterface ['{4FD7CE84-9968-11D6-95CE-00C0262D30E3}'] property arrowType: Smallint dispid 1; property tCorner: Smallint dispid 2; function GetpMathPoint: IDispatch; dispid 3; function SetpMathPoint(const pMathPoint: IDispatch): WordBool; dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksToleranceParam // Flags: (4096) Dispatchable // GUID: {4FD7CE87-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksToleranceParam = dispinterface ['{4FD7CE87-9968-11D6-95CE-00C0262D30E3}'] property tBase: Smallint dispid 1; property style: Integer dispid 2; property x: Double dispid 3; property y: Double dispid 4; property type_: Smallint dispid 5; function GetBranchArr: IDispatch; dispid 6; function SetBranchArr(const branchArr: IDispatch): WordBool; dispid 7; function Init: WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksSpcColumnParam // Flags: (4096) Dispatchable // GUID: {4FD7CE8A-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcColumnParam = dispinterface ['{4FD7CE8A-9968-11D6-95CE-00C0262D30E3}'] property columnType: Integer dispid 1; property ispoln: Integer dispid 2; property block: Integer dispid 3; property typeVal: Integer dispid 4; property name: WideString dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksRecordTypeAttrParam // Flags: (4096) Dispatchable // GUID: {4FD7CE8D-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksRecordTypeAttrParam = dispinterface ['{4FD7CE8D-9968-11D6-95CE-00C0262D30E3}'] property attrLibName: WideString readonly dispid 1; property key1: Integer readonly dispid 2; property key2: Integer readonly dispid 3; property key3: Integer readonly dispid 4; property key4: Integer readonly dispid 5; function Init: WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksNumberTypeAttrParam // Flags: (4096) Dispatchable // GUID: {4FD7CE90-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksNumberTypeAttrParam = dispinterface ['{4FD7CE90-9968-11D6-95CE-00C0262D30E3}'] property minValue: Double readonly dispid 1; property maxValue: Double readonly dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksSpcStyleColumnParam // Flags: (4096) Dispatchable // GUID: {4FD7CE93-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcStyleColumnParam = dispinterface ['{4FD7CE93-9968-11D6-95CE-00C0262D30E3}'] property nameColumn: WideString readonly dispid 1; property columnType: Integer readonly dispid 2; property ispoln: Integer readonly dispid 3; property edit: Smallint readonly dispid 4; property createSum: Smallint readonly dispid 5; property multiplyToCount: Smallint readonly dispid 6; property useForSectionTitle: Smallint readonly dispid 7; property textDn: Smallint readonly dispid 8; property linkId: Integer readonly dispid 9; property typeVal: Integer readonly dispid 10; function GetAdditionalParam: IDispatch; dispid 11; function Init: WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksSpcStyleSectionParam // Flags: (4096) Dispatchable // GUID: {4FD7CE96-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcStyleSectionParam = dispinterface ['{4FD7CE96-9968-11D6-95CE-00C0262D30E3}'] property sectionName: WideString readonly dispid 1; property number: Integer readonly dispid 2; property sortColumnType: Integer readonly dispid 3; property sortIspoln: Integer readonly dispid 4; property dataType: Smallint readonly dispid 5; property sortType: Integer readonly dispid 6; function GetArrColumn: IDispatch; dispid 7; function GetArrAdditionalColumn: IDispatch; dispid 8; function Init: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksSpcSubSectionParam // Flags: (4096) Dispatchable // GUID: {4FD7CE99-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcSubSectionParam = dispinterface ['{4FD7CE99-9968-11D6-95CE-00C0262D30E3}'] property name: WideString readonly dispid 1; property number: Integer readonly dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksSpcTuningSectionParam // Flags: (4096) Dispatchable // GUID: {4FD7CE9C-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcTuningSectionParam = dispinterface ['{4FD7CE9C-9968-11D6-95CE-00C0262D30E3}'] property subsectionOn: Smallint readonly dispid 1; property geometryOn: Smallint readonly dispid 2; property positionOn: Smallint readonly dispid 3; property sortOn: Smallint readonly dispid 4; property firstOnSheet: Smallint readonly dispid 5; property rezervCount: Integer readonly dispid 6; property number: Integer readonly dispid 7; function GetArrSubSection: IDispatch; dispid 8; function Init: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksSpcTuningStyleParam // Flags: (4096) Dispatchable // GUID: {4FD7CE9F-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcTuningStyleParam = dispinterface ['{4FD7CE9F-9968-11D6-95CE-00C0262D30E3}'] property grToSP: Smallint dispid 1; property zoneCalc: Smallint dispid 2; property showSectionName: Smallint dispid 3; property positionCalc: Smallint dispid 4; property geometryDel: Smallint dispid 5; property positionDel: Smallint dispid 6; property massCalc: Smallint dispid 7; property disableEmptyStr: Smallint dispid 8; property insertNull: Smallint dispid 9; property insertDash: Smallint dispid 10; property disableEmptyBlockStr: Smallint dispid 11; property showInfoByDetBlock: Smallint dispid 12; property ispolnOn: Smallint dispid 13; property ispolnMarkFull: Smallint dispid 14; property blocOnNewPage: Smallint dispid 15; property userTextStyle: Smallint dispid 16; property countIspoln: Smallint dispid 17; property countBlock: Smallint dispid 18; property predefinedTextFileName: WideString dispid 19; function GetSectionTextStyleFirst: IDispatch; dispid 20; function GetSectionTextStyleNext: IDispatch; dispid 21; function GetObjectTextStyle: IDispatch; dispid 22; function GetArrSection: IDispatch; dispid 23; function Init: WordBool; dispid 24; function SetSectionTextStyleFirst(const style: IDispatch): WordBool; dispid 25; function SetSectionTextStyleNext(const style: IDispatch): WordBool; dispid 26; function SetObjectTextStyle(const style: IDispatch): WordBool; dispid 27; function SetArrSection(const arr: IDispatch): WordBool; dispid 28; end; // *********************************************************************// // DispIntf: ksSpcStyleParam // Flags: (4096) Dispatchable // GUID: {4FD7CEA2-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcStyleParam = dispinterface ['{4FD7CEA2-9968-11D6-95CE-00C0262D30E3}'] property layoutName1: WideString readonly dispid 1; property layoutName2: WideString readonly dispid 2; property shtType1: Integer readonly dispid 3; property shtType2: Integer readonly dispid 4; property variant: Smallint readonly dispid 5; property sectionOn: Smallint readonly dispid 6; property type_: Smallint readonly dispid 7; function GetTuning: IDispatch; dispid 8; function GetArrColumn: IDispatch; dispid 9; function GetArrAdditionalColumn: IDispatch; dispid 10; function GetArrSection: IDispatch; dispid 11; function GetSheetParam: IDispatch; dispid 12; function Init: WordBool; dispid 13; end; // *********************************************************************// // DispIntf: ksSpcDescrParam // Flags: (4096) Dispatchable // GUID: {4FD7CEA5-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcDescrParam = dispinterface ['{4FD7CEA5-9968-11D6-95CE-00C0262D30E3}'] property layoutName: WideString dispid 1; property styleId: Integer dispid 2; property spcName: WideString dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksDocAttachedSpcParam // Flags: (4096) Dispatchable // GUID: {4FD7CEA8-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksDocAttachedSpcParam = dispinterface ['{4FD7CEA8-9968-11D6-95CE-00C0262D30E3}'] property fileName: WideString dispid 1; property comment: WideString dispid 2; property transmit: Smallint dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksSpcObjParam // Flags: (4096) Dispatchable // GUID: {4FD7CEAB-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcObjParam = dispinterface ['{4FD7CEAB-9968-11D6-95CE-00C0262D30E3}'] property blockNumber: Integer dispid 5; property numbSubSection: Integer dispid 6; property firstOnSheet: Smallint dispid 8; property posInc: Smallint dispid 10; property draw: Smallint dispid 12; property posNotDraw: Smallint dispid 13; property ispoln: Smallint dispid 14; function GetDocArr: IDispatch; dispid 1; function SetDocArr(const docArr: IDispatch): WordBool; dispid 2; property typeObj: Integer readonly dispid 3; property numbSection: Integer readonly dispid 4; property subSectionName: WideString readonly dispid 7; property insFrgType: Smallint readonly dispid 9; property First: Smallint readonly dispid 11; function Init: WordBool; dispid 15; end; // *********************************************************************// // DispIntf: ksLibStyle // Flags: (4096) Dispatchable // GUID: {4FD7CEAE-9968-11D6-95CE-00C0262D30E3} // *********************************************************************// ksLibStyle = dispinterface ['{4FD7CEAE-9968-11D6-95CE-00C0262D30E3}'] property fileName: WideString dispid 1; property styleNumber: Integer dispid 2; property typeAllocation: Smallint dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksDataBaseObject // Flags: (4096) Dispatchable // GUID: {0981CD01-9A49-11D6-8732-00C0262CDD2C} // *********************************************************************// ksDataBaseObject = dispinterface ['{0981CD01-9A49-11D6-8732-00C0262CDD2C}'] function ksRelation(db: Integer): Integer; dispid 1; function ksEndRelation: WordBool; dispid 2; function ksCreateDB(const typeBD: WideString): Integer; dispid 3; function ksDeleteDB(db: Integer): Integer; dispid 4; function ksConnectDB(db: Integer; const DBName: WideString): Integer; dispid 5; function ksDisconnectDB(db: Integer): Integer; dispid 6; function ksFreeStatement(db: Integer; r: Integer; fOption: Integer): Integer; dispid 7; function ksDoStatement(db: Integer; r: Integer; const stSQL: WideString): Integer; dispid 8; function ksReadRecord(db: Integer; r: Integer; const userPars: IDispatch): Integer; dispid 9; function ksCondition(db: Integer; r: Integer; const stSQL: WideString): Integer; dispid 10; function ksRDouble(const name: WideString): Integer; dispid 11; function ksRFloat(const name: WideString): Integer; dispid 12; function ksRInt(const name: WideString): Integer; dispid 13; function ksRLong(const name: WideString): Integer; dispid 14; function ksRChar(const name: WideString; size: Integer; type_: Integer): Integer; dispid 15; function ksOpenTextFile(const fileName: WideString): Integer; dispid 16; function ksCloseTextFile(F: Integer): WordBool; dispid 17; function ksReadStrFrFile(F: Integer; var res: Integer; numb: Integer): WideString; dispid 18; function ksGetTableName(db: Integer; var res: Integer; const firstOrNext: WideString): WideString; dispid 19; function ksGetColumnName(db: Integer; const tableName: WideString; var res: Integer; const firstOrNext: WideString): WideString; dispid 20; function ksIsODBCOkey: Integer; dispid 21; end; // *********************************************************************// // DispIntf: ksSpcDocumentNotify // Flags: (4096) Dispatchable // GUID: {1BD030F4-4058-4A86-9F4F-1AEEF8BE8D23} // *********************************************************************// ksSpcDocumentNotify = dispinterface ['{1BD030F4-4058-4A86-9F4F-1AEEF8BE8D23}'] function DocumentBeginAdd: WordBool; dispid 1; function DocumentAdd(const docName: WideString): WordBool; dispid 2; function DocumentBeginRemove(const docName: WideString): WordBool; dispid 3; function DocumentRemove(const docName: WideString): WordBool; dispid 4; function SpcStyleBeginChange(const libName: WideString; numb: Integer): WordBool; dispid 5; function SpcStyleChange(const libName: WideString; numb: Integer): WordBool; dispid 6; end; // *********************************************************************// // DispIntf: ksSpcDocument // Flags: (4096) Dispatchable // GUID: {51E74521-9A3A-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpcDocument = dispinterface ['{51E74521-9A3A-11D6-95CE-00C0262D30E3}'] property reference: Integer dispid 1; function GetStamp: IDispatch; dispid 2; function GetSpecification: IDispatch; dispid 3; function ksCloseDocument: WordBool; dispid 4; function ksGetSpcSheetSB: IDispatch; dispid 5; function ksGetSpcDocumentPagesCount: Integer; dispid 6; function ksSaveDocument(const fileName: WideString): WordBool; dispid 7; function ksCreateDocument(const par: IDispatch): WordBool; dispid 8; function ksDeleteObj(ref: Integer): Integer; dispid 9; function ksSetSpcSheetSB(const arr: IDispatch): Integer; dispid 10; function ksExistObj(ref: Integer): Integer; dispid 11; function ksOpenDocument(const nameDoc: WideString; regim: Smallint): WordBool; dispid 12; function ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; dispid 13; function ksSetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; dispid 14; function SaveAsToRasterFormat(const fileName: WideString; const par: IDispatch): WordBool; dispid 15; function RasterFormatParam: IDispatch; dispid 16; function SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; dispid 17; function GetSpcDocumentNotify: SpcDocumentNotify; dispid 18; end; // *********************************************************************// // DispIntf: ksSpcObjectNotify // Flags: (4096) Dispatchable // GUID: {AC5004D1-C240-41FC-AB84-7EB5C793AE7F} // *********************************************************************// ksSpcObjectNotify = dispinterface ['{AC5004D1-C240-41FC-AB84-7EB5C793AE7F}'] function BeginDelete(objRef: Integer): WordBool; dispid 1; function Delete(objRef: Integer): WordBool; dispid 2; function CellDblClick(objRef: Integer; number: Integer): WordBool; dispid 3; function CellBeginEdit(objRef: Integer; number: Integer): WordBool; dispid 4; function ChangeCurrent(objRef: Integer): WordBool; dispid 5; function DocumentBeginAdd(objRef: Integer): WordBool; dispid 6; function DocumentAdd(objRef: Integer; const docName: WideString): WordBool; dispid 7; function DocumentRemove(objRef: Integer; const docName: WideString): WordBool; dispid 8; function BeginGeomChange(objRef: Integer): WordBool; dispid 9; function GeomChange(objRef: Integer): WordBool; dispid 10; function BeginProcess(pType: Integer; objRef: Integer): WordBool; dispid 11; function EndProcess(pType: Integer): WordBool; dispid 12; function CreateObject(objRef: Integer): WordBool; dispid 13; function UpdateObject(objRef: Integer): WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksSpecificationNotify // Flags: (4096) Dispatchable // GUID: {0331AB4B-F25B-4EB9-9C8A-BFEA414E3822} // *********************************************************************// ksSpecificationNotify = dispinterface ['{0331AB4B-F25B-4EB9-9C8A-BFEA414E3822}'] function TuningSpcStyleBeginChange(const libName: WideString; numb: Integer): WordBool; dispid 1; function TuningSpcStyleChange(const libName: WideString; numb: Integer; isOk: WordBool): WordBool; dispid 2; function ChangeCurrentSpcDescription(const libName: WideString; numb: Integer): WordBool; dispid 3; function SpcDescriptionAdd(const libName: WideString; numb: Integer): WordBool; dispid 4; function SpcDescriptionRemove(const libName: WideString; numb: Integer): WordBool; dispid 5; function SpcDescriptionBeginEdit(const libName: WideString; numb: Integer): WordBool; dispid 6; function SpcDescriptionEdit(const libName: WideString; numb: Integer; isOk: WordBool): WordBool; dispid 7; function SynchronizationBegin: WordBool; dispid 8; function Synchronization: WordBool; dispid 9; function BeginCalcPositions: WordBool; dispid 10; function CalcPositions: WordBool; dispid 11; function BeginCreateObject(typeObj: Integer): WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksSpecification // Flags: (4096) Dispatchable // GUID: {51E74524-9A3A-11D6-95CE-00C0262D30E3} // *********************************************************************// ksSpecification = dispinterface ['{51E74524-9A3A-11D6-95CE-00C0262D30E3}'] function ksSpcObjectEnd: Integer; dispid 1; function ksSpcObjectEdit(spcObj: Integer): Integer; dispid 2; function ksSpcObjectCreate(const nameLib: WideString; styleNumb: Integer; secNumb: Integer; subSecNumb: Integer; numb: Double; typeObj: Smallint): Integer; dispid 3; function ksSpcChangeValue(colNumb: Integer; itemNumb: Integer; const userPars: IDispatch; typeVal: Smallint): Integer; dispid 4; function ksSpcVisible(colNumb: Integer; itemNumb: Integer; flagOn: Smallint): Integer; dispid 5; function ksSpcMassa(const sMassa: WideString): Integer; dispid 6; function ksSpcCount(ispoln: Smallint; const sCount: WideString): Integer; dispid 7; function ksSpcPosition(pos: Integer): Integer; dispid 8; function ksSpcIncludeReference(obj: Integer; Clear: Smallint): Integer; dispid 9; function ksGetSpcObjForGeom(const nameLib: WideString; numb: Integer; obj: Integer; equal: Smallint; First: Smallint): Integer; dispid 10; function ksGetSpcObjForGeomWithLimit(const nameLib: WideString; numb: Integer; obj: Integer; equal: Smallint; First: Smallint; section: Integer; attrTypeNumb: Double): Integer; dispid 11; function ksGetSpcSectionName(spcObj: Integer): WideString; dispid 12; function ksEditWindowSpcObject(obj: Integer): Integer; dispid 13; function ksGetSpcObjectNumber(spcObj: Integer): Double; dispid 14; function ksGetSpcObject(objNumb: Double): Integer; dispid 15; function ksGetSpcObjectColumnText(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): WideString; dispid 16; function ksSetSpcObjectColumnText(columnType: Integer; ispoln: Integer; block: Integer; const str: WideString): Integer; dispid 17; function ksGetSpcTableColumn(const nameLib: WideString; numb: Integer; additioanalCol: Smallint): Integer; dispid 18; function ksGetSpcColumnType(spcObj: Integer; colNumb: Integer; const par: IDispatch): Integer; dispid 19; function ksGetSpcColumnNumb(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): Integer; dispid 20; function ksGetSpcStyleParam(const nameLib: WideString; numb: Integer; const par: IDispatch; tPar: Integer): Integer; dispid 21; function ksGetSpcDescription(index: Integer; const param: IDispatch; var state: WordBool): Integer; dispid 22; function ksSetSpcDescription(index: Integer; const param: IDispatch; state: Smallint): Integer; dispid 23; function ksAddSpcDescription(const param: IDispatch): Integer; dispid 24; function ksDeleteSpcDescription(index: Integer): Integer; dispid 25; function D3SpcIncludePart(const part: IDispatch; fillTexts: WordBool): WordBool; dispid 26; function D3GetSpcObjForGeomWithLimit(const nameLib: WideString; numb: Integer; const part: IDispatch; First: Smallint; section: Smallint; attrTypeNumb: Double): Integer; dispid 27; function ksGetWidthColumnSpc(numColumn: Integer; cellOrText: WordBool): Double; dispid 28; function ksGetCurrentSpcObject: Integer; dispid 29; function ksSetCurrentSpcObject(spcObj: Integer; index: Integer): Integer; dispid 30; function ksSetTuningSpcStyleParam(index: Integer; const par: IDispatch): Integer; dispid 31; function ksGetTuningSpcStyleParam(index: Integer; const par: IDispatch): Integer; dispid 32; function ksGetSpcObjGeometry(spcObj: Integer): Integer; dispid 33; function D3GetSpcObjGeometry(spcObj: Integer): IDispatch; dispid 34; function ksGetSpcObjectColumnTextEx(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): IDispatch; dispid 35; function ksSetSpcObjectColumnTextEx(columnType: Integer; ispoln: Integer; block: Integer; const arr: IDispatch): Integer; dispid 36; function GetSpcObjectNotify(objType: Integer): SpcObjectNotify; dispid 37; end; // *********************************************************************// // DispIntf: ksDocumentTxt // Flags: (4096) Dispatchable // GUID: {74D745F1-9A3A-11D6-95CE-00C0262D30E3} // *********************************************************************// ksDocumentTxt = dispinterface ['{74D745F1-9A3A-11D6-95CE-00C0262D30E3}'] property reference: Integer dispid 1; function GetStamp: IDispatch; dispid 2; function ksCloseDocument: WordBool; dispid 3; function ksGetTxtDocumentPagesCount: Integer; dispid 4; function ksSaveDocument(const fileName: WideString): WordBool; dispid 5; function ksCreateDocument(const par: IDispatch): WordBool; dispid 6; function ksOpenDocument(const nameDoc: WideString; regim: Smallint): WordBool; dispid 7; function SaveAsToRasterFormat(const fileName: WideString; const par: IDispatch): WordBool; dispid 8; function RasterFormatParam: IDispatch; dispid 9; function SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; dispid 10; function ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; dispid 11; function ksSetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; dispid 12; end; // *********************************************************************// // DispIntf: ksAttributeTypeParam // Flags: (4096) Dispatchable // GUID: {CC26DA61-9B22-11D6-95CE-00C0262D30E3} // *********************************************************************// ksAttributeTypeParam = dispinterface ['{CC26DA61-9B22-11D6-95CE-00C0262D30E3}'] property key1: Integer dispid 1; property key2: Integer dispid 2; property key3: Integer dispid 3; property key4: Integer dispid 4; property rowsCount: Integer dispid 5; property header: WideString dispid 6; property flagVisible: WordBool dispid 7; property password: WideString dispid 8; function GetColumns: IDispatch; dispid 9; function SetColumns(const val: IDispatch): WordBool; dispid 10; function Init: WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksColumnInfoParam // Flags: (4096) Dispatchable // GUID: {CE0D05E1-9B2A-11D6-95CE-00C0262D30E3} // *********************************************************************// ksColumnInfoParam = dispinterface ['{CE0D05E1-9B2A-11D6-95CE-00C0262D30E3}'] property type_: Smallint dispid 1; property header: WideString dispid 2; property key: Smallint dispid 3; property def: WideString dispid 4; property flagEnum: WordBool dispid 5; function GetFieldEnum: IDispatch; dispid 6; function SetFieldEnum(const fieldEnum: IDispatch): WordBool; dispid 7; function GetColumns: IDispatch; dispid 8; function SetColumns(const fieldEnum: IDispatch): WordBool; dispid 9; function Init: WordBool; dispid 10; end; // *********************************************************************// // DispIntf: ksAttributeParam // Flags: (4096) Dispatchable // GUID: {CE0D05E4-9B2A-11D6-95CE-00C0262D30E3} // *********************************************************************// ksAttributeParam = dispinterface ['{CE0D05E4-9B2A-11D6-95CE-00C0262D30E3}'] property key1: Integer dispid 1; property key2: Integer dispid 2; property key3: Integer dispid 3; property key4: Integer dispid 4; property password: WideString dispid 5; function GetValues: IDispatch; dispid 6; function SetValues(const values: IDispatch): WordBool; dispid 7; function GetFlagVisible: IDispatch; dispid 8; function SetFlagVisible(const flagVisible: IDispatch): WordBool; dispid 9; function GetColumnKeys: IDispatch; dispid 10; function SetColumnKeys(const columnKeys: IDispatch): WordBool; dispid 11; function Init: WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksVariable // Flags: (4096) Dispatchable // GUID: {508A0CC1-9D74-11D6-95CE-00C0262D30E3} // *********************************************************************// ksVariable = dispinterface ['{508A0CC1-9D74-11D6-95CE-00C0262D30E3}'] property value: Double dispid 1; property note: WideString dispid 3; property name: WideString readonly dispid 2; end; // *********************************************************************// // DispIntf: ksLibraryAttrTypeParam // Flags: (4096) Dispatchable // GUID: {FA93AA21-9B3D-11D6-95CE-00C0262D30E3} // *********************************************************************// ksLibraryAttrTypeParam = dispinterface ['{FA93AA21-9B3D-11D6-95CE-00C0262D30E3}'] property name: WideString dispid 1; property typeId: Double dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksAttributeObject // Flags: (4096) Dispatchable // GUID: {FA93AA24-9B3D-11D6-95CE-00C0262D30E3} // *********************************************************************// ksAttributeObject = dispinterface ['{FA93AA24-9B3D-11D6-95CE-00C0262D30E3}'] function ksCreateAttrType(const attrType: IDispatch; const libName: WideString): Double; dispid 1; function ksDeleteAttrType(attrID: Double; const libName: WideString; const password: WideString): Integer; dispid 2; function ksGetAttrType(attrID: Double; const libName: WideString; const attrType: IDispatch): Integer; dispid 3; function ksSetAttrType(attrID: Double; const libName: WideString; const attrType: IDispatch; const password: WideString): Double; dispid 4; function ksChoiceAttrTypes(const libName: WideString): Double; dispid 5; function ksCreateAttr(pObj: Integer; const attr: IDispatch; attrID: Double; const libName: WideString): Integer; dispid 6; function ksDeleteAttr(pObj: Integer; pAttr: Integer; const password: WideString): Integer; dispid 7; function ksGetAttrValue(pAttr: Integer; rowNumb: Integer; columnNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch): Integer; dispid 8; function ksSetAttrValue(pAttr: Integer; rowNumb: Integer; columnNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch; const password: WideString): Integer; dispid 9; function ksGetAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch): Integer; dispid 10; function ksSetAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch; const password: WideString): Integer; dispid 11; function ksAddAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const value: IDispatch; const password: WideString): Integer; dispid 12; function ksDeleteAttrRow(pAttr: Integer; rowNumb: Integer; const password: WideString): Integer; dispid 13; function ksGetSizeAttrValue(pAttr: Integer; columnNumb: Integer; var count: Integer): Integer; dispid 14; function ksGetSizeAttrRow(pAttr: Integer; var count: Integer): Integer; dispid 15; function ksGetAttrKeysInfo(pAttr: Integer; var key1: Integer; var key2: Integer; var key3: Integer; var key4: Integer; var numb: Double): Integer; dispid 16; function ksGetAttrColumnInfo(pAttr: Integer; columnNumb: Integer; const columnInfo: IDispatch): Integer; dispid 17; function ksGetAttrTabInfo(pAttr: Integer; var rowsCount: Integer; var columnsCount: Integer): Integer; dispid 18; function ksViewEditAttr(pAttr: Integer; type_: Integer; const password: WideString): Integer; dispid 19; function ksViewEditAttrType(const libName: WideString; type_: Integer; attrID: Double; const password: WideString): Integer; dispid 20; function ksChoiceAttr(pObj: Integer): Integer; dispid 21; function ksGetLibraryAttrTypesArray(const libName: WideString): IDispatch; dispid 22; function ksCreateAttr3D(const pObj: IDispatch; const attr: IDispatch; attrID: Double; const libName: WideString): ksAttribute3D; dispid 23; function ksDeleteAttr3D(const pObj: IDispatch; const pAttr: ksAttribute3D; const password: WideString): Integer; dispid 24; function ksChoiceAttr3D(const pObj: IDispatch): ksAttribute3D; dispid 25; end; // *********************************************************************// // DispIntf: ksRequestInfo3D // Flags: (4096) Dispatchable // GUID: {E9807824-9D55-11D6-95CE-00C0262D30E3} // *********************************************************************// ksRequestInfo3D = dispinterface ['{E9807824-9D55-11D6-95CE-00C0262D30E3}'] property prompt: WideString dispid 1; property title: WideString dispid 2; property cursorName: WideString dispid 3; property commandsString: WideString dispid 4; property cursorId: Integer dispid 5; property menuId: Integer dispid 6; function GetFilterCallBack: WideString; dispid 7; function GetCallBack: WideString; dispid 8; function SetFilterCallBack(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; dispid 9; function SetCallBack(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; dispid 10; function GetPlacement: IDispatch; dispid 11; function GetEntityCollection: IDispatch; dispid 12; function GetCurrentCommand: Integer; dispid 13; function GetMateConstraintCollection: IDispatch; dispid 14; function GetIPhantom: IDispatch; dispid 15; function CreatePhantom: WordBool; dispid 16; end; // *********************************************************************// // DispIntf: ksMateConstraint // Flags: (4096) Dispatchable // GUID: {508A0CC4-9D74-11D6-95CE-00C0262D30E3} // *********************************************************************// ksMateConstraint = dispinterface ['{508A0CC4-9D74-11D6-95CE-00C0262D30E3}'] property constraintType: Smallint dispid 1; property direction: Smallint dispid 2; property fixed: Smallint dispid 3; property distance: Double dispid 4; function Create: WordBool; dispid 5; function GetBaseObj(number: Smallint): IDispatch; dispid 6; function SetBaseObj(number: Smallint; const obj: IDispatch): WordBool; dispid 7; function GetFeature: IDispatch; dispid 8; end; // *********************************************************************// // DispIntf: ksDefaultObject // Flags: (4096) Dispatchable // GUID: {508A0CC7-9D74-11D6-95CE-00C0262D30E3} // *********************************************************************// ksDefaultObject = dispinterface ['{508A0CC7-9D74-11D6-95CE-00C0262D30E3}'] end; // *********************************************************************// // DispIntf: ksModelLibrary // Flags: (4096) Dispatchable // GUID: {111CEFE4-A0A7-11D6-95CE-00C0262D30E3} // *********************************************************************// ksModelLibrary = dispinterface ['{111CEFE4-A0A7-11D6-95CE-00C0262D30E3}'] function ModelLibraryOperation(const libName: WideString; type_: Integer): Integer; dispid 1; function ChoiceModelFromLib(const libFile: WideString; var type_: Integer): WideString; dispid 2; function ExistModelInLibrary(const name: WideString): Integer; dispid 3; function AddD3DocumentToLibrary(const libName: WideString; const fileName: WideString): Integer; dispid 4; function CheckModelLibrary(const libName: WideString; possibleMessage: WordBool): Integer; dispid 5; end; // *********************************************************************// // DispIntf: ksVariableCollection // Flags: (4096) Dispatchable // GUID: {03CEAC81-C0B8-11D6-8734-00C0262CDD2C} // *********************************************************************// ksVariableCollection = dispinterface ['{03CEAC81-C0B8-11D6-8734-00C0262CDD2C}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; dispid 8; end; // *********************************************************************// // DispIntf: ksMateConstraintCollection // Flags: (4096) Dispatchable // GUID: {03CEAC84-C0B8-11D6-8734-00C0262CDD2C} // *********************************************************************// ksMateConstraintCollection = dispinterface ['{03CEAC84-C0B8-11D6-8734-00C0262CDD2C}'] function GetCount: Integer; dispid 1; function First: IDispatch; dispid 2; function Last: IDispatch; dispid 3; function Next: IDispatch; dispid 4; function Prev: IDispatch; dispid 5; function GetByIndex(index: Integer): IDispatch; dispid 6; function AddMateConstraint(const mate: IDispatch): WordBool; dispid 7; function RemoveMateConstraint(const mate: IDispatch): WordBool; dispid 8; function Clear: WordBool; dispid 9; function refresh: WordBool; dispid 10; function FindIt(const entity: IDispatch): Integer; dispid 11; end; // *********************************************************************// // DispIntf: ksPartCollection // Flags: (4096) Dispatchable // GUID: {03CEAC87-C0B8-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPartCollection = dispinterface ['{03CEAC87-C0B8-11D6-8734-00C0262CDD2C}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; dispid 7; function GetByIndex(index: Integer): IDispatch; dispid 8; function Add(const part: IDispatch): WordBool; dispid 9; function AddAt(const part: IDispatch; index: Integer): WordBool; dispid 10; function AddBefore(const part: IDispatch; const base: IDispatch): WordBool; dispid 11; function DetachByIndex(index: Integer): WordBool; dispid 12; function DetachByBody(const part: IDispatch): WordBool; dispid 13; function Clear: WordBool; dispid 14; function SetByIndex(const part: IDispatch; index: Integer): WordBool; dispid 15; function FindIt(const entity: IDispatch): Integer; dispid 16; end; // *********************************************************************// // DispIntf: ksMeshPartArrayDefinition // Flags: (4096) Dispatchable // GUID: {E6E78D61-C0FA-11D6-8734-00C0262CDD2C} // *********************************************************************// ksMeshPartArrayDefinition = dispinterface ['{E6E78D61-C0FA-11D6-8734-00C0262CDD2C}'] property angle1: Double dispid 1; property count1: Integer dispid 2; property step1: Double dispid 3; property factor1: WordBool dispid 4; property angle2: Double dispid 5; property count2: Integer dispid 6; property step2: Double dispid 7; property factor2: WordBool dispid 8; property insideFlag: WordBool dispid 9; function GetAxis1: IDispatch; dispid 10; function SetAxis1(const axis: IDispatch): WordBool; dispid 11; function GetAxis2: IDispatch; dispid 12; function SetAxis2(const axis: IDispatch): WordBool; dispid 13; function PartArray: IDispatch; dispid 14; function GetCopyParamAlongAxis(firstAxis: WordBool; var angle: Double; var count: Integer; var step: Double; var factor: WordBool): WordBool; dispid 15; function SetCopyParamAlongAxis(firstAxis: WordBool; angle: Double; count: Integer; step: Double; factor: WordBool): WordBool; dispid 16; function DeletedCollection: IDispatch; dispid 17; end; // *********************************************************************// // DispIntf: ksCircularPartArrayDefinition // Flags: (4096) Dispatchable // GUID: {DDD05143-C180-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCircularPartArrayDefinition = dispinterface ['{DDD05143-C180-11D6-8734-00C0262CDD2C}'] property count1: Integer dispid 1; property step1: Double dispid 2; property factor1: WordBool dispid 3; property count2: Integer dispid 4; property step2: Double dispid 5; property factor2: WordBool dispid 6; property inverce: WordBool dispid 7; property keepAngle: WordBool dispid 14; function PartArray: IDispatch; dispid 8; function GetAxis: IDispatch; dispid 9; function SetAxis(const axis: IDispatch): WordBool; dispid 10; function GetCopyParamAlongDir(var count: Integer; var step: Double; var factor: WordBool; dir: WordBool): WordBool; dispid 11; function SetCopyParamAlongDir(count: Integer; step: Double; factor: WordBool; dir: WordBool): WordBool; dispid 12; function DeletedCollection: IDispatch; dispid 13; end; // *********************************************************************// // DispIntf: ksCurvePartArrayDefinition // Flags: (4096) Dispatchable // GUID: {DDD05146-C180-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCurvePartArrayDefinition = dispinterface ['{DDD05146-C180-11D6-8734-00C0262CDD2C}'] property count: Integer dispid 1; property step: Double dispid 2; property factor: WordBool dispid 3; property keepAngle: WordBool dispid 4; property fullCurve: WordBool dispid 5; property sence: WordBool dispid 6; function PartArray: IDispatch; dispid 7; function CurveArray: IDispatch; dispid 8; function DeletedCollection: IDispatch; dispid 9; end; // *********************************************************************// // DispIntf: ksDerivativePartArrayDefinition // Flags: (4096) Dispatchable // GUID: {DDD05149-C180-11D6-8734-00C0262CDD2C} // *********************************************************************// ksDerivativePartArrayDefinition = dispinterface ['{DDD05149-C180-11D6-8734-00C0262CDD2C}'] function PartArray: IDispatch; dispid 1; function GetDeriv: IDispatch; dispid 2; function SetDeriv(const deriv: IDispatch): WordBool; dispid 3; function DeletedCollection: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksAxis2PlanesDefinition // Flags: (4096) Dispatchable // GUID: {0307BB81-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksAxis2PlanesDefinition = dispinterface ['{0307BB81-C193-11D6-8734-00C0262CDD2C}'] function SetPlane(number: Integer; const plane: IDispatch): WordBool; dispid 1; function GetPlane(number: Integer): IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksAxisOperationsDefinition // Flags: (4096) Dispatchable // GUID: {0307BB84-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksAxisOperationsDefinition = dispinterface ['{0307BB84-C193-11D6-8734-00C0262CDD2C}'] function SetOperation(const plane: IDispatch): WordBool; dispid 1; function GetOperation: IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksAxis2PointsDefinition // Flags: (4096) Dispatchable // GUID: {0307BB87-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksAxis2PointsDefinition = dispinterface ['{0307BB87-C193-11D6-8734-00C0262CDD2C}'] function SetPoint(number: Integer; const point: IDispatch): WordBool; dispid 1; function GetPoint(number: Integer): IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksAxisEdgeDefinition // Flags: (4096) Dispatchable // GUID: {0307BB8A-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksAxisEdgeDefinition = dispinterface ['{0307BB8A-C193-11D6-8734-00C0262CDD2C}'] function SetEdge(const edge: IDispatch): WordBool; dispid 1; function GetEdge: IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksMeshCopyDefinition // Flags: (4096) Dispatchable // GUID: {0307BB8D-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksMeshCopyDefinition = dispinterface ['{0307BB8D-C193-11D6-8734-00C0262CDD2C}'] property angle1: Double dispid 1; property count1: Integer dispid 2; property step1: Double dispid 3; property factor1: WordBool dispid 4; property angle2: Double dispid 5; property count2: Integer dispid 6; property step2: Double dispid 7; property factor2: WordBool dispid 8; property insideFlag: WordBool dispid 9; property geomArray: WordBool dispid 14; function OperationArray: IDispatch; dispid 10; function GetCopyParamAlongAxis(firstAxis: WordBool; var angle: Double; var count: Integer; var step: Double; var factor: WordBool): WordBool; dispid 11; function SetCopyParamAlongAxis(firstAxis: WordBool; angle: Double; count: Integer; step: Double; factor: WordBool): WordBool; dispid 12; function DeletedCollection: IDispatch; dispid 13; function GetAxis1: IDispatch; dispid 15; function SetAxis1(const __MIDL_0014: IDispatch): WordBool; dispid 16; function GetAxis2: IDispatch; dispid 17; function SetAxis2(const __MIDL_0015: IDispatch): WordBool; dispid 18; end; // *********************************************************************// // DispIntf: ksCircularCopyDefinition // Flags: (4096) Dispatchable // GUID: {0307BB90-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCircularCopyDefinition = dispinterface ['{0307BB90-C193-11D6-8734-00C0262CDD2C}'] property count1: Integer dispid 1; property step1: Double dispid 2; property factor1: WordBool dispid 3; property count2: Integer dispid 4; property step2: Double dispid 5; property factor2: WordBool dispid 6; property inverce: WordBool dispid 7; property geomArray: WordBool dispid 14; function GetOperationArray: IDispatch; dispid 8; function GetAxis: IDispatch; dispid 9; function SetAxis(const axis: IDispatch): WordBool; dispid 10; function GetCopyParamAlongDir(var count: Integer; var step: Double; var factor: WordBool; dir: WordBool): WordBool; dispid 11; function SetCopyParamAlongDir(count: Integer; step: Double; factor: WordBool; dir: WordBool): WordBool; dispid 12; function DeletedCollection: IDispatch; dispid 13; end; // *********************************************************************// // DispIntf: ksCurveCopyDefinition // Flags: (4096) Dispatchable // GUID: {0307BB93-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCurveCopyDefinition = dispinterface ['{0307BB93-C193-11D6-8734-00C0262CDD2C}'] property count: Integer dispid 1; property step: Double dispid 2; property factor: WordBool dispid 3; property keepAngle: WordBool dispid 4; property fullCurve: WordBool dispid 5; property sence: WordBool dispid 6; property geomArray: WordBool dispid 10; function OperationArray: IDispatch; dispid 7; function CurveArray: IDispatch; dispid 8; function DeletedCollection: IDispatch; dispid 9; end; // *********************************************************************// // DispIntf: ksMirrorCopyDefinition // Flags: (4096) Dispatchable // GUID: {0307BB96-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksMirrorCopyDefinition = dispinterface ['{0307BB96-C193-11D6-8734-00C0262CDD2C}'] function GetOperationArray: IDispatch; dispid 1; function GetPlane: IDispatch; dispid 2; function SetPlane(const plane: IDispatch): WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksMirrorCopyAllDefinition // Flags: (4096) Dispatchable // GUID: {0307BB99-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksMirrorCopyAllDefinition = dispinterface ['{0307BB99-C193-11D6-8734-00C0262CDD2C}'] function GetPlane: IDispatch; dispid 1; function SetPlane(const plane: IDispatch): WordBool; dispid 2; end; // *********************************************************************// // DispIntf: ksConicSpiralDefinition // Flags: (4096) Dispatchable // GUID: {0307BB9C-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksConicSpiralDefinition = dispinterface ['{0307BB9C-C193-11D6-8734-00C0262CDD2C}'] property turn: Double dispid 1; property step: Double dispid 2; property turnDir: WordBool dispid 3; property buildMode: Smallint dispid 4; property buildDir: WordBool dispid 5; property height: Double dispid 6; property heightType: Smallint dispid 7; property heightAdd: Double dispid 8; property heightAddHow: WordBool dispid 9; property initialDiam: Double dispid 10; property initialDiamType: Smallint dispid 11; property terminalDiam: Double dispid 12; property terminalDiamType: Smallint dispid 13; property tiltAngleHow: WordBool dispid 14; property firstAngle: Double dispid 15; property tiltAngle: Double dispid 16; function GetPlane: IDispatch; dispid 17; function SetPlane(const plane: IDispatch): WordBool; dispid 18; function GetLocation(var x: Double; var y: Double): WordBool; dispid 19; function SetLocation(x: Double; y: Double): WordBool; dispid 20; function GetHeightObject: IDispatch; dispid 21; function SetHeightObject(const heightObject: IDispatch): WordBool; dispid 22; function GetInitialDiamObject: IDispatch; dispid 23; function SetInitialDiamObject(const initialDiamObject: IDispatch): WordBool; dispid 24; function GetTerminalDiamObject: IDispatch; dispid 25; function SetTerminalDiamObject(const terminalDiamObject: IDispatch): WordBool; dispid 26; end; // *********************************************************************// // DispIntf: ksCylindricSpiralDefinition // Flags: (4096) Dispatchable // GUID: {0307BB9F-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCylindricSpiralDefinition = dispinterface ['{0307BB9F-C193-11D6-8734-00C0262CDD2C}'] property turn: Double dispid 1; property step: Double dispid 2; property turnDir: WordBool dispid 3; property buildMode: Smallint dispid 4; property buildDir: WordBool dispid 5; property height: Double dispid 6; property heightType: Smallint dispid 7; property heightAdd: Double dispid 8; property heightAddHow: WordBool dispid 9; property diam: Double dispid 10; property diamType: Smallint dispid 11; property firstAngle: Double dispid 12; function GetPlane: IDispatch; dispid 13; function SetPlane(const plane: IDispatch): WordBool; dispid 14; function GetLocation(var x: Double; var y: Double): WordBool; dispid 15; function SetLocation(x: Double; y: Double): WordBool; dispid 16; function GetHeightObject: IDispatch; dispid 17; function SetHeightObject(const heightObject: IDispatch): WordBool; dispid 18; function GetDiamObject: IDispatch; dispid 19; function SetDiamObject(const diamObject: IDispatch): WordBool; dispid 20; end; // *********************************************************************// // DispIntf: ksPolyLineDefinition // Flags: (4096) Dispatchable // GUID: {0307BBA2-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPolyLineDefinition = dispinterface ['{0307BBA2-C193-11D6-8734-00C0262CDD2C}'] property closed: WordBool dispid 1; function GetCountVertex: Integer; dispid 2; function AddVertex(x: Double; y: Double; z: Double; radius: Double): WordBool; dispid 3; function InsertVertex(index: Integer; x: Double; y: Double; z: Double; radius: Double): WordBool; dispid 4; function DeleteVertex(index: Integer): WordBool; dispid 5; function GetParamVertex(index: Integer; var x: Double; var y: Double; var z: Double; var radius: Double): WordBool; dispid 6; function Flush: WordBool; dispid 7; function ReadFromFile(const fileName: WideString): WordBool; dispid 8; function WriteToFile(const fileName: WideString): WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksSplineDefinition // Flags: (4096) Dispatchable // GUID: {0307BBA5-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksSplineDefinition = dispinterface ['{0307BBA5-C193-11D6-8734-00C0262CDD2C}'] property closed: WordBool dispid 1; property splineOnPoles: WordBool dispid 2; property degree: Integer dispid 3; function GetCountVertex: Integer; dispid 4; function AddVertex(x: Double; y: Double; z: Double; radius: Double): WordBool; dispid 5; function InsertVertex(index: Integer; x: Double; y: Double; z: Double; weight: Double): WordBool; dispid 6; function DeleteVertex(index: Integer): WordBool; dispid 7; function GetParamVertex(index: Integer; var x: Double; var y: Double; var z: Double; var weight: Double): WordBool; dispid 8; function Flush: WordBool; dispid 9; function ReadFromFile(const fileName: WideString): WordBool; dispid 10; function WriteToFile(const fileName: WideString): WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksFaceDefinition // Flags: (4096) Dispatchable // GUID: {0307BBA8-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksFaceDefinition = dispinterface ['{0307BBA8-C193-11D6-8734-00C0262CDD2C}'] function IsPlanar: WordBool; dispid 1; function IsCone: WordBool; dispid 2; function IsCylinder: WordBool; dispid 3; function GetCylinderParam(var h: Double; var r: Double): WordBool; dispid 4; function GetOwnerEntity: IDispatch; dispid 5; function GetSurface: IDispatch; dispid 6; function LoopCollection: IDispatch; dispid 7; property normalOrientation: WordBool readonly dispid 8; function IsConnectedWith(const faceDefinition: IDispatch): WordBool; dispid 9; function ConnectedFaceCollection: IDispatch; dispid 10; function EdgeCollection: IDispatch; dispid 11; function GetNextFace: IDispatch; dispid 12; function IsTorus: WordBool; dispid 13; function IsSphere: WordBool; dispid 14; function IsNurbsSurface: WordBool; dispid 15; function IsRevolved: WordBool; dispid 16; function IsSwept: WordBool; dispid 17; function GetTessellation: IDispatch; dispid 18; function GetArea(bitVector: LongWord): Double; dispid 19; function GetEntity: IDispatch; dispid 20; end; // *********************************************************************// // DispIntf: ksEdgeDefinition // Flags: (4096) Dispatchable // GUID: {0307BBAB-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksEdgeDefinition = dispinterface ['{0307BBAB-C193-11D6-8734-00C0262CDD2C}'] function IsStraight: WordBool; dispid 1; function GetOwnerEntity: IDispatch; dispid 2; function GetCurve3D: IDispatch; dispid 3; function GetAdjacentFace(facePlus: WordBool): IDispatch; dispid 4; function GetVertex(start: WordBool): IDispatch; dispid 5; function EdgeCollection(begin_: WordBool): IDispatch; dispid 6; function OrientedEdgeCollection: IDispatch; dispid 7; function IsArc: WordBool; dispid 8; function IsCircle: WordBool; dispid 9; function IsEllipse: WordBool; dispid 10; function IsNurbs: WordBool; dispid 11; function IsPeriodic: WordBool; dispid 12; function GetLength(bitVector: LongWord): Double; dispid 13; function GetEntity: IDispatch; dispid 14; end; // *********************************************************************// // DispIntf: ksChamferDefinition // Flags: (4096) Dispatchable // GUID: {0307BBAE-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksChamferDefinition = dispinterface ['{0307BBAE-C193-11D6-8734-00C0262CDD2C}'] property tangent: WordBool dispid 1; function GetChamferParam(var transfer: WordBool; var distance1: Double; var distance2: Double): WordBool; dispid 2; function SetChamferParam(transfer: WordBool; distance1: Double; distance2: Double): WordBool; dispid 3; function array_: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksFilletDefinition // Flags: (4096) Dispatchable // GUID: {0307BBB1-C193-11D6-8734-00C0262CDD2C} // *********************************************************************// ksFilletDefinition = dispinterface ['{0307BBB1-C193-11D6-8734-00C0262CDD2C}'] property radius: Double dispid 1; property tangent: WordBool dispid 2; function array_: IDispatch; dispid 3; end; // *********************************************************************// // DispIntf: ksBaseExtrusionDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFE1-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBaseExtrusionDefinition = dispinterface ['{DEEFEFE1-C3E2-11D6-8734-00C0262CDD2C}'] property directionType: Smallint dispid 1; function SetSketch(const sketch: IDispatch): WordBool; dispid 2; function GetSketch: IDispatch; dispid 3; function GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; dispid 4; function SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; dispid 5; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 6; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 7; function ThinParam: IDispatch; dispid 8; function ExtrusionParam: IDispatch; dispid 9; function GetDepthObject(normal: WordBool): IDispatch; dispid 10; function SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; dispid 11; function ResetDepthObject(normal: WordBool): WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksBossExtrusionDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFE4-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBossExtrusionDefinition = dispinterface ['{DEEFEFE4-C3E2-11D6-8734-00C0262CDD2C}'] property directionType: Smallint dispid 1; function SetSketch(const sketch: IDispatch): WordBool; dispid 2; function GetSketch: IDispatch; dispid 3; function GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; dispid 4; function SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; dispid 5; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 6; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 7; function ThinParam: IDispatch; dispid 8; function ExtrusionParam: IDispatch; dispid 9; function GetDepthObject(normal: WordBool): IDispatch; dispid 10; function SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; dispid 11; function ResetDepthObject(normal: WordBool): WordBool; dispid 12; end; // *********************************************************************// // DispIntf: ksCutExtrusionDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFE7-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCutExtrusionDefinition = dispinterface ['{DEEFEFE7-C3E2-11D6-8734-00C0262CDD2C}'] property directionType: Smallint dispid 1; property cut: WordBool dispid 2; function SetSketch(const sketch: IDispatch): WordBool; dispid 3; function GetSketch: IDispatch; dispid 4; function GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; dispid 5; function SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; dispid 6; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 7; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 8; function ThinParam: IDispatch; dispid 9; function ExtrusionParam: IDispatch; dispid 10; function GetDepthObject(normal: WordBool): IDispatch; dispid 11; function SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; dispid 12; function ResetDepthObject(normal: WordBool): WordBool; dispid 13; end; // *********************************************************************// // DispIntf: ksBaseLoftDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFEA-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBaseLoftDefinition = dispinterface ['{DEEFEFEA-C3E2-11D6-8734-00C0262CDD2C}'] function GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; dispid 1; function SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; dispid 2; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 3; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 4; function ThinParam: IDispatch; dispid 5; function Sketchs: IDispatch; dispid 6; end; // *********************************************************************// // DispIntf: ksBossLoftDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFED-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBossLoftDefinition = dispinterface ['{DEEFEFED-C3E2-11D6-8734-00C0262CDD2C}'] function GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; dispid 1; function SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; dispid 2; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 3; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 4; function ThinParam: IDispatch; dispid 5; function Sketchs: IDispatch; dispid 6; end; // *********************************************************************// // DispIntf: ksCutLoftDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFF0-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCutLoftDefinition = dispinterface ['{DEEFEFF0-C3E2-11D6-8734-00C0262CDD2C}'] property cut: WordBool dispid 1; function GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; dispid 2; function SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; dispid 3; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 4; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 5; function ThinParam: IDispatch; dispid 6; function Sketchs: IDispatch; dispid 7; end; // *********************************************************************// // DispIntf: ksInclineDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFF3-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksInclineDefinition = dispinterface ['{DEEFEFF3-C3E2-11D6-8734-00C0262CDD2C}'] property angle: Double dispid 1; property direction: WordBool dispid 2; function FaceArray: IDispatch; dispid 3; function GetPlane: IDispatch; dispid 4; function SetPlane(const plane: IDispatch): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksShellDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFF6-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksShellDefinition = dispinterface ['{DEEFEFF6-C3E2-11D6-8734-00C0262CDD2C}'] property thickness: Double dispid 1; property thinType: WordBool dispid 2; function FaceArray: IDispatch; dispid 3; end; // *********************************************************************// // DispIntf: ksBaseEvolutionDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFF9-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBaseEvolutionDefinition = dispinterface ['{DEEFEFF9-C3E2-11D6-8734-00C0262CDD2C}'] property sketchShiftType: Smallint dispid 1; function SetSketch(const sketch: IDispatch): WordBool; dispid 2; function GetSketch: IDispatch; dispid 3; function PathPartArray: IDispatch; dispid 4; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 5; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 6; function ThinParam: IDispatch; dispid 7; end; // *********************************************************************// // DispIntf: ksBossEvolutionDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFFC-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBossEvolutionDefinition = dispinterface ['{DEEFEFFC-C3E2-11D6-8734-00C0262CDD2C}'] property sketchShiftType: Smallint dispid 1; function SetSketch(const sketch: IDispatch): WordBool; dispid 2; function GetSketch: IDispatch; dispid 3; function PathPartArray: IDispatch; dispid 4; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 5; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 6; function ThinParam: IDispatch; dispid 7; end; // *********************************************************************// // DispIntf: ksCutEvolutionDefinition // Flags: (4096) Dispatchable // GUID: {DEEFEFFF-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCutEvolutionDefinition = dispinterface ['{DEEFEFFF-C3E2-11D6-8734-00C0262CDD2C}'] property sketchShiftType: Smallint dispid 1; property cut: WordBool dispid 2; function SetSketch(const sketch: IDispatch): WordBool; dispid 3; function GetSketch: IDispatch; dispid 4; function PathPartArray: IDispatch; dispid 5; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 6; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 7; function ThinParam: IDispatch; dispid 8; end; // *********************************************************************// // DispIntf: ksRibDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF002-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksRibDefinition = dispinterface ['{DEEFF002-C3E2-11D6-8734-00C0262CDD2C}'] property index: Integer dispid 1; property angle: Double dispid 2; property side: Integer dispid 3; function GetSketch: IDispatch; dispid 4; function SetSketch(const sketch: IDispatch): WordBool; dispid 5; function GetThinParam(var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 6; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 7; function ThinParam: IDispatch; dispid 8; end; // *********************************************************************// // DispIntf: ksCutByPlaneDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF005-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCutByPlaneDefinition = dispinterface ['{DEEFF005-C3E2-11D6-8734-00C0262CDD2C}'] property direction: WordBool dispid 1; function GetPlane: IDispatch; dispid 2; function SetPlane(const plane: IDispatch): WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksCutBySketchDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF008-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCutBySketchDefinition = dispinterface ['{DEEFF008-C3E2-11D6-8734-00C0262CDD2C}'] property direction: WordBool dispid 1; function GetSketch: IDispatch; dispid 2; function SetSketch(const sketch: IDispatch): WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksPlaneOffsetDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF00B-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneOffsetDefinition = dispinterface ['{DEEFF00B-C3E2-11D6-8734-00C0262CDD2C}'] property offset: Double dispid 1; property direction: WordBool dispid 2; function SetPlane(const plane: IDispatch): WordBool; dispid 3; function GetPlane: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksPlaneAngleDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF00E-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneAngleDefinition = dispinterface ['{DEEFF00E-C3E2-11D6-8734-00C0262CDD2C}'] property angle: Double dispid 1; function SetPlane(const plane: IDispatch): WordBool; dispid 2; function GetPlane: IDispatch; dispid 3; function SetAxis(const axis: IDispatch): WordBool; dispid 4; function GetAxis: IDispatch; dispid 5; end; // *********************************************************************// // DispIntf: ksPlane3PointsDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF011-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlane3PointsDefinition = dispinterface ['{DEEFF011-C3E2-11D6-8734-00C0262CDD2C}'] function SetPoint(number: Integer; const point: IDispatch): WordBool; dispid 1; function GetPoint(number: Integer): IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksPlaneNormalToSurfaceDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF014-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneNormalToSurfaceDefinition = dispinterface ['{DEEFF014-C3E2-11D6-8734-00C0262CDD2C}'] property angle: Double dispid 1; function SetFace(const face: IDispatch): WordBool; dispid 2; function GetFace: IDispatch; dispid 3; function SetPlane(const plane: IDispatch): WordBool; dispid 4; function GetPlane: IDispatch; dispid 5; end; // *********************************************************************// // DispIntf: ksPlaneTangentToSurfaceDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF017-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneTangentToSurfaceDefinition = dispinterface ['{DEEFF017-C3E2-11D6-8734-00C0262CDD2C}'] property choosePlane: Smallint dispid 1; function SetFace(const face: IDispatch): WordBool; dispid 2; function GetFace: IDispatch; dispid 3; function SetPlane(const plane: IDispatch): WordBool; dispid 4; function GetPlane: IDispatch; dispid 5; end; // *********************************************************************// // DispIntf: ksPlaneEdgePointDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF01A-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneEdgePointDefinition = dispinterface ['{DEEFF01A-C3E2-11D6-8734-00C0262CDD2C}'] function SetEdge(const edge: IDispatch): WordBool; dispid 1; function GetEdge: IDispatch; dispid 2; function SetPoint(const point: IDispatch): WordBool; dispid 3; function GetPoint: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksPlaneParallelDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF01D-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneParallelDefinition = dispinterface ['{DEEFF01D-C3E2-11D6-8734-00C0262CDD2C}'] function SetPlane(const plane: IDispatch): WordBool; dispid 1; function GetPlane: IDispatch; dispid 2; function SetPoint(const point: IDispatch): WordBool; dispid 3; function GetPoint: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksPlanePerpendicularDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF020-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlanePerpendicularDefinition = dispinterface ['{DEEFF020-C3E2-11D6-8734-00C0262CDD2C}'] function SetEdge(const edge: IDispatch): WordBool; dispid 1; function GetEdge: IDispatch; dispid 2; function SetPoint(const point: IDispatch): WordBool; dispid 3; function GetPoint: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksPlaneLineToEdgeDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF023-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneLineToEdgeDefinition = dispinterface ['{DEEFF023-C3E2-11D6-8734-00C0262CDD2C}'] property parallel: WordBool dispid 1; function SetEdgeFirst(const edge1: IDispatch): WordBool; dispid 2; function GetEdgeFirst: IDispatch; dispid 3; function SetEdgeSecond(const edge2: IDispatch): WordBool; dispid 4; function GetEdgeSecond: IDispatch; dispid 5; end; // *********************************************************************// // DispIntf: ksPlaneLineToPlaneDefinition // Flags: (4096) Dispatchable // GUID: {DEEFF026-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksPlaneLineToPlaneDefinition = dispinterface ['{DEEFF026-C3E2-11D6-8734-00C0262CDD2C}'] property parallel: WordBool dispid 1; function SetEdge(const edge: IDispatch): WordBool; dispid 2; function GetEdge: IDispatch; dispid 3; function SetPlane(const plane: IDispatch): WordBool; dispid 4; function GetPlane: IDispatch; dispid 5; end; // *********************************************************************// // DispIntf: ksThinParam // Flags: (4096) Dispatchable // GUID: {DEEFF029-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksThinParam = dispinterface ['{DEEFF029-C3E2-11D6-8734-00C0262CDD2C}'] property thin: WordBool dispid 1; property thinType: Smallint dispid 2; property normalThickness: Double dispid 3; property reverseThickness: Double dispid 4; end; // *********************************************************************// // DispIntf: ksExtrusionParam // Flags: (4096) Dispatchable // GUID: {DEEFF02C-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksExtrusionParam = dispinterface ['{DEEFF02C-C3E2-11D6-8734-00C0262CDD2C}'] property typeNormal: Smallint dispid 1; property depthNormal: Double dispid 2; property draftValueNormal: Double dispid 3; property draftOutwardNormal: WordBool dispid 4; property typeReverse: Smallint dispid 5; property depthReverse: Double dispid 6; property draftValueReverse: Double dispid 7; property draftOutwardReverse: WordBool dispid 8; property direction: Integer dispid 9; end; // *********************************************************************// // DispIntf: ksRotatedParam // Flags: (4096) Dispatchable // GUID: {DEEFF02F-C3E2-11D6-8734-00C0262CDD2C} // *********************************************************************// ksRotatedParam = dispinterface ['{DEEFF02F-C3E2-11D6-8734-00C0262CDD2C}'] property angleNormal: Double dispid 1; property angleReverse: Double dispid 2; property toroidShape: WordBool dispid 3; property direction: Integer dispid 4; end; // *********************************************************************// // DispIntf: ksColorParam // Flags: (4096) Dispatchable // GUID: {2DFACC61-C4A4-11D6-8734-00C0262CDD2C} // *********************************************************************// ksColorParam = dispinterface ['{2DFACC61-C4A4-11D6-8734-00C0262CDD2C}'] property color: Integer dispid 1; property ambient: Double dispid 2; property diffuse: Double dispid 3; property specularity: Double dispid 4; property shininess: Double dispid 5; property transparency: Double dispid 6; property emission: Double dispid 7; function Clear: WordBool; dispid 8; end; // *********************************************************************// // DispIntf: ksBaseRotatedDefinition // Flags: (4096) Dispatchable // GUID: {2DFACC67-C4A4-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBaseRotatedDefinition = dispinterface ['{2DFACC67-C4A4-11D6-8734-00C0262CDD2C}'] property directionType: Smallint dispid 1; property toroidShapeType: WordBool dispid 2; function SetSketch(const sketch: IDispatch): WordBool; dispid 3; function GetSketch: IDispatch; dispid 4; function GetSideParam(side1: WordBool; var angle: Double): WordBool; dispid 5; function SetSideParam(side1: WordBool; angle: Double): WordBool; dispid 6; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 7; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 8; function ThinParam: IDispatch; dispid 9; function RotatedParam: IDispatch; dispid 10; end; // *********************************************************************// // DispIntf: ksBossRotatedDefinition // Flags: (4096) Dispatchable // GUID: {2DFACC6A-C4A4-11D6-8734-00C0262CDD2C} // *********************************************************************// ksBossRotatedDefinition = dispinterface ['{2DFACC6A-C4A4-11D6-8734-00C0262CDD2C}'] property directionType: Smallint dispid 1; property toroidShapeType: WordBool dispid 2; function SetSketch(const sketch: IDispatch): WordBool; dispid 3; function GetSketch: IDispatch; dispid 4; function GetSideParam(side1: WordBool; var angle: Double): WordBool; dispid 5; function SetSideParam(side1: WordBool; angle: Double): WordBool; dispid 6; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 7; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 8; function ThinParam: IDispatch; dispid 9; function RotatedParam: IDispatch; dispid 10; end; // *********************************************************************// // DispIntf: ksCutRotatedDefinition // Flags: (4096) Dispatchable // GUID: {2DFACC6D-C4A4-11D6-8734-00C0262CDD2C} // *********************************************************************// ksCutRotatedDefinition = dispinterface ['{2DFACC6D-C4A4-11D6-8734-00C0262CDD2C}'] property directionType: Smallint dispid 1; property toroidShapeType: WordBool dispid 2; property cut: WordBool dispid 3; function SetSketch(const sketch: IDispatch): WordBool; dispid 4; function GetSketch: IDispatch; dispid 5; function GetSideParam(side1: WordBool; var angle: Double): WordBool; dispid 6; function SetSideParam(side1: WordBool; angle: Double): WordBool; dispid 7; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; dispid 8; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; dispid 9; function ThinParam: IDispatch; dispid 10; function RotatedParam: IDispatch; dispid 11; end; // *********************************************************************// // DispIntf: ksSketchDefinition // Flags: (4096) Dispatchable // GUID: {2DFACC70-C4A4-11D6-8734-00C0262CDD2C} // *********************************************************************// ksSketchDefinition = dispinterface ['{2DFACC70-C4A4-11D6-8734-00C0262CDD2C}'] property angle: Double dispid 1; function EndEdit: WordBool; dispid 2; function SetPlane(const plane: IDispatch): WordBool; dispid 3; function GetPlane: IDispatch; dispid 4; function GetLocation(var x: Double; var y: Double): WordBool; dispid 5; function SetLocation(x: Double; y: Double): WordBool; dispid 6; function GetLoftPoint(var x: Double; var y: Double): WordBool; dispid 7; function UserSetPlacement(const prompt: WideString): WordBool; dispid 8; function BeginEdit: IDispatch; dispid 9; function AddProjectionOf(const entity: IDispatch): Integer; dispid 10; function SetLoftPoint(x: Double; y: Double): WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksRasterFormatParam // Flags: (4096) Dispatchable // GUID: {1A91A8AB-AF8C-4EE3-86D4-0A9C00123195} // *********************************************************************// ksRasterFormatParam = dispinterface ['{1A91A8AB-AF8C-4EE3-86D4-0A9C00123195}'] property format: Smallint dispid 1; property colorBPP: Smallint dispid 2; property greyScale: WordBool dispid 3; property extResolution: Integer dispid 4; property extScale: Double dispid 5; property colorType: Smallint dispid 6; property onlyThinLine: WordBool dispid 7; property pages: WideString dispid 8; property rangeIndex: Smallint dispid 9; property multiPageOutput: WordBool dispid 10; function Init: WordBool; dispid 11; end; // *********************************************************************// // DispIntf: ksAdditionFormatParam // Flags: (4096) Dispatchable // GUID: {0FD25FF9-AB0A-48F3-BAD4-F193116C0887} // *********************************************************************// ksAdditionFormatParam = dispinterface ['{0FD25FF9-AB0A-48F3-BAD4-F193116C0887}'] property format: Smallint dispid 1; property formatBinary: WordBool dispid 2; property topolgyIncluded: WordBool dispid 3; function Init: WordBool; dispid 4; end; // *********************************************************************// // DispIntf: ksConstraintParam // Flags: (4096) Dispatchable // GUID: {862E250D-9DB1-47E8-8EE2-9BE2D2453D5A} // *********************************************************************// ksConstraintParam = dispinterface ['{862E250D-9DB1-47E8-8EE2-9BE2D2453D5A}'] property constrType: Smallint dispid 1; property index: SYSINT dispid 2; property partner: Integer dispid 3; property partnerIndex: SYSINT dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksImportedSurfaceDefinition // Flags: (4096) Dispatchable // GUID: {78A2C35E-A7DA-414E-B90A-F19998EC7BD1} // *********************************************************************// ksImportedSurfaceDefinition = dispinterface ['{78A2C35E-A7DA-414E-B90A-F19998EC7BD1}'] function Clear: WordBool; dispid 1; function BeginCurve: WordBool; dispid 2; function AddPoint(x: Double; y: Double; z: Double): WordBool; dispid 3; function EndCurve: WordBool; dispid 4; function AddCurve(arr: OleVariant): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksFaceCollection // Flags: (4096) Dispatchable // GUID: {0E95ACE0-0E73-406F-AE94-E8A0592E298D} // *********************************************************************// ksFaceCollection = dispinterface ['{0E95ACE0-0E73-406F-AE94-E8A0592E298D}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; dispid 8; function FindIt(const entity: IDispatch): Integer; dispid 9; end; // *********************************************************************// // DispIntf: ksVertexDefinition // Flags: (4096) Dispatchable // GUID: {A7257E73-EB61-4602-BC8B-2D00EA4AA062} // *********************************************************************// ksVertexDefinition = dispinterface ['{A7257E73-EB61-4602-BC8B-2D00EA4AA062}'] function GetPoint(var x: Double; var y: Double; var z: Double): WordBool; dispid 1; function GetOwnerEntity: IDispatch; dispid 2; property topologyVertex: WordBool readonly dispid 3; property freeVertex: WordBool readonly dispid 4; end; // *********************************************************************// // DispIntf: ksTessellation // Flags: (4096) Dispatchable // GUID: {B810650E-7819-485C-90D2-ADEB647AE5E2} // *********************************************************************// ksTessellation = dispinterface ['{B810650E-7819-485C-90D2-ADEB647AE5E2}'] function GetFacetsCount: Integer; dispid 1; function GetFacetData(index: SYSINT; const facet: IDispatch): WordBool; dispid 2; function GetPointsCount: Integer; dispid 3; function GetPoint(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; dispid 4; function GetNormal(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; dispid 5; function SetFacetSize(sag: Double): WordBool; dispid 6; function GetFacetSize: Double; dispid 7; function GetFacet: IDispatch; dispid 8; function refresh: WordBool; dispid 9; end; // *********************************************************************// // DispIntf: ksFacet // Flags: (4096) Dispatchable // GUID: {EB6AFBC0-C387-4E07-B24E-DDF2B7926A26} // *********************************************************************// ksFacet = dispinterface ['{EB6AFBC0-C387-4E07-B24E-DDF2B7926A26}'] function GetPointsCount: SYSINT; dispid 1; function GetPoint(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; dispid 2; function GetNormal(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; dispid 3; function GetTessellationIndex(index: SYSINT): SYSINT; dispid 4; end; // *********************************************************************// // DispIntf: ksMeasurer // Flags: (4096) Dispatchable // GUID: {ABC84FE5-3945-4A0B-820A-719BF4B79224} // *********************************************************************// ksMeasurer = dispinterface ['{ABC84FE5-3945-4A0B-820A-719BF4B79224}'] property unit_: LongWord dispid 5; property extendObject1: WordBool dispid 6; property extendObject2: WordBool dispid 7; function SetObject1(const obj: IDispatch): WordBool; dispid 1; function SetObject2(const obj: IDispatch): WordBool; dispid 2; function GetObject1: IDispatch; dispid 3; function GetObject2: IDispatch; dispid 4; function Calc: WordBool; dispid 8; function IsAngleValid: WordBool; dispid 9; property angle: Double readonly dispid 10; property distance: Double readonly dispid 11; function GetPoint1(var x: Double; var y: Double; var z: Double): WordBool; dispid 12; function GetPoint2(var x: Double; var y: Double; var z: Double): WordBool; dispid 13; end; // *********************************************************************// // DispIntf: ksBodyCollection // Flags: (4096) Dispatchable // GUID: {CFC49C01-7653-4845-93FD-13428F5D58EC} // *********************************************************************// ksBodyCollection = dispinterface ['{CFC49C01-7653-4845-93FD-13428F5D58EC}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function FindIt(const entity: IDispatch): Integer; dispid 8; end; // *********************************************************************// // DispIntf: ksBody // Flags: (4096) Dispatchable // GUID: {03EFC9DD-E05A-4277-BC7C-4FD499A252DE} // *********************************************************************// ksBody = dispinterface ['{03EFC9DD-E05A-4277-BC7C-4FD499A252DE}'] function GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; dispid 1; function FaceCollection: IDispatch; dispid 2; function IsSolid: WordBool; dispid 3; function CalcMassInertiaProperties(bitVector: LongWord): IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksSurface // Flags: (4096) Dispatchable // GUID: {963CB6E1-B9BF-4234-964A-13BFE6C0282A} // *********************************************************************// ksSurface = dispinterface ['{963CB6E1-B9BF-4234-964A-13BFE6C0282A}'] function GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; dispid 1; function GetPoint(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 2; function GetNormal(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 3; function GetTangentVectorU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 4; function GetTangentVectorV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 5; function GetDerivativeU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 6; function GetDerivativeV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 7; function GetDerivativeUU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 8; function GetDerivativeVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 9; function GetDerivativeUV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 10; function GetDerivativeUUU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 11; function GetDerivativeVVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 12; function GetDerivativeUVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 13; function GetDerivativeUUV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 14; function GetParamUMin: Double; dispid 15; function GetParamUMax: Double; dispid 16; function GetParamVMin: Double; dispid 17; function GetParamVMax: Double; dispid 18; function IsClosedU: WordBool; dispid 19; function IsClosedV: WordBool; dispid 20; function IsPlane: WordBool; dispid 21; function IsCone: WordBool; dispid 22; function IsCylinder: WordBool; dispid 23; function IsTorus: WordBool; dispid 24; function IsSphere: WordBool; dispid 25; function IsNurbsSurface: WordBool; dispid 26; function IsRevolved: WordBool; dispid 27; function IsSwept: WordBool; dispid 28; function GetSurfaceParam: IDispatch; dispid 29; function GetArea(bitVector: LongWord): Double; dispid 30; end; // *********************************************************************// // DispIntf: ksEdgeCollection // Flags: (4096) Dispatchable // GUID: {6096A4FD-970B-468C-815E-37CA1970A203} // *********************************************************************// ksEdgeCollection = dispinterface ['{6096A4FD-970B-468C-815E-37CA1970A203}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function FindIt(const entity: IDispatch): Integer; dispid 8; end; // *********************************************************************// // DispIntf: ksOrientedEdge // Flags: (4096) Dispatchable // GUID: {88C32A80-3735-4E18-A02E-9B2A8F0A90E3} // *********************************************************************// ksOrientedEdge = dispinterface ['{88C32A80-3735-4E18-A02E-9B2A8F0A90E3}'] function GetEdge: IDispatch; dispid 1; function GetOrientation: WordBool; dispid 2; function GetOwnerEntity: IDispatch; dispid 3; function GetNext: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksOrientedEdgeCollection // Flags: (4096) Dispatchable // GUID: {5CE8909D-CF3D-418F-A9B9-0A12B23916C0} // *********************************************************************// ksOrientedEdgeCollection = dispinterface ['{5CE8909D-CF3D-418F-A9B9-0A12B23916C0}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function FindIt(const entity: IDispatch): Integer; dispid 8; end; // *********************************************************************// // DispIntf: ksLoop // Flags: (4096) Dispatchable // GUID: {22BC5C86-CF58-45E4-AA46-5E8D5A825798} // *********************************************************************// ksLoop = dispinterface ['{22BC5C86-CF58-45E4-AA46-5E8D5A825798}'] function OrientedEdgeCollection(const edge: IDispatch): IDispatch; dispid 1; function EdgeCollection: IDispatch; dispid 2; function IsOuter: WordBool; dispid 3; function GetLength(bitVector: LongWord): Double; dispid 4; end; // *********************************************************************// // DispIntf: ksLoopCollection // Flags: (4096) Dispatchable // GUID: {1BD7207E-36AA-47DF-913E-AD26DE6C16E8} // *********************************************************************// ksLoopCollection = dispinterface ['{1BD7207E-36AA-47DF-913E-AD26DE6C16E8}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; end; // *********************************************************************// // DispIntf: ksCurve3D // Flags: (4096) Dispatchable // GUID: {7572648A-D4EE-41FE-8D74-EC7D1F91BDE2} // *********************************************************************// ksCurve3D = dispinterface ['{7572648A-D4EE-41FE-8D74-EC7D1F91BDE2}'] function GetPoint(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 1; function GetTangentVector(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 2; function GetNormal(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 3; function GetDerivativeT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 4; function GetDerivativeTT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 5; function GetDerivativeTTT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; dispid 6; function GetParamMin: Double; dispid 7; function GetParamMax: Double; dispid 8; function IsClosed: WordBool; dispid 9; function IsPeriodic: WordBool; dispid 10; function GetMetricLength(startParam: Double; endParam: Double): Double; dispid 11; function GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; dispid 12; function IsDegenerate: WordBool; dispid 13; function IsPlanar: WordBool; dispid 14; function IsLineSeg: WordBool; dispid 15; function IsArc: WordBool; dispid 16; function IsCircle: WordBool; dispid 17; function IsEllipse: WordBool; dispid 18; function IsNurbs: WordBool; dispid 19; function GetCurveParam: IDispatch; dispid 20; function GetLength(bitVector: LongWord): Double; dispid 21; end; // *********************************************************************// // DispIntf: ksLineSeg3dParam // Flags: (4096) Dispatchable // GUID: {DC8F6A7B-FF16-46FF-986D-2F7E1F6B25C4} // *********************************************************************// ksLineSeg3dParam = dispinterface ['{DC8F6A7B-FF16-46FF-986D-2F7E1F6B25C4}'] function GetPointFirst(var x: Double; var y: Double; var z: Double): WordBool; dispid 1; function GetPointLast(var x: Double; var y: Double; var z: Double): WordBool; dispid 2; end; // *********************************************************************// // DispIntf: ksCircle3dParam // Flags: (4096) Dispatchable // GUID: {82758442-C9EB-48F7-B304-083C5E64D4E0} // *********************************************************************// ksCircle3dParam = dispinterface ['{82758442-C9EB-48F7-B304-083C5E64D4E0}'] property radius: Double readonly dispid 1; function GetPlacement: IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksEllipse3dParam // Flags: (4096) Dispatchable // GUID: {5B8082B8-6AD3-4509-826D-D23B7F613213} // *********************************************************************// ksEllipse3dParam = dispinterface ['{5B8082B8-6AD3-4509-826D-D23B7F613213}'] property majorRadius: Double readonly dispid 1; property minorRadius: Double readonly dispid 2; function GetPlacement: IDispatch; dispid 3; end; // *********************************************************************// // DispIntf: ksPlaneParam // Flags: (4096) Dispatchable // GUID: {6A6F6B95-D100-4D54-A430-70A42D342917} // *********************************************************************// ksPlaneParam = dispinterface ['{6A6F6B95-D100-4D54-A430-70A42D342917}'] function GetPlacement: IDispatch; dispid 1; end; // *********************************************************************// // DispIntf: ksConeParam // Flags: (4096) Dispatchable // GUID: {CCFA0D95-0834-4F92-988B-6E477AD67589} // *********************************************************************// ksConeParam = dispinterface ['{CCFA0D95-0834-4F92-988B-6E477AD67589}'] property radius: Double readonly dispid 1; property height: Double readonly dispid 2; property angle: Double readonly dispid 3; function GetPlacement: IDispatch; dispid 4; end; // *********************************************************************// // DispIntf: ksCylinderParam // Flags: (4096) Dispatchable // GUID: {5D462836-CF69-4995-AB78-8C7A83D09BD7} // *********************************************************************// ksCylinderParam = dispinterface ['{5D462836-CF69-4995-AB78-8C7A83D09BD7}'] property radius: Double readonly dispid 1; property height: Double readonly dispid 2; function GetPlacement: IDispatch; dispid 3; end; // *********************************************************************// // DispIntf: ksSphereParam // Flags: (4096) Dispatchable // GUID: {C32977F3-3CA7-4D56-8AE7-4963E6851B75} // *********************************************************************// ksSphereParam = dispinterface ['{C32977F3-3CA7-4D56-8AE7-4963E6851B75}'] property radius: Double readonly dispid 1; function GetPlacement: IDispatch; dispid 2; end; // *********************************************************************// // DispIntf: ksTorusParam // Flags: (4096) Dispatchable // GUID: {FDA3B147-BAF1-4F75-99AA-39D11323EA97} // *********************************************************************// ksTorusParam = dispinterface ['{FDA3B147-BAF1-4F75-99AA-39D11323EA97}'] property radius: Double readonly dispid 1; property generatrixRadius: Double readonly dispid 2; function GetPlacement: IDispatch; dispid 3; end; // *********************************************************************// // DispIntf: ksNurbsPoint3dParam // Flags: (4096) Dispatchable // GUID: {F1CD604D-1D26-4F6B-8F94-F112133E6162} // *********************************************************************// ksNurbsPoint3dParam = dispinterface ['{F1CD604D-1D26-4F6B-8F94-F112133E6162}'] function GetPoint(var x: Double; var y: Double; var z: Double): WordBool; dispid 1; property weight: Double readonly dispid 2; end; // *********************************************************************// // DispIntf: ksNurbsSurfaceParam // Flags: (4096) Dispatchable // GUID: {A12B63E8-9E0A-4854-B724-E18275B9FF20} // *********************************************************************// ksNurbsSurfaceParam = dispinterface ['{A12B63E8-9E0A-4854-B724-E18275B9FF20}'] function GetDegree(paramU: WordBool): Smallint; dispid 1; function GetClose(paramU: WordBool): WordBool; dispid 2; function GetPointCollection: IDispatch; dispid 3; function GetKnotCollection(paramU: WordBool): IDispatch; dispid 4; function GetPeriodic(paramU: WordBool): WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksNurbs3dParam // Flags: (4096) Dispatchable // GUID: {4DDDAEDB-2819-42D9-BDBB-4CCBC98D76DF} // *********************************************************************// ksNurbs3dParam = dispinterface ['{4DDDAEDB-2819-42D9-BDBB-4CCBC98D76DF}'] property degree: Smallint readonly dispid 1; property close: WordBool readonly dispid 2; function GetPointCollection: IDispatch; dispid 3; function GetKnotCollection: IDispatch; dispid 4; property periodic: WordBool readonly dispid 5; end; // *********************************************************************// // DispIntf: ksNurbsKnotCollection // Flags: (4096) Dispatchable // GUID: {483E9889-E1CA-4CA5-BE4E-ECB3D5CF0126} // *********************************************************************// ksNurbsKnotCollection = dispinterface ['{483E9889-E1CA-4CA5-BE4E-ECB3D5CF0126}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: Double; dispid 3; function Last: Double; dispid 4; function Next: Double; dispid 5; function Prev: Double; dispid 6; function GetByIndex(index: Integer): Double; dispid 7; function Clear: WordBool; dispid 8; function Add(entity: Double): WordBool; dispid 9; function AddAt(entity: Double; index: Integer): WordBool; dispid 10; function AddBefore(entity: Double; base: Double): WordBool; dispid 11; function DetachByIndex(index: Integer): WordBool; dispid 12; function DetachByBody(entity: Double): WordBool; dispid 13; function SetByIndex(entity: Double; index: Integer): WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksNurbsPoint3dCollCollection // Flags: (4096) Dispatchable // GUID: {84AF9C81-1795-4631-B58A-101732262E75} // *********************************************************************// ksNurbsPoint3dCollCollection = dispinterface ['{84AF9C81-1795-4631-B58A-101732262E75}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function Clear: WordBool; dispid 8; function Add(const entity: IDispatch): WordBool; dispid 9; function AddAt(const entity: IDispatch; index: Integer): WordBool; dispid 10; function AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; dispid 11; function DetachByIndex(index: Integer): WordBool; dispid 12; function DetachByBody(const entity: IDispatch): WordBool; dispid 13; function SetByIndex(const entity: IDispatch; index: Integer): WordBool; dispid 14; function FindIt(const entity: IDispatch): Integer; dispid 15; end; // *********************************************************************// // DispIntf: ksNurbsPoint3dCollection // Flags: (4096) Dispatchable // GUID: {3AD5E519-74E2-4D3B-B6A3-B1E81F1006F1} // *********************************************************************// ksNurbsPoint3dCollection = dispinterface ['{3AD5E519-74E2-4D3B-B6A3-B1E81F1006F1}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function Clear: WordBool; dispid 8; function Add(const entity: IDispatch): WordBool; dispid 9; function AddAt(const entity: IDispatch; index: Integer): WordBool; dispid 10; function AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; dispid 11; function DetachByIndex(index: Integer): WordBool; dispid 12; function DetachByBody(const entity: IDispatch): WordBool; dispid 13; function SetByIndex(const entity: IDispatch; index: Integer): WordBool; dispid 14; function FindIt(const entity: IDispatch): Integer; dispid 15; end; // *********************************************************************// // DispIntf: ksViewProjection // Flags: (4096) Dispatchable // GUID: {BF65B990-C2DC-4A12-9EB7-3E868608AF47} // *********************************************************************// ksViewProjection = dispinterface ['{BF65B990-C2DC-4A12-9EB7-3E868608AF47}'] property name: WideString dispid 1; property scale: Double dispid 2; function IsCurrent: WordBool; dispid 3; function SetCurrent: WordBool; dispid 4; function GetPlacement: IDispatch; dispid 5; function SetPlacement(const place: IDispatch): WordBool; dispid 6; property index: Integer readonly dispid 7; end; // *********************************************************************// // DispIntf: ksViewProjectionCollection // Flags: (4096) Dispatchable // GUID: {A174F872-C800-409E-9FB2-FF5B89D8B4B8} // *********************************************************************// ksViewProjectionCollection = dispinterface ['{A174F872-C800-409E-9FB2-FF5B89D8B4B8}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First: IDispatch; dispid 3; function Last: IDispatch; dispid 4; function Next: IDispatch; dispid 5; function Prev: IDispatch; dispid 6; function GetByIndex(index: Integer): IDispatch; dispid 7; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; dispid 8; function FindIt(const entity: IDispatch): Integer; dispid 9; function Add(const entity: IDispatch): WordBool; dispid 10; function DetachByIndex(index: Integer): WordBool; dispid 11; function DetachByBody(const entity: IDispatch): WordBool; dispid 12; function DetachByName(const name: WideString): WordBool; dispid 13; function NewViewProjection: IDispatch; dispid 14; end; // *********************************************************************// // DispIntf: ksSelectionMng // Flags: (4096) Dispatchable // GUID: {BE41850C-CFC5-40D4-AE49-37AA391BCF4B} // *********************************************************************// ksSelectionMng = dispinterface ['{BE41850C-CFC5-40D4-AE49-37AA391BCF4B}'] function Select(const obj: IDispatch): WordBool; dispid 1; function Unselect(const obj: IDispatch): WordBool; dispid 2; function UnselectAll: WordBool; dispid 3; function IsSelected(const obj: IDispatch): WordBool; dispid 4; function GetCount: Integer; dispid 5; function First: IDispatch; dispid 6; function Last: IDispatch; dispid 7; function Next: IDispatch; dispid 8; function Prev: IDispatch; dispid 9; function GetObjectByIndex(index: Integer): IDispatch; dispid 10; function GetObjectType(index: Integer): Integer; dispid 11; end; // *********************************************************************// // DispIntf: ksChooseMng // Flags: (4096) Dispatchable // GUID: {8F2AA755-D9D1-42A0-97BF-C92548CE7232} // *********************************************************************// ksChooseMng = dispinterface ['{8F2AA755-D9D1-42A0-97BF-C92548CE7232}'] function Choose(const obj: IDispatch): WordBool; dispid 1; function UnChoose(const obj: IDispatch): WordBool; dispid 2; function UnChooseAll: WordBool; dispid 3; function IsChoosen(const obj: IDispatch): WordBool; dispid 4; function GetCount: Integer; dispid 5; function First: IDispatch; dispid 6; function Last: IDispatch; dispid 7; function Next: IDispatch; dispid 8; function Prev: IDispatch; dispid 9; function GetObjectByIndex(index: Integer): IDispatch; dispid 10; function GetObjectType(index: Integer): Integer; dispid 11; end; // *********************************************************************// // DispIntf: ksArc3dParam // Flags: (4096) Dispatchable // GUID: {7DCBCC76-5041-4C1E-9B33-12B1352D6D57} // *********************************************************************// ksArc3dParam = dispinterface ['{7DCBCC76-5041-4C1E-9B33-12B1352D6D57}'] function GetPlacement: IDispatch; dispid 1; property radius: Double readonly dispid 2; property angle: Double readonly dispid 3; end; // *********************************************************************// // DispIntf: ksTreeNodeParam // Flags: (4096) Dispatchable // GUID: {9F8DE1DC-1268-4785-9217-1B0DD59B85FA} // *********************************************************************// ksTreeNodeParam = dispinterface ['{9F8DE1DC-1268-4785-9217-1B0DD59B85FA}'] function Init: WordBool; dispid 1; property type_: Integer readonly dispid 2; property name: WideString readonly dispid 3; function GetComment: IDispatch; dispid 4; function GetNodes: IDispatch; dispid 5; end; // *********************************************************************// // DispIntf: ksAssociationViewParam // Flags: (4096) Dispatchable // GUID: {C81EB1DA-BCB0-491A-8D22-923BF817D572} // *********************************************************************// ksAssociationViewParam = dispinterface ['{C81EB1DA-BCB0-491A-8D22-923BF817D572}'] property fileName: WideString dispid 3; property projectionName: WideString dispid 4; property projectionLink: WordBool dispid 6; property disassembly: WordBool dispid 7; property visibleLinesStyle: Integer dispid 8; property hiddenLinesStyle: Integer dispid 9; property tangentEdgesStyle: Integer dispid 10; property hiddenLinesShow: WordBool dispid 11; property tangentEdgesShow: WordBool dispid 12; property projBodies: WordBool dispid 13; property projSurfaces: WordBool dispid 14; property projThreads: WordBool dispid 15; property section: WordBool dispid 17; property sameHatch: WordBool dispid 19; function Init: WordBool; dispid 1; function GetViewParam: IDispatch; dispid 2; property viewType: Smallint readonly dispid 5; function GetHatchParam: IDispatch; dispid 16; function SetDimensionLayoutScaling(scaling: WordBool): WordBool; dispid 18; end; // *********************************************************************// // DispIntf: ksViewColorParam // Flags: (4096) Dispatchable // GUID: {5A42B962-8F78-4557-B17A-1B871F8DBDB5} // *********************************************************************// ksViewColorParam = dispinterface ['{5A42B962-8F78-4557-B17A-1B871F8DBDB5}'] property color: Integer dispid 1; property useGradient: WordBool dispid 2; property topColor: Integer dispid 3; property bottomColor: Integer dispid 4; function Init: WordBool; dispid 5; end; // *********************************************************************// // DispIntf: ksAxisLineParam // Flags: (4096) Dispatchable // GUID: {AFE694D7-C1E5-468F-99B0-FE4C60C49899} // *********************************************************************// ksAxisLineParam = dispinterface ['{AFE694D7-C1E5-468F-99B0-FE4C60C49899}'] function Init: WordBool; dispid 1; function GetBegPoint: IDispatch; dispid 2; function GetEndPoint: IDispatch; dispid 3; end; // *********************************************************************// // DispIntf: ksTextDocumentParam // Flags: (4096) Dispatchable // GUID: {33706D56-D085-4840-833B-435AEB00BE2A} // *********************************************************************// ksTextDocumentParam = dispinterface ['{33706D56-D085-4840-833B-435AEB00BE2A}'] property fileName: WideString dispid 1; property comment: WideString dispid 2; property author: WideString dispid 3; property type_: Smallint dispid 4; property regime: Smallint dispid 5; function Init: WordBool; dispid 6; function GetFirstSheet: IDispatch; dispid 7; function GetEvenSheet: IDispatch; dispid 8; function GetOddSheet: IDispatch; dispid 9; function GetArrTitleSheet: IDispatch; dispid 10; function GetArrTailSheet: IDispatch; dispid 11; function GetSheetParam: IDispatch; dispid 12; end; // *********************************************************************// // DispIntf: ksRemoteElementParam // Flags: (4096) Dispatchable // GUID: {25076616-4949-455E-A45C-1B801884D825} // *********************************************************************// ksRemoteElementParam = dispinterface ['{25076616-4949-455E-A45C-1B801884D825}'] property style: Integer dispid 2; property signType: Integer dispid 3; property x: Double dispid 4; property y: Double dispid 5; property width: Double dispid 6; property height: Double dispid 7; property radius: Double dispid 8; property smooth: Double dispid 9; property shelfX: Double dispid 10; property shelfY: Double dispid 11; property shelfDir: Smallint dispid 12; function Init(style: Integer): WordBool; dispid 1; function GetpText: IDispatch; dispid 13; function SetpText(const pText: IDispatch): WordBool; dispid 14; end; // *********************************************************************// // DispIntf: ksDeletedCopyCollection // Flags: (4096) Dispatchable // GUID: {82F60797-D69C-4EB4-9F1A-24D625D5EAFA} // *********************************************************************// ksDeletedCopyCollection = dispinterface ['{82F60797-D69C-4EB4-9F1A-24D625D5EAFA}'] function refresh: WordBool; dispid 1; function GetCount: Integer; dispid 2; function First(var index1: Integer; var index2: Integer): WordBool; dispid 3; function Last(var index1: Integer; var index2: Integer): WordBool; dispid 4; function Next(var index1: Integer; var index2: Integer): WordBool; dispid 5; function Prev(var index1: Integer; var index2: Integer): WordBool; dispid 6; function GetByIndex(index: Integer; var index1: Integer; var index2: Integer): WordBool; dispid 7; function Clear: WordBool; dispid 8; function Add(index1: Integer; index2: Integer): WordBool; dispid 9; function AddAt(index1: Integer; index2: Integer; index: Integer): WordBool; dispid 10; function DetachByIndex(index: Integer): WordBool; dispid 11; function DetachByBody(index1: Integer; index2: Integer): WordBool; dispid 12; function SetByIndex(index1: Integer; index2: Integer; index: Integer): WordBool; dispid 13; function FindIt(index1: Integer; index2: Integer): Integer; dispid 14; end; // *********************************************************************// // DispIntf: ksCopyObjectParam // Flags: (4096) Dispatchable // GUID: {AACAD820-7790-46EB-B17F-06AE42215ED7} // *********************************************************************// ksCopyObjectParam = dispinterface ['{AACAD820-7790-46EB-B17F-06AE42215ED7}'] property objRef: Integer dispid 2; property xOld: Double dispid 3; property yOld: Double dispid 4; property xNew: Double dispid 5; property yNew: Double dispid 6; property scale: Double dispid 7; property angle: Double dispid 8; property attrCopy: WordBool dispid 9; property dimLineScale: WordBool dispid 10; function Init: WordBool; dispid 1; end; // *********************************************************************// // DispIntf: ksThreadDefinition // Flags: (4096) Dispatchable // GUID: {5DDB6B14-6F3D-431F-B62F-C5FCCAFC3632} // *********************************************************************// ksThreadDefinition = dispinterface ['{5DDB6B14-6F3D-431F-B62F-C5FCCAFC3632}'] property dr: Double dispid 1; property length: Double dispid 2; property p: Double dispid 3; property autoDefinDr: WordBool dispid 5; property allLength: WordBool dispid 6; property faceValue: WordBool dispid 7; property outside: WordBool readonly dispid 4; function GetBaseObject: IDispatch; dispid 8; function SetBaseObject(const obj: IDispatch): WordBool; dispid 9; function GetFaceBegin: IDispatch; dispid 10; function SetFaceBegin(const face: IDispatch): WordBool; dispid 11; function GetFaceEnd: IDispatch; dispid 12; function SetFaceEnd(const face: IDispatch): WordBool; dispid 13; end; // *********************************************************************// // DispIntf: ksOverlapObjectOptions // Flags: (4096) Dispatchable // GUID: {F78E6B71-BEF3-4A4D-AE50-FE96426F6FD1} // *********************************************************************// ksOverlapObjectOptions = dispinterface ['{F78E6B71-BEF3-4A4D-AE50-FE96426F6FD1}'] property overlap: WordBool dispid 1; property gap: Double dispid 2; function Init: WordBool; dispid 3; end; // *********************************************************************// // DispIntf: ksObjectFilter3D // Flags: (4096) Dispatchable // GUID: {ABBA6CE0-CB4C-4A32-98B4-B639352C75BA} // *********************************************************************// ksObjectFilter3D = dispinterface ['{ABBA6CE0-CB4C-4A32-98B4-B639352C75BA}'] property filterAll: WordBool dispid 1; property filterFaces: WordBool dispid 2; property filterEdges: WordBool dispid 3; property filterVertexs: WordBool dispid 4; property filterCPlanes: WordBool dispid 5; property filterCAxis: WordBool dispid 6; end; // *********************************************************************// // The Class CoObject2DNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass Object2DNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoObject2DNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TObject2DNotifyChangeActive = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginDelete = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyDelete = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginMove = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyMove = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginRotate = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyRotate = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginScale = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyscale = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginTransform = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyTransform = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginCopy = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifycopy = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginSymmetry = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifySymmetry = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyBeginProcess = procedure(Sender: TObject; pType: Integer; objRef: Integer) of object; TObject2DNotifyEndProcess = procedure(Sender: TObject; pType: Integer) of object; TObject2DNotifyCreateObject = procedure(Sender: TObject; objRef: Integer) of object; TObject2DNotifyUpdateObject = procedure(Sender: TObject; objRef: Integer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TObject2DNotify // Help String : Ñîáûòèÿ îáúåêòà 2D äîêóìåíòà. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksObject2DNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TObject2DNotifyProperties= class; {$ENDIF} TObject2DNotify = class(TOleServer) private FOnChangeActive: TObject2DNotifyChangeActive; FOnBeginDelete: TObject2DNotifyBeginDelete; FOnDelete: TObject2DNotifyDelete; FOnBeginMove: TObject2DNotifyBeginMove; FOnMove: TObject2DNotifyMove; FOnBeginRotate: TObject2DNotifyBeginRotate; FOnRotate: TObject2DNotifyRotate; FOnBeginScale: TObject2DNotifyBeginScale; FOnscale: TObject2DNotifyscale; FOnBeginTransform: TObject2DNotifyBeginTransform; FOnTransform: TObject2DNotifyTransform; FOnBeginCopy: TObject2DNotifyBeginCopy; FOncopy: TObject2DNotifycopy; FOnBeginSymmetry: TObject2DNotifyBeginSymmetry; FOnSymmetry: TObject2DNotifySymmetry; FOnBeginProcess: TObject2DNotifyBeginProcess; FOnEndProcess: TObject2DNotifyEndProcess; FOnCreateObject: TObject2DNotifyCreateObject; FOnUpdateObject: TObject2DNotifyUpdateObject; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TObject2DNotifyProperties; function GetServerProperties: TObject2DNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TObject2DNotifyProperties read GetServerProperties; {$ENDIF} property OnChangeActive: TObject2DNotifyChangeActive read FOnChangeActive write FOnChangeActive; property OnBeginDelete: TObject2DNotifyBeginDelete read FOnBeginDelete write FOnBeginDelete; property OnDelete: TObject2DNotifyDelete read FOnDelete write FOnDelete; property OnBeginMove: TObject2DNotifyBeginMove read FOnBeginMove write FOnBeginMove; property OnMove: TObject2DNotifyMove read FOnMove write FOnMove; property OnBeginRotate: TObject2DNotifyBeginRotate read FOnBeginRotate write FOnBeginRotate; property OnRotate: TObject2DNotifyRotate read FOnRotate write FOnRotate; property OnBeginScale: TObject2DNotifyBeginScale read FOnBeginScale write FOnBeginScale; property Onscale: TObject2DNotifyscale read FOnscale write FOnscale; property OnBeginTransform: TObject2DNotifyBeginTransform read FOnBeginTransform write FOnBeginTransform; property OnTransform: TObject2DNotifyTransform read FOnTransform write FOnTransform; property OnBeginCopy: TObject2DNotifyBeginCopy read FOnBeginCopy write FOnBeginCopy; property Oncopy: TObject2DNotifycopy read FOncopy write FOncopy; property OnBeginSymmetry: TObject2DNotifyBeginSymmetry read FOnBeginSymmetry write FOnBeginSymmetry; property OnSymmetry: TObject2DNotifySymmetry read FOnSymmetry write FOnSymmetry; property OnBeginProcess: TObject2DNotifyBeginProcess read FOnBeginProcess write FOnBeginProcess; property OnEndProcess: TObject2DNotifyEndProcess read FOnEndProcess write FOnEndProcess; property OnCreateObject: TObject2DNotifyCreateObject read FOnCreateObject write FOnCreateObject; property OnUpdateObject: TObject2DNotifyUpdateObject read FOnUpdateObject write FOnUpdateObject; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TObject2DNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TObject2DNotifyProperties = class(TPersistent) private FServer: TObject2DNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TObject2DNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSelectionMngNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass SelectionMngNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSelectionMngNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TSelectionMngNotifySelect = procedure(Sender: TObject; obj: OleVariant) of object; TSelectionMngNotifyUnselect = procedure(Sender: TObject; obj: OleVariant) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSelectionMngNotify // Help String : Cîáûòèÿ äëÿ ìåíåäæåðà ñåëåêòèðîâàííûõ îáúåêòîâ. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksSelectionMngNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSelectionMngNotifyProperties= class; {$ENDIF} TSelectionMngNotify = class(TOleServer) private FOnSelect: TSelectionMngNotifySelect; FOnUnselect: TSelectionMngNotifyUnselect; FOnUnselectAll: TNotifyEvent; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSelectionMngNotifyProperties; function GetServerProperties: TSelectionMngNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSelectionMngNotifyProperties read GetServerProperties; {$ENDIF} property OnSelect: TSelectionMngNotifySelect read FOnSelect write FOnSelect; property OnUnselect: TSelectionMngNotifyUnselect read FOnUnselect write FOnUnselect; property OnUnselectAll: TNotifyEvent read FOnUnselectAll write FOnUnselectAll; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSelectionMngNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSelectionMngNotifyProperties = class(TPersistent) private FServer: TSelectionMngNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TSelectionMngNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoDocument2DNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass Document2DNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocument2DNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TDocument2DNotifyChoiceMaterial = procedure(Sender: TObject; var material: OleVariant; density: Double) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDocument2DNotify // Help String : Ñîáûòèÿ 2D äîêóìåíòà. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksDocument2DNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDocument2DNotifyProperties= class; {$ENDIF} TDocument2DNotify = class(TOleServer) private FOnBeginRebuild: TNotifyEvent; FOnRebuild: TNotifyEvent; FOnBeginChoiceMaterial: TNotifyEvent; FOnChoiceMaterial: TDocument2DNotifyChoiceMaterial; FOnBeginInsertFragment: TNotifyEvent; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDocument2DNotifyProperties; function GetServerProperties: TDocument2DNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDocument2DNotifyProperties read GetServerProperties; {$ENDIF} property OnBeginRebuild: TNotifyEvent read FOnBeginRebuild write FOnBeginRebuild; property OnRebuild: TNotifyEvent read FOnRebuild write FOnRebuild; property OnBeginChoiceMaterial: TNotifyEvent read FOnBeginChoiceMaterial write FOnBeginChoiceMaterial; property OnChoiceMaterial: TDocument2DNotifyChoiceMaterial read FOnChoiceMaterial write FOnChoiceMaterial; property OnBeginInsertFragment: TNotifyEvent read FOnBeginInsertFragment write FOnBeginInsertFragment; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDocument2DNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDocument2DNotifyProperties = class(TPersistent) private FServer: TDocument2DNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TDocument2DNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoDocument3DNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass Document3DNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocument3DNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TDocument3DNotifyChoiceMaterial = procedure(Sender: TObject; var material: OleVariant; density: Double) of object; TDocument3DNotifyChoiceMarking = procedure(Sender: TObject; var marking: OleVariant) of object; TDocument3DNotifyBeginCreatePartFromFile = procedure(Sender: TObject; typeDoc: WordBool; var plane: OleVariant) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDocument3DNotify // Help String : Ñîáûòèÿ äëÿ 3D äîêóìåíòà. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksDocument3DNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDocument3DNotifyProperties= class; {$ENDIF} TDocument3DNotify = class(TOleServer) private FOnBeginRebuild: TNotifyEvent; FOnRebuild: TNotifyEvent; FOnBeginChoiceMaterial: TNotifyEvent; FOnChoiceMaterial: TDocument3DNotifyChoiceMaterial; FOnBeginChoiceMarking: TNotifyEvent; FOnChoiceMarking: TDocument3DNotifyChoiceMarking; FOnBeginSetPartFromFile: TNotifyEvent; FOnBeginCreatePartFromFile: TDocument3DNotifyBeginCreatePartFromFile; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDocument3DNotifyProperties; function GetServerProperties: TDocument3DNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDocument3DNotifyProperties read GetServerProperties; {$ENDIF} property OnBeginRebuild: TNotifyEvent read FOnBeginRebuild write FOnBeginRebuild; property OnRebuild: TNotifyEvent read FOnRebuild write FOnRebuild; property OnBeginChoiceMaterial: TNotifyEvent read FOnBeginChoiceMaterial write FOnBeginChoiceMaterial; property OnChoiceMaterial: TDocument3DNotifyChoiceMaterial read FOnChoiceMaterial write FOnChoiceMaterial; property OnBeginChoiceMarking: TNotifyEvent read FOnBeginChoiceMarking write FOnBeginChoiceMarking; property OnChoiceMarking: TDocument3DNotifyChoiceMarking read FOnChoiceMarking write FOnChoiceMarking; property OnBeginSetPartFromFile: TNotifyEvent read FOnBeginSetPartFromFile write FOnBeginSetPartFromFile; property OnBeginCreatePartFromFile: TDocument3DNotifyBeginCreatePartFromFile read FOnBeginCreatePartFromFile write FOnBeginCreatePartFromFile; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDocument3DNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDocument3DNotifyProperties = class(TPersistent) private FServer: TDocument3DNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TDocument3DNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoObject3DNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass Object3DNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoObject3DNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TObject3DNotifyBeginDelete = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyDelete = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyexcluded = procedure(Sender: TObject; var obj: OleVariant;excluded: WordBool) of object; TObject3DNotifyhidden = procedure(Sender: TObject; var obj: OleVariant;_hidden: WordBool) of object; TObject3DNotifyBeginPropertyChanged = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyPropertyChanged = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyBeginPlacementChanged = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyPlacementChanged = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyBeginProcess = procedure(Sender: TObject; pType: Integer; var obj: OleVariant) of object; TObject3DNotifyEndProcess = procedure(Sender: TObject; pType: Integer) of object; TObject3DNotifyCreateObject = procedure(Sender: TObject; var obj: OleVariant) of object; TObject3DNotifyUpdateObject = procedure(Sender: TObject; var obj: OleVariant) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TObject3DNotify // Help String : Ñîáûòèÿ äëÿ îáúåêòà 3D äîêóìåíòà. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksObject3DNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TObject3DNotifyProperties= class; {$ENDIF} TObject3DNotify = class(TOleServer) private FOnBeginDelete: TObject3DNotifyBeginDelete; FOnDelete: TObject3DNotifyDelete; FOnexcluded: TObject3DNotifyexcluded; FOnhidden: TObject3DNotifyhidden; FOnBeginPropertyChanged: TObject3DNotifyBeginPropertyChanged; FOnPropertyChanged: TObject3DNotifyPropertyChanged; FOnBeginPlacementChanged: TObject3DNotifyBeginPlacementChanged; FOnPlacementChanged: TObject3DNotifyPlacementChanged; FOnBeginProcess: TObject3DNotifyBeginProcess; FOnEndProcess: TObject3DNotifyEndProcess; FOnCreateObject: TObject3DNotifyCreateObject; FOnUpdateObject: TObject3DNotifyUpdateObject; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TObject3DNotifyProperties; function GetServerProperties: TObject3DNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TObject3DNotifyProperties read GetServerProperties; {$ENDIF} property OnBeginDelete: TObject3DNotifyBeginDelete read FOnBeginDelete write FOnBeginDelete; property OnDelete: TObject3DNotifyDelete read FOnDelete write FOnDelete; property Onexcluded: TObject3DNotifyexcluded read FOnexcluded write FOnexcluded; property Onhidden: TObject3DNotifyhidden read FOnhidden write FOnhidden; property OnBeginPropertyChanged: TObject3DNotifyBeginPropertyChanged read FOnBeginPropertyChanged write FOnBeginPropertyChanged; property OnPropertyChanged: TObject3DNotifyPropertyChanged read FOnPropertyChanged write FOnPropertyChanged; property OnBeginPlacementChanged: TObject3DNotifyBeginPlacementChanged read FOnBeginPlacementChanged write FOnBeginPlacementChanged; property OnPlacementChanged: TObject3DNotifyPlacementChanged read FOnPlacementChanged write FOnPlacementChanged; property OnBeginProcess: TObject3DNotifyBeginProcess read FOnBeginProcess write FOnBeginProcess; property OnEndProcess: TObject3DNotifyEndProcess read FOnEndProcess write FOnEndProcess; property OnCreateObject: TObject3DNotifyCreateObject read FOnCreateObject write FOnCreateObject; property OnUpdateObject: TObject3DNotifyUpdateObject read FOnUpdateObject write FOnUpdateObject; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TObject3DNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TObject3DNotifyProperties = class(TPersistent) private FServer: TObject3DNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TObject3DNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoApplication provides a Create and CreateRemote method to // create instances of the default interface KompasObject exposed by // the CoClass Application. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoApp = class class function Create: KompasObject; class function CreateRemote(const MachineName: string): KompasObject; end; TAppCreateDocument = procedure(Sender: TObject; var newDoc: OleVariant;docType: Integer) of object; TAppBeginOpenDocument = procedure(Sender: TObject; var fileName: OleVariant) of object; TAppOpenDocument = procedure(Sender: TObject; var newDoc: OleVariant;docType: Integer) of object; TAppChangeActiveDocument = procedure(Sender: TObject; var newDoc: OleVariant;docType: Integer) of object; TAppBeginCreate = procedure(Sender: TObject; docType: Integer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TApp // Help String : Èíòåðôåéñ ïðèëîæåíèÿ ÊÎÌÏÀÑ 3D LT. // Default Interface: KompasObject // Def. Intf. DISP? : Yes // Event Interface: ksKompasObjectNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAppProperties= class; {$ENDIF} TApp = class(TOleServer) private FOnCreateDocument: TAppCreateDocument; FOnBeginOpenDocument: TAppBeginOpenDocument; FOnOpenDocument: TAppOpenDocument; FOnChangeActiveDocument: TAppChangeActiveDocument; FOnApplicationDestroy: TNotifyEvent; FOnBeginCreate: TAppBeginCreate; FOnBeginOpenFile: TNotifyEvent; FOnBeginCloseAllDocument: TNotifyEvent; FAutoQuit: Boolean; FIntf: KompasObject; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAppProperties; function GetServerProperties: TAppProperties; {$ENDIF} function GetDefaultInterface: KompasObject; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Visible: WordBool; procedure Set_Visible(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: KompasObject); procedure Disconnect; override; function Document3D: IDispatch; function ActiveDocument3D: IDispatch; function Document2D: ksDocument2D; function ActiveDocument2D: IDispatch; function DataBaseObject: IDispatch; function GetIterator: IDispatch; function GetMathematic2D: IDispatch; function GetParamStruct(structType: Smallint): IDispatch; function SpcDocument: IDispatch; function SpcActiveDocument: IDispatch; function ksMessage(const s: WideString): WordBool; function ksError(const s: WideString): WordBool; function ksEnableTaskAccess(enabl: Integer): WordBool; function ksReturnResult: Integer; function ksResultNULL: Integer; function ksIsEnableTaskAccess: Integer; function ksMessageBoxResult: WordBool; function ksDrawSlide(HWindow: Integer; sldID: Integer): Integer; function ksStrResult: WideString; function ksGetHWindow: Integer; function ksGetWorkWindowColor: Integer; function ksPumpWaitingMessages: WordBool; function ksSetCriticalProcess: Integer; function ksChoiceFile(const ext: WideString; const filter: WideString; preview: WordBool): WideString; function ksDrawBitmap(HWindow: Integer; sldID: Integer): Integer; function ksYesNo(const s: WideString): Integer; function ksDrawSlideFromFile(HWindow: Integer; const fileName: WideString): Integer; function ksWriteSlide(const fileName: WideString; iD: Integer; x: Double; y: Double): Integer; function ksSlideBackground(color: Integer): WordBool; function ksReadDouble(const mess: WideString; defValue: Double; min: Double; max: Double; var value: Double): Integer; function ksReadInt(const mess: WideString; defValue: Integer; min: Integer; max: Integer; var value: Integer): Integer; function ksReadString(const mess: WideString; const value: WideString): WideString; function ksFullFileName(const oldName: WideString): WideString; function ksUniqueFileName: WideString; function ksRemoveUniqueFile(const fileName: WideString): WordBool; function ksSystemControlStop: WordBool; function ksSystemControlStart(const menuCommand: WideString): Integer; function GetDynamicArray(type_: Integer): IDispatch; function ksChoiceFileAppointedDir(const ext: WideString; const filter: WideString; preview: WordBool; typeDir: Integer): WideString; function ksChoiceFiles(const ext: WideString; const filter: WideString; const p: IDispatch; preview: WordBool): Integer; function ksSaveFile(const ext: WideString; const oldName: WideString; const filter: WideString; preview: WordBool): WideString; function GetAttributeObject: IDispatch; function ksRefreshActiveWindow: Integer; function ksSystemPath(pathType: Integer): WideString; function ksGetRelativePathFromSystemPath(const sourcePath: WideString; pathType: Integer): WideString; function ksGetFullPathFromSystemPath(const relativePath: WideString; pathType: Integer): WideString; function ksGetRelativePathFromFullPath(const mainFilePath: WideString; const sourcePath: WideString): WideString; function ksGetFullPathFromRelativePath(const mainFilePath: WideString; const relativePath: WideString): WideString; function ksGetSystemVersion(var iMajor: Integer; var iMinor: Integer; var iRelease: Integer; var iBuild: Integer): Integer; function ksGetSystemProfileString(const lpSection: WideString; const lpKey: WideString): WideString; function ksOpenHelpFile(const file_: WideString; command: Integer; iD: Integer): WordBool; function ksSetSysOptions(optionsType: Integer; const param: IDispatch): Integer; function ksGetSysOptions(optionsType: Integer; const param: IDispatch): Integer; function ksPrintPreviewWindow(const docsArr: IDispatch; inquiry: Integer): Integer; function ksGetLibraryStylesArray(const libraryName: WideString; libraryType: Smallint): IDispatch; function ksViewGetDensity(HWindow: Integer): Double; function ksCalculate(const s: WideString; var rez: Double): Integer; function ksCalculateReset: Integer; function ksExecuteLibraryCommand(const fileName: WideString; command: Integer): Integer; function ksGetQualityNames(const names: IDispatch; dimValue: Double; high: Double; low: Double; system: Smallint; withLimitation: Smallint): Integer; function ksGetQualityDefects(const name: WideString; dimValue: Double; var high: Double; var low: Double; inMM: Smallint): Integer; function ksGetQualityContensParam(const name: WideString; const param: IDispatch; inMM: Smallint): Integer; function ksGet3dDocumentFromRef(doc: Integer): IDispatch; function GetModelLibrary: IDispatch; function GetFragmentLibrary: IDispatch; function ksIsLibraryEnabled(const libName: WideString): Integer; function ksIsModuleSpecificationActive: Integer; function ksModuleSpecification(attach: WordBool): Integer; function ksMaterialDlg(HWindow: Integer; var res: Integer; var plt: Double; var kod_size_1: Double; var kod_size_2: Double; var kod_size_3: Double; var kod_size_4: Double; const kod_tip: WideString): WideString; function ksExecDialPredefinedText(HWindow: Integer; var res: Integer): WideString; function ksDrawSlideEx(HWindow: Integer; sldID: Integer; hInst: Integer): Integer; function ksViewGetDensityAndMaterial(var density: Double; HWindow: Integer): WideString; function ksConvertLangStr(const src: WideString): WideString; function ksConvertLangWindow(hWnd: Integer): WordBool; function ksConvertLangMenu(hMenu: Integer): Integer; function ksEditTextLine(HWindow: Integer; var res: Integer; const str: WideString): WideString; function ksGetDocOptions(optionsType: Integer; const param: IDispatch): Integer; function ksAttachKompasLibrary(const libName: WideString): Integer; function ksDetachKompasLibrary(libId: Integer): Integer; function ksExecuteKompasLibraryCommand(libId: Integer; command: Integer): Integer; procedure Quit; function ksPrintKompasDocument(const fileName: WideString; const toFile: WideString; scale: Double): Integer; function ksDrawKompasDocument(HWindow: Integer; const docFileName: WideString): Integer; function ksSetFlagDisableLockApp(setDisableLockApp: WordBool): WordBool; function ActivateControllerAPI: WordBool; function DocumentTxt: IDispatch; function ActiveDocumentTxt: IDispatch; function ksGetLibraryTreeStruct(const libName: WideString; const p: IDispatch): WordBool; function ksSetDocOptions(optionsType: Integer; const param: IDispatch): Integer; function ksGetDocumentType(doc: Integer): Integer; function ksDrawKompasDocumentByReference(HWindow: Integer; pDoc: Integer): Integer; function ksExecDialPredefinedTextEx(HWindow: Integer): IDispatch; function ksGetDocumentTypeByName(const fileName: WideString): Integer; function ksGetDocumentByReference(docRef: Integer): IDispatch; function ksConvertLangStrEx(hInstance: Integer; strID: Integer): WideString; function ksConvertLangWindowEx(hWnd: Integer; hInstance: Integer; const dlgID: WideString): WordBool; function LoadDSK: WordBool; function GetObjectsFilter3D: IDispatch; property DefaultInterface: KompasObject read GetDefaultInterface; property Visible: WordBool read Get_Visible write Set_Visible; published property AutoQuit: Boolean read FAutoQuit write FAutoQuit; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAppProperties read GetServerProperties; {$ENDIF} property OnCreateDocument: TAppCreateDocument read FOnCreateDocument write FOnCreateDocument; property OnBeginOpenDocument: TAppBeginOpenDocument read FOnBeginOpenDocument write FOnBeginOpenDocument; property OnOpenDocument: TAppOpenDocument read FOnOpenDocument write FOnOpenDocument; property OnChangeActiveDocument: TAppChangeActiveDocument read FOnChangeActiveDocument write FOnChangeActiveDocument; property OnApplicationDestroy: TNotifyEvent read FOnApplicationDestroy write FOnApplicationDestroy; property OnBeginCreate: TAppBeginCreate read FOnBeginCreate write FOnBeginCreate; property OnBeginOpenFile: TNotifyEvent read FOnBeginOpenFile write FOnBeginOpenFile; property OnBeginCloseAllDocument: TNotifyEvent read FOnBeginCloseAllDocument write FOnBeginCloseAllDocument; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TApp // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAppProperties = class(TPersistent) private FServer: TApp; function GetDefaultInterface: KompasObject; constructor Create(AServer: TApp); protected function Get_Visible: WordBool; procedure Set_Visible(Value: WordBool); public property DefaultInterface: KompasObject read GetDefaultInterface; published property Visible: WordBool read Get_Visible write Set_Visible; end; {$ENDIF} // *********************************************************************// // The Class CoObject2DNotifyResult provides a Create and CreateRemote method to // create instances of the default interface ksObject2DNotifyResult exposed by // the CoClass Object2DNotifyResult. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoObject2DNotifyResult = class class function Create: ksObject2DNotifyResult; class function CreateRemote(const MachineName: string): ksObject2DNotifyResult; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TObject2DNotifyResult // Help String : Èíòåðôåéñ ðåçóëüòàòîâ ðåäàêòèðîâàíèÿ îáúåêòà. // Default Interface: ksObject2DNotifyResult // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TObject2DNotifyResultProperties= class; {$ENDIF} TObject2DNotifyResult = class(TOleServer) private FIntf: ksObject2DNotifyResult; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TObject2DNotifyResultProperties; function GetServerProperties: TObject2DNotifyResultProperties; {$ENDIF} function GetDefaultInterface: ksObject2DNotifyResult; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksObject2DNotifyResult); procedure Disconnect; override; function GetNotifyType: Integer; function IsCopy: WordBool; function GetSheetPoint(from: WordBool; var x: Double; var y: Double): WordBool; function GetCopyObject: Integer; function GetAngle: Double; function GetScale(var sx: Double; var sy: Double): WordBool; property DefaultInterface: ksObject2DNotifyResult read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TObject2DNotifyResultProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TObject2DNotifyResult // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TObject2DNotifyResultProperties = class(TPersistent) private FServer: TObject2DNotifyResult; function GetDefaultInterface: ksObject2DNotifyResult; constructor Create(AServer: TObject2DNotifyResult); protected public property DefaultInterface: ksObject2DNotifyResult read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoFeatureCollection provides a Create and CreateRemote method to // create instances of the default interface ksFeatureCollection exposed by // the CoClass FeatureCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFeatureCollection = class class function Create: ksFeatureCollection; class function CreateRemote(const MachineName: string): ksFeatureCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFeatureCollection // Help String : Èíòåðôåéñ ìàññèâà îáúåêòîâ äåðåâà. // Default Interface: ksFeatureCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFeatureCollectionProperties= class; {$ENDIF} TFeatureCollection = class(TOleServer) private FIntf: ksFeatureCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFeatureCollectionProperties; function GetServerProperties: TFeatureCollectionProperties; {$ENDIF} function GetDefaultInterface: ksFeatureCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFeatureCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: ksFeature; function Last: ksFeature; function Next: ksFeature; function Prev: ksFeature; function GetByIndex(index: Integer): ksFeature; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): ksFeature; function FindIt(const entity: ksFeature): Integer; function Add(const obj: ksFeature): WordBool; function AddAt(const obj: ksFeature; index: Integer): WordBool; function AddBefore(const obj: ksFeature; const base: ksFeature): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(const obj: ksFeature): WordBool; function Clear: WordBool; function SetByIndex(const obj: ksFeature; index: Integer): WordBool; function AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): ksAttribute3DCollection; property DefaultInterface: ksFeatureCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFeatureCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFeatureCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFeatureCollectionProperties = class(TPersistent) private FServer: TFeatureCollection; function GetDefaultInterface: ksFeatureCollection; constructor Create(AServer: TFeatureCollection); protected public property DefaultInterface: ksFeatureCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class Coplacement provides a Create and CreateRemote method to // create instances of the default interface ksPlacement exposed by // the CoClass placement. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// Coplacement = class class function Create: ksPlacement; class function CreateRemote(const MachineName: string): ksPlacement; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : Tplacement // Help String : Èíòåðôåéñ ëîêàëüíîé ñèñòåìû êîîðäèíàò (ïîëîæåíèå îáúåêòà). // Default Interface: ksPlacement // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TplacementProperties= class; {$ENDIF} Tplacement = class(TOleServer) private FIntf: ksPlacement; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TplacementProperties; function GetServerProperties: TplacementProperties; {$ENDIF} function GetDefaultInterface: ksPlacement; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlacement); procedure Disconnect; override; function GetOrigin(var x: Double; var y: Double; var z: Double): WordBool; function SetOrigin(x: Double; y: Double; z: Double): WordBool; function GetAxis(var x: Double; var y: Double; var z: Double; type_: Integer): WordBool; function SetAxis(x: Double; y: Double; z: Double; type_: Integer): WordBool; function SetPlacement(const placement: IDispatch): WordBool; property DefaultInterface: ksPlacement read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TplacementProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : Tplacement // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TplacementProperties = class(TPersistent) private FServer: Tplacement; function GetDefaultInterface: ksPlacement; constructor Create(AServer: Tplacement); protected public property DefaultInterface: ksPlacement read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoObject3DNotifyResult provides a Create and CreateRemote method to // create instances of the default interface ksObject3DNotifyResult exposed by // the CoClass Object3DNotifyResult. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoObject3DNotifyResult = class class function Create: ksObject3DNotifyResult; class function CreateRemote(const MachineName: string): ksObject3DNotifyResult; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TObject3DNotifyResult // Help String : Èíòåðôåéñ ðåçóëüòàòîâ ðåäàêòèðîâàíèÿ îáúåêòà 3D äîêóìåíòà. // Default Interface: ksObject3DNotifyResult // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TObject3DNotifyResultProperties= class; {$ENDIF} TObject3DNotifyResult = class(TOleServer) private FIntf: ksObject3DNotifyResult; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TObject3DNotifyResultProperties; function GetServerProperties: TObject3DNotifyResultProperties; {$ENDIF} function GetDefaultInterface: ksObject3DNotifyResult; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksObject3DNotifyResult); procedure Disconnect; override; function GetNotifyType: Integer; function GetFeatureCollection: ksFeatureCollection; function GetPlacement: ksPlacement; property DefaultInterface: ksObject3DNotifyResult read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TObject3DNotifyResultProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TObject3DNotifyResult // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TObject3DNotifyResultProperties = class(TPersistent) private FServer: TObject3DNotifyResult; function GetDefaultInterface: ksObject3DNotifyResult; constructor Create(AServer: TObject3DNotifyResult); protected public property DefaultInterface: ksObject3DNotifyResult read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoDocument2D provides a Create and CreateRemote method to // create instances of the default interface ksDocument2D exposed by // the CoClass Document2D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocument2D = class class function Create: ksDocument2D; class function CreateRemote(const MachineName: string): ksDocument2D; end; // *********************************************************************// // The Class CoSpecRoughParam provides a Create and CreateRemote method to // create instances of the default interface ksSpecRoughParam exposed by // the CoClass SpecRoughParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpecRoughParam = class class function Create: ksSpecRoughParam; class function CreateRemote(const MachineName: string): ksSpecRoughParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpecRoughParam // Help String : Ïàðàìåòðû äëÿ îïðåäåëåíèÿ íåóêàçàííîé øåðîõîâàòîñòè. // Default Interface: ksSpecRoughParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpecRoughParamProperties= class; {$ENDIF} TSpecRoughParam = class(TOleServer) private FIntf: ksSpecRoughParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpecRoughParamProperties; function GetServerProperties: TSpecRoughParamProperties; {$ENDIF} function GetDefaultInterface: ksSpecRoughParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_sign: Smallint; procedure Set_sign(Value: Smallint); function Get_t: WordBool; procedure Set_t(Value: WordBool); function Get_s: WideString; procedure Set_s(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpecRoughParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksSpecRoughParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property sign: Smallint read Get_sign write Set_sign; property t: WordBool read Get_t write Set_t; property s: WideString read Get_s write Set_s; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpecRoughParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpecRoughParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpecRoughParamProperties = class(TPersistent) private FServer: TSpecRoughParam; function GetDefaultInterface: ksSpecRoughParam; constructor Create(AServer: TSpecRoughParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_sign: Smallint; procedure Set_sign(Value: Smallint); function Get_t: WordBool; procedure Set_t(Value: WordBool); function Get_s: WideString; procedure Set_s(const Value: WideString); public property DefaultInterface: ksSpecRoughParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property sign: Smallint read Get_sign write Set_sign; property t: WordBool read Get_t write Set_t; property s: WideString read Get_s write Set_s; end; {$ENDIF} // *********************************************************************// // The Class CoEllipseParam provides a Create and CreateRemote method to // create instances of the default interface ksEllipseParam exposed by // the CoClass EllipseParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEllipseParam = class class function Create: ksEllipseParam; class function CreateRemote(const MachineName: string): ksEllipseParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEllipseParam // Help String : Ïàðàìåòðû ýëëèïñà. // Default Interface: ksEllipseParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEllipseParamProperties= class; {$ENDIF} TEllipseParam = class(TOleServer) private FIntf: ksEllipseParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEllipseParamProperties; function GetServerProperties: TEllipseParamProperties; {$ENDIF} function GetDefaultInterface: ksEllipseParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEllipseParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksEllipseParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property angle: Double read Get_angle write Set_angle; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEllipseParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEllipseParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEllipseParamProperties = class(TPersistent) private FServer: TEllipseParam; function GetDefaultInterface: ksEllipseParam; constructor Create(AServer: TEllipseParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksEllipseParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property angle: Double read Get_angle write Set_angle; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoEllipseArcParam provides a Create and CreateRemote method to // create instances of the default interface ksEllipseArcParam exposed by // the CoClass EllipseArcParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEllipseArcParam = class class function Create: ksEllipseArcParam; class function CreateRemote(const MachineName: string): ksEllipseArcParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEllipseArcParam // Help String : Ïàðàìåòðû äóãè ýëëèïñà ïî óãëàì. // Default Interface: ksEllipseArcParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEllipseArcParamProperties= class; {$ENDIF} TEllipseArcParam = class(TOleServer) private FIntf: ksEllipseArcParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEllipseArcParamProperties; function GetServerProperties: TEllipseArcParamProperties; {$ENDIF} function GetDefaultInterface: ksEllipseArcParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_angleFirst: Double; procedure Set_angleFirst(Value: Double); function Get_angleSecond: Double; procedure Set_angleSecond(Value: Double); function Get_direction: Double; procedure Set_direction(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEllipseArcParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksEllipseArcParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property angle: Double read Get_angle write Set_angle; property angleFirst: Double read Get_angleFirst write Set_angleFirst; property angleSecond: Double read Get_angleSecond write Set_angleSecond; property direction: Double read Get_direction write Set_direction; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEllipseArcParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEllipseArcParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEllipseArcParamProperties = class(TPersistent) private FServer: TEllipseArcParam; function GetDefaultInterface: ksEllipseArcParam; constructor Create(AServer: TEllipseArcParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_angleFirst: Double; procedure Set_angleFirst(Value: Double); function Get_angleSecond: Double; procedure Set_angleSecond(Value: Double); function Get_direction: Double; procedure Set_direction(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksEllipseArcParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property angle: Double read Get_angle write Set_angle; property angleFirst: Double read Get_angleFirst write Set_angleFirst; property angleSecond: Double read Get_angleSecond write Set_angleSecond; property direction: Double read Get_direction write Set_direction; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoEllipseArcParam1 provides a Create and CreateRemote method to // create instances of the default interface ksEllipseArcParam1 exposed by // the CoClass EllipseArcParam1. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEllipseArcParam1 = class class function Create: ksEllipseArcParam1; class function CreateRemote(const MachineName: string): ksEllipseArcParam1; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEllipseArcParam1 // Help String : Ïàðàìåòðû äóãè ýëëèïñà ïî ïàðàìåòðàì. // Default Interface: ksEllipseArcParam1 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEllipseArcParam1Properties= class; {$ENDIF} TEllipseArcParam1 = class(TOleServer) private FIntf: ksEllipseArcParam1; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEllipseArcParam1Properties; function GetServerProperties: TEllipseArcParam1Properties; {$ENDIF} function GetDefaultInterface: ksEllipseArcParam1; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_parFirst: Double; procedure Set_parFirst(Value: Double); function Get_parSecond: Double; procedure Set_parSecond(Value: Double); function Get_direction: Double; procedure Set_direction(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEllipseArcParam1); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksEllipseArcParam1 read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property angle: Double read Get_angle write Set_angle; property parFirst: Double read Get_parFirst write Set_parFirst; property parSecond: Double read Get_parSecond write Set_parSecond; property direction: Double read Get_direction write Set_direction; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEllipseArcParam1Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEllipseArcParam1 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEllipseArcParam1Properties = class(TPersistent) private FServer: TEllipseArcParam1; function GetDefaultInterface: ksEllipseArcParam1; constructor Create(AServer: TEllipseArcParam1); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_parFirst: Double; procedure Set_parFirst(Value: Double); function Get_parSecond: Double; procedure Set_parSecond(Value: Double); function Get_direction: Double; procedure Set_direction(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksEllipseArcParam1 read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property angle: Double read Get_angle write Set_angle; property parFirst: Double read Get_parFirst write Set_parFirst; property parSecond: Double read Get_parSecond write Set_parSecond; property direction: Double read Get_direction write Set_direction; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoEquidistantParam provides a Create and CreateRemote method to // create instances of the default interface ksEquidistantParam exposed by // the CoClass EquidistantParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEquidistantParam = class class function Create: ksEquidistantParam; class function CreateRemote(const MachineName: string): ksEquidistantParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEquidistantParam // Help String : Ïàðàìåòðû ýêâèäèñòàíòû. // Default Interface: ksEquidistantParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEquidistantParamProperties= class; {$ENDIF} TEquidistantParam = class(TOleServer) private FIntf: ksEquidistantParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEquidistantParamProperties; function GetServerProperties: TEquidistantParamProperties; {$ENDIF} function GetDefaultInterface: ksEquidistantParam; protected procedure InitServerData; override; function Get_geoObj: Integer; procedure Set_geoObj(Value: Integer); function Get_side: Smallint; procedure Set_side(Value: Smallint); function Get_cutMode: WordBool; procedure Set_cutMode(Value: WordBool); function Get_degState: WordBool; procedure Set_degState(Value: WordBool); function Get_radRight: Double; procedure Set_radRight(Value: Double); function Get_radLeft: Double; procedure Set_radLeft(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEquidistantParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksEquidistantParam read GetDefaultInterface; property geoObj: Integer read Get_geoObj write Set_geoObj; property side: Smallint read Get_side write Set_side; property cutMode: WordBool read Get_cutMode write Set_cutMode; property degState: WordBool read Get_degState write Set_degState; property radRight: Double read Get_radRight write Set_radRight; property radLeft: Double read Get_radLeft write Set_radLeft; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEquidistantParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEquidistantParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEquidistantParamProperties = class(TPersistent) private FServer: TEquidistantParam; function GetDefaultInterface: ksEquidistantParam; constructor Create(AServer: TEquidistantParam); protected function Get_geoObj: Integer; procedure Set_geoObj(Value: Integer); function Get_side: Smallint; procedure Set_side(Value: Smallint); function Get_cutMode: WordBool; procedure Set_cutMode(Value: WordBool); function Get_degState: WordBool; procedure Set_degState(Value: WordBool); function Get_radRight: Double; procedure Set_radRight(Value: Double); function Get_radLeft: Double; procedure Set_radLeft(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksEquidistantParam read GetDefaultInterface; published property geoObj: Integer read Get_geoObj write Set_geoObj; property side: Smallint read Get_side write Set_side; property cutMode: WordBool read Get_cutMode write Set_cutMode; property degState: WordBool read Get_degState write Set_degState; property radRight: Double read Get_radRight write Set_radRight; property radLeft: Double read Get_radLeft write Set_radLeft; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoParagraphParam provides a Create and CreateRemote method to // create instances of the default interface ksParagraphParam exposed by // the CoClass ParagraphParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoParagraphParam = class class function Create: ksParagraphParam; class function CreateRemote(const MachineName: string): ksParagraphParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TParagraphParam // Help String : Ïàðàìåòðû ïàðàãðàôà. // Default Interface: ksParagraphParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TParagraphParamProperties= class; {$ENDIF} TParagraphParam = class(TOleServer) private FIntf: ksParagraphParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TParagraphParamProperties; function GetServerProperties: TParagraphParamProperties; {$ENDIF} function GetDefaultInterface: ksParagraphParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); function Get_vFormat: Integer; procedure Set_vFormat(Value: Integer); function Get_hFormat: Integer; procedure Set_hFormat(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksParagraphParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksParagraphParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property width: Double read Get_width write Set_width; property height: Double read Get_height write Set_height; property vFormat: Integer read Get_vFormat write Set_vFormat; property hFormat: Integer read Get_hFormat write Set_hFormat; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TParagraphParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TParagraphParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TParagraphParamProperties = class(TPersistent) private FServer: TParagraphParam; function GetDefaultInterface: ksParagraphParam; constructor Create(AServer: TParagraphParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); function Get_vFormat: Integer; procedure Set_vFormat(Value: Integer); function Get_hFormat: Integer; procedure Set_hFormat(Value: Integer); public property DefaultInterface: ksParagraphParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property width: Double read Get_width write Set_width; property height: Double read Get_height write Set_height; property vFormat: Integer read Get_vFormat write Set_vFormat; property hFormat: Integer read Get_hFormat write Set_hFormat; end; {$ENDIF} // *********************************************************************// // The Class CoTextItemParam provides a Create and CreateRemote method to // create instances of the default interface ksTextItemParam exposed by // the CoClass TextItemParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextItemParam = class class function Create: ksTextItemParam; class function CreateRemote(const MachineName: string): ksTextItemParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTextItemParam // Help String : Ïàðàìåòðû êîìïîíåíòû ñòðîêè òåêñòà. // Default Interface: ksTextItemParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTextItemParamProperties= class; {$ENDIF} TTextItemParam = class(TOleServer) private FIntf: ksTextItemParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTextItemParamProperties; function GetServerProperties: TTextItemParamProperties; {$ENDIF} function GetDefaultInterface: ksTextItemParam; protected procedure InitServerData; override; function Get_type_: Integer; procedure Set_type_(Value: Integer); function Get_s: WideString; procedure Set_s(const Value: WideString); function Get_iSNumb: Integer; procedure Set_iSNumb(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTextItemParam); procedure Disconnect; override; function Init: WordBool; function GetItemFont: IDispatch; function SetItemFont(const val: IDispatch): WordBool; property DefaultInterface: ksTextItemParam read GetDefaultInterface; property type_: Integer read Get_type_ write Set_type_; property s: WideString read Get_s write Set_s; property iSNumb: Integer read Get_iSNumb write Set_iSNumb; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTextItemParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTextItemParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTextItemParamProperties = class(TPersistent) private FServer: TTextItemParam; function GetDefaultInterface: ksTextItemParam; constructor Create(AServer: TTextItemParam); protected function Get_type_: Integer; procedure Set_type_(Value: Integer); function Get_s: WideString; procedure Set_s(const Value: WideString); function Get_iSNumb: Integer; procedure Set_iSNumb(Value: Integer); public property DefaultInterface: ksTextItemParam read GetDefaultInterface; published property type_: Integer read Get_type_ write Set_type_; property s: WideString read Get_s write Set_s; property iSNumb: Integer read Get_iSNumb write Set_iSNumb; end; {$ENDIF} // *********************************************************************// // The Class CoTextLineParam provides a Create and CreateRemote method to // create instances of the default interface ksTextLineParam exposed by // the CoClass TextLineParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextLineParam = class class function Create: ksTextLineParam; class function CreateRemote(const MachineName: string): ksTextLineParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTextLineParam // Help String : Ïàðàìåòðû ñòðîêè òåêñòà. // Default Interface: ksTextLineParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTextLineParamProperties= class; {$ENDIF} TTextLineParam = class(TOleServer) private FIntf: ksTextLineParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTextLineParamProperties; function GetServerProperties: TTextLineParamProperties; {$ENDIF} function GetDefaultInterface: ksTextLineParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTextLineParam); procedure Disconnect; override; function GetTextItemArr: IDispatch; function SetTextItemArr(const val: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksTextLineParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTextLineParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTextLineParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTextLineParamProperties = class(TPersistent) private FServer: TTextLineParam; function GetDefaultInterface: ksTextLineParam; constructor Create(AServer: TTextLineParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksTextLineParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoTextItemFont provides a Create and CreateRemote method to // create instances of the default interface ksTextItemFont exposed by // the CoClass TextItemFont. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextItemFont = class class function Create: ksTextItemFont; class function CreateRemote(const MachineName: string): ksTextItemFont; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTextItemFont // Help String : Ïàðàìåòðû Øðèôòà êîìïîíåíòû ñòðîêè òåêñòà. // Default Interface: ksTextItemFont // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTextItemFontProperties= class; {$ENDIF} TTextItemFont = class(TOleServer) private FIntf: ksTextItemFont; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTextItemFontProperties; function GetServerProperties: TTextItemFontProperties; {$ENDIF} function GetDefaultInterface: ksTextItemFont; protected procedure InitServerData; override; function Get_fontName: WideString; procedure Set_fontName(const Value: WideString); function Get_height: Double; procedure Set_height(Value: Double); function Get_ksu: Double; procedure Set_ksu(Value: Double); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_bitVector: Integer; procedure Set_bitVector(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTextItemFont); procedure Disconnect; override; function Init: WordBool; function GetBitVectorValue(val: Integer): WordBool; function SetBitVectorValue(val: Integer; state: WordBool): WordBool; property DefaultInterface: ksTextItemFont read GetDefaultInterface; property fontName: WideString read Get_fontName write Set_fontName; property height: Double read Get_height write Set_height; property ksu: Double read Get_ksu write Set_ksu; property color: Integer read Get_color write Set_color; property bitVector: Integer read Get_bitVector write Set_bitVector; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTextItemFontProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTextItemFont // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTextItemFontProperties = class(TPersistent) private FServer: TTextItemFont; function GetDefaultInterface: ksTextItemFont; constructor Create(AServer: TTextItemFont); protected function Get_fontName: WideString; procedure Set_fontName(const Value: WideString); function Get_height: Double; procedure Set_height(Value: Double); function Get_ksu: Double; procedure Set_ksu(Value: Double); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_bitVector: Integer; procedure Set_bitVector(Value: Integer); public property DefaultInterface: ksTextItemFont read GetDefaultInterface; published property fontName: WideString read Get_fontName write Set_fontName; property height: Double read Get_height write Set_height; property ksu: Double read Get_ksu write Set_ksu; property color: Integer read Get_color write Set_color; property bitVector: Integer read Get_bitVector write Set_bitVector; end; {$ENDIF} // *********************************************************************// // The Class CoCornerParam provides a Create and CreateRemote method to // create instances of the default interface ksCornerParam exposed by // the CoClass CornerParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCornerParam = class class function Create: ksCornerParam; class function CreateRemote(const MachineName: string): ksCornerParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCornerParam // Help String : Ïàðàìåòðû óãëîâ äëÿ ïðÿìîóãîëüíèêîâ è ìíîãîóãîëüíèêîâ. // Default Interface: ksCornerParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCornerParamProperties= class; {$ENDIF} TCornerParam = class(TOleServer) private FIntf: ksCornerParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCornerParamProperties; function GetServerProperties: TCornerParamProperties; {$ENDIF} function GetDefaultInterface: ksCornerParam; protected procedure InitServerData; override; function Get_index: Integer; procedure Set_index(Value: Integer); function Get_fillet: WordBool; procedure Set_fillet(Value: WordBool); function Get_l1: Double; procedure Set_l1(Value: Double); function Get_l2: Double; procedure Set_l2(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCornerParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksCornerParam read GetDefaultInterface; property index: Integer read Get_index write Set_index; property fillet: WordBool read Get_fillet write Set_fillet; property l1: Double read Get_l1 write Set_l1; property l2: Double read Get_l2 write Set_l2; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCornerParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCornerParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCornerParamProperties = class(TPersistent) private FServer: TCornerParam; function GetDefaultInterface: ksCornerParam; constructor Create(AServer: TCornerParam); protected function Get_index: Integer; procedure Set_index(Value: Integer); function Get_fillet: WordBool; procedure Set_fillet(Value: WordBool); function Get_l1: Double; procedure Set_l1(Value: Double); function Get_l2: Double; procedure Set_l2(Value: Double); public property DefaultInterface: ksCornerParam read GetDefaultInterface; published property index: Integer read Get_index write Set_index; property fillet: WordBool read Get_fillet write Set_fillet; property l1: Double read Get_l1 write Set_l1; property l2: Double read Get_l2 write Set_l2; end; {$ENDIF} // *********************************************************************// // The Class CoContourParam provides a Create and CreateRemote method to // create instances of the default interface ksContourParam exposed by // the CoClass ContourParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoContourParam = class class function Create: ksContourParam; class function CreateRemote(const MachineName: string): ksContourParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TContourParam // Help String : Ïàðàìåòðû êîíòóðà. // Default Interface: ksContourParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TContourParamProperties= class; {$ENDIF} TContourParam = class(TOleServer) private FIntf: ksContourParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TContourParamProperties; function GetServerProperties: TContourParamProperties; {$ENDIF} function GetDefaultInterface: ksContourParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksContourParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksContourParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TContourParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TContourParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TContourParamProperties = class(TPersistent) private FServer: TContourParam; function GetDefaultInterface: ksContourParam; constructor Create(AServer: TContourParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksContourParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoLayerParam provides a Create and CreateRemote method to // create instances of the default interface ksLayerParam exposed by // the CoClass LayerParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLayerParam = class class function Create: ksLayerParam; class function CreateRemote(const MachineName: string): ksLayerParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLayerParam // Help String : Ïàðàìåòðû ñëîÿ. // Default Interface: ksLayerParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLayerParamProperties= class; {$ENDIF} TLayerParam = class(TOleServer) private FIntf: ksLayerParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLayerParamProperties; function GetServerProperties: TLayerParamProperties; {$ENDIF} function GetDefaultInterface: ksLayerParam; protected procedure InitServerData; override; function Get_state: Smallint; procedure Set_state(Value: Smallint); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_name: WideString; procedure Set_name(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLayerParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLayerParam read GetDefaultInterface; property state: Smallint read Get_state write Set_state; property color: Integer read Get_color write Set_color; property name: WideString read Get_name write Set_name; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLayerParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLayerParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLayerParamProperties = class(TPersistent) private FServer: TLayerParam; function GetDefaultInterface: ksLayerParam; constructor Create(AServer: TLayerParam); protected function Get_state: Smallint; procedure Set_state(Value: Smallint); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_name: WideString; procedure Set_name(const Value: WideString); public property DefaultInterface: ksLayerParam read GetDefaultInterface; published property state: Smallint read Get_state write Set_state; property color: Integer read Get_color write Set_color; property name: WideString read Get_name write Set_name; end; {$ENDIF} // *********************************************************************// // The Class CoLineParam provides a Create and CreateRemote method to // create instances of the default interface ksLineParam exposed by // the CoClass LineParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLineParam = class class function Create: ksLineParam; class function CreateRemote(const MachineName: string): ksLineParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLineParam // Help String : Ïàðàìåòðû âñïîìîãàòåëüíîé ëèíèè. // Default Interface: ksLineParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLineParamProperties= class; {$ENDIF} TLineParam = class(TOleServer) private FIntf: ksLineParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLineParamProperties; function GetServerProperties: TLineParamProperties; {$ENDIF} function GetDefaultInterface: ksLineParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLineParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLineParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property angle: Double read Get_angle write Set_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLineParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLineParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLineParamProperties = class(TPersistent) private FServer: TLineParam; function GetDefaultInterface: ksLineParam; constructor Create(AServer: TLineParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); public property DefaultInterface: ksLineParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property angle: Double read Get_angle write Set_angle; end; {$ENDIF} // *********************************************************************// // The Class CoRegularPolygonParam provides a Create and CreateRemote method to // create instances of the default interface ksRegularPolygonParam exposed by // the CoClass RegularPolygonParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRegularPolygonParam = class class function Create: ksRegularPolygonParam; class function CreateRemote(const MachineName: string): ksRegularPolygonParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRegularPolygonParam // Help String : Ïàðàìåòðû ïðàâèëüíîãî ìíîãîóãîëüíèêà. // Default Interface: ksRegularPolygonParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRegularPolygonParamProperties= class; {$ENDIF} TRegularPolygonParam = class(TOleServer) private FIntf: ksRegularPolygonParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRegularPolygonParamProperties; function GetServerProperties: TRegularPolygonParamProperties; {$ENDIF} function GetDefaultInterface: ksRegularPolygonParam; protected procedure InitServerData; override; function Get_count: Integer; procedure Set_count(Value: Integer); function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_radius: Double; procedure Set_radius(Value: Double); function Get_describe: WordBool; procedure Set_describe(Value: WordBool); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRegularPolygonParam); procedure Disconnect; override; function GetPCorner: IDispatch; function SetPCorner(const val: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksRegularPolygonParam read GetDefaultInterface; property count: Integer read Get_count write Set_count; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property ang: Double read Get_ang write Set_ang; property radius: Double read Get_radius write Set_radius; property describe: WordBool read Get_describe write Set_describe; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRegularPolygonParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRegularPolygonParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRegularPolygonParamProperties = class(TPersistent) private FServer: TRegularPolygonParam; function GetDefaultInterface: ksRegularPolygonParam; constructor Create(AServer: TRegularPolygonParam); protected function Get_count: Integer; procedure Set_count(Value: Integer); function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_radius: Double; procedure Set_radius(Value: Double); function Get_describe: WordBool; procedure Set_describe(Value: WordBool); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksRegularPolygonParam read GetDefaultInterface; published property count: Integer read Get_count write Set_count; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property ang: Double read Get_ang write Set_ang; property radius: Double read Get_radius write Set_radius; property describe: WordBool read Get_describe write Set_describe; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoRectangleParam provides a Create and CreateRemote method to // create instances of the default interface ksRectangleParam exposed by // the CoClass RectangleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRectangleParam = class class function Create: ksRectangleParam; class function CreateRemote(const MachineName: string): ksRectangleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRectangleParam // Help String : Ïàðàìåòðà ïðÿìîóãîëüíèêà. // Default Interface: ksRectangleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRectangleParamProperties= class; {$ENDIF} TRectangleParam = class(TOleServer) private FIntf: ksRectangleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRectangleParamProperties; function GetServerProperties: TRectangleParamProperties; {$ENDIF} function GetDefaultInterface: ksRectangleParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRectangleParam); procedure Disconnect; override; function GetPCorner: IDispatch; function SetPCorner(const val: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksRectangleParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property height: Double read Get_height write Set_height; property width: Double read Get_width write Set_width; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRectangleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRectangleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRectangleParamProperties = class(TPersistent) private FServer: TRectangleParam; function GetDefaultInterface: ksRectangleParam; constructor Create(AServer: TRectangleParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksRectangleParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property height: Double read Get_height write Set_height; property width: Double read Get_width write Set_width; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoBaseParam provides a Create and CreateRemote method to // create instances of the default interface ksBaseParam exposed by // the CoClass BaseParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBaseParam = class class function Create: ksBaseParam; class function CreateRemote(const MachineName: string): ksBaseParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBaseParam // Help String : Ïàðàìåòðû îáîçíà÷åíèå áàçû. // Default Interface: ksBaseParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBaseParamProperties= class; {$ENDIF} TBaseParam = class(TOleServer) private FIntf: ksBaseParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBaseParamProperties; function GetServerProperties: TBaseParamProperties; {$ENDIF} function GetDefaultInterface: ksBaseParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_type_: WordBool; procedure Set_type_(Value: WordBool); function Get_str: WideString; procedure Set_str(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBaseParam); procedure Disconnect; override; function GetPTextItem: IDispatch; function SetPTextItem(const val: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksBaseParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property type_: WordBool read Get_type_ write Set_type_; property str: WideString read Get_str write Set_str; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBaseParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBaseParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBaseParamProperties = class(TPersistent) private FServer: TBaseParam; function GetDefaultInterface: ksBaseParam; constructor Create(AServer: TBaseParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_type_: WordBool; procedure Set_type_(Value: WordBool); function Get_str: WideString; procedure Set_str(const Value: WideString); public property DefaultInterface: ksBaseParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property type_: WordBool read Get_type_ write Set_type_; property str: WideString read Get_str write Set_str; end; {$ENDIF} // *********************************************************************// // The Class CoLtVariant provides a Create and CreateRemote method to // create instances of the default interface ksLtVariant exposed by // the CoClass LtVariant. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLtVariant = class class function Create: ksLtVariant; class function CreateRemote(const MachineName: string): ksLtVariant; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLtVariant // Help String : Ïàðàìåòðû òèïà äàííûõ. // Default Interface: ksLtVariant // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLtVariantProperties= class; {$ENDIF} TLtVariant = class(TOleServer) private FIntf: ksLtVariant; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLtVariantProperties; function GetServerProperties: TLtVariantProperties; {$ENDIF} function GetDefaultInterface: ksLtVariant; protected procedure InitServerData; override; function Get_strVal: WideString; procedure Set_strVal(const Value: WideString); function Get_shortVal: Smallint; procedure Set_shortVal(Value: Smallint); function Get_intVal: Integer; procedure Set_intVal(Value: Integer); function Get_longVal: Integer; procedure Set_longVal(Value: Integer); function Get_floatVal: Single; procedure Set_floatVal(Value: Single); function Get_doubleVal: Double; procedure Set_doubleVal(Value: Double); function Get_charVal: Smallint; procedure Set_charVal(Value: Smallint); function Get_uCharVal: Smallint; procedure Set_uCharVal(Value: Smallint); function Get_uIntVal: Integer; procedure Set_uIntVal(Value: Integer); function Get_valType: Smallint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLtVariant); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLtVariant read GetDefaultInterface; property valType: Smallint read Get_valType; property strVal: WideString read Get_strVal write Set_strVal; property shortVal: Smallint read Get_shortVal write Set_shortVal; property intVal: Integer read Get_intVal write Set_intVal; property longVal: Integer read Get_longVal write Set_longVal; property floatVal: Single read Get_floatVal write Set_floatVal; property doubleVal: Double read Get_doubleVal write Set_doubleVal; property charVal: Smallint read Get_charVal write Set_charVal; property uCharVal: Smallint read Get_uCharVal write Set_uCharVal; property uIntVal: Integer read Get_uIntVal write Set_uIntVal; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLtVariantProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLtVariant // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLtVariantProperties = class(TPersistent) private FServer: TLtVariant; function GetDefaultInterface: ksLtVariant; constructor Create(AServer: TLtVariant); protected function Get_strVal: WideString; procedure Set_strVal(const Value: WideString); function Get_shortVal: Smallint; procedure Set_shortVal(Value: Smallint); function Get_intVal: Integer; procedure Set_intVal(Value: Integer); function Get_longVal: Integer; procedure Set_longVal(Value: Integer); function Get_floatVal: Single; procedure Set_floatVal(Value: Single); function Get_doubleVal: Double; procedure Set_doubleVal(Value: Double); function Get_charVal: Smallint; procedure Set_charVal(Value: Smallint); function Get_uCharVal: Smallint; procedure Set_uCharVal(Value: Smallint); function Get_uIntVal: Integer; procedure Set_uIntVal(Value: Integer); function Get_valType: Smallint; public property DefaultInterface: ksLtVariant read GetDefaultInterface; published property strVal: WideString read Get_strVal write Set_strVal; property shortVal: Smallint read Get_shortVal write Set_shortVal; property intVal: Integer read Get_intVal write Set_intVal; property longVal: Integer read Get_longVal write Set_longVal; property floatVal: Single read Get_floatVal write Set_floatVal; property doubleVal: Double read Get_doubleVal write Set_doubleVal; property charVal: Smallint read Get_charVal write Set_charVal; property uCharVal: Smallint read Get_uCharVal write Set_uCharVal; property uIntVal: Integer read Get_uIntVal write Set_uIntVal; end; {$ENDIF} // *********************************************************************// // The Class CoUserParam provides a Create and CreateRemote method to // create instances of the default interface ksUserParam exposed by // the CoClass UserParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoUserParam = class class function Create: ksUserParam; class function CreateRemote(const MachineName: string): ksUserParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TUserParam // Help String : Ïîëüçîâàòåëüñêàÿ ñòðóêòóðà ïàðàìåòðîâ. // Default Interface: ksUserParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TUserParamProperties= class; {$ENDIF} TUserParam = class(TOleServer) private FIntf: ksUserParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TUserParamProperties; function GetServerProperties: TUserParamProperties; {$ENDIF} function GetDefaultInterface: ksUserParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_libName: WideString; procedure Set_libName(const Value: WideString); function Get_number: Integer; procedure Set_number(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksUserParam); procedure Disconnect; override; function GetUserArray: IDispatch; function SetUserArray(const val: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksUserParam read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property libName: WideString read Get_libName write Set_libName; property number: Integer read Get_number write Set_number; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TUserParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TUserParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TUserParamProperties = class(TPersistent) private FServer: TUserParam; function GetDefaultInterface: ksUserParam; constructor Create(AServer: TUserParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_libName: WideString; procedure Set_libName(const Value: WideString); function Get_number: Integer; procedure Set_number(Value: Integer); public property DefaultInterface: ksUserParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property libName: WideString read Get_libName write Set_libName; property number: Integer read Get_number write Set_number; end; {$ENDIF} // *********************************************************************// // The Class CoMathPointParam provides a Create and CreateRemote method to // create instances of the default interface ksMathPointParam exposed by // the CoClass MathPointParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMathPointParam = class class function Create: ksMathPointParam; class function CreateRemote(const MachineName: string): ksMathPointParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMathPointParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ìàòåìàòè÷åñêîé òî÷êè. // Default Interface: ksMathPointParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMathPointParamProperties= class; {$ENDIF} TMathPointParam = class(TOleServer) private FIntf: ksMathPointParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMathPointParamProperties; function GetServerProperties: TMathPointParamProperties; {$ENDIF} function GetDefaultInterface: ksMathPointParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMathPointParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksMathPointParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMathPointParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMathPointParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMathPointParamProperties = class(TPersistent) private FServer: TMathPointParam; function GetDefaultInterface: ksMathPointParam; constructor Create(AServer: TMathPointParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); public property DefaultInterface: ksMathPointParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; end; {$ENDIF} // *********************************************************************// // The Class CoCurvePicture provides a Create and CreateRemote method to // create instances of the default interface ksCurvePicture exposed by // the CoClass CurvePicture. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurvePicture = class class function Create: ksCurvePicture; class function CreateRemote(const MachineName: string): ksCurvePicture; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurvePicture // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ êàðòèíêè ñòèëÿ. // Default Interface: ksCurvePicture // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurvePictureProperties= class; {$ENDIF} TCurvePicture = class(TOleServer) private FIntf: ksCurvePicture; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurvePictureProperties; function GetServerProperties: TCurvePictureProperties; {$ENDIF} function GetDefaultInterface: ksCurvePicture; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurvePicture); procedure Disconnect; override; function GetPolygon: IDispatch; function SetPolygon(const polygon: IDispatch): WordBool; function GetFill: IDispatch; function SetFill(const fill: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksCurvePicture read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurvePictureProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurvePicture // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurvePictureProperties = class(TPersistent) private FServer: TCurvePicture; function GetDefaultInterface: ksCurvePicture; constructor Create(AServer: TCurvePicture); protected public property DefaultInterface: ksCurvePicture read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCurvePattern provides a Create and CreateRemote method to // create instances of the default interface ksCurvePattern exposed by // the CoClass CurvePattern. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurvePattern = class class function Create: ksCurvePattern; class function CreateRemote(const MachineName: string): ksCurvePattern; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurvePattern // Help String : Ó÷àñòêà øòðèõîâîé êðèâîé. // Default Interface: ksCurvePattern // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurvePatternProperties= class; {$ENDIF} TCurvePattern = class(TOleServer) private FIntf: ksCurvePattern; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurvePatternProperties; function GetServerProperties: TCurvePatternProperties; {$ENDIF} function GetDefaultInterface: ksCurvePattern; protected procedure InitServerData; override; function Get_visibleSeg: Double; procedure Set_visibleSeg(Value: Double); function Get_invisibleSeg: Double; procedure Set_invisibleSeg(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurvePattern); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksCurvePattern read GetDefaultInterface; property visibleSeg: Double read Get_visibleSeg write Set_visibleSeg; property invisibleSeg: Double read Get_invisibleSeg write Set_invisibleSeg; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurvePatternProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurvePattern // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurvePatternProperties = class(TPersistent) private FServer: TCurvePattern; function GetDefaultInterface: ksCurvePattern; constructor Create(AServer: TCurvePattern); protected function Get_visibleSeg: Double; procedure Set_visibleSeg(Value: Double); function Get_invisibleSeg: Double; procedure Set_invisibleSeg(Value: Double); public property DefaultInterface: ksCurvePattern read GetDefaultInterface; published property visibleSeg: Double read Get_visibleSeg write Set_visibleSeg; property invisibleSeg: Double read Get_invisibleSeg write Set_invisibleSeg; end; {$ENDIF} // *********************************************************************// // The Class CoTAN provides a Create and CreateRemote method to // create instances of the default interface ksTAN exposed by // the CoClass TAN. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTAN = class class function Create: ksTAN; class function CreateRemote(const MachineName: string): ksTAN; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTAN // Help String : Ìàññèâ êîîðäèíàò òî÷åê êàñàíèÿ. // Default Interface: ksTAN // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTANProperties= class; {$ENDIF} TTAN = class(TOleServer) private FIntf: ksTAN; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTANProperties; function GetServerProperties: TTANProperties; {$ENDIF} function GetDefaultInterface: ksTAN; protected procedure InitServerData; override; function Get_x1(index: Integer): Double; function Get_y1(index: Integer): Double; function Get_x2(index: Integer): Double; function Get_y2(index: Integer): Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTAN); procedure Disconnect; override; property DefaultInterface: ksTAN read GetDefaultInterface; property x1[index: Integer]: Double read Get_x1; property y1[index: Integer]: Double read Get_y1; property x2[index: Integer]: Double read Get_x2; property y2[index: Integer]: Double read Get_y2; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTANProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTAN // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTANProperties = class(TPersistent) private FServer: TTAN; function GetDefaultInterface: ksTAN; constructor Create(AServer: TTAN); protected function Get_x1(index: Integer): Double; function Get_y1(index: Integer): Double; function Get_x2(index: Integer): Double; function Get_y2(index: Integer): Double; public property DefaultInterface: ksTAN read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCON provides a Create and CreateRemote method to // create instances of the default interface ksCON exposed by // the CoClass CON. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCON = class class function Create: ksCON; class function CreateRemote(const MachineName: string): ksCON; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCON // Help String : Ìàññèâ êîîðäèíàò òî÷åê ñîïðÿæåíèÿ. // Default Interface: ksCON // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCONProperties= class; {$ENDIF} TCON = class(TOleServer) private FIntf: ksCON; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCONProperties; function GetServerProperties: TCONProperties; {$ENDIF} function GetDefaultInterface: ksCON; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCON); procedure Disconnect; override; function GetCount: Integer; function GetXc(index: Integer): Double; function GetYc(index: Integer): Double; function GetX1(index: Integer): Double; function GetY1(index: Integer): Double; function GetX2(index: Integer): Double; function GetY2(index: Integer): Double; property DefaultInterface: ksCON read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCONProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCON // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCONProperties = class(TPersistent) private FServer: TCON; function GetDefaultInterface: ksCON; constructor Create(AServer: TCON); protected public property DefaultInterface: ksCON read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoInertiaParam provides a Create and CreateRemote method to // create instances of the default interface ksInertiaParam exposed by // the CoClass InertiaParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoInertiaParam = class class function Create: ksInertiaParam; class function CreateRemote(const MachineName: string): ksInertiaParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TInertiaParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ ðàñ÷åòà ïëîñêèõ ìîìåíòíî-öåíòðîâî÷íûõ õàðàêòåðèñòèê. // Default Interface: ksInertiaParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TInertiaParamProperties= class; {$ENDIF} TInertiaParam = class(TOleServer) private FIntf: ksInertiaParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TInertiaParamProperties; function GetServerProperties: TInertiaParamProperties; {$ENDIF} function GetDefaultInterface: ksInertiaParam; protected procedure InitServerData; override; function Get_xc: Double; function Get_yc: Double; function Get_F: Double; function Get_ly: Double; function Get_lx: Double; function Get_lxy: Double; function Get_mx: Double; function Get_my: Double; function Get_mxy: Double; function Get_jx: Double; function Get_jy: Double; function Get_A: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksInertiaParam); procedure Disconnect; override; property DefaultInterface: ksInertiaParam read GetDefaultInterface; property xc: Double read Get_xc; property yc: Double read Get_yc; property F: Double read Get_F; property ly: Double read Get_ly; property lx: Double read Get_lx; property lxy: Double read Get_lxy; property mx: Double read Get_mx; property my: Double read Get_my; property mxy: Double read Get_mxy; property jx: Double read Get_jx; property jy: Double read Get_jy; property A: Double read Get_A; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TInertiaParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TInertiaParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TInertiaParamProperties = class(TPersistent) private FServer: TInertiaParam; function GetDefaultInterface: ksInertiaParam; constructor Create(AServer: TInertiaParam); protected function Get_xc: Double; function Get_yc: Double; function Get_F: Double; function Get_ly: Double; function Get_lx: Double; function Get_lxy: Double; function Get_mx: Double; function Get_my: Double; function Get_mxy: Double; function Get_jx: Double; function Get_jy: Double; function Get_A: Double; public property DefaultInterface: ksInertiaParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMassInertiaParam provides a Create and CreateRemote method to // create instances of the default interface ksMassInertiaParam exposed by // the CoClass MassInertiaParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMassInertiaParam = class class function Create: ksMassInertiaParam; class function CreateRemote(const MachineName: string): ksMassInertiaParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMassInertiaParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ ðàñ÷åòà ìàññî-öåíòðîâî÷íûõ õàðàêòåðèñòèê. // Default Interface: ksMassInertiaParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMassInertiaParamProperties= class; {$ENDIF} TMassInertiaParam = class(TOleServer) private FIntf: ksMassInertiaParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMassInertiaParamProperties; function GetServerProperties: TMassInertiaParamProperties; {$ENDIF} function GetDefaultInterface: ksMassInertiaParam; protected procedure InitServerData; override; function Get_xc: Double; function Get_yc: Double; function Get_zc: Double; function Get_lx: Double; function Get_ly: Double; function Get_lz: Double; function Get_jx: Double; function Get_jy: Double; function Get_jz: Double; function Get_jxy: Double; function Get_jxz: Double; function Get_jyz: Double; function Get_jx0z: Double; function Get_jy0z: Double; function Get_jx0y: Double; function Get_lxy: Double; function Get_lxz: Double; function Get_lyz: Double; function Get_r: Double; function Get_m: Double; function Get_v: Double; function Get_F: Double; function Get_jx0: Double; function Get_jy0: Double; function Get_jz0: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMassInertiaParam); procedure Disconnect; override; function SetBitVectorValue(val: Integer; setState: WordBool): WordBool; function GetAxisX(var x: Double; var y: Double; var z: Double): WordBool; function GetAxisY(var x: Double; var y: Double; var z: Double): WordBool; function GetAxisZ(var x: Double; var y: Double; var z: Double): WordBool; property DefaultInterface: ksMassInertiaParam read GetDefaultInterface; property xc: Double read Get_xc; property yc: Double read Get_yc; property zc: Double read Get_zc; property lx: Double read Get_lx; property ly: Double read Get_ly; property lz: Double read Get_lz; property jx: Double read Get_jx; property jy: Double read Get_jy; property jz: Double read Get_jz; property jxy: Double read Get_jxy; property jxz: Double read Get_jxz; property jyz: Double read Get_jyz; property jx0z: Double read Get_jx0z; property jy0z: Double read Get_jy0z; property jx0y: Double read Get_jx0y; property lxy: Double read Get_lxy; property lxz: Double read Get_lxz; property lyz: Double read Get_lyz; property r: Double read Get_r; property m: Double read Get_m; property v: Double read Get_v; property F: Double read Get_F; property jx0: Double read Get_jx0; property jy0: Double read Get_jy0; property jz0: Double read Get_jz0; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMassInertiaParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMassInertiaParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMassInertiaParamProperties = class(TPersistent) private FServer: TMassInertiaParam; function GetDefaultInterface: ksMassInertiaParam; constructor Create(AServer: TMassInertiaParam); protected function Get_xc: Double; function Get_yc: Double; function Get_zc: Double; function Get_lx: Double; function Get_ly: Double; function Get_lz: Double; function Get_jx: Double; function Get_jy: Double; function Get_jz: Double; function Get_jxy: Double; function Get_jxz: Double; function Get_jyz: Double; function Get_jx0z: Double; function Get_jy0z: Double; function Get_jx0y: Double; function Get_lxy: Double; function Get_lxz: Double; function Get_lyz: Double; function Get_r: Double; function Get_m: Double; function Get_v: Double; function Get_F: Double; function Get_jx0: Double; function Get_jy0: Double; function Get_jz0: Double; public property DefaultInterface: ksMassInertiaParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMathematic2D provides a Create and CreateRemote method to // create instances of the default interface ksMathematic2D exposed by // the CoClass Mathematic2D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMathematic2D = class class function Create: ksMathematic2D; class function CreateRemote(const MachineName: string): ksMathematic2D; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMathematic2D // Help String : 2D ìàòåìàòè÷åñêèå ôóíêöèè. // Default Interface: ksMathematic2D // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMathematic2DProperties= class; {$ENDIF} TMathematic2D = class(TOleServer) private FIntf: ksMathematic2D; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMathematic2DProperties; function GetServerProperties: TMathematic2DProperties; {$ENDIF} function GetDefaultInterface: ksMathematic2D; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMathematic2D); procedure Disconnect; override; function ksCosD(x: Double): Double; function ksSinD(x: Double): Double; function ksTanD(x: Double): Double; function ksAtanD(x: Double): Double; function ksAngle(x1: Double; y1: Double; x2: Double; y2: Double): Double; function ksEqualPoints(x1: Double; y1: Double; x2: Double; y2: Double): Integer; function ksIntersectLinSLinS(x11: Double; y11: Double; x12: Double; y12: Double; x21: Double; y21: Double; x22: Double; y22: Double; const param: IDispatch): WordBool; function ksIntersectLinSLine(x1: Double; y1: Double; x2: Double; y2: Double; x: Double; y: Double; ang: Double; const param: IDispatch): WordBool; function ksIntersectArcLin(xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; n: Integer; x: Double; y: Double; ang: Double; const param: IDispatch): WordBool; function ksIntersectLinLin(x1: Double; y1: Double; angle1: Double; x2: Double; y2: Double; angle2: Double; const param: IDispatch): WordBool; function ksIntersectCirCir(xc1: Double; yc1: Double; radius1: Double; xc2: Double; yc2: Double; radius2: Double; const param: IDispatch): WordBool; function ksIntersectArcArc(xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint; xbc: Double; ybc: Double; radb: Double; fb1: Double; fb2: Double; directb: Integer; const param: IDispatch): WordBool; function ksIntersectLinSArc(x1: Double; y1: Double; x2: Double; y2: Double; xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; direct: Smallint; const param: IDispatch): WordBool; function ksIntersectLinSCir(x1: Double; y1: Double; x2: Double; y2: Double; xc: Double; yc: Double; rad: Double; const param: IDispatch): WordBool; function ksIntersectCirLin(xc: Double; yc: Double; rad: Double; xl: Double; yl: Double; angle: Double; const param: IDispatch): WordBool; function ksIntersectCirArc(xcc: Double; ycc: Double; radc: Double; xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint; const param: IDispatch): WordBool; function ksIntersectCurvCurv(p1: Integer; p2: Integer; const param: IDispatch): Integer; function ksTanLinePointCircle(x: Double; y: Double; xc: Double; yc: Double; rad: Double; const param: IDispatch): WordBool; function ksTanLineAngCircle(xc: Double; yc: Double; rad: Double; ang: Double; const param: IDispatch): WordBool; function ksTanCircleCircle(xc1: Double; yc1: Double; radius1: Double; xc2: Double; yc2: Double; radius2: Double; const param: IDispatch): WordBool; function ksTanLinePointCurve(x: Double; y: Double; pCur: Integer; const array_: IDispatch): Integer; function ksCouplingLineLine(x1: Double; y1: Double; angle1: Double; x2: Double; y2: Double; angle2: Double; rad: Double; const param: IDispatch): WordBool; function ksCouplingLineCircle(xc: Double; yc: Double; radc: Double; x1: Double; y1: Double; angle1: Double; rad: Double; const param: IDispatch): WordBool; function ksCouplingCircleCircle(xc1: Double; yc1: Double; radc1: Double; xc2: Double; yc2: Double; radc2: Double; rad: Double; const param: IDispatch): WordBool; function ksSymmetry(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double; var xc: Double; var yc: Double): WordBool; function ksRotate(x: Double; y: Double; xc: Double; yc: Double; ang: Double; var xr: Double; var yr: Double): WordBool; function ksDistancePntPnt(x1: Double; y1: Double; x2: Double; y2: Double): Double; function ksDistancePntLineSeg(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double): Double; function ksDistancePntArc(x: Double; y: Double; xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint): Double; function ksDistancePntCircle(x: Double; y: Double; xc: Double; yc: Double; rad: Double): Double; function ksDistancePntLine(x: Double; y: Double; x1: Double; y1: Double; angle: Double): Double; function ksDistancePntLineForPoint(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double): Double; function ksPerpendicular(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double; var xp: Double; var yp: Double): WordBool; function ksPointsOnCurve(curve: Integer; count: Integer): IDispatch; function ksGetCurvePerpendicular(curve: Integer; x: Double; y: Double): Double; function ksGetCurvePointProjection(curve: Integer; x: Double; y: Double; var kx: Double; var ky: Double): Integer; function ksMovePointOnCurve(curve: Integer; var x: Double; var y: Double; len: Double; dir: Integer): Integer; function ksCalcInertiaProperties(p: Integer; const prop: IDispatch; dimension: Smallint): Integer; function ksCalcMassInertiaProperties(p: Integer; const prop: IDispatch; density: Double; param: Double): Integer; function ksGetCurvePerimeter(curve: Integer; dimension: Smallint): Double; function ksPointsOnCurveByStep(curve: Integer; step: Double): IDispatch; function ksDistancePntPntOnCurve(curve: Integer; x1: Double; y1: Double; x2: Double; y2: Double): Double; property DefaultInterface: ksMathematic2D read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMathematic2DProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMathematic2D // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMathematic2DProperties = class(TPersistent) private FServer: TMathematic2D; function GetDefaultInterface: ksMathematic2D; constructor Create(AServer: TMathematic2D); protected public property DefaultInterface: ksMathematic2D read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoDynamicArray provides a Create and CreateRemote method to // create instances of the default interface ksDynamicArray exposed by // the CoClass DynamicArray. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDynamicArray = class class function Create: ksDynamicArray; class function CreateRemote(const MachineName: string): ksDynamicArray; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDynamicArray // Help String : Èíòåðôåéñ äèíàìè÷åñêîãî ìàññèâà. // Default Interface: ksDynamicArray // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDynamicArrayProperties= class; {$ENDIF} TDynamicArray = class(TOleServer) private FIntf: ksDynamicArray; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDynamicArrayProperties; function GetServerProperties: TDynamicArrayProperties; {$ENDIF} function GetDefaultInterface: ksDynamicArray; protected procedure InitServerData; override; function Get_reference: Integer; procedure Set_reference(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDynamicArray); procedure Disconnect; override; function ksDeleteArray: Integer; function ksClearArray: Integer; function ksGetArrayCount: Integer; function ksGetArrayType: Integer; function ksExcludeArrayItem(index: Integer): Integer; function ksAddArrayItem(index: Integer; const item: IDispatch): Integer; function ksGetArrayItem(index: Integer; const item: IDispatch): Integer; function ksSetArrayItem(index: Integer; const item: IDispatch): Integer; property DefaultInterface: ksDynamicArray read GetDefaultInterface; property reference: Integer read Get_reference write Set_reference; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDynamicArrayProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDynamicArray // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDynamicArrayProperties = class(TPersistent) private FServer: TDynamicArray; function GetDefaultInterface: ksDynamicArray; constructor Create(AServer: TDynamicArray); protected function Get_reference: Integer; procedure Set_reference(Value: Integer); public property DefaultInterface: ksDynamicArray read GetDefaultInterface; published property reference: Integer read Get_reference write Set_reference; end; {$ENDIF} // *********************************************************************// // The Class CoRDimDrawingParam provides a Create and CreateRemote method to // create instances of the default interface ksRDimDrawingParam exposed by // the CoClass RDimDrawingParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRDimDrawingParam = class class function Create: ksRDimDrawingParam; class function CreateRemote(const MachineName: string): ksRDimDrawingParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRDimDrawingParam // Help String : Ïàðàìåòðû îòðèñîâêè äèàìåòðàëüíîãî è ðàäèàëüíîãî ðàçìåðîâ. // Default Interface: ksRDimDrawingParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRDimDrawingParamProperties= class; {$ENDIF} TRDimDrawingParam = class(TOleServer) private FIntf: ksRDimDrawingParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRDimDrawingParamProperties; function GetServerProperties: TRDimDrawingParamProperties; {$ENDIF} function GetDefaultInterface: ksRDimDrawingParam; protected procedure InitServerData; override; function Get_pt1: Smallint; procedure Set_pt1(Value: Smallint); function Get_pt2: Smallint; procedure Set_pt2(Value: Smallint); function Get_textPos: Integer; procedure Set_textPos(Value: Integer); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_shelfDir: Integer; procedure Set_shelfDir(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRDimDrawingParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksRDimDrawingParam read GetDefaultInterface; property pt1: Smallint read Get_pt1 write Set_pt1; property pt2: Smallint read Get_pt2 write Set_pt2; property textPos: Integer read Get_textPos write Set_textPos; property ang: Double read Get_ang write Set_ang; property shelfDir: Integer read Get_shelfDir write Set_shelfDir; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRDimDrawingParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRDimDrawingParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRDimDrawingParamProperties = class(TPersistent) private FServer: TRDimDrawingParam; function GetDefaultInterface: ksRDimDrawingParam; constructor Create(AServer: TRDimDrawingParam); protected function Get_pt1: Smallint; procedure Set_pt1(Value: Smallint); function Get_pt2: Smallint; procedure Set_pt2(Value: Smallint); function Get_textPos: Integer; procedure Set_textPos(Value: Integer); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_shelfDir: Integer; procedure Set_shelfDir(Value: Integer); public property DefaultInterface: ksRDimDrawingParam read GetDefaultInterface; published property pt1: Smallint read Get_pt1 write Set_pt1; property pt2: Smallint read Get_pt2 write Set_pt2; property textPos: Integer read Get_textPos write Set_textPos; property ang: Double read Get_ang write Set_ang; property shelfDir: Integer read Get_shelfDir write Set_shelfDir; end; {$ENDIF} // *********************************************************************// // The Class CoRDimSourceParam provides a Create and CreateRemote method to // create instances of the default interface ksRDimSourceParam exposed by // the CoClass RDimSourceParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRDimSourceParam = class class function Create: ksRDimSourceParam; class function CreateRemote(const MachineName: string): ksRDimSourceParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRDimSourceParam // Help String : Ïàðàìåòðû ïðèâÿçêè äèàìåòðàëüíîãî è ðàäèàëüíîãî ðàçìåðîâ. // Default Interface: ksRDimSourceParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRDimSourceParamProperties= class; {$ENDIF} TRDimSourceParam = class(TOleServer) private FIntf: ksRDimSourceParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRDimSourceParamProperties; function GetServerProperties: TRDimSourceParamProperties; {$ENDIF} function GetDefaultInterface: ksRDimSourceParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRDimSourceParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksRDimSourceParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRDimSourceParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRDimSourceParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRDimSourceParamProperties = class(TPersistent) private FServer: TRDimSourceParam; function GetDefaultInterface: ksRDimSourceParam; constructor Create(AServer: TRDimSourceParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); public property DefaultInterface: ksRDimSourceParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; end; {$ENDIF} // *********************************************************************// // The Class CoRDimParam provides a Create and CreateRemote method to // create instances of the default interface ksRDimParam exposed by // the CoClass RDimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRDimParam = class class function Create: ksRDimParam; class function CreateRemote(const MachineName: string): ksRDimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRDimParam // Help String : Ïàðàìåòðû äèàìåòðàëüíîãî è ðàäèàëüíîãî ðàçìåðà. // Default Interface: ksRDimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRDimParamProperties= class; {$ENDIF} TRDimParam = class(TOleServer) private FIntf: ksRDimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRDimParamProperties; function GetServerProperties: TRDimParamProperties; {$ENDIF} function GetDefaultInterface: ksRDimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRDimParam); procedure Disconnect; override; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksRDimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRDimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRDimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRDimParamProperties = class(TPersistent) private FServer: TRDimParam; function GetDefaultInterface: ksRDimParam; constructor Create(AServer: TRDimParam); protected public property DefaultInterface: ksRDimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoLineSegParam provides a Create and CreateRemote method to // create instances of the default interface ksLineSegParam exposed by // the CoClass LineSegParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLineSegParam = class class function Create: ksLineSegParam; class function CreateRemote(const MachineName: string): ksLineSegParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLineSegParam // Help String : Ïàðàìåòðû îòðåçêà. // Default Interface: ksLineSegParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLineSegParamProperties= class; {$ENDIF} TLineSegParam = class(TOleServer) private FIntf: ksLineSegParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLineSegParamProperties; function GetServerProperties: TLineSegParamProperties; {$ENDIF} function GetDefaultInterface: ksLineSegParam; protected procedure InitServerData; override; function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLineSegParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLineSegParam read GetDefaultInterface; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLineSegParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLineSegParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLineSegParamProperties = class(TPersistent) private FServer: TLineSegParam; function GetDefaultInterface: ksLineSegParam; constructor Create(AServer: TLineSegParam); protected function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksLineSegParam read GetDefaultInterface; published property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoCircleParam provides a Create and CreateRemote method to // create instances of the default interface ksCircleParam exposed by // the CoClass CircleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCircleParam = class class function Create: ksCircleParam; class function CreateRemote(const MachineName: string): ksCircleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCircleParam // Help String : Ïàðàìåòðû îêðóæíîñòè. // Default Interface: ksCircleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCircleParamProperties= class; {$ENDIF} TCircleParam = class(TOleServer) private FIntf: ksCircleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCircleParamProperties; function GetServerProperties: TCircleParamProperties; {$ENDIF} function GetDefaultInterface: ksCircleParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCircleParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksCircleParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCircleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCircleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCircleParamProperties = class(TPersistent) private FServer: TCircleParam; function GetDefaultInterface: ksCircleParam; constructor Create(AServer: TCircleParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksCircleParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoArcByAngleParam provides a Create and CreateRemote method to // create instances of the default interface ksArcByAngleParam exposed by // the CoClass ArcByAngleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoArcByAngleParam = class class function Create: ksArcByAngleParam; class function CreateRemote(const MachineName: string): ksArcByAngleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TArcByAngleParam // Help String : Ïàðàìåòðû äóãè ïî öåíòðó è äâóì óãëàì. // Default Interface: ksArcByAngleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TArcByAngleParamProperties= class; {$ENDIF} TArcByAngleParam = class(TOleServer) private FIntf: ksArcByAngleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TArcByAngleParamProperties; function GetServerProperties: TArcByAngleParamProperties; {$ENDIF} function GetDefaultInterface: ksArcByAngleParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); function Get_ang1: Double; procedure Set_ang1(Value: Double); function Get_ang2: Double; procedure Set_ang2(Value: Double); function Get_dir: Smallint; procedure Set_dir(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksArcByAngleParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksArcByAngleParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; property ang1: Double read Get_ang1 write Set_ang1; property ang2: Double read Get_ang2 write Set_ang2; property dir: Smallint read Get_dir write Set_dir; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TArcByAngleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TArcByAngleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TArcByAngleParamProperties = class(TPersistent) private FServer: TArcByAngleParam; function GetDefaultInterface: ksArcByAngleParam; constructor Create(AServer: TArcByAngleParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); function Get_ang1: Double; procedure Set_ang1(Value: Double); function Get_ang2: Double; procedure Set_ang2(Value: Double); function Get_dir: Smallint; procedure Set_dir(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksArcByAngleParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; property ang1: Double read Get_ang1 write Set_ang1; property ang2: Double read Get_ang2 write Set_ang2; property dir: Smallint read Get_dir write Set_dir; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoArcByPointParam provides a Create and CreateRemote method to // create instances of the default interface ksArcByPointParam exposed by // the CoClass ArcByPointParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoArcByPointParam = class class function Create: ksArcByPointParam; class function CreateRemote(const MachineName: string): ksArcByPointParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TArcByPointParam // Help String : Ïàðàìåòðû äóãè ïî öåíòðó è äâóì òî÷êàì. // Default Interface: ksArcByPointParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TArcByPointParamProperties= class; {$ENDIF} TArcByPointParam = class(TOleServer) private FIntf: ksArcByPointParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TArcByPointParamProperties; function GetServerProperties: TArcByPointParamProperties; {$ENDIF} function GetDefaultInterface: ksArcByPointParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_dir: Smallint; procedure Set_dir(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksArcByPointParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksArcByPointParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property dir: Smallint read Get_dir write Set_dir; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TArcByPointParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TArcByPointParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TArcByPointParamProperties = class(TPersistent) private FServer: TArcByPointParam; function GetDefaultInterface: ksArcByPointParam; constructor Create(AServer: TArcByPointParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_rad: Double; procedure Set_rad(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_dir: Smallint; procedure Set_dir(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksArcByPointParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property rad: Double read Get_rad write Set_rad; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property dir: Smallint read Get_dir write Set_dir; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoPointParam provides a Create and CreateRemote method to // create instances of the default interface ksPointParam exposed by // the CoClass PointParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPointParam = class class function Create: ksPointParam; class function CreateRemote(const MachineName: string): ksPointParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPointParam // Help String : Ïàðàìåòðû òî÷êè. // Default Interface: ksPointParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPointParamProperties= class; {$ENDIF} TPointParam = class(TOleServer) private FIntf: ksPointParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPointParamProperties; function GetServerProperties: TPointParamProperties; {$ENDIF} function GetDefaultInterface: ksPointParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPointParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksPointParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPointParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPointParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPointParamProperties = class(TPersistent) private FServer: TPointParam; function GetDefaultInterface: ksPointParam; constructor Create(AServer: TPointParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksPointParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoHatchParam provides a Create and CreateRemote method to // create instances of the default interface ksHatchParam exposed by // the CoClass HatchParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoHatchParam = class class function Create: ksHatchParam; class function CreateRemote(const MachineName: string): ksHatchParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : THatchParam // Help String : Ïàðàìåòðû øòðèõîâêè. // Default Interface: ksHatchParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} THatchParamProperties= class; {$ENDIF} THatchParam = class(TOleServer) private FIntf: ksHatchParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: THatchParamProperties; function GetServerProperties: THatchParamProperties; {$ENDIF} function GetDefaultInterface: ksHatchParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_boundaries: Integer; procedure Set_boundaries(Value: Integer); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_sheeting: Smallint; procedure Set_sheeting(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksHatchParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksHatchParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property step: Double read Get_step write Set_step; property ang: Double read Get_ang write Set_ang; property width: Double read Get_width write Set_width; property boundaries: Integer read Get_boundaries write Set_boundaries; property color: Integer read Get_color write Set_color; property sheeting: Smallint read Get_sheeting write Set_sheeting; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: THatchParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : THatchParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// THatchParamProperties = class(TPersistent) private FServer: THatchParam; function GetDefaultInterface: ksHatchParam; constructor Create(AServer: THatchParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_boundaries: Integer; procedure Set_boundaries(Value: Integer); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_sheeting: Smallint; procedure Set_sheeting(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksHatchParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property step: Double read Get_step write Set_step; property ang: Double read Get_ang write Set_ang; property width: Double read Get_width write Set_width; property boundaries: Integer read Get_boundaries write Set_boundaries; property color: Integer read Get_color write Set_color; property sheeting: Smallint read Get_sheeting write Set_sheeting; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoTextParam provides a Create and CreateRemote method to // create instances of the default interface ksTextParam exposed by // the CoClass TextParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextParam = class class function Create: ksTextParam; class function CreateRemote(const MachineName: string): ksTextParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTextParam // Help String : Ïàðàìåòðû òåêñòà. // Default Interface: ksTextParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTextParamProperties= class; {$ENDIF} TTextParam = class(TOleServer) private FIntf: ksTextParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTextParamProperties; function GetServerProperties: TTextParamProperties; {$ENDIF} function GetDefaultInterface: ksTextParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTextParam); procedure Disconnect; override; function Init: WordBool; function GetParagraphParam: IDispatch; function SetParagraphParam(const val: IDispatch): WordBool; function GetTextLineArr: IDispatch; function SetTextLineArr(const val: IDispatch): WordBool; property DefaultInterface: ksTextParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTextParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTextParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTextParamProperties = class(TPersistent) private FServer: TTextParam; function GetDefaultInterface: ksTextParam; constructor Create(AServer: TTextParam); protected public property DefaultInterface: ksTextParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbsPointParam provides a Create and CreateRemote method to // create instances of the default interface ksNurbsPointParam exposed by // the CoClass NurbsPointParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsPointParam = class class function Create: ksNurbsPointParam; class function CreateRemote(const MachineName: string): ksNurbsPointParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsPointParam // Help String : Ïàðàìåòðû óçëà äëÿ Nurbs - êðèâîé. // Default Interface: ksNurbsPointParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsPointParamProperties= class; {$ENDIF} TNurbsPointParam = class(TOleServer) private FIntf: ksNurbsPointParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsPointParamProperties; function GetServerProperties: TNurbsPointParamProperties; {$ENDIF} function GetDefaultInterface: ksNurbsPointParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_weight: Double; procedure Set_weight(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsPointParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksNurbsPointParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property weight: Double read Get_weight write Set_weight; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsPointParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsPointParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsPointParamProperties = class(TPersistent) private FServer: TNurbsPointParam; function GetDefaultInterface: ksNurbsPointParam; constructor Create(AServer: TNurbsPointParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_weight: Double; procedure Set_weight(Value: Double); public property DefaultInterface: ksNurbsPointParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property weight: Double read Get_weight write Set_weight; end; {$ENDIF} // *********************************************************************// // The Class CoDoubleValue provides a Create and CreateRemote method to // create instances of the default interface ksDoubleValue exposed by // the CoClass DoubleValue. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDoubleValue = class class function Create: ksDoubleValue; class function CreateRemote(const MachineName: string): ksDoubleValue; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDoubleValue // Help String : Ïàðàìåòðû óçëà. // Default Interface: ksDoubleValue // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDoubleValueProperties= class; {$ENDIF} TDoubleValue = class(TOleServer) private FIntf: ksDoubleValue; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDoubleValueProperties; function GetServerProperties: TDoubleValueProperties; {$ENDIF} function GetDefaultInterface: ksDoubleValue; protected procedure InitServerData; override; function Get_value: Double; procedure Set_value(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDoubleValue); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksDoubleValue read GetDefaultInterface; property value: Double read Get_value write Set_value; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDoubleValueProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDoubleValue // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDoubleValueProperties = class(TPersistent) private FServer: TDoubleValue; function GetDefaultInterface: ksDoubleValue; constructor Create(AServer: TDoubleValue); protected function Get_value: Double; procedure Set_value(Value: Double); public property DefaultInterface: ksDoubleValue read GetDefaultInterface; published property value: Double read Get_value write Set_value; end; {$ENDIF} // *********************************************************************// // The Class CoNurbsParam provides a Create and CreateRemote method to // create instances of the default interface ksNurbsParam exposed by // the CoClass NurbsParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsParam = class class function Create: ksNurbsParam; class function CreateRemote(const MachineName: string): ksNurbsParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsParam // Help String : Ïàðàìåòðû Nurbs-ñïëàéíà. // Default Interface: ksNurbsParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsParamProperties= class; {$ENDIF} TNurbsParam = class(TOleServer) private FIntf: ksNurbsParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsParamProperties; function GetServerProperties: TNurbsParamProperties; {$ENDIF} function GetDefaultInterface: ksNurbsParam; protected procedure InitServerData; override; function Get_degree: Smallint; procedure Set_degree(Value: Smallint); function Get_close: WordBool; procedure Set_close(Value: WordBool); function Get_style: Integer; procedure Set_style(Value: Integer); function Get_periodic: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsParam); procedure Disconnect; override; function Init: WordBool; function GetPPoint: IDispatch; function SetPPoint(const val: IDispatch): WordBool; function GetPKnot: IDispatch; function SetPKnot(const val: IDispatch): WordBool; property DefaultInterface: ksNurbsParam read GetDefaultInterface; property periodic: WordBool read Get_periodic; property degree: Smallint read Get_degree write Set_degree; property close: WordBool read Get_close write Set_close; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsParamProperties = class(TPersistent) private FServer: TNurbsParam; function GetDefaultInterface: ksNurbsParam; constructor Create(AServer: TNurbsParam); protected function Get_degree: Smallint; procedure Set_degree(Value: Smallint); function Get_close: WordBool; procedure Set_close(Value: WordBool); function Get_style: Integer; procedure Set_style(Value: Integer); function Get_periodic: WordBool; public property DefaultInterface: ksNurbsParam read GetDefaultInterface; published property degree: Smallint read Get_degree write Set_degree; property close: WordBool read Get_close write Set_close; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoConicArcParam provides a Create and CreateRemote method to // create instances of the default interface ksConicArcParam exposed by // the CoClass ConicArcParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoConicArcParam = class class function Create: ksConicArcParam; class function CreateRemote(const MachineName: string): ksConicArcParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TConicArcParam // Help String : Ïàðàìåòðû äëÿ ïîñòðîåíèÿ êîíè÷åñêîãî ñå÷åíèÿ. // Default Interface: ksConicArcParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TConicArcParamProperties= class; {$ENDIF} TConicArcParam = class(TOleServer) private FIntf: ksConicArcParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TConicArcParamProperties; function GetServerProperties: TConicArcParamProperties; {$ENDIF} function GetDefaultInterface: ksConicArcParam; protected procedure InitServerData; override; function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_C: Double; procedure Set_C(Value: Double); function Get_D: Double; procedure Set_D(Value: Double); function Get_E: Double; procedure Set_E(Value: Double); function Get_F: Double; procedure Set_F(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksConicArcParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksConicArcParam read GetDefaultInterface; property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property C: Double read Get_C write Set_C; property D: Double read Get_D write Set_D; property E: Double read Get_E write Set_E; property F: Double read Get_F write Set_F; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property style: Integer read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TConicArcParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TConicArcParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TConicArcParamProperties = class(TPersistent) private FServer: TConicArcParam; function GetDefaultInterface: ksConicArcParam; constructor Create(AServer: TConicArcParam); protected function Get_A: Double; procedure Set_A(Value: Double); function Get_B: Double; procedure Set_B(Value: Double); function Get_C: Double; procedure Set_C(Value: Double); function Get_D: Double; procedure Set_D(Value: Double); function Get_E: Double; procedure Set_E(Value: Double); function Get_F: Double; procedure Set_F(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); public property DefaultInterface: ksConicArcParam read GetDefaultInterface; published property A: Double read Get_A write Set_A; property B: Double read Get_B write Set_B; property C: Double read Get_C write Set_C; property D: Double read Get_D write Set_D; property E: Double read Get_E write Set_E; property F: Double read Get_F write Set_F; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property style: Integer read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoCentreParam provides a Create and CreateRemote method to // create instances of the default interface ksCentreParam exposed by // the CoClass CentreParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCentreParam = class class function Create: ksCentreParam; class function CreateRemote(const MachineName: string): ksCentreParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCentreParam // Help String : Ïàðàìåòðû îáúåêòà îáîçíà÷åíèå öåíòðà. // Default Interface: ksCentreParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCentreParamProperties= class; {$ENDIF} TCentreParam = class(TOleServer) private FIntf: ksCentreParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCentreParamProperties; function GetServerProperties: TCentreParamProperties; {$ENDIF} function GetDefaultInterface: ksCentreParam; protected procedure InitServerData; override; function Get_baseCurve: Integer; procedure Set_baseCurve(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_standXpTail: WordBool; procedure Set_standXpTail(Value: WordBool); function Get_standXmTail: WordBool; procedure Set_standXmTail(Value: WordBool); function Get_standYpTail: WordBool; procedure Set_standYpTail(Value: WordBool); function Get_standYmTail: WordBool; procedure Set_standYmTail(Value: WordBool); function Get_lenXpTail: Double; procedure Set_lenXpTail(Value: Double); function Get_lenXmTail: Double; procedure Set_lenXmTail(Value: Double); function Get_lenYpTail: Double; procedure Set_lenYpTail(Value: Double); function Get_lenYmTail: Double; procedure Set_lenYmTail(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCentreParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksCentreParam read GetDefaultInterface; property baseCurve: Integer read Get_baseCurve write Set_baseCurve; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property angle: Double read Get_angle write Set_angle; property type_: Smallint read Get_type_ write Set_type_; property standXpTail: WordBool read Get_standXpTail write Set_standXpTail; property standXmTail: WordBool read Get_standXmTail write Set_standXmTail; property standYpTail: WordBool read Get_standYpTail write Set_standYpTail; property standYmTail: WordBool read Get_standYmTail write Set_standYmTail; property lenXpTail: Double read Get_lenXpTail write Set_lenXpTail; property lenXmTail: Double read Get_lenXmTail write Set_lenXmTail; property lenYpTail: Double read Get_lenYpTail write Set_lenYpTail; property lenYmTail: Double read Get_lenYmTail write Set_lenYmTail; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCentreParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCentreParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCentreParamProperties = class(TPersistent) private FServer: TCentreParam; function GetDefaultInterface: ksCentreParam; constructor Create(AServer: TCentreParam); protected function Get_baseCurve: Integer; procedure Set_baseCurve(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_standXpTail: WordBool; procedure Set_standXpTail(Value: WordBool); function Get_standXmTail: WordBool; procedure Set_standXmTail(Value: WordBool); function Get_standYpTail: WordBool; procedure Set_standYpTail(Value: WordBool); function Get_standYmTail: WordBool; procedure Set_standYmTail(Value: WordBool); function Get_lenXpTail: Double; procedure Set_lenXpTail(Value: Double); function Get_lenXmTail: Double; procedure Set_lenXmTail(Value: Double); function Get_lenYpTail: Double; procedure Set_lenYpTail(Value: Double); function Get_lenYmTail: Double; procedure Set_lenYmTail(Value: Double); public property DefaultInterface: ksCentreParam read GetDefaultInterface; published property baseCurve: Integer read Get_baseCurve write Set_baseCurve; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property angle: Double read Get_angle write Set_angle; property type_: Smallint read Get_type_ write Set_type_; property standXpTail: WordBool read Get_standXpTail write Set_standXpTail; property standXmTail: WordBool read Get_standXmTail write Set_standXmTail; property standYpTail: WordBool read Get_standYpTail write Set_standYpTail; property standYmTail: WordBool read Get_standYmTail write Set_standYmTail; property lenXpTail: Double read Get_lenXpTail write Set_lenXpTail; property lenXmTail: Double read Get_lenXmTail write Set_lenXmTail; property lenYpTail: Double read Get_lenYpTail write Set_lenYpTail; property lenYmTail: Double read Get_lenYmTail write Set_lenYmTail; end; {$ENDIF} // *********************************************************************// // The Class CoPlacementParam provides a Create and CreateRemote method to // create instances of the default interface ksPlacementParam exposed by // the CoClass PlacementParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlacementParam = class class function Create: ksPlacementParam; class function CreateRemote(const MachineName: string): ksPlacementParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlacementParam // Help String : Ïàðàìåòðû ìåñòîïîëîæåíèÿ. // Default Interface: ksPlacementParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlacementParamProperties= class; {$ENDIF} TPlacementParam = class(TOleServer) private FIntf: ksPlacementParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlacementParamProperties; function GetServerProperties: TPlacementParamProperties; {$ENDIF} function GetDefaultInterface: ksPlacementParam; protected procedure InitServerData; override; function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_scale_: Double; procedure Set_scale_(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlacementParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksPlacementParam read GetDefaultInterface; property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property scale_: Double read Get_scale_ write Set_scale_; property angle: Double read Get_angle write Set_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlacementParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlacementParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlacementParamProperties = class(TPersistent) private FServer: TPlacementParam; function GetDefaultInterface: ksPlacementParam; constructor Create(AServer: TPlacementParam); protected function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_scale_: Double; procedure Set_scale_(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); public property DefaultInterface: ksPlacementParam read GetDefaultInterface; published property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property scale_: Double read Get_scale_ write Set_scale_; property angle: Double read Get_angle write Set_angle; end; {$ENDIF} // *********************************************************************// // The Class CoRasterParam provides a Create and CreateRemote method to // create instances of the default interface ksRasterParam exposed by // the CoClass RasterParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRasterParam = class class function Create: ksRasterParam; class function CreateRemote(const MachineName: string): ksRasterParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRasterParam // Help String : Ïàðàìåòðû ðàñòðîâîãî îáúåêòà. // Default Interface: ksRasterParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRasterParamProperties= class; {$ENDIF} TRasterParam = class(TOleServer) private FIntf: ksRasterParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRasterParamProperties; function GetServerProperties: TRasterParamProperties; {$ENDIF} function GetDefaultInterface: ksRasterParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_embeded: WordBool; procedure Set_embeded(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRasterParam); procedure Disconnect; override; function Init: WordBool; function GetPlace: IDispatch; function SetPlace(const val: IDispatch): WordBool; property DefaultInterface: ksRasterParam read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property embeded: WordBool read Get_embeded write Set_embeded; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRasterParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRasterParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRasterParamProperties = class(TPersistent) private FServer: TRasterParam; function GetDefaultInterface: ksRasterParam; constructor Create(AServer: TRasterParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_embeded: WordBool; procedure Set_embeded(Value: WordBool); public property DefaultInterface: ksRasterParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property embeded: WordBool read Get_embeded write Set_embeded; end; {$ENDIF} // *********************************************************************// // The Class CoPolylineParam provides a Create and CreateRemote method to // create instances of the default interface ksPolylineParam exposed by // the CoClass PolylineParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPolylineParam = class class function Create: ksPolylineParam; class function CreateRemote(const MachineName: string): ksPolylineParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPolylineParam // Help String : Ïàðàìåòðû ïîëèëèíèè. // Default Interface: ksPolylineParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPolylineParamProperties= class; {$ENDIF} TPolylineParam = class(TOleServer) private FIntf: ksPolylineParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPolylineParamProperties; function GetServerProperties: TPolylineParamProperties; {$ENDIF} function GetDefaultInterface: ksPolylineParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_closed: WordBool; procedure Set_closed(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPolylineParam); procedure Disconnect; override; function Init: WordBool; function GetpMathPoint: IDispatch; function SetpMathPoint(const val: IDispatch): WordBool; property DefaultInterface: ksPolylineParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property closed: WordBool read Get_closed write Set_closed; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPolylineParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPolylineParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPolylineParamProperties = class(TPersistent) private FServer: TPolylineParam; function GetDefaultInterface: ksPolylineParam; constructor Create(AServer: TPolylineParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_closed: WordBool; procedure Set_closed(Value: WordBool); public property DefaultInterface: ksPolylineParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property closed: WordBool read Get_closed write Set_closed; end; {$ENDIF} // *********************************************************************// // The Class CoInsertFragmentParam provides a Create and CreateRemote method to // create instances of the default interface ksInsertFragmentParam exposed by // the CoClass InsertFragmentParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoInsertFragmentParam = class class function Create: ksInsertFragmentParam; class function CreateRemote(const MachineName: string): ksInsertFragmentParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TInsertFragmentParam // Help String : Ïàðàìåòðû âñòàâêè ôðàãìåíòîâ. // Default Interface: ksInsertFragmentParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TInsertFragmentParamProperties= class; {$ENDIF} TInsertFragmentParam = class(TOleServer) private FIntf: ksInsertFragmentParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TInsertFragmentParamProperties; function GetServerProperties: TInsertFragmentParamProperties; {$ENDIF} function GetDefaultInterface: ksInsertFragmentParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_insertType: Smallint; procedure Set_insertType(Value: Smallint); function Get_multiLayer: WordBool; procedure Set_multiLayer(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksInsertFragmentParam); procedure Disconnect; override; function Init: WordBool; function GetPlace: IDispatch; function SetPlace(const val: IDispatch): WordBool; property DefaultInterface: ksInsertFragmentParam read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property insertType: Smallint read Get_insertType write Set_insertType; property multiLayer: WordBool read Get_multiLayer write Set_multiLayer; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TInsertFragmentParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TInsertFragmentParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TInsertFragmentParamProperties = class(TPersistent) private FServer: TInsertFragmentParam; function GetDefaultInterface: ksInsertFragmentParam; constructor Create(AServer: TInsertFragmentParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_insertType: Smallint; procedure Set_insertType(Value: Smallint); function Get_multiLayer: WordBool; procedure Set_multiLayer(Value: WordBool); public property DefaultInterface: ksInsertFragmentParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property insertType: Smallint read Get_insertType write Set_insertType; property multiLayer: WordBool read Get_multiLayer write Set_multiLayer; end; {$ENDIF} // *********************************************************************// // The Class CoViewParam provides a Create and CreateRemote method to // create instances of the default interface ksViewParam exposed by // the CoClass ViewParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoViewParam = class class function Create: ksViewParam; class function CreateRemote(const MachineName: string): ksViewParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TViewParam // Help String : Ïàðàìåòðû âèäà. // Default Interface: ksViewParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TViewParamProperties= class; {$ENDIF} TViewParam = class(TOleServer) private FIntf: ksViewParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TViewParamProperties; function GetServerProperties: TViewParamProperties; {$ENDIF} function GetDefaultInterface: ksViewParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_scale_: Double; procedure Set_scale_(Value: Double); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_state: Smallint; procedure Set_state(Value: Smallint); function Get_name: WideString; procedure Set_name(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksViewParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksViewParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property angle: Double read Get_angle write Set_angle; property scale_: Double read Get_scale_ write Set_scale_; property color: Integer read Get_color write Set_color; property state: Smallint read Get_state write Set_state; property name: WideString read Get_name write Set_name; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TViewParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TViewParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TViewParamProperties = class(TPersistent) private FServer: TViewParam; function GetDefaultInterface: ksViewParam; constructor Create(AServer: TViewParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_scale_: Double; procedure Set_scale_(Value: Double); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_state: Smallint; procedure Set_state(Value: Smallint); function Get_name: WideString; procedure Set_name(const Value: WideString); public property DefaultInterface: ksViewParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property angle: Double read Get_angle write Set_angle; property scale_: Double read Get_scale_ write Set_scale_; property color: Integer read Get_color write Set_color; property state: Smallint read Get_state write Set_state; property name: WideString read Get_name write Set_name; end; {$ENDIF} // *********************************************************************// // The Class CoLBreakDimSource provides a Create and CreateRemote method to // create instances of the default interface ksLBreakDimSource exposed by // the CoClass LBreakDimSource. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLBreakDimSource = class class function Create: ksLBreakDimSource; class function CreateRemote(const MachineName: string): ksLBreakDimSource; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLBreakDimSource // Help String : Ïàðàìåòðû ïðèâÿçêè ëèíåéíîãî ðàçìåðà ñ îáðûâîì. // Default Interface: ksLBreakDimSource // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLBreakDimSourceProperties= class; {$ENDIF} TLBreakDimSource = class(TOleServer) private FIntf: ksLBreakDimSource; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLBreakDimSourceProperties; function GetServerProperties: TLBreakDimSourceProperties; {$ENDIF} function GetDefaultInterface: ksLBreakDimSource; protected procedure InitServerData; override; function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_x3: Double; procedure Set_x3(Value: Double); function Get_y3: Double; procedure Set_y3(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLBreakDimSource); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLBreakDimSource read GetDefaultInterface; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property x3: Double read Get_x3 write Set_x3; property y3: Double read Get_y3 write Set_y3; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLBreakDimSourceProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLBreakDimSource // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLBreakDimSourceProperties = class(TPersistent) private FServer: TLBreakDimSource; function GetDefaultInterface: ksLBreakDimSource; constructor Create(AServer: TLBreakDimSource); protected function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_x3: Double; procedure Set_x3(Value: Double); function Get_y3: Double; procedure Set_y3(Value: Double); public property DefaultInterface: ksLBreakDimSource read GetDefaultInterface; published property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property x3: Double read Get_x3 write Set_x3; property y3: Double read Get_y3 write Set_y3; end; {$ENDIF} // *********************************************************************// // The Class CoBreakDimDrawing provides a Create and CreateRemote method to // create instances of the default interface ksBreakDimDrawing exposed by // the CoClass BreakDimDrawing. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBreakDimDrawing = class class function Create: ksBreakDimDrawing; class function CreateRemote(const MachineName: string): ksBreakDimDrawing; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBreakDimDrawing // Help String : Ïàðàìåòðû îòðèñîâêè ëèíåéíîãî è óãëîâîãî ðàçìåðà ñ îáðûâîì. // Default Interface: ksBreakDimDrawing // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBreakDimDrawingProperties= class; {$ENDIF} TBreakDimDrawing = class(TOleServer) private FIntf: ksBreakDimDrawing; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBreakDimDrawingProperties; function GetServerProperties: TBreakDimDrawingProperties; {$ENDIF} function GetDefaultInterface: ksBreakDimDrawing; protected procedure InitServerData; override; function Get_pl: WordBool; procedure Set_pl(Value: WordBool); function Get_pt: Smallint; procedure Set_pt(Value: Smallint); function Get_textPos: Integer; procedure Set_textPos(Value: Integer); function Get_shelfDir: Integer; procedure Set_shelfDir(Value: Integer); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_length: Integer; procedure Set_length(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBreakDimDrawing); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksBreakDimDrawing read GetDefaultInterface; property pl: WordBool read Get_pl write Set_pl; property pt: Smallint read Get_pt write Set_pt; property textPos: Integer read Get_textPos write Set_textPos; property shelfDir: Integer read Get_shelfDir write Set_shelfDir; property angle: Double read Get_angle write Set_angle; property length: Integer read Get_length write Set_length; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBreakDimDrawingProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBreakDimDrawing // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBreakDimDrawingProperties = class(TPersistent) private FServer: TBreakDimDrawing; function GetDefaultInterface: ksBreakDimDrawing; constructor Create(AServer: TBreakDimDrawing); protected function Get_pl: WordBool; procedure Set_pl(Value: WordBool); function Get_pt: Smallint; procedure Set_pt(Value: Smallint); function Get_textPos: Integer; procedure Set_textPos(Value: Integer); function Get_shelfDir: Integer; procedure Set_shelfDir(Value: Integer); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_length: Integer; procedure Set_length(Value: Integer); public property DefaultInterface: ksBreakDimDrawing read GetDefaultInterface; published property pl: WordBool read Get_pl write Set_pl; property pt: Smallint read Get_pt write Set_pt; property textPos: Integer read Get_textPos write Set_textPos; property shelfDir: Integer read Get_shelfDir write Set_shelfDir; property angle: Double read Get_angle write Set_angle; property length: Integer read Get_length write Set_length; end; {$ENDIF} // *********************************************************************// // The Class CoLBreakDimParam provides a Create and CreateRemote method to // create instances of the default interface ksLBreakDimParam exposed by // the CoClass LBreakDimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLBreakDimParam = class class function Create: ksLBreakDimParam; class function CreateRemote(const MachineName: string): ksLBreakDimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLBreakDimParam // Help String : Ïàðàìåòðû ëèíåéíîãî ðàçìåðà ñ îáðûâîì. // Default Interface: ksLBreakDimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLBreakDimParamProperties= class; {$ENDIF} TLBreakDimParam = class(TOleServer) private FIntf: ksLBreakDimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLBreakDimParamProperties; function GetServerProperties: TLBreakDimParamProperties; {$ENDIF} function GetDefaultInterface: ksLBreakDimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLBreakDimParam); procedure Disconnect; override; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksLBreakDimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLBreakDimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLBreakDimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLBreakDimParamProperties = class(TPersistent) private FServer: TLBreakDimParam; function GetDefaultInterface: ksLBreakDimParam; constructor Create(AServer: TLBreakDimParam); protected public property DefaultInterface: ksLBreakDimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoABreakDimParam provides a Create and CreateRemote method to // create instances of the default interface ksABreakDimParam exposed by // the CoClass ABreakDimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoABreakDimParam = class class function Create: ksABreakDimParam; class function CreateRemote(const MachineName: string): ksABreakDimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TABreakDimParam // Help String : Ïàðàìåòðû óãëîâîãî ðàçìåðà ñ îáðûâîì. // Default Interface: ksABreakDimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TABreakDimParamProperties= class; {$ENDIF} TABreakDimParam = class(TOleServer) private FIntf: ksABreakDimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TABreakDimParamProperties; function GetServerProperties: TABreakDimParamProperties; {$ENDIF} function GetDefaultInterface: ksABreakDimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksABreakDimParam); procedure Disconnect; override; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksABreakDimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TABreakDimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TABreakDimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TABreakDimParamProperties = class(TPersistent) private FServer: TABreakDimParam; function GetDefaultInterface: ksABreakDimParam; constructor Create(AServer: TABreakDimParam); protected public property DefaultInterface: ksABreakDimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoInsertFragmentParamEx provides a Create and CreateRemote method to // create instances of the default interface ksInsertFragmentParamEx exposed by // the CoClass InsertFragmentParamEx. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoInsertFragmentParamEx = class class function Create: ksInsertFragmentParamEx; class function CreateRemote(const MachineName: string): ksInsertFragmentParamEx; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TInsertFragmentParamEx // Help String : Ïàðàìåòðû âñòàâêè ôðàãìåíòîâ. // Default Interface: ksInsertFragmentParamEx // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TInsertFragmentParamExProperties= class; {$ENDIF} TInsertFragmentParamEx = class(TOleServer) private FIntf: ksInsertFragmentParamEx; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TInsertFragmentParamExProperties; function GetServerProperties: TInsertFragmentParamExProperties; {$ENDIF} function GetDefaultInterface: ksInsertFragmentParamEx; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_insertType: Smallint; procedure Set_insertType(Value: Smallint); function Get_multiLayer: WordBool; procedure Set_multiLayer(Value: WordBool); function Get_scaleProjLinesSize: Smallint; procedure Set_scaleProjLinesSize(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksInsertFragmentParamEx); procedure Disconnect; override; function Init: WordBool; function GetPlace: IDispatch; function SetPlace(const val: IDispatch): WordBool; property DefaultInterface: ksInsertFragmentParamEx read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property insertType: Smallint read Get_insertType write Set_insertType; property multiLayer: WordBool read Get_multiLayer write Set_multiLayer; property scaleProjLinesSize: Smallint read Get_scaleProjLinesSize write Set_scaleProjLinesSize; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TInsertFragmentParamExProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TInsertFragmentParamEx // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TInsertFragmentParamExProperties = class(TPersistent) private FServer: TInsertFragmentParamEx; function GetDefaultInterface: ksInsertFragmentParamEx; constructor Create(AServer: TInsertFragmentParamEx); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_insertType: Smallint; procedure Set_insertType(Value: Smallint); function Get_multiLayer: WordBool; procedure Set_multiLayer(Value: WordBool); function Get_scaleProjLinesSize: Smallint; procedure Set_scaleProjLinesSize(Value: Smallint); public property DefaultInterface: ksInsertFragmentParamEx read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property insertType: Smallint read Get_insertType write Set_insertType; property multiLayer: WordBool read Get_multiLayer write Set_multiLayer; property scaleProjLinesSize: Smallint read Get_scaleProjLinesSize write Set_scaleProjLinesSize; end; {$ENDIF} // *********************************************************************// // The Class CoBezierParam provides a Create and CreateRemote method to // create instances of the default interface ksBezierParam exposed by // the CoClass BezierParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBezierParam = class class function Create: ksBezierParam; class function CreateRemote(const MachineName: string): ksBezierParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBezierParam // Help String : Ïàðàìåòðû bezier ñïëàéíà. // Default Interface: ksBezierParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBezierParamProperties= class; {$ENDIF} TBezierParam = class(TOleServer) private FIntf: ksBezierParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBezierParamProperties; function GetServerProperties: TBezierParamProperties; {$ENDIF} function GetDefaultInterface: ksBezierParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_closed: Smallint; procedure Set_closed(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBezierParam); procedure Disconnect; override; function Init: WordBool; function GetMathPointArr: IDispatch; function SetMathPointArr(const val: IDispatch): WordBool; property DefaultInterface: ksBezierParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property closed: Smallint read Get_closed write Set_closed; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBezierParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBezierParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBezierParamProperties = class(TPersistent) private FServer: TBezierParam; function GetDefaultInterface: ksBezierParam; constructor Create(AServer: TBezierParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_closed: Smallint; procedure Set_closed(Value: Smallint); public property DefaultInterface: ksBezierParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property closed: Smallint read Get_closed write Set_closed; end; {$ENDIF} // *********************************************************************// // The Class CoBezierPointParam provides a Create and CreateRemote method to // create instances of the default interface ksBezierPointParam exposed by // the CoClass BezierPointParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBezierPointParam = class class function Create: ksBezierPointParam; class function CreateRemote(const MachineName: string): ksBezierPointParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBezierPointParam // Help String : Ïàðàìåòðû óçëà äëÿ Bezier - êðèâîé. // Default Interface: ksBezierPointParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBezierPointParamProperties= class; {$ENDIF} TBezierPointParam = class(TOleServer) private FIntf: ksBezierPointParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBezierPointParamProperties; function GetServerProperties: TBezierPointParamProperties; {$ENDIF} function GetDefaultInterface: ksBezierPointParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_left: Double; procedure Set_left(Value: Double); function Get_right: Double; procedure Set_right(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBezierPointParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksBezierPointParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property left: Double read Get_left write Set_left; property right: Double read Get_right write Set_right; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBezierPointParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBezierPointParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBezierPointParamProperties = class(TPersistent) private FServer: TBezierPointParam; function GetDefaultInterface: ksBezierPointParam; constructor Create(AServer: TBezierPointParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_left: Double; procedure Set_left(Value: Double); function Get_right: Double; procedure Set_right(Value: Double); public property DefaultInterface: ksBezierPointParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property left: Double read Get_left write Set_left; property right: Double read Get_right write Set_right; end; {$ENDIF} // *********************************************************************// // The Class CoDimTextParam provides a Create and CreateRemote method to // create instances of the default interface ksDimTextParam exposed by // the CoClass DimTextParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDimTextParam = class class function Create: ksDimTextParam; class function CreateRemote(const MachineName: string): ksDimTextParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDimTextParam // Help String : Ïàðàìåòðû ðàçìåðíîé íàäïèñè. // Default Interface: ksDimTextParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDimTextParamProperties= class; {$ENDIF} TDimTextParam = class(TOleServer) private FIntf: ksDimTextParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDimTextParamProperties; function GetServerProperties: TDimTextParamProperties; {$ENDIF} function GetDefaultInterface: ksDimTextParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_sign: Integer; procedure Set_sign(Value: Integer); function Get_stringFlag: WordBool; procedure Set_stringFlag(Value: WordBool); function Get_bitFlag: Integer; procedure Set_bitFlag(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDimTextParam); procedure Disconnect; override; function Init(stringFlag: WordBool): WordBool; function GetBitFlagValue(bitFlag: Integer): WordBool; function SetBitFlagValue(val: Integer; state: WordBool): WordBool; function GetTextArr: IDispatch; function SetTextArr(const val: IDispatch): WordBool; property DefaultInterface: ksDimTextParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property sign: Integer read Get_sign write Set_sign; property stringFlag: WordBool read Get_stringFlag write Set_stringFlag; property bitFlag: Integer read Get_bitFlag write Set_bitFlag; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDimTextParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDimTextParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDimTextParamProperties = class(TPersistent) private FServer: TDimTextParam; function GetDefaultInterface: ksDimTextParam; constructor Create(AServer: TDimTextParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_sign: Integer; procedure Set_sign(Value: Integer); function Get_stringFlag: WordBool; procedure Set_stringFlag(Value: WordBool); function Get_bitFlag: Integer; procedure Set_bitFlag(Value: Integer); public property DefaultInterface: ksDimTextParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property sign: Integer read Get_sign write Set_sign; property stringFlag: WordBool read Get_stringFlag write Set_stringFlag; property bitFlag: Integer read Get_bitFlag write Set_bitFlag; end; {$ENDIF} // *********************************************************************// // The Class CoLDimSourceParam provides a Create and CreateRemote method to // create instances of the default interface ksLDimSourceParam exposed by // the CoClass LDimSourceParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLDimSourceParam = class class function Create: ksLDimSourceParam; class function CreateRemote(const MachineName: string): ksLDimSourceParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLDimSourceParam // Help String : Ïàðàìåòðû ïðèâÿçêè ëèíåéíîãî ðàçìåðà. // Default Interface: ksLDimSourceParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLDimSourceParamProperties= class; {$ENDIF} TLDimSourceParam = class(TOleServer) private FIntf: ksLDimSourceParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLDimSourceParamProperties; function GetServerProperties: TLDimSourceParamProperties; {$ENDIF} function GetDefaultInterface: ksLDimSourceParam; protected procedure InitServerData; override; function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_dx: Double; procedure Set_dx(Value: Double); function Get_dy: Double; procedure Set_dy(Value: Double); function Get_ps: Smallint; procedure Set_ps(Value: Smallint); function Get_basePoint: Smallint; procedure Set_basePoint(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLDimSourceParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLDimSourceParam read GetDefaultInterface; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property dx: Double read Get_dx write Set_dx; property dy: Double read Get_dy write Set_dy; property ps: Smallint read Get_ps write Set_ps; property basePoint: Smallint read Get_basePoint write Set_basePoint; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLDimSourceParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLDimSourceParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLDimSourceParamProperties = class(TPersistent) private FServer: TLDimSourceParam; function GetDefaultInterface: ksLDimSourceParam; constructor Create(AServer: TLDimSourceParam); protected function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_dx: Double; procedure Set_dx(Value: Double); function Get_dy: Double; procedure Set_dy(Value: Double); function Get_ps: Smallint; procedure Set_ps(Value: Smallint); function Get_basePoint: Smallint; procedure Set_basePoint(Value: Smallint); public property DefaultInterface: ksLDimSourceParam read GetDefaultInterface; published property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property dx: Double read Get_dx write Set_dx; property dy: Double read Get_dy write Set_dy; property ps: Smallint read Get_ps write Set_ps; property basePoint: Smallint read Get_basePoint write Set_basePoint; end; {$ENDIF} // *********************************************************************// // The Class CoDimDrawingParam provides a Create and CreateRemote method to // create instances of the default interface ksDimDrawingParam exposed by // the CoClass DimDrawingParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDimDrawingParam = class class function Create: ksDimDrawingParam; class function CreateRemote(const MachineName: string): ksDimDrawingParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDimDrawingParam // Help String : Ïàðàìåòðû îòðèñîâêè ëèíåéíîãî è óãëîâîãî ðàçìåðîâ. // Default Interface: ksDimDrawingParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDimDrawingParamProperties= class; {$ENDIF} TDimDrawingParam = class(TOleServer) private FIntf: ksDimDrawingParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDimDrawingParamProperties; function GetServerProperties: TDimDrawingParamProperties; {$ENDIF} function GetDefaultInterface: ksDimDrawingParam; protected procedure InitServerData; override; function Get_pl1: WordBool; procedure Set_pl1(Value: WordBool); function Get_pl2: WordBool; procedure Set_pl2(Value: WordBool); function Get_pt1: Smallint; procedure Set_pt1(Value: Smallint); function Get_pt2: Smallint; procedure Set_pt2(Value: Smallint); function Get_textPos: Integer; procedure Set_textPos(Value: Integer); function Get_textBase: Smallint; procedure Set_textBase(Value: Smallint); function Get_shelfDir: Integer; procedure Set_shelfDir(Value: Integer); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_lenght: Integer; procedure Set_lenght(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDimDrawingParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksDimDrawingParam read GetDefaultInterface; property pl1: WordBool read Get_pl1 write Set_pl1; property pl2: WordBool read Get_pl2 write Set_pl2; property pt1: Smallint read Get_pt1 write Set_pt1; property pt2: Smallint read Get_pt2 write Set_pt2; property textPos: Integer read Get_textPos write Set_textPos; property textBase: Smallint read Get_textBase write Set_textBase; property shelfDir: Integer read Get_shelfDir write Set_shelfDir; property ang: Double read Get_ang write Set_ang; property lenght: Integer read Get_lenght write Set_lenght; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDimDrawingParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDimDrawingParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDimDrawingParamProperties = class(TPersistent) private FServer: TDimDrawingParam; function GetDefaultInterface: ksDimDrawingParam; constructor Create(AServer: TDimDrawingParam); protected function Get_pl1: WordBool; procedure Set_pl1(Value: WordBool); function Get_pl2: WordBool; procedure Set_pl2(Value: WordBool); function Get_pt1: Smallint; procedure Set_pt1(Value: Smallint); function Get_pt2: Smallint; procedure Set_pt2(Value: Smallint); function Get_textPos: Integer; procedure Set_textPos(Value: Integer); function Get_textBase: Smallint; procedure Set_textBase(Value: Smallint); function Get_shelfDir: Integer; procedure Set_shelfDir(Value: Integer); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_lenght: Integer; procedure Set_lenght(Value: Integer); public property DefaultInterface: ksDimDrawingParam read GetDefaultInterface; published property pl1: WordBool read Get_pl1 write Set_pl1; property pl2: WordBool read Get_pl2 write Set_pl2; property pt1: Smallint read Get_pt1 write Set_pt1; property pt2: Smallint read Get_pt2 write Set_pt2; property textPos: Integer read Get_textPos write Set_textPos; property textBase: Smallint read Get_textBase write Set_textBase; property shelfDir: Integer read Get_shelfDir write Set_shelfDir; property ang: Double read Get_ang write Set_ang; property lenght: Integer read Get_lenght write Set_lenght; end; {$ENDIF} // *********************************************************************// // The Class CoLDimParam provides a Create and CreateRemote method to // create instances of the default interface ksLDimParam exposed by // the CoClass LDimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLDimParam = class class function Create: ksLDimParam; class function CreateRemote(const MachineName: string): ksLDimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLDimParam // Help String : Ïàðàìåòðû ëèíåéíîãî ðàçìåðà. // Default Interface: ksLDimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLDimParamProperties= class; {$ENDIF} TLDimParam = class(TOleServer) private FIntf: ksLDimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLDimParamProperties; function GetServerProperties: TLDimParamProperties; {$ENDIF} function GetDefaultInterface: ksLDimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLDimParam); procedure Disconnect; override; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksLDimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLDimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLDimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLDimParamProperties = class(TPersistent) private FServer: TLDimParam; function GetDefaultInterface: ksLDimParam; constructor Create(AServer: TLDimParam); protected public property DefaultInterface: ksLDimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoADimSourceParam provides a Create and CreateRemote method to // create instances of the default interface ksADimSourceParam exposed by // the CoClass ADimSourceParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoADimSourceParam = class class function Create: ksADimSourceParam; class function CreateRemote(const MachineName: string): ksADimSourceParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TADimSourceParam // Help String : Ïàðàìåòðû ïðèâÿçêè óãëîâîãî ðàçìåðà. // Default Interface: ksADimSourceParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TADimSourceParamProperties= class; {$ENDIF} TADimSourceParam = class(TOleServer) private FIntf: ksADimSourceParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TADimSourceParamProperties; function GetServerProperties: TADimSourceParamProperties; {$ENDIF} function GetDefaultInterface: ksADimSourceParam; protected procedure InitServerData; override; function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_ang1: Double; procedure Set_ang1(Value: Double); function Get_ang2: Double; procedure Set_ang2(Value: Double); function Get_dir: Integer; procedure Set_dir(Value: Integer); function Get_rad: Double; procedure Set_rad(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksADimSourceParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksADimSourceParam read GetDefaultInterface; property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property ang1: Double read Get_ang1 write Set_ang1; property ang2: Double read Get_ang2 write Set_ang2; property dir: Integer read Get_dir write Set_dir; property rad: Double read Get_rad write Set_rad; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TADimSourceParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TADimSourceParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TADimSourceParamProperties = class(TPersistent) private FServer: TADimSourceParam; function GetDefaultInterface: ksADimSourceParam; constructor Create(AServer: TADimSourceParam); protected function Get_xc: Double; procedure Set_xc(Value: Double); function Get_yc: Double; procedure Set_yc(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_ang1: Double; procedure Set_ang1(Value: Double); function Get_ang2: Double; procedure Set_ang2(Value: Double); function Get_dir: Integer; procedure Set_dir(Value: Integer); function Get_rad: Double; procedure Set_rad(Value: Double); public property DefaultInterface: ksADimSourceParam read GetDefaultInterface; published property xc: Double read Get_xc write Set_xc; property yc: Double read Get_yc write Set_yc; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property ang1: Double read Get_ang1 write Set_ang1; property ang2: Double read Get_ang2 write Set_ang2; property dir: Integer read Get_dir write Set_dir; property rad: Double read Get_rad write Set_rad; end; {$ENDIF} // *********************************************************************// // The Class CoDimensionPartsParam provides a Create and CreateRemote method to // create instances of the default interface ksDimensionPartsParam exposed by // the CoClass DimensionPartsParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDimensionPartsParam = class class function Create: ksDimensionPartsParam; class function CreateRemote(const MachineName: string): ksDimensionPartsParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDimensionPartsParam // Help String : Ñòðóêòóðà ñîñòàâëÿþùèõ îáúåêòîâ ðàçìåðà. // Default Interface: ksDimensionPartsParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDimensionPartsParamProperties= class; {$ENDIF} TDimensionPartsParam = class(TOleServer) private FIntf: ksDimensionPartsParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDimensionPartsParamProperties; function GetServerProperties: TDimensionPartsParamProperties; {$ENDIF} function GetDefaultInterface: ksDimensionPartsParam; protected procedure InitServerData; override; function Get_line1: Integer; procedure Set_line1(Value: Integer); function Get_line2: Integer; procedure Set_line2(Value: Integer); function Get_dimLine: Integer; procedure Set_dimLine(Value: Integer); function Get_dimLine1: Integer; procedure Set_dimLine1(Value: Integer); function Get_leg: Integer; procedure Set_leg(Value: Integer); function Get_shelf: Integer; procedure Set_shelf(Value: Integer); function Get_gr: Integer; procedure Set_gr(Value: Integer); function Get_curveExt: Integer; procedure Set_curveExt(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDimensionPartsParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksDimensionPartsParam read GetDefaultInterface; property line1: Integer read Get_line1 write Set_line1; property line2: Integer read Get_line2 write Set_line2; property dimLine: Integer read Get_dimLine write Set_dimLine; property dimLine1: Integer read Get_dimLine1 write Set_dimLine1; property leg: Integer read Get_leg write Set_leg; property shelf: Integer read Get_shelf write Set_shelf; property gr: Integer read Get_gr write Set_gr; property curveExt: Integer read Get_curveExt write Set_curveExt; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDimensionPartsParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDimensionPartsParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDimensionPartsParamProperties = class(TPersistent) private FServer: TDimensionPartsParam; function GetDefaultInterface: ksDimensionPartsParam; constructor Create(AServer: TDimensionPartsParam); protected function Get_line1: Integer; procedure Set_line1(Value: Integer); function Get_line2: Integer; procedure Set_line2(Value: Integer); function Get_dimLine: Integer; procedure Set_dimLine(Value: Integer); function Get_dimLine1: Integer; procedure Set_dimLine1(Value: Integer); function Get_leg: Integer; procedure Set_leg(Value: Integer); function Get_shelf: Integer; procedure Set_shelf(Value: Integer); function Get_gr: Integer; procedure Set_gr(Value: Integer); function Get_curveExt: Integer; procedure Set_curveExt(Value: Integer); public property DefaultInterface: ksDimensionPartsParam read GetDefaultInterface; published property line1: Integer read Get_line1 write Set_line1; property line2: Integer read Get_line2 write Set_line2; property dimLine: Integer read Get_dimLine write Set_dimLine; property dimLine1: Integer read Get_dimLine1 write Set_dimLine1; property leg: Integer read Get_leg write Set_leg; property shelf: Integer read Get_shelf write Set_shelf; property gr: Integer read Get_gr write Set_gr; property curveExt: Integer read Get_curveExt write Set_curveExt; end; {$ENDIF} // *********************************************************************// // The Class CoADimParam provides a Create and CreateRemote method to // create instances of the default interface ksADimParam exposed by // the CoClass ADimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoADimParam = class class function Create: ksADimParam; class function CreateRemote(const MachineName: string): ksADimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TADimParam // Help String : Ïàðàìåòðû óãëîâîãî ðàçìåðà. // Default Interface: ksADimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TADimParamProperties= class; {$ENDIF} TADimParam = class(TOleServer) private FIntf: ksADimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TADimParamProperties; function GetServerProperties: TADimParamProperties; {$ENDIF} function GetDefaultInterface: ksADimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksADimParam); procedure Disconnect; override; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksADimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TADimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TADimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TADimParamProperties = class(TPersistent) private FServer: TADimParam; function GetDefaultInterface: ksADimParam; constructor Create(AServer: TADimParam); protected public property DefaultInterface: ksADimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoRBreakDrawingParam provides a Create and CreateRemote method to // create instances of the default interface ksRBreakDrawingParam exposed by // the CoClass RBreakDrawingParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRBreakDrawingParam = class class function Create: ksRBreakDrawingParam; class function CreateRemote(const MachineName: string): ksRBreakDrawingParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRBreakDrawingParam // Help String : Ïàðàìåòðû ïðèâÿçêè äèàìåòðàëüíîãî è ðàäèàëüíîãî ðàçìåðîâ. // Default Interface: ksRBreakDrawingParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRBreakDrawingParamProperties= class; {$ENDIF} TRBreakDrawingParam = class(TOleServer) private FIntf: ksRBreakDrawingParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRBreakDrawingParamProperties; function GetServerProperties: TRBreakDrawingParamProperties; {$ENDIF} function GetDefaultInterface: ksRBreakDrawingParam; protected procedure InitServerData; override; function Get_pt: Smallint; procedure Set_pt(Value: Smallint); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_pb: Integer; procedure Set_pb(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRBreakDrawingParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksRBreakDrawingParam read GetDefaultInterface; property pt: Smallint read Get_pt write Set_pt; property ang: Double read Get_ang write Set_ang; property pb: Integer read Get_pb write Set_pb; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRBreakDrawingParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRBreakDrawingParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRBreakDrawingParamProperties = class(TPersistent) private FServer: TRBreakDrawingParam; function GetDefaultInterface: ksRBreakDrawingParam; constructor Create(AServer: TRBreakDrawingParam); protected function Get_pt: Smallint; procedure Set_pt(Value: Smallint); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_pb: Integer; procedure Set_pb(Value: Integer); public property DefaultInterface: ksRBreakDrawingParam read GetDefaultInterface; published property pt: Smallint read Get_pt write Set_pt; property ang: Double read Get_ang write Set_ang; property pb: Integer read Get_pb write Set_pb; end; {$ENDIF} // *********************************************************************// // The Class CoRBreakDimParam provides a Create and CreateRemote method to // create instances of the default interface ksRBreakDimParam exposed by // the CoClass RBreakDimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRBreakDimParam = class class function Create: ksRBreakDimParam; class function CreateRemote(const MachineName: string): ksRBreakDimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRBreakDimParam // Help String : Ïàðàìåòðû ðàäèàëüíîãî ðàçìåðà ñ èçëîìîì. // Default Interface: ksRBreakDimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRBreakDimParamProperties= class; {$ENDIF} TRBreakDimParam = class(TOleServer) private FIntf: ksRBreakDimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRBreakDimParamProperties; function GetServerProperties: TRBreakDimParamProperties; {$ENDIF} function GetDefaultInterface: ksRBreakDimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRBreakDimParam); procedure Disconnect; override; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksRBreakDimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRBreakDimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRBreakDimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRBreakDimParamProperties = class(TPersistent) private FServer: TRBreakDimParam; function GetDefaultInterface: ksRBreakDimParam; constructor Create(AServer: TRBreakDimParam); protected public property DefaultInterface: ksRBreakDimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoQualityItemParam provides a Create and CreateRemote method to // create instances of the default interface ksQualityItemParam exposed by // the CoClass QualityItemParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoQualityItemParam = class class function Create: ksQualityItemParam; class function CreateRemote(const MachineName: string): ksQualityItemParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TQualityItemParam // Help String : Çàïèñü îá îäíîì èíòåðâàëå äëÿ êâàëèòåòà. // Default Interface: ksQualityItemParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TQualityItemParamProperties= class; {$ENDIF} TQualityItemParam = class(TOleServer) private FIntf: ksQualityItemParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TQualityItemParamProperties; function GetServerProperties: TQualityItemParamProperties; {$ENDIF} function GetDefaultInterface: ksQualityItemParam; protected procedure InitServerData; override; function Get_minLimit: Smallint; procedure Set_minLimit(Value: Smallint); function Get_maxLimit: Smallint; procedure Set_maxLimit(Value: Smallint); function Get_high: Double; procedure Set_high(Value: Double); function Get_low: Double; procedure Set_low(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksQualityItemParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksQualityItemParam read GetDefaultInterface; property minLimit: Smallint read Get_minLimit write Set_minLimit; property maxLimit: Smallint read Get_maxLimit write Set_maxLimit; property high: Double read Get_high write Set_high; property low: Double read Get_low write Set_low; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TQualityItemParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TQualityItemParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TQualityItemParamProperties = class(TPersistent) private FServer: TQualityItemParam; function GetDefaultInterface: ksQualityItemParam; constructor Create(AServer: TQualityItemParam); protected function Get_minLimit: Smallint; procedure Set_minLimit(Value: Smallint); function Get_maxLimit: Smallint; procedure Set_maxLimit(Value: Smallint); function Get_high: Double; procedure Set_high(Value: Double); function Get_low: Double; procedure Set_low(Value: Double); public property DefaultInterface: ksQualityItemParam read GetDefaultInterface; published property minLimit: Smallint read Get_minLimit write Set_minLimit; property maxLimit: Smallint read Get_maxLimit write Set_maxLimit; property high: Double read Get_high write Set_high; property low: Double read Get_low write Set_low; end; {$ENDIF} // *********************************************************************// // The Class CoQualityContensParam provides a Create and CreateRemote method to // create instances of the default interface ksQualityContensParam exposed by // the CoClass QualityContensParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoQualityContensParam = class class function Create: ksQualityContensParam; class function CreateRemote(const MachineName: string): ksQualityContensParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TQualityContensParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ êâàëèòåòà. // Default Interface: ksQualityContensParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TQualityContensParamProperties= class; {$ENDIF} TQualityContensParam = class(TOleServer) private FIntf: ksQualityContensParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TQualityContensParamProperties; function GetServerProperties: TQualityContensParamProperties; {$ENDIF} function GetDefaultInterface: ksQualityContensParam; protected procedure InitServerData; override; function Get_systemQuality: Smallint; procedure Set_systemQuality(Value: Smallint); function Get_kindQuality: Smallint; procedure Set_kindQuality(Value: Smallint); function Get_name: WideString; procedure Set_name(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksQualityContensParam); procedure Disconnect; override; function Init: WordBool; function GetpQualityItems: IDispatch; function SetpQualityItems(const val: IDispatch): WordBool; property DefaultInterface: ksQualityContensParam read GetDefaultInterface; property systemQuality: Smallint read Get_systemQuality write Set_systemQuality; property kindQuality: Smallint read Get_kindQuality write Set_kindQuality; property name: WideString read Get_name write Set_name; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TQualityContensParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TQualityContensParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TQualityContensParamProperties = class(TPersistent) private FServer: TQualityContensParam; function GetDefaultInterface: ksQualityContensParam; constructor Create(AServer: TQualityContensParam); protected function Get_systemQuality: Smallint; procedure Set_systemQuality(Value: Smallint); function Get_kindQuality: Smallint; procedure Set_kindQuality(Value: Smallint); function Get_name: WideString; procedure Set_name(const Value: WideString); public property DefaultInterface: ksQualityContensParam read GetDefaultInterface; published property systemQuality: Smallint read Get_systemQuality write Set_systemQuality; property kindQuality: Smallint read Get_kindQuality write Set_kindQuality; property name: WideString read Get_name write Set_name; end; {$ENDIF} // *********************************************************************// // The Class CoIterator provides a Create and CreateRemote method to // create instances of the default interface ksIterator exposed by // the CoClass Iterator. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoIterator = class class function Create: ksIterator; class function CreateRemote(const MachineName: string): ksIterator; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TIterator // Help String : Èòåðàòîð ïî îáúåêòàì çàäàííîãî òèïà. // Default Interface: ksIterator // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TIteratorProperties= class; {$ENDIF} TIterator = class(TOleServer) private FIntf: ksIterator; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TIteratorProperties; function GetServerProperties: TIteratorProperties; {$ENDIF} function GetDefaultInterface: ksIterator; protected procedure InitServerData; override; function Get_reference: Integer; procedure Set_reference(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksIterator); procedure Disconnect; override; function ksCreateIterator(tipSeartch: Integer; parent: Integer): WordBool; function ksMoveIterator(const ksMoveIterator: WideString): Integer; function ksCreateAttrIterator(obj: Integer; key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): WordBool; function ksMoveAttrIterator(const ch: WideString; var pObj: Integer): Integer; function ksCreateSpcIterator(const nameLib: WideString; styleNumb: Integer; spcObjType: Integer): WordBool; function ksCreateQualityIterator(system: Smallint; withLimitation: Smallint): WordBool; function ksMoveQualityIterator(const param: IDispatch; inMM: Smallint; const ch: WideString): WordBool; function ksDeleteIterator: Integer; property DefaultInterface: ksIterator read GetDefaultInterface; property reference: Integer read Get_reference write Set_reference; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TIteratorProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TIterator // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TIteratorProperties = class(TPersistent) private FServer: TIterator; function GetDefaultInterface: ksIterator; constructor Create(AServer: TIterator); protected function Get_reference: Integer; procedure Set_reference(Value: Integer); public property DefaultInterface: ksIterator read GetDefaultInterface; published property reference: Integer read Get_reference write Set_reference; end; {$ENDIF} // *********************************************************************// // The Class CoFragment provides a Create and CreateRemote method to // create instances of the default interface ksFragment exposed by // the CoClass Fragment. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFragment = class class function Create: ksFragment; class function CreateRemote(const MachineName: string): ksFragment; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFragment // Help String : Ôðàãìåíò. // Default Interface: ksFragment // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFragmentProperties= class; {$ENDIF} TFragment = class(TOleServer) private FIntf: ksFragment; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFragmentProperties; function GetServerProperties: TFragmentProperties; {$ENDIF} function GetDefaultInterface: ksFragment; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFragment); procedure Disconnect; override; function ksFragmentDefinition(const fileName: WideString; const comment: WideString; insertType: Smallint): Integer; function ksInsertFragment(p: Integer; curentLayer: WordBool; const par: IDispatch): Integer; function ksReadFragment(const fileName: WideString; curentLayer: WordBool; const par: IDispatch): Integer; function ksReadFragmentToGroup(const fileName: WideString; curentLayer: WordBool; const par: IDispatch): Integer; function ksReadFragmentToGroupEx(const fileName: WideString; curentLayer: WordBool; const par: IDispatch; scaleProjLinesSize: WordBool): Integer; function ksWriteFragment(gr: Integer; const fileName: WideString; const comment: WideString; xb: Double; yb: Double): Integer; function ksLocalFragmentDefinition(const comment: WideString): Integer; function ksCloseLocalFragmentDefinition: Integer; function ksInsertFragmentEx(p: Integer; curentLayer: WordBool; const par: IDispatch; scaleProjLinesSize: WordBool): Integer; property DefaultInterface: ksFragment read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFragmentProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFragment // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFragmentProperties = class(TPersistent) private FServer: TFragment; function GetDefaultInterface: ksFragment; constructor Create(AServer: TFragment); protected public property DefaultInterface: ksFragment read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoFragmentLib provides a Create and CreateRemote method to // create instances of the default interface ksFragmentLibrary exposed by // the CoClass FragmentLib. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFragmentLib = class class function Create: ksFragmentLibrary; class function CreateRemote(const MachineName: string): ksFragmentLibrary; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFragmentLib // Help String : Èíòåðôåéñ áèáëèîòåêè ôðàãìåíòîâ. // Default Interface: ksFragmentLibrary // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFragmentLibProperties= class; {$ENDIF} TFragmentLib = class(TOleServer) private FIntf: ksFragmentLibrary; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFragmentLibProperties; function GetServerProperties: TFragmentLibProperties; {$ENDIF} function GetDefaultInterface: ksFragmentLibrary; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFragmentLibrary); procedure Disconnect; override; function ksChoiceFragmentFromLib(const frwLibFile: WideString; var type_: Integer): WideString; function ksFragmentLibraryOperation(const libName: WideString; type_: Integer): Integer; function ksAddFragmentToLibrary(const libName: WideString; const frwName: WideString): Integer; function ksCheckFragmentLibrary(const libName: WideString; possibleMessage: WordBool): Integer; function ksExistFragmentInLibrary(const frwName: WideString): Integer; property DefaultInterface: ksFragmentLibrary read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFragmentLibProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFragmentLib // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFragmentLibProperties = class(TPersistent) private FServer: TFragmentLib; function GetDefaultInterface: ksFragmentLibrary; constructor Create(AServer: TFragmentLib); protected public property DefaultInterface: ksFragmentLibrary read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoTechnicalDemandParam provides a Create and CreateRemote method to // create instances of the default interface ksTechnicalDemandParam exposed by // the CoClass TechnicalDemandParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTechnicalDemandParam = class class function Create: ksTechnicalDemandParam; class function CreateRemote(const MachineName: string): ksTechnicalDemandParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTechnicalDemandParam // Help String : Ïàðàìåòðû äëÿ îïðåäåëåíèÿ òåõíè÷åñêèõ òðåáîâàíèé. // Default Interface: ksTechnicalDemandParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTechnicalDemandParamProperties= class; {$ENDIF} TTechnicalDemandParam = class(TOleServer) private FIntf: ksTechnicalDemandParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTechnicalDemandParamProperties; function GetServerProperties: TTechnicalDemandParamProperties; {$ENDIF} function GetDefaultInterface: ksTechnicalDemandParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_strCount: Smallint; procedure Set_strCount(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTechnicalDemandParam); procedure Disconnect; override; function Init: WordBool; function GetPGab: IDispatch; function SetPGab(const val: IDispatch): WordBool; property DefaultInterface: ksTechnicalDemandParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property strCount: Smallint read Get_strCount write Set_strCount; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTechnicalDemandParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTechnicalDemandParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTechnicalDemandParamProperties = class(TPersistent) private FServer: TTechnicalDemandParam; function GetDefaultInterface: ksTechnicalDemandParam; constructor Create(AServer: TTechnicalDemandParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_strCount: Smallint; procedure Set_strCount(Value: Smallint); public property DefaultInterface: ksTechnicalDemandParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property strCount: Smallint read Get_strCount write Set_strCount; end; {$ENDIF} // *********************************************************************// // The Class CoOrdinatedSourceParam provides a Create and CreateRemote method to // create instances of the default interface ksOrdinatedSourceParam exposed by // the CoClass OrdinatedSourceParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOrdinatedSourceParam = class class function Create: ksOrdinatedSourceParam; class function CreateRemote(const MachineName: string): ksOrdinatedSourceParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOrdinatedSourceParam // Help String : Ïàðàìåòðû ïðèâÿçêè ðàçìåðà âûñîòû. // Default Interface: ksOrdinatedSourceParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOrdinatedSourceParamProperties= class; {$ENDIF} TOrdinatedSourceParam = class(TOleServer) private FIntf: ksOrdinatedSourceParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOrdinatedSourceParamProperties; function GetServerProperties: TOrdinatedSourceParamProperties; {$ENDIF} function GetDefaultInterface: ksOrdinatedSourceParam; protected procedure InitServerData; override; function Get_x0: Double; procedure Set_x0(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_y0: Double; procedure Set_y0(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksOrdinatedSourceParam); procedure Disconnect; override; property DefaultInterface: ksOrdinatedSourceParam read GetDefaultInterface; property x0: Double read Get_x0 write Set_x0; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property y0: Double read Get_y0 write Set_y0; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOrdinatedSourceParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOrdinatedSourceParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOrdinatedSourceParamProperties = class(TPersistent) private FServer: TOrdinatedSourceParam; function GetDefaultInterface: ksOrdinatedSourceParam; constructor Create(AServer: TOrdinatedSourceParam); protected function Get_x0: Double; procedure Set_x0(Value: Double); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_y0: Double; procedure Set_y0(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); public property DefaultInterface: ksOrdinatedSourceParam read GetDefaultInterface; published property x0: Double read Get_x0 write Set_x0; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property y0: Double read Get_y0 write Set_y0; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; end; {$ENDIF} // *********************************************************************// // The Class CoOrdinatedDimParam provides a Create and CreateRemote method to // create instances of the default interface ksOrdinatedDimParam exposed by // the CoClass OrdinatedDimParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOrdinatedDimParam = class class function Create: ksOrdinatedDimParam; class function CreateRemote(const MachineName: string): ksOrdinatedDimParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOrdinatedDimParam // Help String : Ïàðàìåòðû ðàçìåðà âûñîòû. // Default Interface: ksOrdinatedDimParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOrdinatedDimParamProperties= class; {$ENDIF} TOrdinatedDimParam = class(TOleServer) private FIntf: ksOrdinatedDimParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOrdinatedDimParamProperties; function GetServerProperties: TOrdinatedDimParamProperties; {$ENDIF} function GetDefaultInterface: ksOrdinatedDimParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksOrdinatedDimParam); procedure Disconnect; override; function Init: WordBool; function GetTPar: IDispatch; function SetTPar(const val: IDispatch): WordBool; function GetDPar: IDispatch; function SetDPar(const val: IDispatch): WordBool; function GetSPar: IDispatch; function SetSPar(const val: IDispatch): WordBool; property DefaultInterface: ksOrdinatedDimParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOrdinatedDimParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOrdinatedDimParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOrdinatedDimParamProperties = class(TPersistent) private FServer: TOrdinatedDimParam; function GetDefaultInterface: ksOrdinatedDimParam; constructor Create(AServer: TOrdinatedDimParam); protected public property DefaultInterface: ksOrdinatedDimParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoOrdinatedDrawingParam provides a Create and CreateRemote method to // create instances of the default interface ksOrdinatedDrawingParam exposed by // the CoClass OrdinatedDrawingParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOrdinatedDrawingParam = class class function Create: ksOrdinatedDrawingParam; class function CreateRemote(const MachineName: string): ksOrdinatedDrawingParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOrdinatedDrawingParam // Help String : Ïàðàìåòðû èçîáðàæåíèÿ ðàçìåðà âûñîòû. // Default Interface: ksOrdinatedDrawingParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOrdinatedDrawingParamProperties= class; {$ENDIF} TOrdinatedDrawingParam = class(TOleServer) private FIntf: ksOrdinatedDrawingParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOrdinatedDrawingParamProperties; function GetServerProperties: TOrdinatedDrawingParamProperties; {$ENDIF} function GetDefaultInterface: ksOrdinatedDrawingParam; protected procedure InitServerData; override; function Get_type_: Integer; procedure Set_type_(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksOrdinatedDrawingParam); procedure Disconnect; override; property DefaultInterface: ksOrdinatedDrawingParam read GetDefaultInterface; property type_: Integer read Get_type_ write Set_type_; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOrdinatedDrawingParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOrdinatedDrawingParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOrdinatedDrawingParamProperties = class(TPersistent) private FServer: TOrdinatedDrawingParam; function GetDefaultInterface: ksOrdinatedDrawingParam; constructor Create(AServer: TOrdinatedDrawingParam); protected function Get_type_: Integer; procedure Set_type_(Value: Integer); public property DefaultInterface: ksOrdinatedDrawingParam read GetDefaultInterface; published property type_: Integer read Get_type_ write Set_type_; end; {$ENDIF} // *********************************************************************// // The Class CoSheetSize provides a Create and CreateRemote method to // create instances of the default interface ksSheetSize exposed by // the CoClass SheetSize. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSheetSize = class class function Create: ksSheetSize; class function CreateRemote(const MachineName: string): ksSheetSize; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSheetSize // Help String : Ïàðàìåòðû ëèñòà. // Default Interface: ksSheetSize // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSheetSizeProperties= class; {$ENDIF} TSheetSize = class(TOleServer) private FIntf: ksSheetSize; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSheetSizeProperties; function GetServerProperties: TSheetSizeProperties; {$ENDIF} function GetDefaultInterface: ksSheetSize; protected procedure InitServerData; override; function Get_width: Double; procedure Set_width(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSheetSize); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksSheetSize read GetDefaultInterface; property width: Double read Get_width write Set_width; property height: Double read Get_height write Set_height; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSheetSizeProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSheetSize // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSheetSizeProperties = class(TPersistent) private FServer: TSheetSize; function GetDefaultInterface: ksSheetSize; constructor Create(AServer: TSheetSize); protected function Get_width: Double; procedure Set_width(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); public property DefaultInterface: ksSheetSize read GetDefaultInterface; published property width: Double read Get_width write Set_width; property height: Double read Get_height write Set_height; end; {$ENDIF} // *********************************************************************// // The Class CoStandartSheet provides a Create and CreateRemote method to // create instances of the default interface ksStandartSheet exposed by // the CoClass StandartSheet. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoStandartSheet = class class function Create: ksStandartSheet; class function CreateRemote(const MachineName: string): ksStandartSheet; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TStandartSheet // Help String : Ñòðóêòóðà ïàðàìåòðîâ ñòàíäàðòíîãî ëèñòà. // Default Interface: ksStandartSheet // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TStandartSheetProperties= class; {$ENDIF} TStandartSheet = class(TOleServer) private FIntf: ksStandartSheet; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TStandartSheetProperties; function GetServerProperties: TStandartSheetProperties; {$ENDIF} function GetDefaultInterface: ksStandartSheet; protected procedure InitServerData; override; function Get_format: Smallint; procedure Set_format(Value: Smallint); function Get_multiply: Smallint; procedure Set_multiply(Value: Smallint); function Get_direct: WordBool; procedure Set_direct(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksStandartSheet); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksStandartSheet read GetDefaultInterface; property format: Smallint read Get_format write Set_format; property multiply: Smallint read Get_multiply write Set_multiply; property direct: WordBool read Get_direct write Set_direct; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TStandartSheetProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TStandartSheet // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TStandartSheetProperties = class(TPersistent) private FServer: TStandartSheet; function GetDefaultInterface: ksStandartSheet; constructor Create(AServer: TStandartSheet); protected function Get_format: Smallint; procedure Set_format(Value: Smallint); function Get_multiply: Smallint; procedure Set_multiply(Value: Smallint); function Get_direct: WordBool; procedure Set_direct(Value: WordBool); public property DefaultInterface: ksStandartSheet read GetDefaultInterface; published property format: Smallint read Get_format write Set_format; property multiply: Smallint read Get_multiply write Set_multiply; property direct: WordBool read Get_direct write Set_direct; end; {$ENDIF} // *********************************************************************// // The Class CoSheetPar provides a Create and CreateRemote method to // create instances of the default interface ksSheetPar exposed by // the CoClass SheetPar. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSheetPar = class class function Create: ksSheetPar; class function CreateRemote(const MachineName: string): ksSheetPar; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSheetPar // Help String : Ñòðóêòóðà ïàðàìåòðîâ îôîðìëåíèÿ. // Default Interface: ksSheetPar // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSheetParProperties= class; {$ENDIF} TSheetPar = class(TOleServer) private FIntf: ksSheetPar; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSheetParProperties; function GetServerProperties: TSheetParProperties; {$ENDIF} function GetDefaultInterface: ksSheetPar; protected procedure InitServerData; override; function Get_layoutName: WideString; procedure Set_layoutName(const Value: WideString); function Get_shtType: Smallint; procedure Set_shtType(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSheetPar); procedure Disconnect; override; function Init: WordBool; function GetSheetParam: IDispatch; property DefaultInterface: ksSheetPar read GetDefaultInterface; property layoutName: WideString read Get_layoutName write Set_layoutName; property shtType: Smallint read Get_shtType write Set_shtType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSheetParProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSheetPar // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSheetParProperties = class(TPersistent) private FServer: TSheetPar; function GetDefaultInterface: ksSheetPar; constructor Create(AServer: TSheetPar); protected function Get_layoutName: WideString; procedure Set_layoutName(const Value: WideString); function Get_shtType: Smallint; procedure Set_shtType(Value: Smallint); public property DefaultInterface: ksSheetPar read GetDefaultInterface; published property layoutName: WideString read Get_layoutName write Set_layoutName; property shtType: Smallint read Get_shtType write Set_shtType; end; {$ENDIF} // *********************************************************************// // The Class CoDocumentParam provides a Create and CreateRemote method to // create instances of the default interface ksDocumentParam exposed by // the CoClass DocumentParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocumentParam = class class function Create: ksDocumentParam; class function CreateRemote(const MachineName: string): ksDocumentParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDocumentParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äîêóìåíòà. // Default Interface: ksDocumentParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDocumentParamProperties= class; {$ENDIF} TDocumentParam = class(TOleServer) private FIntf: ksDocumentParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDocumentParamProperties; function GetServerProperties: TDocumentParamProperties; {$ENDIF} function GetDefaultInterface: ksDocumentParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_author: WideString; procedure Set_author(const Value: WideString); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_regime: Smallint; procedure Set_regime(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDocumentParam); procedure Disconnect; override; function Init: WordBool; function GetLayoutParam: IDispatch; property DefaultInterface: ksDocumentParam read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property author: WideString read Get_author write Set_author; property type_: Smallint read Get_type_ write Set_type_; property regime: Smallint read Get_regime write Set_regime; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDocumentParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDocumentParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDocumentParamProperties = class(TPersistent) private FServer: TDocumentParam; function GetDefaultInterface: ksDocumentParam; constructor Create(AServer: TDocumentParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_author: WideString; procedure Set_author(const Value: WideString); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_regime: Smallint; procedure Set_regime(Value: Smallint); public property DefaultInterface: ksDocumentParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property author: WideString read Get_author write Set_author; property type_: Smallint read Get_type_ write Set_type_; property regime: Smallint read Get_regime write Set_regime; end; {$ENDIF} // *********************************************************************// // The Class CoDimensionsOptions provides a Create and CreateRemote method to // create instances of the default interface ksDimensionsOptions exposed by // the CoClass DimensionsOptions. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDimensionsOptions = class class function Create: ksDimensionsOptions; class function CreateRemote(const MachineName: string): ksDimensionsOptions; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDimensionsOptions // Help String : Ñòðóêòóðà äëÿ îïðåäåëåíèÿ íàñòðîåê ðàçìåðîâ. // Default Interface: ksDimensionsOptions // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDimensionsOptionsProperties= class; {$ENDIF} TDimensionsOptions = class(TOleServer) private FIntf: ksDimensionsOptions; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDimensionsOptionsProperties; function GetServerProperties: TDimensionsOptionsProperties; {$ENDIF} function GetDefaultInterface: ksDimensionsOptions; protected procedure InitServerData; override; function Get_proLineExtension: Double; procedure Set_proLineExtension(Value: Double); function Get_textDistanceFromDimLine: Double; procedure Set_textDistanceFromDimLine(Value: Double); function Get_textDistanceFromProLine: Double; procedure Set_textDistanceFromProLine(Value: Double); function Get_dimLineExtension: Double; procedure Set_dimLineExtension(Value: Double); function Get_arrowLength: Double; procedure Set_arrowLength(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); function Get_decimalsCount: Smallint; procedure Set_decimalsCount(Value: Smallint); function Get_anglePrecisionLevel: Integer; procedure Set_anglePrecisionLevel(Value: Integer); function Get_hiddenToleranceNumber: Integer; procedure Set_hiddenToleranceNumber(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDimensionsOptions); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksDimensionsOptions read GetDefaultInterface; property proLineExtension: Double read Get_proLineExtension write Set_proLineExtension; property textDistanceFromDimLine: Double read Get_textDistanceFromDimLine write Set_textDistanceFromDimLine; property textDistanceFromProLine: Double read Get_textDistanceFromProLine write Set_textDistanceFromProLine; property dimLineExtension: Double read Get_dimLineExtension write Set_dimLineExtension; property arrowLength: Double read Get_arrowLength write Set_arrowLength; property style: Integer read Get_style write Set_style; property decimalsCount: Smallint read Get_decimalsCount write Set_decimalsCount; property anglePrecisionLevel: Integer read Get_anglePrecisionLevel write Set_anglePrecisionLevel; property hiddenToleranceNumber: Integer read Get_hiddenToleranceNumber write Set_hiddenToleranceNumber; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDimensionsOptionsProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDimensionsOptions // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDimensionsOptionsProperties = class(TPersistent) private FServer: TDimensionsOptions; function GetDefaultInterface: ksDimensionsOptions; constructor Create(AServer: TDimensionsOptions); protected function Get_proLineExtension: Double; procedure Set_proLineExtension(Value: Double); function Get_textDistanceFromDimLine: Double; procedure Set_textDistanceFromDimLine(Value: Double); function Get_textDistanceFromProLine: Double; procedure Set_textDistanceFromProLine(Value: Double); function Get_dimLineExtension: Double; procedure Set_dimLineExtension(Value: Double); function Get_arrowLength: Double; procedure Set_arrowLength(Value: Double); function Get_style: Integer; procedure Set_style(Value: Integer); function Get_decimalsCount: Smallint; procedure Set_decimalsCount(Value: Smallint); function Get_anglePrecisionLevel: Integer; procedure Set_anglePrecisionLevel(Value: Integer); function Get_hiddenToleranceNumber: Integer; procedure Set_hiddenToleranceNumber(Value: Integer); public property DefaultInterface: ksDimensionsOptions read GetDefaultInterface; published property proLineExtension: Double read Get_proLineExtension write Set_proLineExtension; property textDistanceFromDimLine: Double read Get_textDistanceFromDimLine write Set_textDistanceFromDimLine; property textDistanceFromProLine: Double read Get_textDistanceFromProLine write Set_textDistanceFromProLine; property dimLineExtension: Double read Get_dimLineExtension write Set_dimLineExtension; property arrowLength: Double read Get_arrowLength write Set_arrowLength; property style: Integer read Get_style write Set_style; property decimalsCount: Smallint read Get_decimalsCount write Set_decimalsCount; property anglePrecisionLevel: Integer read Get_anglePrecisionLevel write Set_anglePrecisionLevel; property hiddenToleranceNumber: Integer read Get_hiddenToleranceNumber write Set_hiddenToleranceNumber; end; {$ENDIF} // *********************************************************************// // The Class CoSnapOptions provides a Create and CreateRemote method to // create instances of the default interface ksSnapOptions exposed by // the CoClass SnapOptions. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSnapOptions = class class function Create: ksSnapOptions; class function CreateRemote(const MachineName: string): ksSnapOptions; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSnapOptions // Help String : Ñòðóêòóðà ïàðàìåòðîâ ïðèâÿçîê â ãðàôè÷åñêîì äîêóìåíòå. // Default Interface: ksSnapOptions // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSnapOptionsProperties= class; {$ENDIF} TSnapOptions = class(TOleServer) private FIntf: ksSnapOptions; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSnapOptionsProperties; function GetServerProperties: TSnapOptionsProperties; {$ENDIF} function GetDefaultInterface: ksSnapOptions; protected procedure InitServerData; override; function Get_nearestPoint: WordBool; procedure Set_nearestPoint(Value: WordBool); function Get_nearestMiddle: WordBool; procedure Set_nearestMiddle(Value: WordBool); function Get_intersect: WordBool; procedure Set_intersect(Value: WordBool); function Get_tangentToCurve: WordBool; procedure Set_tangentToCurve(Value: WordBool); function Get_normalToCurve: WordBool; procedure Set_normalToCurve(Value: WordBool); function Get_grid: WordBool; procedure Set_grid(Value: WordBool); function Get_xyAlign: WordBool; procedure Set_xyAlign(Value: WordBool); function Get_angSnap: WordBool; procedure Set_angSnap(Value: WordBool); function Get_pointOnCurve: WordBool; procedure Set_pointOnCurve(Value: WordBool); function Get_commonOpt: Integer; procedure Set_commonOpt(Value: Integer); function Get_angleStep: Double; procedure Set_angleStep(Value: Double); function Get_localSnap: Smallint; procedure Set_localSnap(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSnapOptions); procedure Disconnect; override; function Init: WordBool; function GetCommonOptValue(val: Integer): WordBool; function SetCommonOptValue(val: Integer; state: WordBool): WordBool; property DefaultInterface: ksSnapOptions read GetDefaultInterface; property nearestPoint: WordBool read Get_nearestPoint write Set_nearestPoint; property nearestMiddle: WordBool read Get_nearestMiddle write Set_nearestMiddle; property intersect: WordBool read Get_intersect write Set_intersect; property tangentToCurve: WordBool read Get_tangentToCurve write Set_tangentToCurve; property normalToCurve: WordBool read Get_normalToCurve write Set_normalToCurve; property grid: WordBool read Get_grid write Set_grid; property xyAlign: WordBool read Get_xyAlign write Set_xyAlign; property angSnap: WordBool read Get_angSnap write Set_angSnap; property pointOnCurve: WordBool read Get_pointOnCurve write Set_pointOnCurve; property commonOpt: Integer read Get_commonOpt write Set_commonOpt; property angleStep: Double read Get_angleStep write Set_angleStep; property localSnap: Smallint read Get_localSnap write Set_localSnap; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSnapOptionsProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSnapOptions // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSnapOptionsProperties = class(TPersistent) private FServer: TSnapOptions; function GetDefaultInterface: ksSnapOptions; constructor Create(AServer: TSnapOptions); protected function Get_nearestPoint: WordBool; procedure Set_nearestPoint(Value: WordBool); function Get_nearestMiddle: WordBool; procedure Set_nearestMiddle(Value: WordBool); function Get_intersect: WordBool; procedure Set_intersect(Value: WordBool); function Get_tangentToCurve: WordBool; procedure Set_tangentToCurve(Value: WordBool); function Get_normalToCurve: WordBool; procedure Set_normalToCurve(Value: WordBool); function Get_grid: WordBool; procedure Set_grid(Value: WordBool); function Get_xyAlign: WordBool; procedure Set_xyAlign(Value: WordBool); function Get_angSnap: WordBool; procedure Set_angSnap(Value: WordBool); function Get_pointOnCurve: WordBool; procedure Set_pointOnCurve(Value: WordBool); function Get_commonOpt: Integer; procedure Set_commonOpt(Value: Integer); function Get_angleStep: Double; procedure Set_angleStep(Value: Double); function Get_localSnap: Smallint; procedure Set_localSnap(Value: Smallint); public property DefaultInterface: ksSnapOptions read GetDefaultInterface; published property nearestPoint: WordBool read Get_nearestPoint write Set_nearestPoint; property nearestMiddle: WordBool read Get_nearestMiddle write Set_nearestMiddle; property intersect: WordBool read Get_intersect write Set_intersect; property tangentToCurve: WordBool read Get_tangentToCurve write Set_tangentToCurve; property normalToCurve: WordBool read Get_normalToCurve write Set_normalToCurve; property grid: WordBool read Get_grid write Set_grid; property xyAlign: WordBool read Get_xyAlign write Set_xyAlign; property angSnap: WordBool read Get_angSnap write Set_angSnap; property pointOnCurve: WordBool read Get_pointOnCurve write Set_pointOnCurve; property commonOpt: Integer read Get_commonOpt write Set_commonOpt; property angleStep: Double read Get_angleStep write Set_angleStep; property localSnap: Smallint read Get_localSnap write Set_localSnap; end; {$ENDIF} // *********************************************************************// // The Class CoLibraryStyleParam provides a Create and CreateRemote method to // create instances of the default interface ksLibraryStyleParam exposed by // the CoClass LibraryStyleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLibraryStyleParam = class class function Create: ksLibraryStyleParam; class function CreateRemote(const MachineName: string): ksLibraryStyleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLibraryStyleParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ ñòèëÿ â áèáëèîòåêå ñòèëåé. // Default Interface: ksLibraryStyleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLibraryStyleParamProperties= class; {$ENDIF} TLibraryStyleParam = class(TOleServer) private FIntf: ksLibraryStyleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLibraryStyleParamProperties; function GetServerProperties: TLibraryStyleParamProperties; {$ENDIF} function GetDefaultInterface: ksLibraryStyleParam; protected procedure InitServerData; override; function Get_styleName: WideString; procedure Set_styleName(const Value: WideString); function Get_styleId: Integer; procedure Set_styleId(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLibraryStyleParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLibraryStyleParam read GetDefaultInterface; property styleName: WideString read Get_styleName write Set_styleName; property styleId: Integer read Get_styleId write Set_styleId; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLibraryStyleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLibraryStyleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLibraryStyleParamProperties = class(TPersistent) private FServer: TLibraryStyleParam; function GetDefaultInterface: ksLibraryStyleParam; constructor Create(AServer: TLibraryStyleParam); protected function Get_styleName: WideString; procedure Set_styleName(const Value: WideString); function Get_styleId: Integer; procedure Set_styleId(Value: Integer); public property DefaultInterface: ksLibraryStyleParam read GetDefaultInterface; published property styleName: WideString read Get_styleName write Set_styleName; property styleId: Integer read Get_styleId write Set_styleId; end; {$ENDIF} // *********************************************************************// // The Class CoStamp provides a Create and CreateRemote method to // create instances of the default interface ksStamp exposed by // the CoClass Stamp. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoStamp = class class function Create: ksStamp; class function CreateRemote(const MachineName: string): ksStamp; end; TStampEndEditStamp = procedure(Sender: TObject; editResult: WordBool) of object; TStampStampCellDblClick = procedure(Sender: TObject; number: Integer) of object; TStampStampCellBeginEdit = procedure(Sender: TObject; number: Integer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TStamp // Help String : Ðåäàêòèðîâàíèå øòàìïà. // Default Interface: ksStamp // Def. Intf. DISP? : Yes // Event Interface: ksStampNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TStampProperties= class; {$ENDIF} TStamp = class(TOleServer) private FOnBeginEditStamp: TNotifyEvent; FOnEndEditStamp: TStampEndEditStamp; FOnStampCellDblClick: TStampStampCellDblClick; FOnStampCellBeginEdit: TStampStampCellBeginEdit; FIntf: ksStamp; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TStampProperties; function GetServerProperties: TStampProperties; {$ENDIF} function GetDefaultInterface: ksStamp; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_reference: Integer; procedure Set_reference(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksStamp); procedure Disconnect; override; function ksOpenStamp: Integer; function ksCloseStamp: Integer; function ksClearStamp(numb: Integer): Integer; function ksGetStampColumnText(var numb: Integer): IDispatch; function ksSetStampColumnText(numb: Integer; const textArr: IDispatch): Integer; function ksColumnNumber(numb: Integer): Integer; function ksTextLine(const textItem: IDispatch): Integer; property DefaultInterface: ksStamp read GetDefaultInterface; property reference: Integer read Get_reference write Set_reference; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TStampProperties read GetServerProperties; {$ENDIF} property OnBeginEditStamp: TNotifyEvent read FOnBeginEditStamp write FOnBeginEditStamp; property OnEndEditStamp: TStampEndEditStamp read FOnEndEditStamp write FOnEndEditStamp; property OnStampCellDblClick: TStampStampCellDblClick read FOnStampCellDblClick write FOnStampCellDblClick; property OnStampCellBeginEdit: TStampStampCellBeginEdit read FOnStampCellBeginEdit write FOnStampCellBeginEdit; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TStamp // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TStampProperties = class(TPersistent) private FServer: TStamp; function GetDefaultInterface: ksStamp; constructor Create(AServer: TStamp); protected function Get_reference: Integer; procedure Set_reference(Value: Integer); public property DefaultInterface: ksStamp read GetDefaultInterface; published property reference: Integer read Get_reference write Set_reference; end; {$ENDIF} // *********************************************************************// // The Class CoSheetOptions provides a Create and CreateRemote method to // create instances of the default interface ksSheetOptions exposed by // the CoClass SheetOptions. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSheetOptions = class class function Create: ksSheetOptions; class function CreateRemote(const MachineName: string): ksSheetOptions; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSheetOptions // Help String : Ñòðóêòóðà ïàðàìåòðîâ îôîðìëåíèÿ. // Default Interface: ksSheetOptions // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSheetOptionsProperties= class; {$ENDIF} TSheetOptions = class(TOleServer) private FIntf: ksSheetOptions; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSheetOptionsProperties; function GetServerProperties: TSheetOptionsProperties; {$ENDIF} function GetDefaultInterface: ksSheetOptions; protected procedure InitServerData; override; function Get_shtType: Smallint; procedure Set_shtType(Value: Smallint); function Get_layoutName: WideString; procedure Set_layoutName(const Value: WideString); function Get_sheetType: WordBool; procedure Set_sheetType(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSheetOptions); procedure Disconnect; override; function Init: WordBool; function GetSheetParam(type_: WordBool): IDispatch; property DefaultInterface: ksSheetOptions read GetDefaultInterface; property shtType: Smallint read Get_shtType write Set_shtType; property layoutName: WideString read Get_layoutName write Set_layoutName; property sheetType: WordBool read Get_sheetType write Set_sheetType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSheetOptionsProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSheetOptions // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSheetOptionsProperties = class(TPersistent) private FServer: TSheetOptions; function GetDefaultInterface: ksSheetOptions; constructor Create(AServer: TSheetOptions); protected function Get_shtType: Smallint; procedure Set_shtType(Value: Smallint); function Get_layoutName: WideString; procedure Set_layoutName(const Value: WideString); function Get_sheetType: WordBool; procedure Set_sheetType(Value: WordBool); public property DefaultInterface: ksSheetOptions read GetDefaultInterface; published property shtType: Smallint read Get_shtType write Set_shtType; property layoutName: WideString read Get_layoutName write Set_layoutName; property sheetType: WordBool read Get_sheetType write Set_sheetType; end; {$ENDIF} // *********************************************************************// // The Class CoCurvePatternEx provides a Create and CreateRemote method to // create instances of the default interface ksCurvePatternEx exposed by // the CoClass CurvePatternEx. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurvePatternEx = class class function Create: ksCurvePatternEx; class function CreateRemote(const MachineName: string): ksCurvePatternEx; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurvePatternEx // Help String : Ïàðàìåòðû ó÷àñòêà øòðèõîâîé êðèâîé ðàñøèðåííàÿ. // Default Interface: ksCurvePatternEx // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurvePatternExProperties= class; {$ENDIF} TCurvePatternEx = class(TOleServer) private FIntf: ksCurvePatternEx; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurvePatternExProperties; function GetServerProperties: TCurvePatternExProperties; {$ENDIF} function GetDefaultInterface: ksCurvePatternEx; protected procedure InitServerData; override; function Get_visibleSeg: Double; procedure Set_visibleSeg(Value: Double); function Get_invisibleSeg: Double; procedure Set_invisibleSeg(Value: Double); function Get_dx: Double; procedure Set_dx(Value: Double); function Get_dy: Double; procedure Set_dy(Value: Double); function Get_pictureType: Smallint; procedure Set_pictureType(Value: Smallint); function Get_frwName: WideString; procedure Set_frwName(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurvePatternEx); procedure Disconnect; override; function Init: WordBool; function GetCurvePicture: IDispatch; function SetCurvePicture(const picture: IDispatch): WordBool; property DefaultInterface: ksCurvePatternEx read GetDefaultInterface; property visibleSeg: Double read Get_visibleSeg write Set_visibleSeg; property invisibleSeg: Double read Get_invisibleSeg write Set_invisibleSeg; property dx: Double read Get_dx write Set_dx; property dy: Double read Get_dy write Set_dy; property pictureType: Smallint read Get_pictureType write Set_pictureType; property frwName: WideString read Get_frwName write Set_frwName; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurvePatternExProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurvePatternEx // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurvePatternExProperties = class(TPersistent) private FServer: TCurvePatternEx; function GetDefaultInterface: ksCurvePatternEx; constructor Create(AServer: TCurvePatternEx); protected function Get_visibleSeg: Double; procedure Set_visibleSeg(Value: Double); function Get_invisibleSeg: Double; procedure Set_invisibleSeg(Value: Double); function Get_dx: Double; procedure Set_dx(Value: Double); function Get_dy: Double; procedure Set_dy(Value: Double); function Get_pictureType: Smallint; procedure Set_pictureType(Value: Smallint); function Get_frwName: WideString; procedure Set_frwName(const Value: WideString); public property DefaultInterface: ksCurvePatternEx read GetDefaultInterface; published property visibleSeg: Double read Get_visibleSeg write Set_visibleSeg; property invisibleSeg: Double read Get_invisibleSeg write Set_invisibleSeg; property dx: Double read Get_dx write Set_dx; property dy: Double read Get_dy write Set_dy; property pictureType: Smallint read Get_pictureType write Set_pictureType; property frwName: WideString read Get_frwName write Set_frwName; end; {$ENDIF} // *********************************************************************// // The Class CoCurveStyleParam provides a Create and CreateRemote method to // create instances of the default interface ksCurveStyleParam exposed by // the CoClass CurveStyleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurveStyleParam = class class function Create: ksCurveStyleParam; class function CreateRemote(const MachineName: string): ksCurveStyleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurveStyleParam // Help String : Ñòèëü êðèâîé. // Default Interface: ksCurveStyleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurveStyleParamProperties= class; {$ENDIF} TCurveStyleParam = class(TOleServer) private FIntf: ksCurveStyleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurveStyleParamProperties; function GetServerProperties: TCurveStyleParamProperties; {$ENDIF} function GetDefaultInterface: ksCurveStyleParam; protected procedure InitServerData; override; function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_paperWidth: Double; procedure Set_paperWidth(Value: Double); function Get_screenWidth: Smallint; procedure Set_screenWidth(Value: Smallint); function Get_curveType: Smallint; procedure Set_curveType(Value: Smallint); function Get_even: Smallint; procedure Set_even(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurveStyleParam); procedure Disconnect; override; function GetPPattern(type_: Integer): IDispatch; function SetPPattern(const pattern: IDispatch): WordBool; function SetPropertyCurve(val: Integer; state: WordBool): WordBool; function GetPropertyCurve(val: Integer): WordBool; function Init: WordBool; property DefaultInterface: ksCurveStyleParam read GetDefaultInterface; property name: WideString read Get_name write Set_name; property color: Integer read Get_color write Set_color; property paperWidth: Double read Get_paperWidth write Set_paperWidth; property screenWidth: Smallint read Get_screenWidth write Set_screenWidth; property curveType: Smallint read Get_curveType write Set_curveType; property even: Smallint read Get_even write Set_even; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurveStyleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurveStyleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurveStyleParamProperties = class(TPersistent) private FServer: TCurveStyleParam; function GetDefaultInterface: ksCurveStyleParam; constructor Create(AServer: TCurveStyleParam); protected function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_paperWidth: Double; procedure Set_paperWidth(Value: Double); function Get_screenWidth: Smallint; procedure Set_screenWidth(Value: Smallint); function Get_curveType: Smallint; procedure Set_curveType(Value: Smallint); function Get_even: Smallint; procedure Set_even(Value: Smallint); public property DefaultInterface: ksCurveStyleParam read GetDefaultInterface; published property name: WideString read Get_name write Set_name; property color: Integer read Get_color write Set_color; property paperWidth: Double read Get_paperWidth write Set_paperWidth; property screenWidth: Smallint read Get_screenWidth write Set_screenWidth; property curveType: Smallint read Get_curveType write Set_curveType; property even: Smallint read Get_even write Set_even; end; {$ENDIF} // *********************************************************************// // The Class CoTextStyleParam provides a Create and CreateRemote method to // create instances of the default interface ksTextStyleParam exposed by // the CoClass TextStyleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextStyleParam = class class function Create: ksTextStyleParam; class function CreateRemote(const MachineName: string): ksTextStyleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTextStyleParam // Help String : Ñòèëü òåêñòà. // Default Interface: ksTextStyleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTextStyleParamProperties= class; {$ENDIF} TTextStyleParam = class(TOleServer) private FIntf: ksTextStyleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTextStyleParamProperties; function GetServerProperties: TTextStyleParamProperties; {$ENDIF} function GetDefaultInterface: ksTextStyleParam; protected procedure InitServerData; override; function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_height: Double; procedure Set_height(Value: Double); function Get_ksu: Double; procedure Set_ksu(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_fontName: WideString; procedure Set_fontName(const Value: WideString); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_align: Smallint; procedure Set_align(Value: Smallint); function Get_bold: Smallint; procedure Set_bold(Value: Smallint); function Get_italic: Smallint; procedure Set_italic(Value: Smallint); function Get_underline: Smallint; procedure Set_underline(Value: Smallint); function Get_posKS: Double; procedure Set_posKS(Value: Double); function Get_stepParPre: Double; procedure Set_stepParPre(Value: Double); function Get_stepParPst: Double; procedure Set_stepParPst(Value: Double); function Get_leftEdge: Double; procedure Set_leftEdge(Value: Double); function Get_rightEdge: Double; procedure Set_rightEdge(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTextStyleParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksTextStyleParam read GetDefaultInterface; property name: WideString read Get_name write Set_name; property height: Double read Get_height write Set_height; property ksu: Double read Get_ksu write Set_ksu; property step: Double read Get_step write Set_step; property fontName: WideString read Get_fontName write Set_fontName; property color: Integer read Get_color write Set_color; property align: Smallint read Get_align write Set_align; property bold: Smallint read Get_bold write Set_bold; property italic: Smallint read Get_italic write Set_italic; property underline: Smallint read Get_underline write Set_underline; property posKS: Double read Get_posKS write Set_posKS; property stepParPre: Double read Get_stepParPre write Set_stepParPre; property stepParPst: Double read Get_stepParPst write Set_stepParPst; property leftEdge: Double read Get_leftEdge write Set_leftEdge; property rightEdge: Double read Get_rightEdge write Set_rightEdge; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTextStyleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTextStyleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTextStyleParamProperties = class(TPersistent) private FServer: TTextStyleParam; function GetDefaultInterface: ksTextStyleParam; constructor Create(AServer: TTextStyleParam); protected function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_height: Double; procedure Set_height(Value: Double); function Get_ksu: Double; procedure Set_ksu(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_fontName: WideString; procedure Set_fontName(const Value: WideString); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_align: Smallint; procedure Set_align(Value: Smallint); function Get_bold: Smallint; procedure Set_bold(Value: Smallint); function Get_italic: Smallint; procedure Set_italic(Value: Smallint); function Get_underline: Smallint; procedure Set_underline(Value: Smallint); function Get_posKS: Double; procedure Set_posKS(Value: Double); function Get_stepParPre: Double; procedure Set_stepParPre(Value: Double); function Get_stepParPst: Double; procedure Set_stepParPst(Value: Double); function Get_leftEdge: Double; procedure Set_leftEdge(Value: Double); function Get_rightEdge: Double; procedure Set_rightEdge(Value: Double); public property DefaultInterface: ksTextStyleParam read GetDefaultInterface; published property name: WideString read Get_name write Set_name; property height: Double read Get_height write Set_height; property ksu: Double read Get_ksu write Set_ksu; property step: Double read Get_step write Set_step; property fontName: WideString read Get_fontName write Set_fontName; property color: Integer read Get_color write Set_color; property align: Smallint read Get_align write Set_align; property bold: Smallint read Get_bold write Set_bold; property italic: Smallint read Get_italic write Set_italic; property underline: Smallint read Get_underline write Set_underline; property posKS: Double read Get_posKS write Set_posKS; property stepParPre: Double read Get_stepParPre write Set_stepParPre; property stepParPst: Double read Get_stepParPst write Set_stepParPst; property leftEdge: Double read Get_leftEdge write Set_leftEdge; property rightEdge: Double read Get_rightEdge write Set_rightEdge; end; {$ENDIF} // *********************************************************************// // The Class CoHatchLineParam provides a Create and CreateRemote method to // create instances of the default interface ksHatchLineParam exposed by // the CoClass HatchLineParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoHatchLineParam = class class function Create: ksHatchLineParam; class function CreateRemote(const MachineName: string): ksHatchLineParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : THatchLineParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ëèíèè øòðèõîâêè. // Default Interface: ksHatchLineParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} THatchLineParamProperties= class; {$ENDIF} THatchLineParam = class(TOleServer) private FIntf: ksHatchLineParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: THatchLineParamProperties; function GetServerProperties: THatchLineParamProperties; {$ENDIF} function GetDefaultInterface: ksHatchLineParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_dx: Double; procedure Set_dx(Value: Double); function Get_dy: Double; procedure Set_dy(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_typeCurvStyle: Smallint; procedure Set_typeCurvStyle(Value: Smallint); function Get_style: Smallint; procedure Set_style(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksHatchLineParam); procedure Disconnect; override; function GetCurPar: IDispatch; function SetCurPar(const curPar: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksHatchLineParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property dx: Double read Get_dx write Set_dx; property dy: Double read Get_dy write Set_dy; property ang: Double read Get_ang write Set_ang; property typeCurvStyle: Smallint read Get_typeCurvStyle write Set_typeCurvStyle; property style: Smallint read Get_style write Set_style; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: THatchLineParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : THatchLineParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// THatchLineParamProperties = class(TPersistent) private FServer: THatchLineParam; function GetDefaultInterface: ksHatchLineParam; constructor Create(AServer: THatchLineParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_dx: Double; procedure Set_dx(Value: Double); function Get_dy: Double; procedure Set_dy(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_typeCurvStyle: Smallint; procedure Set_typeCurvStyle(Value: Smallint); function Get_style: Smallint; procedure Set_style(Value: Smallint); public property DefaultInterface: ksHatchLineParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property dx: Double read Get_dx write Set_dx; property dy: Double read Get_dy write Set_dy; property ang: Double read Get_ang write Set_ang; property typeCurvStyle: Smallint read Get_typeCurvStyle write Set_typeCurvStyle; property style: Smallint read Get_style write Set_style; end; {$ENDIF} // *********************************************************************// // The Class CoHatchStyleParam provides a Create and CreateRemote method to // create instances of the default interface ksHatchStyleParam exposed by // the CoClass HatchStyleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoHatchStyleParam = class class function Create: ksHatchStyleParam; class function CreateRemote(const MachineName: string): ksHatchStyleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : THatchStyleParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ñòèëÿ øòðèõîâêè. // Default Interface: ksHatchStyleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} THatchStyleParamProperties= class; {$ENDIF} THatchStyleParam = class(TOleServer) private FIntf: ksHatchStyleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: THatchStyleParamProperties; function GetServerProperties: THatchStyleParamProperties; {$ENDIF} function GetDefaultInterface: ksHatchStyleParam; protected procedure InitServerData; override; function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_step: Double; procedure Set_step(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_mayChangeAngle: Smallint; procedure Set_mayChangeAngle(Value: Smallint); function Get_mayChangeWidth: Smallint; procedure Set_mayChangeWidth(Value: Smallint); function Get_mayChangeSpace: Smallint; procedure Set_mayChangeSpace(Value: Smallint); function Get_isScalable: Smallint; procedure Set_isScalable(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksHatchStyleParam); procedure Disconnect; override; function GetRefPoint: IDispatch; function SetRefPoint(const refPoint: IDispatch): WordBool; function GetArrLineParam: IDispatch; function SetArrLineParam(const arrLineParam: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksHatchStyleParam read GetDefaultInterface; property name: WideString read Get_name write Set_name; property step: Double read Get_step write Set_step; property ang: Double read Get_ang write Set_ang; property width: Double read Get_width write Set_width; property color: Integer read Get_color write Set_color; property mayChangeAngle: Smallint read Get_mayChangeAngle write Set_mayChangeAngle; property mayChangeWidth: Smallint read Get_mayChangeWidth write Set_mayChangeWidth; property mayChangeSpace: Smallint read Get_mayChangeSpace write Set_mayChangeSpace; property isScalable: Smallint read Get_isScalable write Set_isScalable; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: THatchStyleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : THatchStyleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// THatchStyleParamProperties = class(TPersistent) private FServer: THatchStyleParam; function GetDefaultInterface: ksHatchStyleParam; constructor Create(AServer: THatchStyleParam); protected function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_step: Double; procedure Set_step(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_color: Integer; procedure Set_color(Value: Integer); function Get_mayChangeAngle: Smallint; procedure Set_mayChangeAngle(Value: Smallint); function Get_mayChangeWidth: Smallint; procedure Set_mayChangeWidth(Value: Smallint); function Get_mayChangeSpace: Smallint; procedure Set_mayChangeSpace(Value: Smallint); function Get_isScalable: Smallint; procedure Set_isScalable(Value: Smallint); public property DefaultInterface: ksHatchStyleParam read GetDefaultInterface; published property name: WideString read Get_name write Set_name; property step: Double read Get_step write Set_step; property ang: Double read Get_ang write Set_ang; property width: Double read Get_width write Set_width; property color: Integer read Get_color write Set_color; property mayChangeAngle: Smallint read Get_mayChangeAngle write Set_mayChangeAngle; property mayChangeWidth: Smallint read Get_mayChangeWidth write Set_mayChangeWidth; property mayChangeSpace: Smallint read Get_mayChangeSpace write Set_mayChangeSpace; property isScalable: Smallint read Get_isScalable write Set_isScalable; end; {$ENDIF} // *********************************************************************// // The Class CoRectParam provides a Create and CreateRemote method to // create instances of the default interface ksRectParam exposed by // the CoClass RectParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRectParam = class class function Create: ksRectParam; class function CreateRemote(const MachineName: string): ksRectParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRectParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ãàáàðèòíîãî ïðÿìîóãîëüíèêà. // Default Interface: ksRectParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRectParamProperties= class; {$ENDIF} TRectParam = class(TOleServer) private FIntf: ksRectParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRectParamProperties; function GetServerProperties: TRectParamProperties; {$ENDIF} function GetDefaultInterface: ksRectParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRectParam); procedure Disconnect; override; function GetpBot: IDispatch; function SetpBot(const pBot: IDispatch): WordBool; function GetpTop: IDispatch; function SetpTop(const pTop: IDispatch): WordBool; property DefaultInterface: ksRectParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRectParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRectParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRectParamProperties = class(TPersistent) private FServer: TRectParam; function GetDefaultInterface: ksRectParam; constructor Create(AServer: TRectParam); protected public property DefaultInterface: ksRectParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoShelfPar provides a Create and CreateRemote method to // create instances of the default interface ksShelfPar exposed by // the CoClass ShelfPar. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoShelfPar = class class function Create: ksShelfPar; class function CreateRemote(const MachineName: string): ksShelfPar; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TShelfPar // Help String : Ñòðóêòóðà ïàðàìåòðîâ âûíîñíîé ïîëêè. // Default Interface: ksShelfPar // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TShelfParProperties= class; {$ENDIF} TShelfPar = class(TOleServer) private FIntf: ksShelfPar; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TShelfParProperties; function GetServerProperties: TShelfParProperties; {$ENDIF} function GetDefaultInterface: ksShelfPar; protected procedure InitServerData; override; function Get_psh: Integer; procedure Set_psh(Value: Integer); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_length: Integer; procedure Set_length(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksShelfPar); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksShelfPar read GetDefaultInterface; property psh: Integer read Get_psh write Set_psh; property ang: Double read Get_ang write Set_ang; property length: Integer read Get_length write Set_length; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TShelfParProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TShelfPar // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TShelfParProperties = class(TPersistent) private FServer: TShelfPar; function GetDefaultInterface: ksShelfPar; constructor Create(AServer: TShelfPar); protected function Get_psh: Integer; procedure Set_psh(Value: Integer); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_length: Integer; procedure Set_length(Value: Integer); public property DefaultInterface: ksShelfPar read GetDefaultInterface; published property psh: Integer read Get_psh write Set_psh; property ang: Double read Get_ang write Set_ang; property length: Integer read Get_length write Set_length; end; {$ENDIF} // *********************************************************************// // The Class CoroughPar provides a Create and CreateRemote method to // create instances of the default interface ksRoughPar exposed by // the CoClass roughPar. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoroughPar = class class function Create: ksRoughPar; class function CreateRemote(const MachineName: string): ksRoughPar; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TroughPar // Help String : Ñòðóêòóðà ïàðàìåòðîâ øåðîõîâàòîñòè. // Default Interface: ksRoughPar // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TroughParProperties= class; {$ENDIF} TroughPar = class(TOleServer) private FIntf: ksRoughPar; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TroughParProperties; function GetServerProperties: TroughParProperties; {$ENDIF} function GetDefaultInterface: ksRoughPar; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_around: Smallint; procedure Set_around(Value: Smallint); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Smallint; procedure Set_cText2(Value: Smallint); function Get_cText3: Smallint; procedure Set_cText3(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRoughPar); procedure Disconnect; override; function GetpText: IDispatch; function SetpText(const pText: IDispatch): WordBool; function Init: WordBool; function InitEx(style: Integer): WordBool; property DefaultInterface: ksRoughPar read GetDefaultInterface; property style: Integer read Get_style write Set_style; property type_: Smallint read Get_type_ write Set_type_; property around: Smallint read Get_around write Set_around; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Smallint read Get_cText2 write Set_cText2; property cText3: Smallint read Get_cText3 write Set_cText3; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TroughParProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TroughPar // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TroughParProperties = class(TPersistent) private FServer: TroughPar; function GetDefaultInterface: ksRoughPar; constructor Create(AServer: TroughPar); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_around: Smallint; procedure Set_around(Value: Smallint); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_ang: Double; procedure Set_ang(Value: Double); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Smallint; procedure Set_cText2(Value: Smallint); function Get_cText3: Smallint; procedure Set_cText3(Value: Smallint); public property DefaultInterface: ksRoughPar read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property type_: Smallint read Get_type_ write Set_type_; property around: Smallint read Get_around write Set_around; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property ang: Double read Get_ang write Set_ang; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Smallint read Get_cText2 write Set_cText2; property cText3: Smallint read Get_cText3 write Set_cText3; end; {$ENDIF} // *********************************************************************// // The Class CoRoughParam provides a Create and CreateRemote method to // create instances of the default interface ksRoughParam exposed by // the CoClass RoughParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRoughParam = class class function Create: ksRoughParam; class function CreateRemote(const MachineName: string): ksRoughParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRoughParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ øåðîõîâàòîñòè. // Default Interface: ksRoughParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRoughParamProperties= class; {$ENDIF} TRoughParam = class(TOleServer) private FIntf: ksRoughParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRoughParamProperties; function GetServerProperties: TRoughParamProperties; {$ENDIF} function GetDefaultInterface: ksRoughParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRoughParam); procedure Disconnect; override; function GetrPar: IDispatch; function SetrPar(const par: IDispatch): WordBool; function GetshPar: IDispatch; function SetshPar(const shPar: IDispatch): WordBool; property DefaultInterface: ksRoughParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRoughParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRoughParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRoughParamProperties = class(TPersistent) private FServer: TRoughParam; function GetDefaultInterface: ksRoughParam; constructor Create(AServer: TRoughParam); protected public property DefaultInterface: ksRoughParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoChar255 provides a Create and CreateRemote method to // create instances of the default interface ksChar255 exposed by // the CoClass Char255. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoChar255 = class class function Create: ksChar255; class function CreateRemote(const MachineName: string): ksChar255; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TChar255 // Help String : Ñòðîêà òåêñòà äëèííîé 255 ñèìâîëîâ. // Default Interface: ksChar255 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TChar255Properties= class; {$ENDIF} TChar255 = class(TOleServer) private FIntf: ksChar255; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TChar255Properties; function GetServerProperties: TChar255Properties; {$ENDIF} function GetDefaultInterface: ksChar255; protected procedure InitServerData; override; function Get_str: WideString; procedure Set_str(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksChar255); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksChar255 read GetDefaultInterface; property str: WideString read Get_str write Set_str; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TChar255Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TChar255 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TChar255Properties = class(TPersistent) private FServer: TChar255; function GetDefaultInterface: ksChar255; constructor Create(AServer: TChar255); protected function Get_str: WideString; procedure Set_str(const Value: WideString); public property DefaultInterface: ksChar255 read GetDefaultInterface; published property str: WideString read Get_str write Set_str; end; {$ENDIF} // *********************************************************************// // The Class CoLeaderParam provides a Create and CreateRemote method to // create instances of the default interface ksLeaderParam exposed by // the CoClass LeaderParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLeaderParam = class class function Create: ksLeaderParam; class function CreateRemote(const MachineName: string): ksLeaderParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLeaderParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ ïðîñòîé ëèíèè âûíîñêè. // Default Interface: ksLeaderParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLeaderParamProperties= class; {$ENDIF} TLeaderParam = class(TOleServer) private FIntf: ksLeaderParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLeaderParamProperties; function GetServerProperties: TLeaderParamProperties; {$ENDIF} function GetDefaultInterface: ksLeaderParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_dirX: Integer; procedure Set_dirX(Value: Integer); function Get_signType: Smallint; procedure Set_signType(Value: Smallint); function Get_around: Smallint; procedure Set_around(Value: Smallint); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Smallint; procedure Set_cText2(Value: Smallint); function Get_cText3: Smallint; procedure Set_cText3(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLeaderParam); procedure Disconnect; override; function GetpTextline: IDispatch; function SetpTextline(const pTextLine: IDispatch): WordBool; function GetpPolyline: IDispatch; function SetpPolyline(const pPolyline: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksLeaderParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property dirX: Integer read Get_dirX write Set_dirX; property signType: Smallint read Get_signType write Set_signType; property around: Smallint read Get_around write Set_around; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Smallint read Get_cText2 write Set_cText2; property cText3: Smallint read Get_cText3 write Set_cText3; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLeaderParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLeaderParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLeaderParamProperties = class(TPersistent) private FServer: TLeaderParam; function GetDefaultInterface: ksLeaderParam; constructor Create(AServer: TLeaderParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_dirX: Integer; procedure Set_dirX(Value: Integer); function Get_signType: Smallint; procedure Set_signType(Value: Smallint); function Get_around: Smallint; procedure Set_around(Value: Smallint); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Smallint; procedure Set_cText2(Value: Smallint); function Get_cText3: Smallint; procedure Set_cText3(Value: Smallint); public property DefaultInterface: ksLeaderParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property dirX: Integer read Get_dirX write Set_dirX; property signType: Smallint read Get_signType write Set_signType; property around: Smallint read Get_around write Set_around; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Smallint read Get_cText2 write Set_cText2; property cText3: Smallint read Get_cText3 write Set_cText3; end; {$ENDIF} // *********************************************************************// // The Class CoposLeaderParam provides a Create and CreateRemote method to // create instances of the default interface ksPosLeaderParam exposed by // the CoClass posLeaderParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoposLeaderParam = class class function Create: ksPosLeaderParam; class function CreateRemote(const MachineName: string): ksPosLeaderParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TposLeaderParam // Help String : Ëèíèè âûíîñêè äëÿ îáîçíà÷åíèÿ ïîçèöèè. // Default Interface: ksPosLeaderParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TposLeaderParamProperties= class; {$ENDIF} TposLeaderParam = class(TOleServer) private FIntf: ksPosLeaderParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TposLeaderParamProperties; function GetServerProperties: TposLeaderParamProperties; {$ENDIF} function GetDefaultInterface: ksPosLeaderParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_dirX: Integer; procedure Set_dirX(Value: Integer); function Get_dirY: Integer; procedure Set_dirY(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPosLeaderParam); procedure Disconnect; override; function GetpTextline: IDispatch; function SetpTextline(const textline: IDispatch): WordBool; function GetpPolyline: IDispatch; function SetpPolyline(const polyline: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksPosLeaderParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property dirX: Integer read Get_dirX write Set_dirX; property dirY: Integer read Get_dirY write Set_dirY; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TposLeaderParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TposLeaderParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TposLeaderParamProperties = class(TPersistent) private FServer: TposLeaderParam; function GetDefaultInterface: ksPosLeaderParam; constructor Create(AServer: TposLeaderParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_dirX: Integer; procedure Set_dirX(Value: Integer); function Get_dirY: Integer; procedure Set_dirY(Value: Integer); public property DefaultInterface: ksPosLeaderParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property dirX: Integer read Get_dirX write Set_dirX; property dirY: Integer read Get_dirY write Set_dirY; end; {$ENDIF} // *********************************************************************// // The Class CobrandLeaderParam provides a Create and CreateRemote method to // create instances of the default interface ksBrandLeaderParam exposed by // the CoClass brandLeaderParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CobrandLeaderParam = class class function Create: ksBrandLeaderParam; class function CreateRemote(const MachineName: string): ksBrandLeaderParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TbrandLeaderParam // Help String : Ëèíèè âûíîñêè äëÿ îáîçíà÷åíèÿ êëåéìåíèÿ. // Default Interface: ksBrandLeaderParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TbrandLeaderParamProperties= class; {$ENDIF} TbrandLeaderParam = class(TOleServer) private FIntf: ksBrandLeaderParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TbrandLeaderParamProperties; function GetServerProperties: TbrandLeaderParamProperties; {$ENDIF} function GetDefaultInterface: ksBrandLeaderParam; protected procedure InitServerData; override; function Get_dirX: Integer; procedure Set_dirX(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_style1: Integer; procedure Set_style1(Value: Integer); function Get_style2: Integer; procedure Set_style2(Value: Integer); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Integer; procedure Set_cText2(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBrandLeaderParam); procedure Disconnect; override; function GetpTextline: IDispatch; function SetpTextline(const pTextLine: IDispatch): WordBool; function GetpPolyline: IDispatch; function SetpPolyline(const pPolyline: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksBrandLeaderParam read GetDefaultInterface; property dirX: Integer read Get_dirX write Set_dirX; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property style1: Integer read Get_style1 write Set_style1; property style2: Integer read Get_style2 write Set_style2; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Integer read Get_cText2 write Set_cText2; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TbrandLeaderParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TbrandLeaderParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TbrandLeaderParamProperties = class(TPersistent) private FServer: TbrandLeaderParam; function GetDefaultInterface: ksBrandLeaderParam; constructor Create(AServer: TbrandLeaderParam); protected function Get_dirX: Integer; procedure Set_dirX(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_style1: Integer; procedure Set_style1(Value: Integer); function Get_style2: Integer; procedure Set_style2(Value: Integer); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Integer; procedure Set_cText2(Value: Integer); public property DefaultInterface: ksBrandLeaderParam read GetDefaultInterface; published property dirX: Integer read Get_dirX write Set_dirX; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property style1: Integer read Get_style1 write Set_style1; property style2: Integer read Get_style2 write Set_style2; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Integer read Get_cText2 write Set_cText2; end; {$ENDIF} // *********************************************************************// // The Class ComarkerLeaderParam provides a Create and CreateRemote method to // create instances of the default interface ksMarkerLeaderParam exposed by // the CoClass markerLeaderParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// ComarkerLeaderParam = class class function Create: ksMarkerLeaderParam; class function CreateRemote(const MachineName: string): ksMarkerLeaderParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TmarkerLeaderParam // Help String : Ëèíèè âûíîñêè äëÿ îáîçíà÷åíèÿ ìàðêèðîâàíèÿ. // Default Interface: ksMarkerLeaderParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TmarkerLeaderParamProperties= class; {$ENDIF} TmarkerLeaderParam = class(TOleServer) private FIntf: ksMarkerLeaderParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TmarkerLeaderParamProperties; function GetServerProperties: TmarkerLeaderParamProperties; {$ENDIF} function GetDefaultInterface: ksMarkerLeaderParam; protected procedure InitServerData; override; function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_style1: Integer; procedure Set_style1(Value: Integer); function Get_style2: Integer; procedure Set_style2(Value: Integer); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Smallint; procedure Set_cText2(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMarkerLeaderParam); procedure Disconnect; override; function GetpTextline: IDispatch; function SetpTextline(const pTextLine: IDispatch): WordBool; function GetpPolyline: IDispatch; function SetpPolyline(const pPolyline: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksMarkerLeaderParam read GetDefaultInterface; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property style1: Integer read Get_style1 write Set_style1; property style2: Integer read Get_style2 write Set_style2; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Smallint read Get_cText2 write Set_cText2; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TmarkerLeaderParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TmarkerLeaderParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TmarkerLeaderParamProperties = class(TPersistent) private FServer: TmarkerLeaderParam; function GetDefaultInterface: ksMarkerLeaderParam; constructor Create(AServer: TmarkerLeaderParam); protected function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_style1: Integer; procedure Set_style1(Value: Integer); function Get_style2: Integer; procedure Set_style2(Value: Integer); function Get_cText0: Smallint; procedure Set_cText0(Value: Smallint); function Get_cText1: Smallint; procedure Set_cText1(Value: Smallint); function Get_cText2: Smallint; procedure Set_cText2(Value: Smallint); public property DefaultInterface: ksMarkerLeaderParam read GetDefaultInterface; published property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property arrowType: Smallint read Get_arrowType write Set_arrowType; property style1: Integer read Get_style1 write Set_style1; property style2: Integer read Get_style2 write Set_style2; property cText0: Smallint read Get_cText0 write Set_cText0; property cText1: Smallint read Get_cText1 write Set_cText1; property cText2: Smallint read Get_cText2 write Set_cText2; end; {$ENDIF} // *********************************************************************// // The Class CoType1 provides a Create and CreateRemote method to // create instances of the default interface ksType1 exposed by // the CoClass Type1. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoType1 = class class function Create: ksType1; class function CreateRemote(const MachineName: string): ksType1; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TType1 // Help String : Ïàðàìåòðû äëÿ ñäâèãà ãðóïïû. // Default Interface: ksType1 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TType1Properties= class; {$ENDIF} TType1 = class(TOleServer) private FIntf: ksType1; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TType1Properties; function GetServerProperties: TType1Properties; {$ENDIF} function GetDefaultInterface: ksType1; protected procedure InitServerData; override; function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_scale_: Double; procedure Set_scale_(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_gr: Integer; procedure Set_gr(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksType1); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksType1 read GetDefaultInterface; property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property scale_: Double read Get_scale_ write Set_scale_; property angle: Double read Get_angle write Set_angle; property gr: Integer read Get_gr write Set_gr; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TType1Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TType1 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TType1Properties = class(TPersistent) private FServer: TType1; function GetDefaultInterface: ksType1; constructor Create(AServer: TType1); protected function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_scale_: Double; procedure Set_scale_(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_gr: Integer; procedure Set_gr(Value: Integer); public property DefaultInterface: ksType1 read GetDefaultInterface; published property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property scale_: Double read Get_scale_ write Set_scale_; property angle: Double read Get_angle write Set_angle; property gr: Integer read Get_gr write Set_gr; end; {$ENDIF} // *********************************************************************// // The Class CoType2 provides a Create and CreateRemote method to // create instances of the default interface ksType2 exposed by // the CoClass Type2. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoType2 = class class function Create: ksType2; class function CreateRemote(const MachineName: string): ksType2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TType2 // Help String : Ïàðàìåòðû äëÿ îòðåçêà. // Default Interface: ksType2 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TType2Properties= class; {$ENDIF} TType2 = class(TOleServer) private FIntf: ksType2; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TType2Properties; function GetServerProperties: TType2Properties; {$ENDIF} function GetDefaultInterface: ksType2; protected procedure InitServerData; override; function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksType2); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksType2 read GetDefaultInterface; property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TType2Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TType2 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TType2Properties = class(TPersistent) private FServer: TType2; function GetDefaultInterface: ksType2; constructor Create(AServer: TType2); protected function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); public property DefaultInterface: ksType2 read GetDefaultInterface; published property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; end; {$ENDIF} // *********************************************************************// // The Class CoType3 provides a Create and CreateRemote method to // create instances of the default interface ksType3 exposed by // the CoClass Type3. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoType3 = class class function Create: ksType3; class function CreateRemote(const MachineName: string): ksType3; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TType3 // Help String : Ïàðàìåòðû äëÿ ïðÿìîóãîëüíèêà è äëÿ îòðåçêà c çàäàííûì óãëîì. // Default Interface: ksType3 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TType3Properties= class; {$ENDIF} TType3 = class(TOleServer) private FIntf: ksType3; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TType3Properties; function GetServerProperties: TType3Properties; {$ENDIF} function GetDefaultInterface: ksType3; protected procedure InitServerData; override; function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksType3); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksType3 read GetDefaultInterface; property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property angle: Double read Get_angle write Set_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TType3Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TType3 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TType3Properties = class(TPersistent) private FServer: TType3; function GetDefaultInterface: ksType3; constructor Create(AServer: TType3); protected function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); public property DefaultInterface: ksType3 read GetDefaultInterface; published property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property angle: Double read Get_angle write Set_angle; end; {$ENDIF} // *********************************************************************// // The Class CoType5 provides a Create and CreateRemote method to // create instances of the default interface ksType5 exposed by // the CoClass Type5. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoType5 = class class function Create: ksType5; class function CreateRemote(const MachineName: string): ksType5; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TType5 // Help String : Ïàðàìåòðû äëÿ ïîëîâèíû ïðÿìîóãîëüíèêà c çàäàííûì óãëîì. // Default Interface: ksType5 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TType5Properties= class; {$ENDIF} TType5 = class(TOleServer) private FIntf: ksType5; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TType5Properties; function GetServerProperties: TType5Properties; {$ENDIF} function GetDefaultInterface: ksType5; protected procedure InitServerData; override; function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_horizon: WordBool; procedure Set_horizon(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksType5); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksType5 read GetDefaultInterface; property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property angle: Double read Get_angle write Set_angle; property horizon: WordBool read Get_horizon write Set_horizon; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TType5Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TType5 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TType5Properties = class(TPersistent) private FServer: TType5; function GetDefaultInterface: ksType5; constructor Create(AServer: TType5); protected function Get_xBase: Double; procedure Set_xBase(Value: Double); function Get_yBase: Double; procedure Set_yBase(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_horizon: WordBool; procedure Set_horizon(Value: WordBool); public property DefaultInterface: ksType5 read GetDefaultInterface; published property xBase: Double read Get_xBase write Set_xBase; property yBase: Double read Get_yBase write Set_yBase; property angle: Double read Get_angle write Set_angle; property horizon: WordBool read Get_horizon write Set_horizon; end; {$ENDIF} // *********************************************************************// // The Class CoType6 provides a Create and CreateRemote method to // create instances of the default interface ksType6 exposed by // the CoClass Type6. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoType6 = class class function Create: ksType6; class function CreateRemote(const MachineName: string): ksType6; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TType6 // Help String : Ïàðàìåòðû äëÿ ïîëüçîâàòåëüñêîãî ôàíòîìà. // Default Interface: ksType6 // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TType6Properties= class; {$ENDIF} TType6 = class(TOleServer) private FIntf: ksType6; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TType6Properties; function GetServerProperties: TType6Properties; {$ENDIF} function GetDefaultInterface: ksType6; protected procedure InitServerData; override; function Get_gr: Integer; procedure Set_gr(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksType6); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksType6 read GetDefaultInterface; property gr: Integer read Get_gr write Set_gr; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TType6Properties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TType6 // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TType6Properties = class(TPersistent) private FServer: TType6; function GetDefaultInterface: ksType6; constructor Create(AServer: TType6); protected function Get_gr: Integer; procedure Set_gr(Value: Integer); public property DefaultInterface: ksType6 read GetDefaultInterface; published property gr: Integer read Get_gr write Set_gr; end; {$ENDIF} // *********************************************************************// // The Class Cophantom provides a Create and CreateRemote method to // create instances of the default interface ksPhantom exposed by // the CoClass phantom. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// Cophantom = class class function Create: ksPhantom; class function CreateRemote(const MachineName: string): ksPhantom; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : Tphantom // Help String : Ïàðàìåòðû ôàíòîìà. // Default Interface: ksPhantom // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TphantomProperties= class; {$ENDIF} Tphantom = class(TOleServer) private FIntf: ksPhantom; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TphantomProperties; function GetServerProperties: TphantomProperties; {$ENDIF} function GetDefaultInterface: ksPhantom; protected procedure InitServerData; override; function Get_phantom: Smallint; procedure Set_phantom(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPhantom); procedure Disconnect; override; function GetPhantomParam: IDispatch; function Init: WordBool; property DefaultInterface: ksPhantom read GetDefaultInterface; property phantom: Smallint read Get_phantom write Set_phantom; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TphantomProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : Tphantom // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TphantomProperties = class(TPersistent) private FServer: Tphantom; function GetDefaultInterface: ksPhantom; constructor Create(AServer: Tphantom); protected function Get_phantom: Smallint; procedure Set_phantom(Value: Smallint); public property DefaultInterface: ksPhantom read GetDefaultInterface; published property phantom: Smallint read Get_phantom write Set_phantom; end; {$ENDIF} // *********************************************************************// // The Class CoRequestInfo provides a Create and CreateRemote method to // create instances of the default interface ksRequestInfo exposed by // the CoClass RequestInfo. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRequestInfo = class class function Create: ksRequestInfo; class function CreateRemote(const MachineName: string): ksRequestInfo; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRequestInfo // Help String : Ïàðàìåòðû çàïðîñà ê ñèñòåìå. // Default Interface: ksRequestInfo // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRequestInfoProperties= class; {$ENDIF} TRequestInfo = class(TOleServer) private FIntf: ksRequestInfo; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRequestInfoProperties; function GetServerProperties: TRequestInfoProperties; {$ENDIF} function GetDefaultInterface: ksRequestInfo; protected procedure InitServerData; override; function Get_prompt: WideString; procedure Set_prompt(const Value: WideString); function Get_title: WideString; procedure Set_title(const Value: WideString); function Get_commandsString: WideString; procedure Set_commandsString(const Value: WideString); function Get_cursor: WideString; procedure Set_cursor(const Value: WideString); function Get_dynamic: Integer; procedure Set_dynamic(Value: Integer); function Get_commInstance: Integer; procedure Set_commInstance(Value: Integer); function Get_menuId: Integer; procedure Set_menuId(Value: Integer); function Get_titleId: Integer; procedure Set_titleId(Value: Integer); function Get_promptId: Integer; procedure Set_promptId(Value: Integer); function Get_cursorId: Integer; procedure Set_cursorId(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRequestInfo); procedure Disconnect; override; function GetCallBackC: WideString; function SetCallBackC(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; function GetCallBackP: WideString; function SetCallBackP(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; function GetCallBackCm: WideString; function SetCallBackCm(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksRequestInfo read GetDefaultInterface; property prompt: WideString read Get_prompt write Set_prompt; property title: WideString read Get_title write Set_title; property commandsString: WideString read Get_commandsString write Set_commandsString; property cursor: WideString read Get_cursor write Set_cursor; property dynamic: Integer read Get_dynamic write Set_dynamic; property commInstance: Integer read Get_commInstance write Set_commInstance; property menuId: Integer read Get_menuId write Set_menuId; property titleId: Integer read Get_titleId write Set_titleId; property promptId: Integer read Get_promptId write Set_promptId; property cursorId: Integer read Get_cursorId write Set_cursorId; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRequestInfoProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRequestInfo // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRequestInfoProperties = class(TPersistent) private FServer: TRequestInfo; function GetDefaultInterface: ksRequestInfo; constructor Create(AServer: TRequestInfo); protected function Get_prompt: WideString; procedure Set_prompt(const Value: WideString); function Get_title: WideString; procedure Set_title(const Value: WideString); function Get_commandsString: WideString; procedure Set_commandsString(const Value: WideString); function Get_cursor: WideString; procedure Set_cursor(const Value: WideString); function Get_dynamic: Integer; procedure Set_dynamic(Value: Integer); function Get_commInstance: Integer; procedure Set_commInstance(Value: Integer); function Get_menuId: Integer; procedure Set_menuId(Value: Integer); function Get_titleId: Integer; procedure Set_titleId(Value: Integer); function Get_promptId: Integer; procedure Set_promptId(Value: Integer); function Get_cursorId: Integer; procedure Set_cursorId(Value: Integer); public property DefaultInterface: ksRequestInfo read GetDefaultInterface; published property prompt: WideString read Get_prompt write Set_prompt; property title: WideString read Get_title write Set_title; property commandsString: WideString read Get_commandsString write Set_commandsString; property cursor: WideString read Get_cursor write Set_cursor; property dynamic: Integer read Get_dynamic write Set_dynamic; property commInstance: Integer read Get_commInstance write Set_commInstance; property menuId: Integer read Get_menuId write Set_menuId; property titleId: Integer read Get_titleId write Set_titleId; property promptId: Integer read Get_promptId write Set_promptId; property cursorId: Integer read Get_cursorId write Set_cursorId; end; {$ENDIF} // *********************************************************************// // The Class CoViewPointerParam provides a Create and CreateRemote method to // create instances of the default interface ksViewPointerParam exposed by // the CoClass ViewPointerParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoViewPointerParam = class class function Create: ksViewPointerParam; class function CreateRemote(const MachineName: string): ksViewPointerParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TViewPointerParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ ñòðåëêè âèäà. // Default Interface: ksViewPointerParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TViewPointerParamProperties= class; {$ENDIF} TViewPointerParam = class(TOleServer) private FIntf: ksViewPointerParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TViewPointerParamProperties; function GetServerProperties: TViewPointerParamProperties; {$ENDIF} function GetDefaultInterface: ksViewPointerParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_xt: Double; procedure Set_xt(Value: Double); function Get_yt: Double; procedure Set_yt(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_str: WideString; procedure Set_str(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksViewPointerParam); procedure Disconnect; override; function GetpTextline: IDispatch; function SetpTextline(const pTextLine: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksViewPointerParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property xt: Double read Get_xt write Set_xt; property yt: Double read Get_yt write Set_yt; property type_: Smallint read Get_type_ write Set_type_; property str: WideString read Get_str write Set_str; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TViewPointerParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TViewPointerParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TViewPointerParamProperties = class(TPersistent) private FServer: TViewPointerParam; function GetDefaultInterface: ksViewPointerParam; constructor Create(AServer: TViewPointerParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_xt: Double; procedure Set_xt(Value: Double); function Get_yt: Double; procedure Set_yt(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_str: WideString; procedure Set_str(const Value: WideString); public property DefaultInterface: ksViewPointerParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property xt: Double read Get_xt write Set_xt; property yt: Double read Get_yt write Set_yt; property type_: Smallint read Get_type_ write Set_type_; property str: WideString read Get_str write Set_str; end; {$ENDIF} // *********************************************************************// // The Class CoCutLineParam provides a Create and CreateRemote method to // create instances of the default interface ksCutLineParam exposed by // the CoClass CutLineParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutLineParam = class class function Create: ksCutLineParam; class function CreateRemote(const MachineName: string): ksCutLineParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutLineParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ëèíèè ðàçðåçà/ñå÷åíèÿ. // Default Interface: ksCutLineParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutLineParamProperties= class; {$ENDIF} TCutLineParam = class(TOleServer) private FIntf: ksCutLineParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutLineParamProperties; function GetServerProperties: TCutLineParamProperties; {$ENDIF} function GetDefaultInterface: ksCutLineParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_right: Smallint; procedure Set_right(Value: Smallint); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_str: WideString; procedure Set_str(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutLineParam); procedure Disconnect; override; function GetpTextline: IDispatch; function SetpTextline(const pTextLine: IDispatch): WordBool; function GetpMathPoint: IDispatch; function SetpMathPoint(const pMathPoint: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksCutLineParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property right: Smallint read Get_right write Set_right; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property type_: Smallint read Get_type_ write Set_type_; property str: WideString read Get_str write Set_str; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutLineParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutLineParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutLineParamProperties = class(TPersistent) private FServer: TCutLineParam; function GetDefaultInterface: ksCutLineParam; constructor Create(AServer: TCutLineParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_right: Smallint; procedure Set_right(Value: Smallint); function Get_x1: Double; procedure Set_x1(Value: Double); function Get_y1: Double; procedure Set_y1(Value: Double); function Get_x2: Double; procedure Set_x2(Value: Double); function Get_y2: Double; procedure Set_y2(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_str: WideString; procedure Set_str(const Value: WideString); public property DefaultInterface: ksCutLineParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property right: Smallint read Get_right write Set_right; property x1: Double read Get_x1 write Set_x1; property y1: Double read Get_y1 write Set_y1; property x2: Double read Get_x2 write Set_x2; property y2: Double read Get_y2 write Set_y2; property type_: Smallint read Get_type_ write Set_type_; property str: WideString read Get_str write Set_str; end; {$ENDIF} // *********************************************************************// // The Class CoToleranceBranch provides a Create and CreateRemote method to // create instances of the default interface ksToleranceBranch exposed by // the CoClass ToleranceBranch. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoToleranceBranch = class class function Create: ksToleranceBranch; class function CreateRemote(const MachineName: string): ksToleranceBranch; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TToleranceBranch // Help String : Ñòðóêòóðà ïàðàìåòðîâ îïîðû äîïóñêà ôîðìû. // Default Interface: ksToleranceBranch // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TToleranceBranchProperties= class; {$ENDIF} TToleranceBranch = class(TOleServer) private FIntf: ksToleranceBranch; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TToleranceBranchProperties; function GetServerProperties: TToleranceBranchProperties; {$ENDIF} function GetDefaultInterface: ksToleranceBranch; protected procedure InitServerData; override; function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_tCorner: Smallint; procedure Set_tCorner(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksToleranceBranch); procedure Disconnect; override; function GetpMathPoint: IDispatch; function SetpMathPoint(const pMathPoint: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksToleranceBranch read GetDefaultInterface; property arrowType: Smallint read Get_arrowType write Set_arrowType; property tCorner: Smallint read Get_tCorner write Set_tCorner; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TToleranceBranchProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TToleranceBranch // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TToleranceBranchProperties = class(TPersistent) private FServer: TToleranceBranch; function GetDefaultInterface: ksToleranceBranch; constructor Create(AServer: TToleranceBranch); protected function Get_arrowType: Smallint; procedure Set_arrowType(Value: Smallint); function Get_tCorner: Smallint; procedure Set_tCorner(Value: Smallint); public property DefaultInterface: ksToleranceBranch read GetDefaultInterface; published property arrowType: Smallint read Get_arrowType write Set_arrowType; property tCorner: Smallint read Get_tCorner write Set_tCorner; end; {$ENDIF} // *********************************************************************// // The Class CoToleranceParam provides a Create and CreateRemote method to // create instances of the default interface ksToleranceParam exposed by // the CoClass ToleranceParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoToleranceParam = class class function Create: ksToleranceParam; class function CreateRemote(const MachineName: string): ksToleranceParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TToleranceParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äîïóñêà ôîðìû. // Default Interface: ksToleranceParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TToleranceParamProperties= class; {$ENDIF} TToleranceParam = class(TOleServer) private FIntf: ksToleranceParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TToleranceParamProperties; function GetServerProperties: TToleranceParamProperties; {$ENDIF} function GetDefaultInterface: ksToleranceParam; protected procedure InitServerData; override; function Get_tBase: Smallint; procedure Set_tBase(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksToleranceParam); procedure Disconnect; override; function GetBranchArr: IDispatch; function SetBranchArr(const branchArr: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksToleranceParam read GetDefaultInterface; property tBase: Smallint read Get_tBase write Set_tBase; property style: Integer read Get_style write Set_style; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property type_: Smallint read Get_type_ write Set_type_; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TToleranceParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TToleranceParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TToleranceParamProperties = class(TPersistent) private FServer: TToleranceParam; function GetDefaultInterface: ksToleranceParam; constructor Create(AServer: TToleranceParam); protected function Get_tBase: Smallint; procedure Set_tBase(Value: Smallint); function Get_style: Integer; procedure Set_style(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); public property DefaultInterface: ksToleranceParam read GetDefaultInterface; published property tBase: Smallint read Get_tBase write Set_tBase; property style: Integer read Get_style write Set_style; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property type_: Smallint read Get_type_ write Set_type_; end; {$ENDIF} // *********************************************************************// // The Class CoSpcColumnParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcColumnParam exposed by // the CoClass SpcColumnParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcColumnParam = class class function Create: ksSpcColumnParam; class function CreateRemote(const MachineName: string): ksSpcColumnParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcColumnParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ äëÿ êîëîíêè ñïåöèôèêàöèè. // Default Interface: ksSpcColumnParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcColumnParamProperties= class; {$ENDIF} TSpcColumnParam = class(TOleServer) private FIntf: ksSpcColumnParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcColumnParamProperties; function GetServerProperties: TSpcColumnParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcColumnParam; protected procedure InitServerData; override; function Get_columnType: Integer; procedure Set_columnType(Value: Integer); function Get_ispoln: Integer; procedure Set_ispoln(Value: Integer); function Get_block: Integer; procedure Set_block(Value: Integer); function Get_typeVal: Integer; procedure Set_typeVal(Value: Integer); function Get_name: WideString; procedure Set_name(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcColumnParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksSpcColumnParam read GetDefaultInterface; property columnType: Integer read Get_columnType write Set_columnType; property ispoln: Integer read Get_ispoln write Set_ispoln; property block: Integer read Get_block write Set_block; property typeVal: Integer read Get_typeVal write Set_typeVal; property name: WideString read Get_name write Set_name; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcColumnParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcColumnParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcColumnParamProperties = class(TPersistent) private FServer: TSpcColumnParam; function GetDefaultInterface: ksSpcColumnParam; constructor Create(AServer: TSpcColumnParam); protected function Get_columnType: Integer; procedure Set_columnType(Value: Integer); function Get_ispoln: Integer; procedure Set_ispoln(Value: Integer); function Get_block: Integer; procedure Set_block(Value: Integer); function Get_typeVal: Integer; procedure Set_typeVal(Value: Integer); function Get_name: WideString; procedure Set_name(const Value: WideString); public property DefaultInterface: ksSpcColumnParam read GetDefaultInterface; published property columnType: Integer read Get_columnType write Set_columnType; property ispoln: Integer read Get_ispoln write Set_ispoln; property block: Integer read Get_block write Set_block; property typeVal: Integer read Get_typeVal write Set_typeVal; property name: WideString read Get_name write Set_name; end; {$ENDIF} // *********************************************************************// // The Class CoRecordTypeAttrParam provides a Create and CreateRemote method to // create instances of the default interface ksRecordTypeAttrParam exposed by // the CoClass RecordTypeAttrParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRecordTypeAttrParam = class class function Create: ksRecordTypeAttrParam; class function CreateRemote(const MachineName: string): ksRecordTypeAttrParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRecordTypeAttrParam // Help String : çàïîëíÿåòñÿ äëÿ òèïà çíà÷åíèÿ RECORD_ATTR_TYPE. // Default Interface: ksRecordTypeAttrParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRecordTypeAttrParamProperties= class; {$ENDIF} TRecordTypeAttrParam = class(TOleServer) private FIntf: ksRecordTypeAttrParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRecordTypeAttrParamProperties; function GetServerProperties: TRecordTypeAttrParamProperties; {$ENDIF} function GetDefaultInterface: ksRecordTypeAttrParam; protected procedure InitServerData; override; function Get_attrLibName: WideString; function Get_key1: Integer; function Get_key2: Integer; function Get_key3: Integer; function Get_key4: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRecordTypeAttrParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksRecordTypeAttrParam read GetDefaultInterface; property attrLibName: WideString read Get_attrLibName; property key1: Integer read Get_key1; property key2: Integer read Get_key2; property key3: Integer read Get_key3; property key4: Integer read Get_key4; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRecordTypeAttrParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRecordTypeAttrParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRecordTypeAttrParamProperties = class(TPersistent) private FServer: TRecordTypeAttrParam; function GetDefaultInterface: ksRecordTypeAttrParam; constructor Create(AServer: TRecordTypeAttrParam); protected function Get_attrLibName: WideString; function Get_key1: Integer; function Get_key2: Integer; function Get_key3: Integer; function Get_key4: Integer; public property DefaultInterface: ksRecordTypeAttrParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNumberTypeAttrParam provides a Create and CreateRemote method to // create instances of the default interface ksNumberTypeAttrParam exposed by // the CoClass NumberTypeAttrParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNumberTypeAttrParam = class class function Create: ksNumberTypeAttrParam; class function CreateRemote(const MachineName: string): ksNumberTypeAttrParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNumberTypeAttrParam // Help String : çàïîëíÿåòñÿ äëÿ òèïà çíà÷åíèÿ DOUBLE_ATTR_TYPE è LINT_ATTR_TYPE. // Default Interface: ksNumberTypeAttrParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNumberTypeAttrParamProperties= class; {$ENDIF} TNumberTypeAttrParam = class(TOleServer) private FIntf: ksNumberTypeAttrParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNumberTypeAttrParamProperties; function GetServerProperties: TNumberTypeAttrParamProperties; {$ENDIF} function GetDefaultInterface: ksNumberTypeAttrParam; protected procedure InitServerData; override; function Get_minValue: Double; function Get_maxValue: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNumberTypeAttrParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksNumberTypeAttrParam read GetDefaultInterface; property minValue: Double read Get_minValue; property maxValue: Double read Get_maxValue; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNumberTypeAttrParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNumberTypeAttrParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNumberTypeAttrParamProperties = class(TPersistent) private FServer: TNumberTypeAttrParam; function GetDefaultInterface: ksNumberTypeAttrParam; constructor Create(AServer: TNumberTypeAttrParam); protected function Get_minValue: Double; function Get_maxValue: Double; public property DefaultInterface: ksNumberTypeAttrParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcStyleColumnParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcStyleColumnParam exposed by // the CoClass SpcStyleColumnParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcStyleColumnParam = class class function Create: ksSpcStyleColumnParam; class function CreateRemote(const MachineName: string): ksSpcStyleColumnParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcStyleColumnParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ñòèëÿ êîëîíêè òàáëèöû ñïåöèôèêàöèè. // Default Interface: ksSpcStyleColumnParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcStyleColumnParamProperties= class; {$ENDIF} TSpcStyleColumnParam = class(TOleServer) private FIntf: ksSpcStyleColumnParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcStyleColumnParamProperties; function GetServerProperties: TSpcStyleColumnParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcStyleColumnParam; protected procedure InitServerData; override; function Get_nameColumn: WideString; function Get_columnType: Integer; function Get_ispoln: Integer; function Get_edit: Smallint; function Get_createSum: Smallint; function Get_multiplyToCount: Smallint; function Get_useForSectionTitle: Smallint; function Get_textDn: Smallint; function Get_linkId: Integer; function Get_typeVal: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcStyleColumnParam); procedure Disconnect; override; function GetAdditionalParam: IDispatch; function Init: WordBool; property DefaultInterface: ksSpcStyleColumnParam read GetDefaultInterface; property nameColumn: WideString read Get_nameColumn; property columnType: Integer read Get_columnType; property ispoln: Integer read Get_ispoln; property edit: Smallint read Get_edit; property createSum: Smallint read Get_createSum; property multiplyToCount: Smallint read Get_multiplyToCount; property useForSectionTitle: Smallint read Get_useForSectionTitle; property textDn: Smallint read Get_textDn; property linkId: Integer read Get_linkId; property typeVal: Integer read Get_typeVal; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcStyleColumnParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcStyleColumnParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcStyleColumnParamProperties = class(TPersistent) private FServer: TSpcStyleColumnParam; function GetDefaultInterface: ksSpcStyleColumnParam; constructor Create(AServer: TSpcStyleColumnParam); protected function Get_nameColumn: WideString; function Get_columnType: Integer; function Get_ispoln: Integer; function Get_edit: Smallint; function Get_createSum: Smallint; function Get_multiplyToCount: Smallint; function Get_useForSectionTitle: Smallint; function Get_textDn: Smallint; function Get_linkId: Integer; function Get_typeVal: Integer; public property DefaultInterface: ksSpcStyleColumnParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcStyleSectionParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcStyleSectionParam exposed by // the CoClass SpcStyleSectionParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcStyleSectionParam = class class function Create: ksSpcStyleSectionParam; class function CreateRemote(const MachineName: string): ksSpcStyleSectionParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcStyleSectionParam // Help String : Ñòðóêòóðà ïàðàìåòðîâ ñòèëÿ ðàçäåëa ñïåöèôèêàöèè. // Default Interface: ksSpcStyleSectionParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcStyleSectionParamProperties= class; {$ENDIF} TSpcStyleSectionParam = class(TOleServer) private FIntf: ksSpcStyleSectionParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcStyleSectionParamProperties; function GetServerProperties: TSpcStyleSectionParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcStyleSectionParam; protected procedure InitServerData; override; function Get_sectionName: WideString; function Get_number: Integer; function Get_sortColumnType: Integer; function Get_sortIspoln: Integer; function Get_dataType: Smallint; function Get_sortType: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcStyleSectionParam); procedure Disconnect; override; function GetArrColumn: IDispatch; function GetArrAdditionalColumn: IDispatch; function Init: WordBool; property DefaultInterface: ksSpcStyleSectionParam read GetDefaultInterface; property sectionName: WideString read Get_sectionName; property number: Integer read Get_number; property sortColumnType: Integer read Get_sortColumnType; property sortIspoln: Integer read Get_sortIspoln; property dataType: Smallint read Get_dataType; property sortType: Integer read Get_sortType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcStyleSectionParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcStyleSectionParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcStyleSectionParamProperties = class(TPersistent) private FServer: TSpcStyleSectionParam; function GetDefaultInterface: ksSpcStyleSectionParam; constructor Create(AServer: TSpcStyleSectionParam); protected function Get_sectionName: WideString; function Get_number: Integer; function Get_sortColumnType: Integer; function Get_sortIspoln: Integer; function Get_dataType: Smallint; function Get_sortType: Integer; public property DefaultInterface: ksSpcStyleSectionParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcSubSectionParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcSubSectionParam exposed by // the CoClass SpcSubSectionParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcSubSectionParam = class class function Create: ksSpcSubSectionParam; class function CreateRemote(const MachineName: string): ksSpcSubSectionParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcSubSectionParam // Help String : Còðóêòóðà ïàðàìåòðîâ ïîäðàçäåëà ñïåöèôèêàöèè. // Default Interface: ksSpcSubSectionParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcSubSectionParamProperties= class; {$ENDIF} TSpcSubSectionParam = class(TOleServer) private FIntf: ksSpcSubSectionParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcSubSectionParamProperties; function GetServerProperties: TSpcSubSectionParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcSubSectionParam; protected procedure InitServerData; override; function Get_name: WideString; function Get_number: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcSubSectionParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksSpcSubSectionParam read GetDefaultInterface; property name: WideString read Get_name; property number: Integer read Get_number; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcSubSectionParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcSubSectionParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcSubSectionParamProperties = class(TPersistent) private FServer: TSpcSubSectionParam; function GetDefaultInterface: ksSpcSubSectionParam; constructor Create(AServer: TSpcSubSectionParam); protected function Get_name: WideString; function Get_number: Integer; public property DefaultInterface: ksSpcSubSectionParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcTuningSectionParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcTuningSectionParam exposed by // the CoClass SpcTuningSectionParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcTuningSectionParam = class class function Create: ksSpcTuningSectionParam; class function CreateRemote(const MachineName: string): ksSpcTuningSectionParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcTuningSectionParam // Help String : Còðóêòóðà ïàðàìåòðîâ íàñòðîéêè ðàçäåëà ñïåöèôèêàöèè. // Default Interface: ksSpcTuningSectionParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcTuningSectionParamProperties= class; {$ENDIF} TSpcTuningSectionParam = class(TOleServer) private FIntf: ksSpcTuningSectionParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcTuningSectionParamProperties; function GetServerProperties: TSpcTuningSectionParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcTuningSectionParam; protected procedure InitServerData; override; function Get_subsectionOn: Smallint; function Get_geometryOn: Smallint; function Get_positionOn: Smallint; function Get_sortOn: Smallint; function Get_firstOnSheet: Smallint; function Get_rezervCount: Integer; function Get_number: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcTuningSectionParam); procedure Disconnect; override; function GetArrSubSection: IDispatch; function Init: WordBool; property DefaultInterface: ksSpcTuningSectionParam read GetDefaultInterface; property subsectionOn: Smallint read Get_subsectionOn; property geometryOn: Smallint read Get_geometryOn; property positionOn: Smallint read Get_positionOn; property sortOn: Smallint read Get_sortOn; property firstOnSheet: Smallint read Get_firstOnSheet; property rezervCount: Integer read Get_rezervCount; property number: Integer read Get_number; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcTuningSectionParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcTuningSectionParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcTuningSectionParamProperties = class(TPersistent) private FServer: TSpcTuningSectionParam; function GetDefaultInterface: ksSpcTuningSectionParam; constructor Create(AServer: TSpcTuningSectionParam); protected function Get_subsectionOn: Smallint; function Get_geometryOn: Smallint; function Get_positionOn: Smallint; function Get_sortOn: Smallint; function Get_firstOnSheet: Smallint; function Get_rezervCount: Integer; function Get_number: Integer; public property DefaultInterface: ksSpcTuningSectionParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcTuningStyleParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcTuningStyleParam exposed by // the CoClass SpcTuningStyleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcTuningStyleParam = class class function Create: ksSpcTuningStyleParam; class function CreateRemote(const MachineName: string): ksSpcTuningStyleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcTuningStyleParam // Help String : Còðóêòóðà ïàðàìåòðîâ ñòèëÿ íàñòðîåê ñïåöèôèêàöèè. // Default Interface: ksSpcTuningStyleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcTuningStyleParamProperties= class; {$ENDIF} TSpcTuningStyleParam = class(TOleServer) private FIntf: ksSpcTuningStyleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcTuningStyleParamProperties; function GetServerProperties: TSpcTuningStyleParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcTuningStyleParam; protected procedure InitServerData; override; function Get_grToSP: Smallint; procedure Set_grToSP(Value: Smallint); function Get_zoneCalc: Smallint; procedure Set_zoneCalc(Value: Smallint); function Get_showSectionName: Smallint; procedure Set_showSectionName(Value: Smallint); function Get_positionCalc: Smallint; procedure Set_positionCalc(Value: Smallint); function Get_geometryDel: Smallint; procedure Set_geometryDel(Value: Smallint); function Get_positionDel: Smallint; procedure Set_positionDel(Value: Smallint); function Get_massCalc: Smallint; procedure Set_massCalc(Value: Smallint); function Get_disableEmptyStr: Smallint; procedure Set_disableEmptyStr(Value: Smallint); function Get_insertNull: Smallint; procedure Set_insertNull(Value: Smallint); function Get_insertDash: Smallint; procedure Set_insertDash(Value: Smallint); function Get_disableEmptyBlockStr: Smallint; procedure Set_disableEmptyBlockStr(Value: Smallint); function Get_showInfoByDetBlock: Smallint; procedure Set_showInfoByDetBlock(Value: Smallint); function Get_ispolnOn: Smallint; procedure Set_ispolnOn(Value: Smallint); function Get_ispolnMarkFull: Smallint; procedure Set_ispolnMarkFull(Value: Smallint); function Get_blocOnNewPage: Smallint; procedure Set_blocOnNewPage(Value: Smallint); function Get_userTextStyle: Smallint; procedure Set_userTextStyle(Value: Smallint); function Get_countIspoln: Smallint; procedure Set_countIspoln(Value: Smallint); function Get_countBlock: Smallint; procedure Set_countBlock(Value: Smallint); function Get_predefinedTextFileName: WideString; procedure Set_predefinedTextFileName(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcTuningStyleParam); procedure Disconnect; override; function GetSectionTextStyleFirst: IDispatch; function GetSectionTextStyleNext: IDispatch; function GetObjectTextStyle: IDispatch; function GetArrSection: IDispatch; function Init: WordBool; function SetSectionTextStyleFirst(const style: IDispatch): WordBool; function SetSectionTextStyleNext(const style: IDispatch): WordBool; function SetObjectTextStyle(const style: IDispatch): WordBool; function SetArrSection(const arr: IDispatch): WordBool; property DefaultInterface: ksSpcTuningStyleParam read GetDefaultInterface; property grToSP: Smallint read Get_grToSP write Set_grToSP; property zoneCalc: Smallint read Get_zoneCalc write Set_zoneCalc; property showSectionName: Smallint read Get_showSectionName write Set_showSectionName; property positionCalc: Smallint read Get_positionCalc write Set_positionCalc; property geometryDel: Smallint read Get_geometryDel write Set_geometryDel; property positionDel: Smallint read Get_positionDel write Set_positionDel; property massCalc: Smallint read Get_massCalc write Set_massCalc; property disableEmptyStr: Smallint read Get_disableEmptyStr write Set_disableEmptyStr; property insertNull: Smallint read Get_insertNull write Set_insertNull; property insertDash: Smallint read Get_insertDash write Set_insertDash; property disableEmptyBlockStr: Smallint read Get_disableEmptyBlockStr write Set_disableEmptyBlockStr; property showInfoByDetBlock: Smallint read Get_showInfoByDetBlock write Set_showInfoByDetBlock; property ispolnOn: Smallint read Get_ispolnOn write Set_ispolnOn; property ispolnMarkFull: Smallint read Get_ispolnMarkFull write Set_ispolnMarkFull; property blocOnNewPage: Smallint read Get_blocOnNewPage write Set_blocOnNewPage; property userTextStyle: Smallint read Get_userTextStyle write Set_userTextStyle; property countIspoln: Smallint read Get_countIspoln write Set_countIspoln; property countBlock: Smallint read Get_countBlock write Set_countBlock; property predefinedTextFileName: WideString read Get_predefinedTextFileName write Set_predefinedTextFileName; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcTuningStyleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcTuningStyleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcTuningStyleParamProperties = class(TPersistent) private FServer: TSpcTuningStyleParam; function GetDefaultInterface: ksSpcTuningStyleParam; constructor Create(AServer: TSpcTuningStyleParam); protected function Get_grToSP: Smallint; procedure Set_grToSP(Value: Smallint); function Get_zoneCalc: Smallint; procedure Set_zoneCalc(Value: Smallint); function Get_showSectionName: Smallint; procedure Set_showSectionName(Value: Smallint); function Get_positionCalc: Smallint; procedure Set_positionCalc(Value: Smallint); function Get_geometryDel: Smallint; procedure Set_geometryDel(Value: Smallint); function Get_positionDel: Smallint; procedure Set_positionDel(Value: Smallint); function Get_massCalc: Smallint; procedure Set_massCalc(Value: Smallint); function Get_disableEmptyStr: Smallint; procedure Set_disableEmptyStr(Value: Smallint); function Get_insertNull: Smallint; procedure Set_insertNull(Value: Smallint); function Get_insertDash: Smallint; procedure Set_insertDash(Value: Smallint); function Get_disableEmptyBlockStr: Smallint; procedure Set_disableEmptyBlockStr(Value: Smallint); function Get_showInfoByDetBlock: Smallint; procedure Set_showInfoByDetBlock(Value: Smallint); function Get_ispolnOn: Smallint; procedure Set_ispolnOn(Value: Smallint); function Get_ispolnMarkFull: Smallint; procedure Set_ispolnMarkFull(Value: Smallint); function Get_blocOnNewPage: Smallint; procedure Set_blocOnNewPage(Value: Smallint); function Get_userTextStyle: Smallint; procedure Set_userTextStyle(Value: Smallint); function Get_countIspoln: Smallint; procedure Set_countIspoln(Value: Smallint); function Get_countBlock: Smallint; procedure Set_countBlock(Value: Smallint); function Get_predefinedTextFileName: WideString; procedure Set_predefinedTextFileName(const Value: WideString); public property DefaultInterface: ksSpcTuningStyleParam read GetDefaultInterface; published property grToSP: Smallint read Get_grToSP write Set_grToSP; property zoneCalc: Smallint read Get_zoneCalc write Set_zoneCalc; property showSectionName: Smallint read Get_showSectionName write Set_showSectionName; property positionCalc: Smallint read Get_positionCalc write Set_positionCalc; property geometryDel: Smallint read Get_geometryDel write Set_geometryDel; property positionDel: Smallint read Get_positionDel write Set_positionDel; property massCalc: Smallint read Get_massCalc write Set_massCalc; property disableEmptyStr: Smallint read Get_disableEmptyStr write Set_disableEmptyStr; property insertNull: Smallint read Get_insertNull write Set_insertNull; property insertDash: Smallint read Get_insertDash write Set_insertDash; property disableEmptyBlockStr: Smallint read Get_disableEmptyBlockStr write Set_disableEmptyBlockStr; property showInfoByDetBlock: Smallint read Get_showInfoByDetBlock write Set_showInfoByDetBlock; property ispolnOn: Smallint read Get_ispolnOn write Set_ispolnOn; property ispolnMarkFull: Smallint read Get_ispolnMarkFull write Set_ispolnMarkFull; property blocOnNewPage: Smallint read Get_blocOnNewPage write Set_blocOnNewPage; property userTextStyle: Smallint read Get_userTextStyle write Set_userTextStyle; property countIspoln: Smallint read Get_countIspoln write Set_countIspoln; property countBlock: Smallint read Get_countBlock write Set_countBlock; property predefinedTextFileName: WideString read Get_predefinedTextFileName write Set_predefinedTextFileName; end; {$ENDIF} // *********************************************************************// // The Class CoSpcStyleParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcStyleParam exposed by // the CoClass SpcStyleParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcStyleParam = class class function Create: ksSpcStyleParam; class function CreateRemote(const MachineName: string): ksSpcStyleParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcStyleParam // Help String : Còðóêòóðà ïàðàìåòðîâ ñòèëÿ ñïåöèôèêàöèè. // Default Interface: ksSpcStyleParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcStyleParamProperties= class; {$ENDIF} TSpcStyleParam = class(TOleServer) private FIntf: ksSpcStyleParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcStyleParamProperties; function GetServerProperties: TSpcStyleParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcStyleParam; protected procedure InitServerData; override; function Get_layoutName1: WideString; function Get_layoutName2: WideString; function Get_shtType1: Integer; function Get_shtType2: Integer; function Get_variant: Smallint; function Get_sectionOn: Smallint; function Get_type_: Smallint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcStyleParam); procedure Disconnect; override; function GetTuning: IDispatch; function GetArrColumn: IDispatch; function GetArrAdditionalColumn: IDispatch; function GetArrSection: IDispatch; function GetSheetParam: IDispatch; function Init: WordBool; property DefaultInterface: ksSpcStyleParam read GetDefaultInterface; property layoutName1: WideString read Get_layoutName1; property layoutName2: WideString read Get_layoutName2; property shtType1: Integer read Get_shtType1; property shtType2: Integer read Get_shtType2; property variant: Smallint read Get_variant; property sectionOn: Smallint read Get_sectionOn; property type_: Smallint read Get_type_; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcStyleParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcStyleParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcStyleParamProperties = class(TPersistent) private FServer: TSpcStyleParam; function GetDefaultInterface: ksSpcStyleParam; constructor Create(AServer: TSpcStyleParam); protected function Get_layoutName1: WideString; function Get_layoutName2: WideString; function Get_shtType1: Integer; function Get_shtType2: Integer; function Get_variant: Smallint; function Get_sectionOn: Smallint; function Get_type_: Smallint; public property DefaultInterface: ksSpcStyleParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcDescrParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcDescrParam exposed by // the CoClass SpcDescrParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcDescrParam = class class function Create: ksSpcDescrParam; class function CreateRemote(const MachineName: string): ksSpcDescrParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcDescrParam // Help String : Còðóêòóðà ïàðàìåòðîâ îïèñàíèÿ ñïåöèôèêàöèè. // Default Interface: ksSpcDescrParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcDescrParamProperties= class; {$ENDIF} TSpcDescrParam = class(TOleServer) private FIntf: ksSpcDescrParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcDescrParamProperties; function GetServerProperties: TSpcDescrParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcDescrParam; protected procedure InitServerData; override; function Get_layoutName: WideString; procedure Set_layoutName(const Value: WideString); function Get_styleId: Integer; procedure Set_styleId(Value: Integer); function Get_spcName: WideString; procedure Set_spcName(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcDescrParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksSpcDescrParam read GetDefaultInterface; property layoutName: WideString read Get_layoutName write Set_layoutName; property styleId: Integer read Get_styleId write Set_styleId; property spcName: WideString read Get_spcName write Set_spcName; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcDescrParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcDescrParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcDescrParamProperties = class(TPersistent) private FServer: TSpcDescrParam; function GetDefaultInterface: ksSpcDescrParam; constructor Create(AServer: TSpcDescrParam); protected function Get_layoutName: WideString; procedure Set_layoutName(const Value: WideString); function Get_styleId: Integer; procedure Set_styleId(Value: Integer); function Get_spcName: WideString; procedure Set_spcName(const Value: WideString); public property DefaultInterface: ksSpcDescrParam read GetDefaultInterface; published property layoutName: WideString read Get_layoutName write Set_layoutName; property styleId: Integer read Get_styleId write Set_styleId; property spcName: WideString read Get_spcName write Set_spcName; end; {$ENDIF} // *********************************************************************// // The Class CoDocAttachedSpcParam provides a Create and CreateRemote method to // create instances of the default interface ksDocAttachedSpcParam exposed by // the CoClass DocAttachedSpcParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocAttachedSpcParam = class class function Create: ksDocAttachedSpcParam; class function CreateRemote(const MachineName: string): ksDocAttachedSpcParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDocAttachedSpcParam // Help String : Ïàðàìåòðû ïðèñîåäèíåíîãî äîêóìåíòà ê îáúåêòó ñïåöèôèêàöèè. // Default Interface: ksDocAttachedSpcParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDocAttachedSpcParamProperties= class; {$ENDIF} TDocAttachedSpcParam = class(TOleServer) private FIntf: ksDocAttachedSpcParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDocAttachedSpcParamProperties; function GetServerProperties: TDocAttachedSpcParamProperties; {$ENDIF} function GetDefaultInterface: ksDocAttachedSpcParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_transmit: Smallint; procedure Set_transmit(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDocAttachedSpcParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksDocAttachedSpcParam read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property transmit: Smallint read Get_transmit write Set_transmit; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDocAttachedSpcParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDocAttachedSpcParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDocAttachedSpcParamProperties = class(TPersistent) private FServer: TDocAttachedSpcParam; function GetDefaultInterface: ksDocAttachedSpcParam; constructor Create(AServer: TDocAttachedSpcParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_transmit: Smallint; procedure Set_transmit(Value: Smallint); public property DefaultInterface: ksDocAttachedSpcParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property transmit: Smallint read Get_transmit write Set_transmit; end; {$ENDIF} // *********************************************************************// // The Class CoSpcObjParam provides a Create and CreateRemote method to // create instances of the default interface ksSpcObjParam exposed by // the CoClass SpcObjParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcObjParam = class class function Create: ksSpcObjParam; class function CreateRemote(const MachineName: string): ksSpcObjParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcObjParam // Help String : Còðóêòóðà ïàðàìåòðîâ îáúåêòà ñïåöèôèêàöèè. // Default Interface: ksSpcObjParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcObjParamProperties= class; {$ENDIF} TSpcObjParam = class(TOleServer) private FIntf: ksSpcObjParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcObjParamProperties; function GetServerProperties: TSpcObjParamProperties; {$ENDIF} function GetDefaultInterface: ksSpcObjParam; protected procedure InitServerData; override; function Get_blockNumber: Integer; procedure Set_blockNumber(Value: Integer); function Get_numbSubSection: Integer; procedure Set_numbSubSection(Value: Integer); function Get_firstOnSheet: Smallint; procedure Set_firstOnSheet(Value: Smallint); function Get_posInc: Smallint; procedure Set_posInc(Value: Smallint); function Get_draw: Smallint; procedure Set_draw(Value: Smallint); function Get_posNotDraw: Smallint; procedure Set_posNotDraw(Value: Smallint); function Get_ispoln: Smallint; procedure Set_ispoln(Value: Smallint); function Get_typeObj: Integer; function Get_numbSection: Integer; function Get_subSectionName: WideString; function Get_insFrgType: Smallint; function Get_First: Smallint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcObjParam); procedure Disconnect; override; function GetDocArr: IDispatch; function SetDocArr(const docArr: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksSpcObjParam read GetDefaultInterface; property typeObj: Integer read Get_typeObj; property numbSection: Integer read Get_numbSection; property subSectionName: WideString read Get_subSectionName; property insFrgType: Smallint read Get_insFrgType; property First: Smallint read Get_First; property blockNumber: Integer read Get_blockNumber write Set_blockNumber; property numbSubSection: Integer read Get_numbSubSection write Set_numbSubSection; property firstOnSheet: Smallint read Get_firstOnSheet write Set_firstOnSheet; property posInc: Smallint read Get_posInc write Set_posInc; property draw: Smallint read Get_draw write Set_draw; property posNotDraw: Smallint read Get_posNotDraw write Set_posNotDraw; property ispoln: Smallint read Get_ispoln write Set_ispoln; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcObjParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcObjParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcObjParamProperties = class(TPersistent) private FServer: TSpcObjParam; function GetDefaultInterface: ksSpcObjParam; constructor Create(AServer: TSpcObjParam); protected function Get_blockNumber: Integer; procedure Set_blockNumber(Value: Integer); function Get_numbSubSection: Integer; procedure Set_numbSubSection(Value: Integer); function Get_firstOnSheet: Smallint; procedure Set_firstOnSheet(Value: Smallint); function Get_posInc: Smallint; procedure Set_posInc(Value: Smallint); function Get_draw: Smallint; procedure Set_draw(Value: Smallint); function Get_posNotDraw: Smallint; procedure Set_posNotDraw(Value: Smallint); function Get_ispoln: Smallint; procedure Set_ispoln(Value: Smallint); function Get_typeObj: Integer; function Get_numbSection: Integer; function Get_subSectionName: WideString; function Get_insFrgType: Smallint; function Get_First: Smallint; public property DefaultInterface: ksSpcObjParam read GetDefaultInterface; published property blockNumber: Integer read Get_blockNumber write Set_blockNumber; property numbSubSection: Integer read Get_numbSubSection write Set_numbSubSection; property firstOnSheet: Smallint read Get_firstOnSheet write Set_firstOnSheet; property posInc: Smallint read Get_posInc write Set_posInc; property draw: Smallint read Get_draw write Set_draw; property posNotDraw: Smallint read Get_posNotDraw write Set_posNotDraw; property ispoln: Smallint read Get_ispoln write Set_ispoln; end; {$ENDIF} // *********************************************************************// // The Class CoLibStyle provides a Create and CreateRemote method to // create instances of the default interface ksLibStyle exposed by // the CoClass LibStyle. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLibStyle = class class function Create: ksLibStyle; class function CreateRemote(const MachineName: string): ksLibStyle; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLibStyle // Help String : Còðóêòóðà ïàðàìåòðîâ äëÿ ïîäêëþ÷åíèÿ ñòèëÿ èç áèáëèîòåêè. // Default Interface: ksLibStyle // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLibStyleProperties= class; {$ENDIF} TLibStyle = class(TOleServer) private FIntf: ksLibStyle; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLibStyleProperties; function GetServerProperties: TLibStyleProperties; {$ENDIF} function GetDefaultInterface: ksLibStyle; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_styleNumber: Integer; procedure Set_styleNumber(Value: Integer); function Get_typeAllocation: Smallint; procedure Set_typeAllocation(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLibStyle); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLibStyle read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property styleNumber: Integer read Get_styleNumber write Set_styleNumber; property typeAllocation: Smallint read Get_typeAllocation write Set_typeAllocation; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLibStyleProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLibStyle // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLibStyleProperties = class(TPersistent) private FServer: TLibStyle; function GetDefaultInterface: ksLibStyle; constructor Create(AServer: TLibStyle); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_styleNumber: Integer; procedure Set_styleNumber(Value: Integer); function Get_typeAllocation: Smallint; procedure Set_typeAllocation(Value: Smallint); public property DefaultInterface: ksLibStyle read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property styleNumber: Integer read Get_styleNumber write Set_styleNumber; property typeAllocation: Smallint read Get_typeAllocation write Set_typeAllocation; end; {$ENDIF} // *********************************************************************// // The Class CoDataBaseObject provides a Create and CreateRemote method to // create instances of the default interface ksDataBaseObject exposed by // the CoClass DataBaseObject. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDataBaseObject = class class function Create: ksDataBaseObject; class function CreateRemote(const MachineName: string): ksDataBaseObject; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDataBaseObject // Help String : Îïåðàöèè ñ ÁÄ. // Default Interface: ksDataBaseObject // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDataBaseObjectProperties= class; {$ENDIF} TDataBaseObject = class(TOleServer) private FIntf: ksDataBaseObject; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDataBaseObjectProperties; function GetServerProperties: TDataBaseObjectProperties; {$ENDIF} function GetDefaultInterface: ksDataBaseObject; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDataBaseObject); procedure Disconnect; override; function ksRelation(db: Integer): Integer; function ksEndRelation: WordBool; function ksCreateDB(const typeBD: WideString): Integer; function ksDeleteDB(db: Integer): Integer; function ksConnectDB(db: Integer; const DBName: WideString): Integer; function ksDisconnectDB(db: Integer): Integer; function ksFreeStatement(db: Integer; r: Integer; fOption: Integer): Integer; function ksDoStatement(db: Integer; r: Integer; const stSQL: WideString): Integer; function ksReadRecord(db: Integer; r: Integer; const userPars: IDispatch): Integer; function ksCondition(db: Integer; r: Integer; const stSQL: WideString): Integer; function ksRDouble(const name: WideString): Integer; function ksRFloat(const name: WideString): Integer; function ksRInt(const name: WideString): Integer; function ksRLong(const name: WideString): Integer; function ksRChar(const name: WideString; size: Integer; type_: Integer): Integer; function ksOpenTextFile(const fileName: WideString): Integer; function ksCloseTextFile(F: Integer): WordBool; function ksReadStrFrFile(F: Integer; var res: Integer; numb: Integer): WideString; function ksGetTableName(db: Integer; var res: Integer; const firstOrNext: WideString): WideString; function ksGetColumnName(db: Integer; const tableName: WideString; var res: Integer; const firstOrNext: WideString): WideString; function ksIsODBCOkey: Integer; property DefaultInterface: ksDataBaseObject read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDataBaseObjectProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDataBaseObject // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDataBaseObjectProperties = class(TPersistent) private FServer: TDataBaseObject; function GetDefaultInterface: ksDataBaseObject; constructor Create(AServer: TDataBaseObject); protected public property DefaultInterface: ksDataBaseObject read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcDocumentNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass SpcDocumentNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcDocumentNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TSpcDocumentNotifyDocumentAdd = procedure(Sender: TObject; var docName: OleVariant) of object; TSpcDocumentNotifyDocumentBeginRemove = procedure(Sender: TObject; var docName: OleVariant) of object; TSpcDocumentNotifyDocumentRemove = procedure(Sender: TObject; var docName: OleVariant) of object; TSpcDocumentNotifySpcStyleBeginChange = procedure(Sender: TObject; var libName: OleVariant; numb: Integer) of object; TSpcDocumentNotifySpcStyleChange = procedure(Sender: TObject; var libName: OleVariant; numb: Integer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcDocumentNotify // Help String : Ñîáûòèÿ äëÿ äîêóìåíòà ñïåöèôèêàöèè. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksSpcDocumentNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcDocumentNotifyProperties= class; {$ENDIF} TSpcDocumentNotify = class(TOleServer) private FOnDocumentBeginAdd: TNotifyEvent; FOnDocumentAdd: TSpcDocumentNotifyDocumentAdd; FOnDocumentBeginRemove: TSpcDocumentNotifyDocumentBeginRemove; FOnDocumentRemove: TSpcDocumentNotifyDocumentRemove; FOnSpcStyleBeginChange: TSpcDocumentNotifySpcStyleBeginChange; FOnSpcStyleChange: TSpcDocumentNotifySpcStyleChange; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcDocumentNotifyProperties; function GetServerProperties: TSpcDocumentNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcDocumentNotifyProperties read GetServerProperties; {$ENDIF} property OnDocumentBeginAdd: TNotifyEvent read FOnDocumentBeginAdd write FOnDocumentBeginAdd; property OnDocumentAdd: TSpcDocumentNotifyDocumentAdd read FOnDocumentAdd write FOnDocumentAdd; property OnDocumentBeginRemove: TSpcDocumentNotifyDocumentBeginRemove read FOnDocumentBeginRemove write FOnDocumentBeginRemove; property OnDocumentRemove: TSpcDocumentNotifyDocumentRemove read FOnDocumentRemove write FOnDocumentRemove; property OnSpcStyleBeginChange: TSpcDocumentNotifySpcStyleBeginChange read FOnSpcStyleBeginChange write FOnSpcStyleBeginChange; property OnSpcStyleChange: TSpcDocumentNotifySpcStyleChange read FOnSpcStyleChange write FOnSpcStyleChange; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcDocumentNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcDocumentNotifyProperties = class(TPersistent) private FServer: TSpcDocumentNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TSpcDocumentNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpcDocument provides a Create and CreateRemote method to // create instances of the default interface ksSpcDocument exposed by // the CoClass SpcDocument. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcDocument = class class function Create: ksSpcDocument; class function CreateRemote(const MachineName: string): ksSpcDocument; end; TSpcDocumentBeginSaveDocument = procedure(Sender: TObject; var fileName: OleVariant) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcDocument // Help String : Äîêóìåíò ñïåöèôèêàöèè. // Default Interface: ksSpcDocument // Def. Intf. DISP? : Yes // Event Interface: ksDocumentFileNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcDocumentProperties= class; {$ENDIF} TSpcDocument = class(TOleServer) private FOnBeginCloseDocument: TNotifyEvent; FOnCloseDocument: TNotifyEvent; FOnBeginSaveDocument: TSpcDocumentBeginSaveDocument; FOnSaveDocument: TNotifyEvent; FOnActivate: TNotifyEvent; FOnDeactivate: TNotifyEvent; FOnBeginSaveAsDocument: TNotifyEvent; FIntf: ksSpcDocument; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcDocumentProperties; function GetServerProperties: TSpcDocumentProperties; {$ENDIF} function GetDefaultInterface: ksSpcDocument; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_reference: Integer; procedure Set_reference(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpcDocument); procedure Disconnect; override; function GetStamp: IDispatch; function GetSpecification: IDispatch; function ksCloseDocument: WordBool; function ksGetSpcSheetSB: IDispatch; function ksGetSpcDocumentPagesCount: Integer; function ksSaveDocument(const fileName: WideString): WordBool; function ksCreateDocument(const par: IDispatch): WordBool; function ksDeleteObj(ref: Integer): Integer; function ksSetSpcSheetSB(const arr: IDispatch): Integer; function ksExistObj(ref: Integer): Integer; function ksOpenDocument(const nameDoc: WideString; regim: Smallint): WordBool; function ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; function ksSetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; function SaveAsToRasterFormat(const fileName: WideString; const par: IDispatch): WordBool; function RasterFormatParam: IDispatch; function SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; function GetSpcDocumentNotify: SpcDocumentNotify; property DefaultInterface: ksSpcDocument read GetDefaultInterface; property reference: Integer read Get_reference write Set_reference; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcDocumentProperties read GetServerProperties; {$ENDIF} property OnBeginCloseDocument: TNotifyEvent read FOnBeginCloseDocument write FOnBeginCloseDocument; property OnCloseDocument: TNotifyEvent read FOnCloseDocument write FOnCloseDocument; property OnBeginSaveDocument: TSpcDocumentBeginSaveDocument read FOnBeginSaveDocument write FOnBeginSaveDocument; property OnSaveDocument: TNotifyEvent read FOnSaveDocument write FOnSaveDocument; property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate; property OnBeginSaveAsDocument: TNotifyEvent read FOnBeginSaveAsDocument write FOnBeginSaveAsDocument; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcDocument // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcDocumentProperties = class(TPersistent) private FServer: TSpcDocument; function GetDefaultInterface: ksSpcDocument; constructor Create(AServer: TSpcDocument); protected function Get_reference: Integer; procedure Set_reference(Value: Integer); public property DefaultInterface: ksSpcDocument read GetDefaultInterface; published property reference: Integer read Get_reference write Set_reference; end; {$ENDIF} // *********************************************************************// // The Class CoSpcObjectNotify provides a Create and CreateRemote method to // create instances of the default interface IUnknown exposed by // the CoClass SpcObjectNotify. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpcObjectNotify = class class function Create: IUnknown; class function CreateRemote(const MachineName: string): IUnknown; end; TSpcObjectNotifyBeginDelete = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyDelete = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyCellDblClick = procedure(Sender: TObject; objRef: Integer; number: Integer) of object; TSpcObjectNotifyCellBeginEdit = procedure(Sender: TObject; objRef: Integer; number: Integer) of object; TSpcObjectNotifyChangeCurrent = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyDocumentBeginAdd = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyDocumentAdd = procedure(Sender: TObject; objRef: Integer; var docName: OleVariant) of object; TSpcObjectNotifyDocumentRemove = procedure(Sender: TObject; objRef: Integer; var docName: OleVariant) of object; TSpcObjectNotifyBeginGeomChange = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyGeomChange = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyBeginProcess = procedure(Sender: TObject; pType: Integer; objRef: Integer) of object; TSpcObjectNotifyEndProcess = procedure(Sender: TObject; pType: Integer) of object; TSpcObjectNotifyCreateObject = procedure(Sender: TObject; objRef: Integer) of object; TSpcObjectNotifyUpdateObject = procedure(Sender: TObject; objRef: Integer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpcObjectNotify // Help String : Ñîáûòèÿ äëÿ îáúåêòà ñïåöèôèêàöèè. // Default Interface: IUnknown // Def. Intf. DISP? : No // Event Interface: ksSpcObjectNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpcObjectNotifyProperties= class; {$ENDIF} TSpcObjectNotify = class(TOleServer) private FOnBeginDelete: TSpcObjectNotifyBeginDelete; FOnDelete: TSpcObjectNotifyDelete; FOnCellDblClick: TSpcObjectNotifyCellDblClick; FOnCellBeginEdit: TSpcObjectNotifyCellBeginEdit; FOnChangeCurrent: TSpcObjectNotifyChangeCurrent; FOnDocumentBeginAdd: TSpcObjectNotifyDocumentBeginAdd; FOnDocumentAdd: TSpcObjectNotifyDocumentAdd; FOnDocumentRemove: TSpcObjectNotifyDocumentRemove; FOnBeginGeomChange: TSpcObjectNotifyBeginGeomChange; FOnGeomChange: TSpcObjectNotifyGeomChange; FOnBeginProcess: TSpcObjectNotifyBeginProcess; FOnEndProcess: TSpcObjectNotifyEndProcess; FOnCreateObject: TSpcObjectNotifyCreateObject; FOnUpdateObject: TSpcObjectNotifyUpdateObject; FIntf: IUnknown; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpcObjectNotifyProperties; function GetServerProperties: TSpcObjectNotifyProperties; {$ENDIF} function GetDefaultInterface: IUnknown; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUnknown); procedure Disconnect; override; property DefaultInterface: IUnknown read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpcObjectNotifyProperties read GetServerProperties; {$ENDIF} property OnBeginDelete: TSpcObjectNotifyBeginDelete read FOnBeginDelete write FOnBeginDelete; property OnDelete: TSpcObjectNotifyDelete read FOnDelete write FOnDelete; property OnCellDblClick: TSpcObjectNotifyCellDblClick read FOnCellDblClick write FOnCellDblClick; property OnCellBeginEdit: TSpcObjectNotifyCellBeginEdit read FOnCellBeginEdit write FOnCellBeginEdit; property OnChangeCurrent: TSpcObjectNotifyChangeCurrent read FOnChangeCurrent write FOnChangeCurrent; property OnDocumentBeginAdd: TSpcObjectNotifyDocumentBeginAdd read FOnDocumentBeginAdd write FOnDocumentBeginAdd; property OnDocumentAdd: TSpcObjectNotifyDocumentAdd read FOnDocumentAdd write FOnDocumentAdd; property OnDocumentRemove: TSpcObjectNotifyDocumentRemove read FOnDocumentRemove write FOnDocumentRemove; property OnBeginGeomChange: TSpcObjectNotifyBeginGeomChange read FOnBeginGeomChange write FOnBeginGeomChange; property OnGeomChange: TSpcObjectNotifyGeomChange read FOnGeomChange write FOnGeomChange; property OnBeginProcess: TSpcObjectNotifyBeginProcess read FOnBeginProcess write FOnBeginProcess; property OnEndProcess: TSpcObjectNotifyEndProcess read FOnEndProcess write FOnEndProcess; property OnCreateObject: TSpcObjectNotifyCreateObject read FOnCreateObject write FOnCreateObject; property OnUpdateObject: TSpcObjectNotifyUpdateObject read FOnUpdateObject write FOnUpdateObject; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpcObjectNotify // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpcObjectNotifyProperties = class(TPersistent) private FServer: TSpcObjectNotify; function GetDefaultInterface: IUnknown; constructor Create(AServer: TSpcObjectNotify); protected public property DefaultInterface: IUnknown read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSpecification provides a Create and CreateRemote method to // create instances of the default interface ksSpecification exposed by // the CoClass Specification. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSpecification = class class function Create: ksSpecification; class function CreateRemote(const MachineName: string): ksSpecification; end; TSpecificationTuningSpcStyleBeginChange = procedure(Sender: TObject; var libName: OleVariant; numb: Integer) of object; TSpecificationTuningSpcStyleChange = procedure(Sender: TObject; var libName: OleVariant; numb: Integer; isOk: WordBool) of object; TSpecificationChangeCurrentSpcDescription = procedure(Sender: TObject; var libName: OleVariant; numb: Integer) of object; TSpecificationSpcDescriptionAdd = procedure(Sender: TObject; var libName: OleVariant;numb: Integer) of object; TSpecificationSpcDescriptionRemove = procedure(Sender: TObject; var libName: OleVariant; numb: Integer) of object; TSpecificationSpcDescriptionBeginEdit = procedure(Sender: TObject; var libName: OleVariant; numb: Integer) of object; TSpecificationSpcDescriptionEdit = procedure(Sender: TObject; var libName: OleVariant; numb: Integer; isOk: WordBool) of object; TSpecificationBeginCreateObject = procedure(Sender: TObject; typeObj: Integer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSpecification // Help String : Èíòåðôåéñ ðàáîòû ñ îáúåêòàìè ñïåöèôèêàöèè. // Default Interface: ksSpecification // Def. Intf. DISP? : Yes // Event Interface: ksSpecificationNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSpecificationProperties= class; {$ENDIF} TSpecification = class(TOleServer) private FOnTuningSpcStyleBeginChange: TSpecificationTuningSpcStyleBeginChange; FOnTuningSpcStyleChange: TSpecificationTuningSpcStyleChange; FOnChangeCurrentSpcDescription: TSpecificationChangeCurrentSpcDescription; FOnSpcDescriptionAdd: TSpecificationSpcDescriptionAdd; FOnSpcDescriptionRemove: TSpecificationSpcDescriptionRemove; FOnSpcDescriptionBeginEdit: TSpecificationSpcDescriptionBeginEdit; FOnSpcDescriptionEdit: TSpecificationSpcDescriptionEdit; FOnSynchronizationBegin: TNotifyEvent; FOnSynchronization: TNotifyEvent; FOnBeginCalcPositions: TNotifyEvent; FOnCalcPositions: TNotifyEvent; FOnBeginCreateObject: TSpecificationBeginCreateObject; FIntf: ksSpecification; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSpecificationProperties; function GetServerProperties: TSpecificationProperties; {$ENDIF} function GetDefaultInterface: ksSpecification; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSpecification); procedure Disconnect; override; function ksSpcObjectEnd: Integer; function ksSpcObjectEdit(spcObj: Integer): Integer; function ksSpcObjectCreate(const nameLib: WideString; styleNumb: Integer; secNumb: Integer; subSecNumb: Integer; numb: Double; typeObj: Smallint): Integer; function ksSpcChangeValue(colNumb: Integer; itemNumb: Integer; const userPars: IDispatch; typeVal: Smallint): Integer; function ksSpcVisible(colNumb: Integer; itemNumb: Integer; flagOn: Smallint): Integer; function ksSpcMassa(const sMassa: WideString): Integer; function ksSpcCount(ispoln: Smallint; const sCount: WideString): Integer; function ksSpcPosition(pos: Integer): Integer; function ksSpcIncludeReference(obj: Integer; Clear: Smallint): Integer; function ksGetSpcObjForGeom(const nameLib: WideString; numb: Integer; obj: Integer; equal: Smallint; First: Smallint): Integer; function ksGetSpcObjForGeomWithLimit(const nameLib: WideString; numb: Integer; obj: Integer; equal: Smallint; First: Smallint; section: Integer; attrTypeNumb: Double): Integer; function ksGetSpcSectionName(spcObj: Integer): WideString; function ksEditWindowSpcObject(obj: Integer): Integer; function ksGetSpcObjectNumber(spcObj: Integer): Double; function ksGetSpcObject(objNumb: Double): Integer; function ksGetSpcObjectColumnText(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): WideString; function ksSetSpcObjectColumnText(columnType: Integer; ispoln: Integer; block: Integer; const str: WideString): Integer; function ksGetSpcTableColumn(const nameLib: WideString; numb: Integer; additioanalCol: Smallint): Integer; function ksGetSpcColumnType(spcObj: Integer; colNumb: Integer; const par: IDispatch): Integer; function ksGetSpcColumnNumb(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): Integer; function ksGetSpcStyleParam(const nameLib: WideString; numb: Integer; const par: IDispatch; tPar: Integer): Integer; function ksGetSpcDescription(index: Integer; const param: IDispatch; var state: WordBool): Integer; function ksSetSpcDescription(index: Integer; const param: IDispatch; state: Smallint): Integer; function ksAddSpcDescription(const param: IDispatch): Integer; function ksDeleteSpcDescription(index: Integer): Integer; function D3SpcIncludePart(const part: IDispatch; fillTexts: WordBool): WordBool; function D3GetSpcObjForGeomWithLimit(const nameLib: WideString; numb: Integer; const part: IDispatch; First: Smallint; section: Smallint; attrTypeNumb: Double): Integer; function ksGetWidthColumnSpc(numColumn: Integer; cellOrText: WordBool): Double; function ksGetCurrentSpcObject: Integer; function ksSetCurrentSpcObject(spcObj: Integer; index: Integer): Integer; function ksSetTuningSpcStyleParam(index: Integer; const par: IDispatch): Integer; function ksGetTuningSpcStyleParam(index: Integer; const par: IDispatch): Integer; function ksGetSpcObjGeometry(spcObj: Integer): Integer; function D3GetSpcObjGeometry(spcObj: Integer): IDispatch; function ksGetSpcObjectColumnTextEx(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): IDispatch; function ksSetSpcObjectColumnTextEx(columnType: Integer; ispoln: Integer; block: Integer; const arr: IDispatch): Integer; function GetSpcObjectNotify(objType: Integer): SpcObjectNotify; property DefaultInterface: ksSpecification read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSpecificationProperties read GetServerProperties; {$ENDIF} property OnTuningSpcStyleBeginChange: TSpecificationTuningSpcStyleBeginChange read FOnTuningSpcStyleBeginChange write FOnTuningSpcStyleBeginChange; property OnTuningSpcStyleChange: TSpecificationTuningSpcStyleChange read FOnTuningSpcStyleChange write FOnTuningSpcStyleChange; property OnChangeCurrentSpcDescription: TSpecificationChangeCurrentSpcDescription read FOnChangeCurrentSpcDescription write FOnChangeCurrentSpcDescription; property OnSpcDescriptionAdd: TSpecificationSpcDescriptionAdd read FOnSpcDescriptionAdd write FOnSpcDescriptionAdd; property OnSpcDescriptionRemove: TSpecificationSpcDescriptionRemove read FOnSpcDescriptionRemove write FOnSpcDescriptionRemove; property OnSpcDescriptionBeginEdit: TSpecificationSpcDescriptionBeginEdit read FOnSpcDescriptionBeginEdit write FOnSpcDescriptionBeginEdit; property OnSpcDescriptionEdit: TSpecificationSpcDescriptionEdit read FOnSpcDescriptionEdit write FOnSpcDescriptionEdit; property OnSynchronizationBegin: TNotifyEvent read FOnSynchronizationBegin write FOnSynchronizationBegin; property OnSynchronization: TNotifyEvent read FOnSynchronization write FOnSynchronization; property OnBeginCalcPositions: TNotifyEvent read FOnBeginCalcPositions write FOnBeginCalcPositions; property OnCalcPositions: TNotifyEvent read FOnCalcPositions write FOnCalcPositions; property OnBeginCreateObject: TSpecificationBeginCreateObject read FOnBeginCreateObject write FOnBeginCreateObject; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSpecification // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSpecificationProperties = class(TPersistent) private FServer: TSpecification; function GetDefaultInterface: ksSpecification; constructor Create(AServer: TSpecification); protected public property DefaultInterface: ksSpecification read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoDocumentTxt provides a Create and CreateRemote method to // create instances of the default interface ksDocumentTxt exposed by // the CoClass DocumentTxt. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocumentTxt = class class function Create: ksDocumentTxt; class function CreateRemote(const MachineName: string): ksDocumentTxt; end; TDocumentTxtBeginSaveDocument = procedure(Sender: TObject; var fileName: OleVariant) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDocumentTxt // Help String : Òåêñòîâûé äîêóìåíò. // Default Interface: ksDocumentTxt // Def. Intf. DISP? : Yes // Event Interface: ksDocumentFileNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDocumentTxtProperties= class; {$ENDIF} TDocumentTxt = class(TOleServer) private FOnBeginCloseDocument: TNotifyEvent; FOnCloseDocument: TNotifyEvent; FOnBeginSaveDocument: TDocumentTxtBeginSaveDocument; FOnSaveDocument: TNotifyEvent; FOnActivate: TNotifyEvent; FOnDeactivate: TNotifyEvent; FOnBeginSaveAsDocument: TNotifyEvent; FIntf: ksDocumentTxt; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDocumentTxtProperties; function GetServerProperties: TDocumentTxtProperties; {$ENDIF} function GetDefaultInterface: ksDocumentTxt; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_reference: Integer; procedure Set_reference(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDocumentTxt); procedure Disconnect; override; function GetStamp: IDispatch; function ksCloseDocument: WordBool; function ksGetTxtDocumentPagesCount: Integer; function ksSaveDocument(const fileName: WideString): WordBool; function ksCreateDocument(const par: IDispatch): WordBool; function ksOpenDocument(const nameDoc: WideString; regim: Smallint): WordBool; function SaveAsToRasterFormat(const fileName: WideString; const par: IDispatch): WordBool; function RasterFormatParam: IDispatch; function SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; function ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; function ksSetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; property DefaultInterface: ksDocumentTxt read GetDefaultInterface; property reference: Integer read Get_reference write Set_reference; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDocumentTxtProperties read GetServerProperties; {$ENDIF} property OnBeginCloseDocument: TNotifyEvent read FOnBeginCloseDocument write FOnBeginCloseDocument; property OnCloseDocument: TNotifyEvent read FOnCloseDocument write FOnCloseDocument; property OnBeginSaveDocument: TDocumentTxtBeginSaveDocument read FOnBeginSaveDocument write FOnBeginSaveDocument; property OnSaveDocument: TNotifyEvent read FOnSaveDocument write FOnSaveDocument; property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate; property OnBeginSaveAsDocument: TNotifyEvent read FOnBeginSaveAsDocument write FOnBeginSaveAsDocument; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDocumentTxt // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDocumentTxtProperties = class(TPersistent) private FServer: TDocumentTxt; function GetDefaultInterface: ksDocumentTxt; constructor Create(AServer: TDocumentTxt); protected function Get_reference: Integer; procedure Set_reference(Value: Integer); public property DefaultInterface: ksDocumentTxt read GetDefaultInterface; published property reference: Integer read Get_reference write Set_reference; end; {$ENDIF} // *********************************************************************// // The Class CoAttributeTypeParam provides a Create and CreateRemote method to // create instances of the default interface ksAttributeTypeParam exposed by // the CoClass AttributeTypeParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttributeTypeParam = class class function Create: ksAttributeTypeParam; class function CreateRemote(const MachineName: string): ksAttributeTypeParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttributeTypeParam // Help String : Ïàðàìåòðû òèïà àòðèáóòà. // Default Interface: ksAttributeTypeParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAttributeTypeParamProperties= class; {$ENDIF} TAttributeTypeParam = class(TOleServer) private FIntf: ksAttributeTypeParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAttributeTypeParamProperties; function GetServerProperties: TAttributeTypeParamProperties; {$ENDIF} function GetDefaultInterface: ksAttributeTypeParam; protected procedure InitServerData; override; function Get_key1: Integer; procedure Set_key1(Value: Integer); function Get_key2: Integer; procedure Set_key2(Value: Integer); function Get_key3: Integer; procedure Set_key3(Value: Integer); function Get_key4: Integer; procedure Set_key4(Value: Integer); function Get_rowsCount: Integer; procedure Set_rowsCount(Value: Integer); function Get_header: WideString; procedure Set_header(const Value: WideString); function Get_flagVisible: WordBool; procedure Set_flagVisible(Value: WordBool); function Get_password: WideString; procedure Set_password(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAttributeTypeParam); procedure Disconnect; override; function GetColumns: IDispatch; function SetColumns(const val: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksAttributeTypeParam read GetDefaultInterface; property key1: Integer read Get_key1 write Set_key1; property key2: Integer read Get_key2 write Set_key2; property key3: Integer read Get_key3 write Set_key3; property key4: Integer read Get_key4 write Set_key4; property rowsCount: Integer read Get_rowsCount write Set_rowsCount; property header: WideString read Get_header write Set_header; property flagVisible: WordBool read Get_flagVisible write Set_flagVisible; property password: WideString read Get_password write Set_password; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAttributeTypeParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAttributeTypeParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAttributeTypeParamProperties = class(TPersistent) private FServer: TAttributeTypeParam; function GetDefaultInterface: ksAttributeTypeParam; constructor Create(AServer: TAttributeTypeParam); protected function Get_key1: Integer; procedure Set_key1(Value: Integer); function Get_key2: Integer; procedure Set_key2(Value: Integer); function Get_key3: Integer; procedure Set_key3(Value: Integer); function Get_key4: Integer; procedure Set_key4(Value: Integer); function Get_rowsCount: Integer; procedure Set_rowsCount(Value: Integer); function Get_header: WideString; procedure Set_header(const Value: WideString); function Get_flagVisible: WordBool; procedure Set_flagVisible(Value: WordBool); function Get_password: WideString; procedure Set_password(const Value: WideString); public property DefaultInterface: ksAttributeTypeParam read GetDefaultInterface; published property key1: Integer read Get_key1 write Set_key1; property key2: Integer read Get_key2 write Set_key2; property key3: Integer read Get_key3 write Set_key3; property key4: Integer read Get_key4 write Set_key4; property rowsCount: Integer read Get_rowsCount write Set_rowsCount; property header: WideString read Get_header write Set_header; property flagVisible: WordBool read Get_flagVisible write Set_flagVisible; property password: WideString read Get_password write Set_password; end; {$ENDIF} // *********************************************************************// // The Class CoColumnInfoParam provides a Create and CreateRemote method to // create instances of the default interface ksColumnInfoParam exposed by // the CoClass ColumnInfoParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoColumnInfoParam = class class function Create: ksColumnInfoParam; class function CreateRemote(const MachineName: string): ksColumnInfoParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TColumnInfoParam // Help String : Èíôîðìàöèîííàÿ ñòðóêòóðà äëÿ îäíîãî ñòîëáöà òàáëè÷íîãî àòðèáóòà. // Default Interface: ksColumnInfoParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TColumnInfoParamProperties= class; {$ENDIF} TColumnInfoParam = class(TOleServer) private FIntf: ksColumnInfoParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TColumnInfoParamProperties; function GetServerProperties: TColumnInfoParamProperties; {$ENDIF} function GetDefaultInterface: ksColumnInfoParam; protected procedure InitServerData; override; function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_header: WideString; procedure Set_header(const Value: WideString); function Get_key: Smallint; procedure Set_key(Value: Smallint); function Get_def: WideString; procedure Set_def(const Value: WideString); function Get_flagEnum: WordBool; procedure Set_flagEnum(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksColumnInfoParam); procedure Disconnect; override; function GetFieldEnum: IDispatch; function SetFieldEnum(const fieldEnum: IDispatch): WordBool; function GetColumns: IDispatch; function SetColumns(const fieldEnum: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksColumnInfoParam read GetDefaultInterface; property type_: Smallint read Get_type_ write Set_type_; property header: WideString read Get_header write Set_header; property key: Smallint read Get_key write Set_key; property def: WideString read Get_def write Set_def; property flagEnum: WordBool read Get_flagEnum write Set_flagEnum; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TColumnInfoParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TColumnInfoParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TColumnInfoParamProperties = class(TPersistent) private FServer: TColumnInfoParam; function GetDefaultInterface: ksColumnInfoParam; constructor Create(AServer: TColumnInfoParam); protected function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_header: WideString; procedure Set_header(const Value: WideString); function Get_key: Smallint; procedure Set_key(Value: Smallint); function Get_def: WideString; procedure Set_def(const Value: WideString); function Get_flagEnum: WordBool; procedure Set_flagEnum(Value: WordBool); public property DefaultInterface: ksColumnInfoParam read GetDefaultInterface; published property type_: Smallint read Get_type_ write Set_type_; property header: WideString read Get_header write Set_header; property key: Smallint read Get_key write Set_key; property def: WideString read Get_def write Set_def; property flagEnum: WordBool read Get_flagEnum write Set_flagEnum; end; {$ENDIF} // *********************************************************************// // The Class CoAttributeParam provides a Create and CreateRemote method to // create instances of the default interface ksAttributeParam exposed by // the CoClass AttributeParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttributeParam = class class function Create: ksAttributeParam; class function CreateRemote(const MachineName: string): ksAttributeParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttributeParam // Help String : Ïàðàìåòðû àòðèáóòà. // Default Interface: ksAttributeParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAttributeParamProperties= class; {$ENDIF} TAttributeParam = class(TOleServer) private FIntf: ksAttributeParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAttributeParamProperties; function GetServerProperties: TAttributeParamProperties; {$ENDIF} function GetDefaultInterface: ksAttributeParam; protected procedure InitServerData; override; function Get_key1: Integer; procedure Set_key1(Value: Integer); function Get_key2: Integer; procedure Set_key2(Value: Integer); function Get_key3: Integer; procedure Set_key3(Value: Integer); function Get_key4: Integer; procedure Set_key4(Value: Integer); function Get_password: WideString; procedure Set_password(const Value: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAttributeParam); procedure Disconnect; override; function GetValues: IDispatch; function SetValues(const values: IDispatch): WordBool; function GetFlagVisible: IDispatch; function SetFlagVisible(const flagVisible: IDispatch): WordBool; function GetColumnKeys: IDispatch; function SetColumnKeys(const columnKeys: IDispatch): WordBool; function Init: WordBool; property DefaultInterface: ksAttributeParam read GetDefaultInterface; property key1: Integer read Get_key1 write Set_key1; property key2: Integer read Get_key2 write Set_key2; property key3: Integer read Get_key3 write Set_key3; property key4: Integer read Get_key4 write Set_key4; property password: WideString read Get_password write Set_password; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAttributeParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAttributeParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAttributeParamProperties = class(TPersistent) private FServer: TAttributeParam; function GetDefaultInterface: ksAttributeParam; constructor Create(AServer: TAttributeParam); protected function Get_key1: Integer; procedure Set_key1(Value: Integer); function Get_key2: Integer; procedure Set_key2(Value: Integer); function Get_key3: Integer; procedure Set_key3(Value: Integer); function Get_key4: Integer; procedure Set_key4(Value: Integer); function Get_password: WideString; procedure Set_password(const Value: WideString); public property DefaultInterface: ksAttributeParam read GetDefaultInterface; published property key1: Integer read Get_key1 write Set_key1; property key2: Integer read Get_key2 write Set_key2; property key3: Integer read Get_key3 write Set_key3; property key4: Integer read Get_key4 write Set_key4; property password: WideString read Get_password write Set_password; end; {$ENDIF} // *********************************************************************// // The Class CoVariable provides a Create and CreateRemote method to // create instances of the default interface ksVariable exposed by // the CoClass Variable. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoVariable = class class function Create: ksVariable; class function CreateRemote(const MachineName: string): ksVariable; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TVariable // Help String : Èíòåðôåéñ âíåøíåé ïåðåìåííîé. // Default Interface: ksVariable // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TVariableProperties= class; {$ENDIF} TVariable = class(TOleServer) private FIntf: ksVariable; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TVariableProperties; function GetServerProperties: TVariableProperties; {$ENDIF} function GetDefaultInterface: ksVariable; protected procedure InitServerData; override; function Get_value: Double; procedure Set_value(Value: Double); function Get_note: WideString; procedure Set_note(const Value: WideString); function Get_name: WideString; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksVariable); procedure Disconnect; override; property DefaultInterface: ksVariable read GetDefaultInterface; property name: WideString read Get_name; property value: Double read Get_value write Set_value; property note: WideString read Get_note write Set_note; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TVariableProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TVariable // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TVariableProperties = class(TPersistent) private FServer: TVariable; function GetDefaultInterface: ksVariable; constructor Create(AServer: TVariable); protected function Get_value: Double; procedure Set_value(Value: Double); function Get_note: WideString; procedure Set_note(const Value: WideString); function Get_name: WideString; public property DefaultInterface: ksVariable read GetDefaultInterface; published property value: Double read Get_value write Set_value; property note: WideString read Get_note write Set_note; end; {$ENDIF} // *********************************************************************// // The Class CoLibraryAttrTypeParam provides a Create and CreateRemote method to // create instances of the default interface ksLibraryAttrTypeParam exposed by // the CoClass LibraryAttrTypeParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLibraryAttrTypeParam = class class function Create: ksLibraryAttrTypeParam; class function CreateRemote(const MachineName: string): ksLibraryAttrTypeParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLibraryAttrTypeParam // Help String : Ïàðàìåòðû äëÿ òèïà àòðèáóòà áèáëèîòåêå òèïîâ àòðèáóòîâ. // Default Interface: ksLibraryAttrTypeParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLibraryAttrTypeParamProperties= class; {$ENDIF} TLibraryAttrTypeParam = class(TOleServer) private FIntf: ksLibraryAttrTypeParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLibraryAttrTypeParamProperties; function GetServerProperties: TLibraryAttrTypeParamProperties; {$ENDIF} function GetDefaultInterface: ksLibraryAttrTypeParam; protected procedure InitServerData; override; function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_typeId: Double; procedure Set_typeId(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLibraryAttrTypeParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksLibraryAttrTypeParam read GetDefaultInterface; property name: WideString read Get_name write Set_name; property typeId: Double read Get_typeId write Set_typeId; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLibraryAttrTypeParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLibraryAttrTypeParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLibraryAttrTypeParamProperties = class(TPersistent) private FServer: TLibraryAttrTypeParam; function GetDefaultInterface: ksLibraryAttrTypeParam; constructor Create(AServer: TLibraryAttrTypeParam); protected function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_typeId: Double; procedure Set_typeId(Value: Double); public property DefaultInterface: ksLibraryAttrTypeParam read GetDefaultInterface; published property name: WideString read Get_name write Set_name; property typeId: Double read Get_typeId write Set_typeId; end; {$ENDIF} // *********************************************************************// // The Class CoAttributeObject provides a Create and CreateRemote method to // create instances of the default interface ksAttributeObject exposed by // the CoClass AttributeObject. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttributeObject = class class function Create: ksAttributeObject; class function CreateRemote(const MachineName: string): ksAttributeObject; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttributeObject // Help String : Èíòåðôåéñ àòðèáóòà. // Default Interface: ksAttributeObject // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAttributeObjectProperties= class; {$ENDIF} TAttributeObject = class(TOleServer) private FIntf: ksAttributeObject; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAttributeObjectProperties; function GetServerProperties: TAttributeObjectProperties; {$ENDIF} function GetDefaultInterface: ksAttributeObject; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAttributeObject); procedure Disconnect; override; function ksCreateAttrType(const attrType: IDispatch; const libName: WideString): Double; function ksDeleteAttrType(attrID: Double; const libName: WideString; const password: WideString): Integer; function ksGetAttrType(attrID: Double; const libName: WideString; const attrType: IDispatch): Integer; function ksSetAttrType(attrID: Double; const libName: WideString; const attrType: IDispatch; const password: WideString): Double; function ksChoiceAttrTypes(const libName: WideString): Double; function ksCreateAttr(pObj: Integer; const attr: IDispatch; attrID: Double; const libName: WideString): Integer; function ksDeleteAttr(pObj: Integer; pAttr: Integer; const password: WideString): Integer; function ksGetAttrValue(pAttr: Integer; rowNumb: Integer; columnNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch): Integer; function ksSetAttrValue(pAttr: Integer; rowNumb: Integer; columnNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch; const password: WideString): Integer; function ksGetAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch): Integer; function ksSetAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch; const password: WideString): Integer; function ksAddAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const value: IDispatch; const password: WideString): Integer; function ksDeleteAttrRow(pAttr: Integer; rowNumb: Integer; const password: WideString): Integer; function ksGetSizeAttrValue(pAttr: Integer; columnNumb: Integer; var count: Integer): Integer; function ksGetSizeAttrRow(pAttr: Integer; var count: Integer): Integer; function ksGetAttrKeysInfo(pAttr: Integer; var key1: Integer; var key2: Integer; var key3: Integer; var key4: Integer; var numb: Double): Integer; function ksGetAttrColumnInfo(pAttr: Integer; columnNumb: Integer; const columnInfo: IDispatch): Integer; function ksGetAttrTabInfo(pAttr: Integer; var rowsCount: Integer; var columnsCount: Integer): Integer; function ksViewEditAttr(pAttr: Integer; type_: Integer; const password: WideString): Integer; function ksViewEditAttrType(const libName: WideString; type_: Integer; attrID: Double; const password: WideString): Integer; function ksChoiceAttr(pObj: Integer): Integer; function ksGetLibraryAttrTypesArray(const libName: WideString): IDispatch; function ksCreateAttr3D(const pObj: IDispatch; const attr: IDispatch; attrID: Double; const libName: WideString): ksAttribute3D; function ksDeleteAttr3D(const pObj: IDispatch; const pAttr: ksAttribute3D; const password: WideString): Integer; function ksChoiceAttr3D(const pObj: IDispatch): ksAttribute3D; property DefaultInterface: ksAttributeObject read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAttributeObjectProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAttributeObject // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAttributeObjectProperties = class(TPersistent) private FServer: TAttributeObject; function GetDefaultInterface: ksAttributeObject; constructor Create(AServer: TAttributeObject); protected public property DefaultInterface: ksAttributeObject read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoRequestInfo3D provides a Create and CreateRemote method to // create instances of the default interface ksRequestInfo3D exposed by // the CoClass RequestInfo3D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRequestInfo3D = class class function Create: ksRequestInfo3D; class function CreateRemote(const MachineName: string): ksRequestInfo3D; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRequestInfo3D // Help String : Ïàðàìåòðû çàïðîñà. // Default Interface: ksRequestInfo3D // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRequestInfo3DProperties= class; {$ENDIF} TRequestInfo3D = class(TOleServer) private FIntf: ksRequestInfo3D; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRequestInfo3DProperties; function GetServerProperties: TRequestInfo3DProperties; {$ENDIF} function GetDefaultInterface: ksRequestInfo3D; protected procedure InitServerData; override; function Get_prompt: WideString; procedure Set_prompt(const Value: WideString); function Get_title: WideString; procedure Set_title(const Value: WideString); function Get_cursorName: WideString; procedure Set_cursorName(const Value: WideString); function Get_commandsString: WideString; procedure Set_commandsString(const Value: WideString); function Get_cursorId: Integer; procedure Set_cursorId(Value: Integer); function Get_menuId: Integer; procedure Set_menuId(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRequestInfo3D); procedure Disconnect; override; function GetFilterCallBack: WideString; function GetCallBack: WideString; function SetFilterCallBack(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; function SetCallBack(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; function GetPlacement: IDispatch; function GetEntityCollection: IDispatch; function GetCurrentCommand: Integer; function GetMateConstraintCollection: IDispatch; function GetIPhantom: IDispatch; function CreatePhantom: WordBool; property DefaultInterface: ksRequestInfo3D read GetDefaultInterface; property prompt: WideString read Get_prompt write Set_prompt; property title: WideString read Get_title write Set_title; property cursorName: WideString read Get_cursorName write Set_cursorName; property commandsString: WideString read Get_commandsString write Set_commandsString; property cursorId: Integer read Get_cursorId write Set_cursorId; property menuId: Integer read Get_menuId write Set_menuId; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRequestInfo3DProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRequestInfo3D // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRequestInfo3DProperties = class(TPersistent) private FServer: TRequestInfo3D; function GetDefaultInterface: ksRequestInfo3D; constructor Create(AServer: TRequestInfo3D); protected function Get_prompt: WideString; procedure Set_prompt(const Value: WideString); function Get_title: WideString; procedure Set_title(const Value: WideString); function Get_cursorName: WideString; procedure Set_cursorName(const Value: WideString); function Get_commandsString: WideString; procedure Set_commandsString(const Value: WideString); function Get_cursorId: Integer; procedure Set_cursorId(Value: Integer); function Get_menuId: Integer; procedure Set_menuId(Value: Integer); public property DefaultInterface: ksRequestInfo3D read GetDefaultInterface; published property prompt: WideString read Get_prompt write Set_prompt; property title: WideString read Get_title write Set_title; property cursorName: WideString read Get_cursorName write Set_cursorName; property commandsString: WideString read Get_commandsString write Set_commandsString; property cursorId: Integer read Get_cursorId write Set_cursorId; property menuId: Integer read Get_menuId write Set_menuId; end; {$ENDIF} // *********************************************************************// // The Class CoMateConstraint provides a Create and CreateRemote method to // create instances of the default interface ksMateConstraint exposed by // the CoClass MateConstraint. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMateConstraint = class class function Create: ksMateConstraint; class function CreateRemote(const MachineName: string): ksMateConstraint; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMateConstraint // Help String : 3D îáúåêò - ñîïðÿæåíèå. // Default Interface: ksMateConstraint // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMateConstraintProperties= class; {$ENDIF} TMateConstraint = class(TOleServer) private FIntf: ksMateConstraint; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMateConstraintProperties; function GetServerProperties: TMateConstraintProperties; {$ENDIF} function GetDefaultInterface: ksMateConstraint; protected procedure InitServerData; override; function Get_constraintType: Smallint; procedure Set_constraintType(Value: Smallint); function Get_direction: Smallint; procedure Set_direction(Value: Smallint); function Get_fixed: Smallint; procedure Set_fixed(Value: Smallint); function Get_distance: Double; procedure Set_distance(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMateConstraint); procedure Disconnect; override; function Create1: WordBool; function GetBaseObj(number: Smallint): IDispatch; function SetBaseObj(number: Smallint; const obj: IDispatch): WordBool; function GetFeature: IDispatch; property DefaultInterface: ksMateConstraint read GetDefaultInterface; property constraintType: Smallint read Get_constraintType write Set_constraintType; property direction: Smallint read Get_direction write Set_direction; property fixed: Smallint read Get_fixed write Set_fixed; property distance: Double read Get_distance write Set_distance; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMateConstraintProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMateConstraint // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMateConstraintProperties = class(TPersistent) private FServer: TMateConstraint; function GetDefaultInterface: ksMateConstraint; constructor Create(AServer: TMateConstraint); protected function Get_constraintType: Smallint; procedure Set_constraintType(Value: Smallint); function Get_direction: Smallint; procedure Set_direction(Value: Smallint); function Get_fixed: Smallint; procedure Set_fixed(Value: Smallint); function Get_distance: Double; procedure Set_distance(Value: Double); public property DefaultInterface: ksMateConstraint read GetDefaultInterface; published property constraintType: Smallint read Get_constraintType write Set_constraintType; property direction: Smallint read Get_direction write Set_direction; property fixed: Smallint read Get_fixed write Set_fixed; property distance: Double read Get_distance write Set_distance; end; {$ENDIF} // *********************************************************************// // The Class CoDefaultObject provides a Create and CreateRemote method to // create instances of the default interface ksDefaultObject exposed by // the CoClass DefaultObject. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDefaultObject = class class function Create: ksDefaultObject; class function CreateRemote(const MachineName: string): ksDefaultObject; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDefaultObject // Help String : Óìîë÷àòåëüíûé îáúåêò. // Default Interface: ksDefaultObject // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDefaultObjectProperties= class; {$ENDIF} TDefaultObject = class(TOleServer) private FIntf: ksDefaultObject; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDefaultObjectProperties; function GetServerProperties: TDefaultObjectProperties; {$ENDIF} function GetDefaultInterface: ksDefaultObject; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDefaultObject); procedure Disconnect; override; property DefaultInterface: ksDefaultObject read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDefaultObjectProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDefaultObject // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDefaultObjectProperties = class(TPersistent) private FServer: TDefaultObject; function GetDefaultInterface: ksDefaultObject; constructor Create(AServer: TDefaultObject); protected public property DefaultInterface: ksDefaultObject read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class Coentity provides a Create and CreateRemote method to // create instances of the default interface ksEntity exposed by // the CoClass entity. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// Coentity = class class function Create: ksEntity; class function CreateRemote(const MachineName: string): ksEntity; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : Tentity // Help String : 3D Îáúåêò. // Default Interface: ksEntity // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TentityProperties= class; {$ENDIF} Tentity = class(TOleServer) private FIntf: ksEntity; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TentityProperties; function GetServerProperties: TentityProperties; {$ENDIF} function GetDefaultInterface: ksEntity; protected procedure InitServerData; override; function Get_hidden: WordBool; procedure Set_hidden(Value: WordBool); function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_excluded: WordBool; procedure Set_excluded(Value: WordBool); function Get_type_: Smallint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEntity); procedure Disconnect; override; function GetDefinition: IDispatch; function GetParent: IDispatch; function IsCreated: WordBool; function IsIt(objType: Integer): WordBool; function Create1: WordBool; function Update: WordBool; function ColorParam: IDispatch; function GetAdvancedColor(var GetAdvancedColor: Integer; var ambient: Double; var diffuse: Double; var specularity: Double; var shininess: Double; var transparency: Double; var emission: Double): WordBool; function SetAdvancedColor(color: Integer; ambient: Double; diffuse: Double; specularity: Double; shininess: Double; transparency: Double; emission: Double): WordBool; function GetFeature: IDispatch; property DefaultInterface: ksEntity read GetDefaultInterface; property type_: Smallint read Get_type_; property hidden: WordBool read Get_hidden write Set_hidden; property name: WideString read Get_name write Set_name; property excluded: WordBool read Get_excluded write Set_excluded; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TentityProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : Tentity // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TentityProperties = class(TPersistent) private FServer: Tentity; function GetDefaultInterface: ksEntity; constructor Create(AServer: Tentity); protected function Get_hidden: WordBool; procedure Set_hidden(Value: WordBool); function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_excluded: WordBool; procedure Set_excluded(Value: WordBool); function Get_type_: Smallint; public property DefaultInterface: ksEntity read GetDefaultInterface; published property hidden: WordBool read Get_hidden write Set_hidden; property name: WideString read Get_name write Set_name; property excluded: WordBool read Get_excluded write Set_excluded; end; {$ENDIF} // *********************************************************************// // The Class Copart provides a Create and CreateRemote method to // create instances of the default interface ksPart exposed by // the CoClass part. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// Copart = class class function Create: ksPart; class function CreateRemote(const MachineName: string): ksPart; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : Tpart // Help String : 3D Êîìïîíåíò. // Default Interface: ksPart // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TpartProperties= class; {$ENDIF} Tpart = class(TOleServer) private FIntf: ksPart; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TpartProperties; function GetServerProperties: TpartProperties; {$ENDIF} function GetDefaultInterface: ksPart; protected procedure InitServerData; override; function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_marking: WideString; procedure Set_marking(const Value: WideString); function Get_fixedComponent: WordBool; procedure Set_fixedComponent(Value: WordBool); function Get_standardComponent: WordBool; procedure Set_standardComponent(Value: WordBool); function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_excluded: WordBool; procedure Set_excluded(Value: WordBool); function Get_useColor: Integer; procedure Set_useColor(Value: Integer); function Get_material: WideString; function Get_density: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPart); procedure Disconnect; override; function SetPlacement(const placement: IDispatch): WordBool; function GetPlacement: IDispatch; function ColorParam: IDispatch; function VariableCollection: IDispatch; function Update: WordBool; function GetUserParamSize: Integer; function UpdatePlacement: WordBool; function RebuildModel: WordBool; function GetDefaultEntity(objType: Smallint): IDispatch; function NewEntity(objType: Smallint): IDispatch; function EntityCollection(objType: Smallint): IDispatch; function GetAdvancedColor(var color: Integer; var ambient: Double; var diffuse: Double; var specularity: Double; var shininess: Double; var transparency: Double; var emission: Double): WordBool; function SetAdvancedColor(color: Integer; ambient: Double; diffuse: Double; specularity: Double; shininess: Double; transparency: Double; emission: Double): WordBool; function SetUserParam(const userPars: IDispatch): WordBool; function IsDetail: WordBool; function BeginEdit: IDispatch; function EndEdit(Rebuild: WordBool): WordBool; function GetPart(type_: Smallint): IDispatch; function GetMass: Double; function PutStorage(const fileName: WideString; type_: Integer; mirror: WordBool): WordBool; function SetMateConstraintObjects(const collection: IDispatch): WordBool; function GetMateConstraintObjects: IDispatch; function GetUserParam(const userPars: IDispatch): WordBool; function SetMaterial(const material: WideString; density: Double): WordBool; function BodyCollection: IDispatch; function GetFeature: IDispatch; function CalcMassInertiaProperties(bitVector: LongWord): IDispatch; function GetMeasurer: IDispatch; function GetMainBody: IDispatch; function GetObject3DNotify(objType: Integer; const obj: IDispatch): Object3DNotify; function GetObject3DNotifyResult: ksObject3DNotifyResult; function UpdatePlacementEx(redraw: WordBool): WordBool; function RebuildModelEx(redraw: WordBool): WordBool; property DefaultInterface: ksPart read GetDefaultInterface; property material: WideString read Get_material; property density: Double read Get_density; property name: WideString read Get_name write Set_name; property marking: WideString read Get_marking write Set_marking; property fixedComponent: WordBool read Get_fixedComponent write Set_fixedComponent; property standardComponent: WordBool read Get_standardComponent write Set_standardComponent; property fileName: WideString read Get_fileName write Set_fileName; property excluded: WordBool read Get_excluded write Set_excluded; property useColor: Integer read Get_useColor write Set_useColor; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TpartProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : Tpart // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TpartProperties = class(TPersistent) private FServer: Tpart; function GetDefaultInterface: ksPart; constructor Create(AServer: Tpart); protected function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_marking: WideString; procedure Set_marking(const Value: WideString); function Get_fixedComponent: WordBool; procedure Set_fixedComponent(Value: WordBool); function Get_standardComponent: WordBool; procedure Set_standardComponent(Value: WordBool); function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_excluded: WordBool; procedure Set_excluded(Value: WordBool); function Get_useColor: Integer; procedure Set_useColor(Value: Integer); function Get_material: WideString; function Get_density: Double; public property DefaultInterface: ksPart read GetDefaultInterface; published property name: WideString read Get_name write Set_name; property marking: WideString read Get_marking write Set_marking; property fixedComponent: WordBool read Get_fixedComponent write Set_fixedComponent; property standardComponent: WordBool read Get_standardComponent write Set_standardComponent; property fileName: WideString read Get_fileName write Set_fileName; property excluded: WordBool read Get_excluded write Set_excluded; property useColor: Integer read Get_useColor write Set_useColor; end; {$ENDIF} // *********************************************************************// // The Class CoDocument3D provides a Create and CreateRemote method to // create instances of the default interface ksDocument3D exposed by // the CoClass Document3D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocument3D = class class function Create: ksDocument3D; class function CreateRemote(const MachineName: string): ksDocument3D; end; // *********************************************************************// // The Class CoModelLibrary provides a Create and CreateRemote method to // create instances of the default interface ksModelLibrary exposed by // the CoClass ModelLibrary. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoModelLibrary = class class function Create: ksModelLibrary; class function CreateRemote(const MachineName: string): ksModelLibrary; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TModelLibrary // Help String : Èíòåðôåéñ áèáëèîòåêè ìîäåëåé. // Default Interface: ksModelLibrary // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TModelLibraryProperties= class; {$ENDIF} TModelLibrary = class(TOleServer) private FIntf: ksModelLibrary; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TModelLibraryProperties; function GetServerProperties: TModelLibraryProperties; {$ENDIF} function GetDefaultInterface: ksModelLibrary; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksModelLibrary); procedure Disconnect; override; function ModelLibraryOperation(const libName: WideString; type_: Integer): Integer; function ChoiceModelFromLib(const libFile: WideString; var type_: Integer): WideString; function ExistModelInLibrary(const name: WideString): Integer; function AddD3DocumentToLibrary(const libName: WideString; const fileName: WideString): Integer; function CheckModelLibrary(const libName: WideString; possibleMessage: WordBool): Integer; property DefaultInterface: ksModelLibrary read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TModelLibraryProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TModelLibrary // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TModelLibraryProperties = class(TPersistent) private FServer: TModelLibrary; function GetDefaultInterface: ksModelLibrary; constructor Create(AServer: TModelLibrary); protected public property DefaultInterface: ksModelLibrary read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoEntityCollection provides a Create and CreateRemote method to // create instances of the default interface ksEntityCollection exposed by // the CoClass EntityCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEntityCollection = class class function Create: ksEntityCollection; class function CreateRemote(const MachineName: string): ksEntityCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEntityCollection // Help String : Ìàññèâ îáúåêòîâ. // Default Interface: ksEntityCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEntityCollectionProperties= class; {$ENDIF} TEntityCollection = class(TOleServer) private FIntf: ksEntityCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEntityCollectionProperties; function GetServerProperties: TEntityCollectionProperties; {$ENDIF} function GetDefaultInterface: ksEntityCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEntityCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function SelectByPoint(x: Double; y: Double; z: Double): WordBool; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; function Add(const entity: IDispatch): WordBool; function AddAt(const entity: IDispatch; index: Integer): WordBool; function AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(const entity: IDispatch): WordBool; function Clear: WordBool; function SetByIndex(const entity: IDispatch; index: Integer): WordBool; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksEntityCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEntityCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEntityCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEntityCollectionProperties = class(TPersistent) private FServer: TEntityCollection; function GetDefaultInterface: ksEntityCollection; constructor Create(AServer: TEntityCollection); protected public property DefaultInterface: ksEntityCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoVariableCollection provides a Create and CreateRemote method to // create instances of the default interface ksVariableCollection exposed by // the CoClass VariableCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoVariableCollection = class class function Create: ksVariableCollection; class function CreateRemote(const MachineName: string): ksVariableCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TVariableCollection // Help String : Ìàññèâ âíåøíèõ ïåðåìåííûõ. // Default Interface: ksVariableCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TVariableCollectionProperties= class; {$ENDIF} TVariableCollection = class(TOleServer) private FIntf: ksVariableCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TVariableCollectionProperties; function GetServerProperties: TVariableCollectionProperties; {$ENDIF} function GetDefaultInterface: ksVariableCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksVariableCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; property DefaultInterface: ksVariableCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TVariableCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TVariableCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TVariableCollectionProperties = class(TPersistent) private FServer: TVariableCollection; function GetDefaultInterface: ksVariableCollection; constructor Create(AServer: TVariableCollection); protected public property DefaultInterface: ksVariableCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMateConstraintCollection provides a Create and CreateRemote method to // create instances of the default interface ksMateConstraintCollection exposed by // the CoClass MateConstraintCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMateConstraintCollection = class class function Create: ksMateConstraintCollection; class function CreateRemote(const MachineName: string): ksMateConstraintCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMateConstraintCollection // Help String : Ìàññèâ ñîïðÿæåíèé. // Default Interface: ksMateConstraintCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMateConstraintCollectionProperties= class; {$ENDIF} TMateConstraintCollection = class(TOleServer) private FIntf: ksMateConstraintCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMateConstraintCollectionProperties; function GetServerProperties: TMateConstraintCollectionProperties; {$ENDIF} function GetDefaultInterface: ksMateConstraintCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMateConstraintCollection); procedure Disconnect; override; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function AddMateConstraint(const mate: IDispatch): WordBool; function RemoveMateConstraint(const mate: IDispatch): WordBool; function Clear: WordBool; function refresh: WordBool; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksMateConstraintCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMateConstraintCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMateConstraintCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMateConstraintCollectionProperties = class(TPersistent) private FServer: TMateConstraintCollection; function GetDefaultInterface: ksMateConstraintCollection; constructor Create(AServer: TMateConstraintCollection); protected public property DefaultInterface: ksMateConstraintCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPartCollection provides a Create and CreateRemote method to // create instances of the default interface ksPartCollection exposed by // the CoClass PartCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPartCollection = class class function Create: ksPartCollection; class function CreateRemote(const MachineName: string): ksPartCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPartCollection // Help String : Ìàññèâ êîìïîíåíòîâ ñáîðêè. // Default Interface: ksPartCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPartCollectionProperties= class; {$ENDIF} TPartCollection = class(TOleServer) private FIntf: ksPartCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPartCollectionProperties; function GetServerProperties: TPartCollectionProperties; {$ENDIF} function GetDefaultInterface: ksPartCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPartCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; function GetByIndex(index: Integer): IDispatch; function Add(const part: IDispatch): WordBool; function AddAt(const part: IDispatch; index: Integer): WordBool; function AddBefore(const part: IDispatch; const base: IDispatch): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(const part: IDispatch): WordBool; function Clear: WordBool; function SetByIndex(const part: IDispatch; index: Integer): WordBool; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksPartCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPartCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPartCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPartCollectionProperties = class(TPersistent) private FServer: TPartCollection; function GetDefaultInterface: ksPartCollection; constructor Create(AServer: TPartCollection); protected public property DefaultInterface: ksPartCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMeshPartArrayDefinition provides a Create and CreateRemote method to // create instances of the default interface ksMeshPartArrayDefinition exposed by // the CoClass MeshPartArrayDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMeshPartArrayDefinition = class class function Create: ksMeshPartArrayDefinition; class function CreateRemote(const MachineName: string): ksMeshPartArrayDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMeshPartArrayDefinition // Help String : Ïàðàìåòðû îïåðàöèè ìàññèâ êîìïîíåíòîâ ïî ñåòêå. // Default Interface: ksMeshPartArrayDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMeshPartArrayDefinitionProperties= class; {$ENDIF} TMeshPartArrayDefinition = class(TOleServer) private FIntf: ksMeshPartArrayDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMeshPartArrayDefinitionProperties; function GetServerProperties: TMeshPartArrayDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksMeshPartArrayDefinition; protected procedure InitServerData; override; function Get_angle1: Double; procedure Set_angle1(Value: Double); function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_angle2: Double; procedure Set_angle2(Value: Double); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_insideFlag: WordBool; procedure Set_insideFlag(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMeshPartArrayDefinition); procedure Disconnect; override; function GetAxis1: IDispatch; function SetAxis1(const axis: IDispatch): WordBool; function GetAxis2: IDispatch; function SetAxis2(const axis: IDispatch): WordBool; function PartArray: IDispatch; function GetCopyParamAlongAxis(firstAxis: WordBool; var angle: Double; var count: Integer; var step: Double; var factor: WordBool): WordBool; function SetCopyParamAlongAxis(firstAxis: WordBool; angle: Double; count: Integer; step: Double; factor: WordBool): WordBool; function DeletedCollection: IDispatch; property DefaultInterface: ksMeshPartArrayDefinition read GetDefaultInterface; property angle1: Double read Get_angle1 write Set_angle1; property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property angle2: Double read Get_angle2 write Set_angle2; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property insideFlag: WordBool read Get_insideFlag write Set_insideFlag; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMeshPartArrayDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMeshPartArrayDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMeshPartArrayDefinitionProperties = class(TPersistent) private FServer: TMeshPartArrayDefinition; function GetDefaultInterface: ksMeshPartArrayDefinition; constructor Create(AServer: TMeshPartArrayDefinition); protected function Get_angle1: Double; procedure Set_angle1(Value: Double); function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_angle2: Double; procedure Set_angle2(Value: Double); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_insideFlag: WordBool; procedure Set_insideFlag(Value: WordBool); public property DefaultInterface: ksMeshPartArrayDefinition read GetDefaultInterface; published property angle1: Double read Get_angle1 write Set_angle1; property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property angle2: Double read Get_angle2 write Set_angle2; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property insideFlag: WordBool read Get_insideFlag write Set_insideFlag; end; {$ENDIF} // *********************************************************************// // The Class CoCircularPartArrayDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCircularPartArrayDefinition exposed by // the CoClass CircularPartArrayDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCircularPartArrayDefinition = class class function Create: ksCircularPartArrayDefinition; class function CreateRemote(const MachineName: string): ksCircularPartArrayDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCircularPartArrayDefinition // Help String : Ïàðàìåòðû îïåðàöèè ìàññèâ êîìïîíåíòîâ ïî êîíöåíòðè÷åñêîé ñåòêå. // Default Interface: ksCircularPartArrayDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCircularPartArrayDefinitionProperties= class; {$ENDIF} TCircularPartArrayDefinition = class(TOleServer) private FIntf: ksCircularPartArrayDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCircularPartArrayDefinitionProperties; function GetServerProperties: TCircularPartArrayDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCircularPartArrayDefinition; protected procedure InitServerData; override; function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_inverce: WordBool; procedure Set_inverce(Value: WordBool); function Get_keepAngle: WordBool; procedure Set_keepAngle(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCircularPartArrayDefinition); procedure Disconnect; override; function PartArray: IDispatch; function GetAxis: IDispatch; function SetAxis(const axis: IDispatch): WordBool; function GetCopyParamAlongDir(var count: Integer; var step: Double; var factor: WordBool; dir: WordBool): WordBool; function SetCopyParamAlongDir(count: Integer; step: Double; factor: WordBool; dir: WordBool): WordBool; function DeletedCollection: IDispatch; property DefaultInterface: ksCircularPartArrayDefinition read GetDefaultInterface; property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property inverce: WordBool read Get_inverce write Set_inverce; property keepAngle: WordBool read Get_keepAngle write Set_keepAngle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCircularPartArrayDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCircularPartArrayDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCircularPartArrayDefinitionProperties = class(TPersistent) private FServer: TCircularPartArrayDefinition; function GetDefaultInterface: ksCircularPartArrayDefinition; constructor Create(AServer: TCircularPartArrayDefinition); protected function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_inverce: WordBool; procedure Set_inverce(Value: WordBool); function Get_keepAngle: WordBool; procedure Set_keepAngle(Value: WordBool); public property DefaultInterface: ksCircularPartArrayDefinition read GetDefaultInterface; published property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property inverce: WordBool read Get_inverce write Set_inverce; property keepAngle: WordBool read Get_keepAngle write Set_keepAngle; end; {$ENDIF} // *********************************************************************// // The Class CoCurvePartArrayDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCurvePartArrayDefinition exposed by // the CoClass CurvePartArrayDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurvePartArrayDefinition = class class function Create: ksCurvePartArrayDefinition; class function CreateRemote(const MachineName: string): ksCurvePartArrayDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurvePartArrayDefinition // Help String : Ïàðàìåòðû îïåðàöèè ìàññèâ êîìïîíåíòîâ âäîëü êðèâîé. // Default Interface: ksCurvePartArrayDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurvePartArrayDefinitionProperties= class; {$ENDIF} TCurvePartArrayDefinition = class(TOleServer) private FIntf: ksCurvePartArrayDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurvePartArrayDefinitionProperties; function GetServerProperties: TCurvePartArrayDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCurvePartArrayDefinition; protected procedure InitServerData; override; function Get_count: Integer; procedure Set_count(Value: Integer); function Get_step: Double; procedure Set_step(Value: Double); function Get_factor: WordBool; procedure Set_factor(Value: WordBool); function Get_keepAngle: WordBool; procedure Set_keepAngle(Value: WordBool); function Get_fullCurve: WordBool; procedure Set_fullCurve(Value: WordBool); function Get_sence: WordBool; procedure Set_sence(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurvePartArrayDefinition); procedure Disconnect; override; function PartArray: IDispatch; function CurveArray: IDispatch; function DeletedCollection: IDispatch; property DefaultInterface: ksCurvePartArrayDefinition read GetDefaultInterface; property count: Integer read Get_count write Set_count; property step: Double read Get_step write Set_step; property factor: WordBool read Get_factor write Set_factor; property keepAngle: WordBool read Get_keepAngle write Set_keepAngle; property fullCurve: WordBool read Get_fullCurve write Set_fullCurve; property sence: WordBool read Get_sence write Set_sence; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurvePartArrayDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurvePartArrayDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurvePartArrayDefinitionProperties = class(TPersistent) private FServer: TCurvePartArrayDefinition; function GetDefaultInterface: ksCurvePartArrayDefinition; constructor Create(AServer: TCurvePartArrayDefinition); protected function Get_count: Integer; procedure Set_count(Value: Integer); function Get_step: Double; procedure Set_step(Value: Double); function Get_factor: WordBool; procedure Set_factor(Value: WordBool); function Get_keepAngle: WordBool; procedure Set_keepAngle(Value: WordBool); function Get_fullCurve: WordBool; procedure Set_fullCurve(Value: WordBool); function Get_sence: WordBool; procedure Set_sence(Value: WordBool); public property DefaultInterface: ksCurvePartArrayDefinition read GetDefaultInterface; published property count: Integer read Get_count write Set_count; property step: Double read Get_step write Set_step; property factor: WordBool read Get_factor write Set_factor; property keepAngle: WordBool read Get_keepAngle write Set_keepAngle; property fullCurve: WordBool read Get_fullCurve write Set_fullCurve; property sence: WordBool read Get_sence write Set_sence; end; {$ENDIF} // *********************************************************************// // The Class CoDerivativePartArrayDefinition provides a Create and CreateRemote method to // create instances of the default interface ksDerivativePartArrayDefinition exposed by // the CoClass DerivativePartArrayDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDerivativePartArrayDefinition = class class function Create: ksDerivativePartArrayDefinition; class function CreateRemote(const MachineName: string): ksDerivativePartArrayDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDerivativePartArrayDefinition // Help String : Ïàðàìåòðû îïåðàöèè ìàññèâ êîìïîíåíòîâ ïî îáðàçöó. // Default Interface: ksDerivativePartArrayDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDerivativePartArrayDefinitionProperties= class; {$ENDIF} TDerivativePartArrayDefinition = class(TOleServer) private FIntf: ksDerivativePartArrayDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDerivativePartArrayDefinitionProperties; function GetServerProperties: TDerivativePartArrayDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksDerivativePartArrayDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDerivativePartArrayDefinition); procedure Disconnect; override; function PartArray: IDispatch; function GetDeriv: IDispatch; function SetDeriv(const deriv: IDispatch): WordBool; function DeletedCollection: IDispatch; property DefaultInterface: ksDerivativePartArrayDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDerivativePartArrayDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDerivativePartArrayDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDerivativePartArrayDefinitionProperties = class(TPersistent) private FServer: TDerivativePartArrayDefinition; function GetDefaultInterface: ksDerivativePartArrayDefinition; constructor Create(AServer: TDerivativePartArrayDefinition); protected public property DefaultInterface: ksDerivativePartArrayDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoAxis2PlanesDefinition provides a Create and CreateRemote method to // create instances of the default interface ksAxis2PlanesDefinition exposed by // the CoClass Axis2PlanesDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAxis2PlanesDefinition = class class function Create: ksAxis2PlanesDefinition; class function CreateRemote(const MachineName: string): ksAxis2PlanesDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAxis2PlanesDefinition // Help String : Îñü ïî äâóì ïëîñêîñòÿì. // Default Interface: ksAxis2PlanesDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAxis2PlanesDefinitionProperties= class; {$ENDIF} TAxis2PlanesDefinition = class(TOleServer) private FIntf: ksAxis2PlanesDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAxis2PlanesDefinitionProperties; function GetServerProperties: TAxis2PlanesDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksAxis2PlanesDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAxis2PlanesDefinition); procedure Disconnect; override; function SetPlane(number: Integer; const plane: IDispatch): WordBool; function GetPlane(number: Integer): IDispatch; property DefaultInterface: ksAxis2PlanesDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAxis2PlanesDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAxis2PlanesDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAxis2PlanesDefinitionProperties = class(TPersistent) private FServer: TAxis2PlanesDefinition; function GetDefaultInterface: ksAxis2PlanesDefinition; constructor Create(AServer: TAxis2PlanesDefinition); protected public property DefaultInterface: ksAxis2PlanesDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoAxisOperationsDefinition provides a Create and CreateRemote method to // create instances of the default interface ksAxisOperationsDefinition exposed by // the CoClass AxisOperationsDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAxisOperationsDefinition = class class function Create: ksAxisOperationsDefinition; class function CreateRemote(const MachineName: string): ksAxisOperationsDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAxisOperationsDefinition // Help String : Îñü îïåðàöèé. // Default Interface: ksAxisOperationsDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAxisOperationsDefinitionProperties= class; {$ENDIF} TAxisOperationsDefinition = class(TOleServer) private FIntf: ksAxisOperationsDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAxisOperationsDefinitionProperties; function GetServerProperties: TAxisOperationsDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksAxisOperationsDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAxisOperationsDefinition); procedure Disconnect; override; function SetOperation(const plane: IDispatch): WordBool; function GetOperation: IDispatch; property DefaultInterface: ksAxisOperationsDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAxisOperationsDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAxisOperationsDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAxisOperationsDefinitionProperties = class(TPersistent) private FServer: TAxisOperationsDefinition; function GetDefaultInterface: ksAxisOperationsDefinition; constructor Create(AServer: TAxisOperationsDefinition); protected public property DefaultInterface: ksAxisOperationsDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoAxis2PointsDefinition provides a Create and CreateRemote method to // create instances of the default interface ksAxis2PointsDefinition exposed by // the CoClass Axis2PointsDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAxis2PointsDefinition = class class function Create: ksAxis2PointsDefinition; class function CreateRemote(const MachineName: string): ksAxis2PointsDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAxis2PointsDefinition // Help String : Îñü ïî äâóì òî÷êàì. // Default Interface: ksAxis2PointsDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAxis2PointsDefinitionProperties= class; {$ENDIF} TAxis2PointsDefinition = class(TOleServer) private FIntf: ksAxis2PointsDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAxis2PointsDefinitionProperties; function GetServerProperties: TAxis2PointsDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksAxis2PointsDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAxis2PointsDefinition); procedure Disconnect; override; function SetPoint(number: Integer; const point: IDispatch): WordBool; function GetPoint(number: Integer): IDispatch; property DefaultInterface: ksAxis2PointsDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAxis2PointsDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAxis2PointsDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAxis2PointsDefinitionProperties = class(TPersistent) private FServer: TAxis2PointsDefinition; function GetDefaultInterface: ksAxis2PointsDefinition; constructor Create(AServer: TAxis2PointsDefinition); protected public property DefaultInterface: ksAxis2PointsDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoAxisEdgeDefinition provides a Create and CreateRemote method to // create instances of the default interface ksAxisEdgeDefinition exposed by // the CoClass AxisEdgeDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAxisEdgeDefinition = class class function Create: ksAxisEdgeDefinition; class function CreateRemote(const MachineName: string): ksAxisEdgeDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAxisEdgeDefinition // Help String : Îñü ïî ðåáðó. // Default Interface: ksAxisEdgeDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAxisEdgeDefinitionProperties= class; {$ENDIF} TAxisEdgeDefinition = class(TOleServer) private FIntf: ksAxisEdgeDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAxisEdgeDefinitionProperties; function GetServerProperties: TAxisEdgeDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksAxisEdgeDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAxisEdgeDefinition); procedure Disconnect; override; function SetEdge(const edge: IDispatch): WordBool; function GetEdge: IDispatch; property DefaultInterface: ksAxisEdgeDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAxisEdgeDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAxisEdgeDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAxisEdgeDefinitionProperties = class(TPersistent) private FServer: TAxisEdgeDefinition; function GetDefaultInterface: ksAxisEdgeDefinition; constructor Create(AServer: TAxisEdgeDefinition); protected public property DefaultInterface: ksAxisEdgeDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMeshCopyDefinition provides a Create and CreateRemote method to // create instances of the default interface ksMeshCopyDefinition exposed by // the CoClass MeshCopyDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMeshCopyDefinition = class class function Create: ksMeshCopyDefinition; class function CreateRemote(const MachineName: string): ksMeshCopyDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMeshCopyDefinition // Help String : Ïàðàìåòðû îïåðàöèè êîïèðîâàíèÿ ïî ñåòêå. // Default Interface: ksMeshCopyDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMeshCopyDefinitionProperties= class; {$ENDIF} TMeshCopyDefinition = class(TOleServer) private FIntf: ksMeshCopyDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMeshCopyDefinitionProperties; function GetServerProperties: TMeshCopyDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksMeshCopyDefinition; protected procedure InitServerData; override; function Get_angle1: Double; procedure Set_angle1(Value: Double); function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_angle2: Double; procedure Set_angle2(Value: Double); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_insideFlag: WordBool; procedure Set_insideFlag(Value: WordBool); function Get_geomArray: WordBool; procedure Set_geomArray(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMeshCopyDefinition); procedure Disconnect; override; function OperationArray: IDispatch; function GetCopyParamAlongAxis(firstAxis: WordBool; var angle: Double; var count: Integer; var step: Double; var factor: WordBool): WordBool; function SetCopyParamAlongAxis(firstAxis: WordBool; angle: Double; count: Integer; step: Double; factor: WordBool): WordBool; function DeletedCollection: IDispatch; function GetAxis1: IDispatch; function SetAxis1(const __MIDL_0014: IDispatch): WordBool; function GetAxis2: IDispatch; function SetAxis2(const __MIDL_0015: IDispatch): WordBool; property DefaultInterface: ksMeshCopyDefinition read GetDefaultInterface; property angle1: Double read Get_angle1 write Set_angle1; property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property angle2: Double read Get_angle2 write Set_angle2; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property insideFlag: WordBool read Get_insideFlag write Set_insideFlag; property geomArray: WordBool read Get_geomArray write Set_geomArray; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMeshCopyDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMeshCopyDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMeshCopyDefinitionProperties = class(TPersistent) private FServer: TMeshCopyDefinition; function GetDefaultInterface: ksMeshCopyDefinition; constructor Create(AServer: TMeshCopyDefinition); protected function Get_angle1: Double; procedure Set_angle1(Value: Double); function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_angle2: Double; procedure Set_angle2(Value: Double); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_insideFlag: WordBool; procedure Set_insideFlag(Value: WordBool); function Get_geomArray: WordBool; procedure Set_geomArray(Value: WordBool); public property DefaultInterface: ksMeshCopyDefinition read GetDefaultInterface; published property angle1: Double read Get_angle1 write Set_angle1; property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property angle2: Double read Get_angle2 write Set_angle2; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property insideFlag: WordBool read Get_insideFlag write Set_insideFlag; property geomArray: WordBool read Get_geomArray write Set_geomArray; end; {$ENDIF} // *********************************************************************// // The Class CoCircularCopyDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCircularCopyDefinition exposed by // the CoClass CircularCopyDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCircularCopyDefinition = class class function Create: ksCircularCopyDefinition; class function CreateRemote(const MachineName: string): ksCircularCopyDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCircularCopyDefinition // Help String : Ïàðàìåòðû îïåðàöèè êîïèðîâàíèÿ ïî êîíöåíòðè÷åñêîé ñåòêå. // Default Interface: ksCircularCopyDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCircularCopyDefinitionProperties= class; {$ENDIF} TCircularCopyDefinition = class(TOleServer) private FIntf: ksCircularCopyDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCircularCopyDefinitionProperties; function GetServerProperties: TCircularCopyDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCircularCopyDefinition; protected procedure InitServerData; override; function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_inverce: WordBool; procedure Set_inverce(Value: WordBool); function Get_geomArray: WordBool; procedure Set_geomArray(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCircularCopyDefinition); procedure Disconnect; override; function GetOperationArray: IDispatch; function GetAxis: IDispatch; function SetAxis(const axis: IDispatch): WordBool; function GetCopyParamAlongDir(var count: Integer; var step: Double; var factor: WordBool; dir: WordBool): WordBool; function SetCopyParamAlongDir(count: Integer; step: Double; factor: WordBool; dir: WordBool): WordBool; function DeletedCollection: IDispatch; property DefaultInterface: ksCircularCopyDefinition read GetDefaultInterface; property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property inverce: WordBool read Get_inverce write Set_inverce; property geomArray: WordBool read Get_geomArray write Set_geomArray; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCircularCopyDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCircularCopyDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCircularCopyDefinitionProperties = class(TPersistent) private FServer: TCircularCopyDefinition; function GetDefaultInterface: ksCircularCopyDefinition; constructor Create(AServer: TCircularCopyDefinition); protected function Get_count1: Integer; procedure Set_count1(Value: Integer); function Get_step1: Double; procedure Set_step1(Value: Double); function Get_factor1: WordBool; procedure Set_factor1(Value: WordBool); function Get_count2: Integer; procedure Set_count2(Value: Integer); function Get_step2: Double; procedure Set_step2(Value: Double); function Get_factor2: WordBool; procedure Set_factor2(Value: WordBool); function Get_inverce: WordBool; procedure Set_inverce(Value: WordBool); function Get_geomArray: WordBool; procedure Set_geomArray(Value: WordBool); public property DefaultInterface: ksCircularCopyDefinition read GetDefaultInterface; published property count1: Integer read Get_count1 write Set_count1; property step1: Double read Get_step1 write Set_step1; property factor1: WordBool read Get_factor1 write Set_factor1; property count2: Integer read Get_count2 write Set_count2; property step2: Double read Get_step2 write Set_step2; property factor2: WordBool read Get_factor2 write Set_factor2; property inverce: WordBool read Get_inverce write Set_inverce; property geomArray: WordBool read Get_geomArray write Set_geomArray; end; {$ENDIF} // *********************************************************************// // The Class CoCurveCopyDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCurveCopyDefinition exposed by // the CoClass CurveCopyDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurveCopyDefinition = class class function Create: ksCurveCopyDefinition; class function CreateRemote(const MachineName: string): ksCurveCopyDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurveCopyDefinition // Help String : Ïàðàìåòðû îïåðàöèè êîïèðîâàíèÿ ïî êðèâîé. // Default Interface: ksCurveCopyDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurveCopyDefinitionProperties= class; {$ENDIF} TCurveCopyDefinition = class(TOleServer) private FIntf: ksCurveCopyDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurveCopyDefinitionProperties; function GetServerProperties: TCurveCopyDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCurveCopyDefinition; protected procedure InitServerData; override; function Get_count: Integer; procedure Set_count(Value: Integer); function Get_step: Double; procedure Set_step(Value: Double); function Get_factor: WordBool; procedure Set_factor(Value: WordBool); function Get_keepAngle: WordBool; procedure Set_keepAngle(Value: WordBool); function Get_fullCurve: WordBool; procedure Set_fullCurve(Value: WordBool); function Get_sence: WordBool; procedure Set_sence(Value: WordBool); function Get_geomArray: WordBool; procedure Set_geomArray(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurveCopyDefinition); procedure Disconnect; override; function OperationArray: IDispatch; function CurveArray: IDispatch; function DeletedCollection: IDispatch; property DefaultInterface: ksCurveCopyDefinition read GetDefaultInterface; property count: Integer read Get_count write Set_count; property step: Double read Get_step write Set_step; property factor: WordBool read Get_factor write Set_factor; property keepAngle: WordBool read Get_keepAngle write Set_keepAngle; property fullCurve: WordBool read Get_fullCurve write Set_fullCurve; property sence: WordBool read Get_sence write Set_sence; property geomArray: WordBool read Get_geomArray write Set_geomArray; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurveCopyDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurveCopyDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurveCopyDefinitionProperties = class(TPersistent) private FServer: TCurveCopyDefinition; function GetDefaultInterface: ksCurveCopyDefinition; constructor Create(AServer: TCurveCopyDefinition); protected function Get_count: Integer; procedure Set_count(Value: Integer); function Get_step: Double; procedure Set_step(Value: Double); function Get_factor: WordBool; procedure Set_factor(Value: WordBool); function Get_keepAngle: WordBool; procedure Set_keepAngle(Value: WordBool); function Get_fullCurve: WordBool; procedure Set_fullCurve(Value: WordBool); function Get_sence: WordBool; procedure Set_sence(Value: WordBool); function Get_geomArray: WordBool; procedure Set_geomArray(Value: WordBool); public property DefaultInterface: ksCurveCopyDefinition read GetDefaultInterface; published property count: Integer read Get_count write Set_count; property step: Double read Get_step write Set_step; property factor: WordBool read Get_factor write Set_factor; property keepAngle: WordBool read Get_keepAngle write Set_keepAngle; property fullCurve: WordBool read Get_fullCurve write Set_fullCurve; property sence: WordBool read Get_sence write Set_sence; property geomArray: WordBool read Get_geomArray write Set_geomArray; end; {$ENDIF} // *********************************************************************// // The Class CoMirrorCopyDefinition provides a Create and CreateRemote method to // create instances of the default interface ksMirrorCopyDefinition exposed by // the CoClass MirrorCopyDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMirrorCopyDefinition = class class function Create: ksMirrorCopyDefinition; class function CreateRemote(const MachineName: string): ksMirrorCopyDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMirrorCopyDefinition // Help String : Ïàðàìåòðû îïåðàöèè Çåðêàëüíàÿ êîïèÿ. // Default Interface: ksMirrorCopyDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMirrorCopyDefinitionProperties= class; {$ENDIF} TMirrorCopyDefinition = class(TOleServer) private FIntf: ksMirrorCopyDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMirrorCopyDefinitionProperties; function GetServerProperties: TMirrorCopyDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksMirrorCopyDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMirrorCopyDefinition); procedure Disconnect; override; function GetOperationArray: IDispatch; function GetPlane: IDispatch; function SetPlane(const plane: IDispatch): WordBool; property DefaultInterface: ksMirrorCopyDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMirrorCopyDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMirrorCopyDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMirrorCopyDefinitionProperties = class(TPersistent) private FServer: TMirrorCopyDefinition; function GetDefaultInterface: ksMirrorCopyDefinition; constructor Create(AServer: TMirrorCopyDefinition); protected public property DefaultInterface: ksMirrorCopyDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMirrorCopyAllDefinition provides a Create and CreateRemote method to // create instances of the default interface ksMirrorCopyAllDefinition exposed by // the CoClass MirrorCopyAllDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMirrorCopyAllDefinition = class class function Create: ksMirrorCopyAllDefinition; class function CreateRemote(const MachineName: string): ksMirrorCopyAllDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMirrorCopyAllDefinition // Help String : Ïàðàìåòðû îïåðàöèè Çåðêàëüíî îòîáðàçèòü âñå. // Default Interface: ksMirrorCopyAllDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMirrorCopyAllDefinitionProperties= class; {$ENDIF} TMirrorCopyAllDefinition = class(TOleServer) private FIntf: ksMirrorCopyAllDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMirrorCopyAllDefinitionProperties; function GetServerProperties: TMirrorCopyAllDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksMirrorCopyAllDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMirrorCopyAllDefinition); procedure Disconnect; override; function GetPlane: IDispatch; function SetPlane(const plane: IDispatch): WordBool; property DefaultInterface: ksMirrorCopyAllDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMirrorCopyAllDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMirrorCopyAllDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMirrorCopyAllDefinitionProperties = class(TPersistent) private FServer: TMirrorCopyAllDefinition; function GetDefaultInterface: ksMirrorCopyAllDefinition; constructor Create(AServer: TMirrorCopyAllDefinition); protected public property DefaultInterface: ksMirrorCopyAllDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoConicSpiralDefinition provides a Create and CreateRemote method to // create instances of the default interface ksConicSpiralDefinition exposed by // the CoClass ConicSpiralDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoConicSpiralDefinition = class class function Create: ksConicSpiralDefinition; class function CreateRemote(const MachineName: string): ksConicSpiralDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TConicSpiralDefinition // Help String : Ñïèðàëü êîíè÷åñêàÿ. // Default Interface: ksConicSpiralDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TConicSpiralDefinitionProperties= class; {$ENDIF} TConicSpiralDefinition = class(TOleServer) private FIntf: ksConicSpiralDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TConicSpiralDefinitionProperties; function GetServerProperties: TConicSpiralDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksConicSpiralDefinition; protected procedure InitServerData; override; function Get_turn: Double; procedure Set_turn(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_turnDir: WordBool; procedure Set_turnDir(Value: WordBool); function Get_buildMode: Smallint; procedure Set_buildMode(Value: Smallint); function Get_buildDir: WordBool; procedure Set_buildDir(Value: WordBool); function Get_height: Double; procedure Set_height(Value: Double); function Get_heightType: Smallint; procedure Set_heightType(Value: Smallint); function Get_heightAdd: Double; procedure Set_heightAdd(Value: Double); function Get_heightAddHow: WordBool; procedure Set_heightAddHow(Value: WordBool); function Get_initialDiam: Double; procedure Set_initialDiam(Value: Double); function Get_initialDiamType: Smallint; procedure Set_initialDiamType(Value: Smallint); function Get_terminalDiam: Double; procedure Set_terminalDiam(Value: Double); function Get_terminalDiamType: Smallint; procedure Set_terminalDiamType(Value: Smallint); function Get_tiltAngleHow: WordBool; procedure Set_tiltAngleHow(Value: WordBool); function Get_firstAngle: Double; procedure Set_firstAngle(Value: Double); function Get_tiltAngle: Double; procedure Set_tiltAngle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksConicSpiralDefinition); procedure Disconnect; override; function GetPlane: IDispatch; function SetPlane(const plane: IDispatch): WordBool; function GetLocation(var x: Double; var y: Double): WordBool; function SetLocation(x: Double; y: Double): WordBool; function GetHeightObject: IDispatch; function SetHeightObject(const heightObject: IDispatch): WordBool; function GetInitialDiamObject: IDispatch; function SetInitialDiamObject(const initialDiamObject: IDispatch): WordBool; function GetTerminalDiamObject: IDispatch; function SetTerminalDiamObject(const terminalDiamObject: IDispatch): WordBool; property DefaultInterface: ksConicSpiralDefinition read GetDefaultInterface; property turn: Double read Get_turn write Set_turn; property step: Double read Get_step write Set_step; property turnDir: WordBool read Get_turnDir write Set_turnDir; property buildMode: Smallint read Get_buildMode write Set_buildMode; property buildDir: WordBool read Get_buildDir write Set_buildDir; property height: Double read Get_height write Set_height; property heightType: Smallint read Get_heightType write Set_heightType; property heightAdd: Double read Get_heightAdd write Set_heightAdd; property heightAddHow: WordBool read Get_heightAddHow write Set_heightAddHow; property initialDiam: Double read Get_initialDiam write Set_initialDiam; property initialDiamType: Smallint read Get_initialDiamType write Set_initialDiamType; property terminalDiam: Double read Get_terminalDiam write Set_terminalDiam; property terminalDiamType: Smallint read Get_terminalDiamType write Set_terminalDiamType; property tiltAngleHow: WordBool read Get_tiltAngleHow write Set_tiltAngleHow; property firstAngle: Double read Get_firstAngle write Set_firstAngle; property tiltAngle: Double read Get_tiltAngle write Set_tiltAngle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TConicSpiralDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TConicSpiralDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TConicSpiralDefinitionProperties = class(TPersistent) private FServer: TConicSpiralDefinition; function GetDefaultInterface: ksConicSpiralDefinition; constructor Create(AServer: TConicSpiralDefinition); protected function Get_turn: Double; procedure Set_turn(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_turnDir: WordBool; procedure Set_turnDir(Value: WordBool); function Get_buildMode: Smallint; procedure Set_buildMode(Value: Smallint); function Get_buildDir: WordBool; procedure Set_buildDir(Value: WordBool); function Get_height: Double; procedure Set_height(Value: Double); function Get_heightType: Smallint; procedure Set_heightType(Value: Smallint); function Get_heightAdd: Double; procedure Set_heightAdd(Value: Double); function Get_heightAddHow: WordBool; procedure Set_heightAddHow(Value: WordBool); function Get_initialDiam: Double; procedure Set_initialDiam(Value: Double); function Get_initialDiamType: Smallint; procedure Set_initialDiamType(Value: Smallint); function Get_terminalDiam: Double; procedure Set_terminalDiam(Value: Double); function Get_terminalDiamType: Smallint; procedure Set_terminalDiamType(Value: Smallint); function Get_tiltAngleHow: WordBool; procedure Set_tiltAngleHow(Value: WordBool); function Get_firstAngle: Double; procedure Set_firstAngle(Value: Double); function Get_tiltAngle: Double; procedure Set_tiltAngle(Value: Double); public property DefaultInterface: ksConicSpiralDefinition read GetDefaultInterface; published property turn: Double read Get_turn write Set_turn; property step: Double read Get_step write Set_step; property turnDir: WordBool read Get_turnDir write Set_turnDir; property buildMode: Smallint read Get_buildMode write Set_buildMode; property buildDir: WordBool read Get_buildDir write Set_buildDir; property height: Double read Get_height write Set_height; property heightType: Smallint read Get_heightType write Set_heightType; property heightAdd: Double read Get_heightAdd write Set_heightAdd; property heightAddHow: WordBool read Get_heightAddHow write Set_heightAddHow; property initialDiam: Double read Get_initialDiam write Set_initialDiam; property initialDiamType: Smallint read Get_initialDiamType write Set_initialDiamType; property terminalDiam: Double read Get_terminalDiam write Set_terminalDiam; property terminalDiamType: Smallint read Get_terminalDiamType write Set_terminalDiamType; property tiltAngleHow: WordBool read Get_tiltAngleHow write Set_tiltAngleHow; property firstAngle: Double read Get_firstAngle write Set_firstAngle; property tiltAngle: Double read Get_tiltAngle write Set_tiltAngle; end; {$ENDIF} // *********************************************************************// // The Class CoCylindricSpiralDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCylindricSpiralDefinition exposed by // the CoClass CylindricSpiralDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCylindricSpiralDefinition = class class function Create: ksCylindricSpiralDefinition; class function CreateRemote(const MachineName: string): ksCylindricSpiralDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCylindricSpiralDefinition // Help String : Ñïèðàëü öèëèíäðè÷åñêàÿ. // Default Interface: ksCylindricSpiralDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCylindricSpiralDefinitionProperties= class; {$ENDIF} TCylindricSpiralDefinition = class(TOleServer) private FIntf: ksCylindricSpiralDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCylindricSpiralDefinitionProperties; function GetServerProperties: TCylindricSpiralDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCylindricSpiralDefinition; protected procedure InitServerData; override; function Get_turn: Double; procedure Set_turn(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_turnDir: WordBool; procedure Set_turnDir(Value: WordBool); function Get_buildMode: Smallint; procedure Set_buildMode(Value: Smallint); function Get_buildDir: WordBool; procedure Set_buildDir(Value: WordBool); function Get_height: Double; procedure Set_height(Value: Double); function Get_heightType: Smallint; procedure Set_heightType(Value: Smallint); function Get_heightAdd: Double; procedure Set_heightAdd(Value: Double); function Get_heightAddHow: WordBool; procedure Set_heightAddHow(Value: WordBool); function Get_diam: Double; procedure Set_diam(Value: Double); function Get_diamType: Smallint; procedure Set_diamType(Value: Smallint); function Get_firstAngle: Double; procedure Set_firstAngle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCylindricSpiralDefinition); procedure Disconnect; override; function GetPlane: IDispatch; function SetPlane(const plane: IDispatch): WordBool; function GetLocation(var x: Double; var y: Double): WordBool; function SetLocation(x: Double; y: Double): WordBool; function GetHeightObject: IDispatch; function SetHeightObject(const heightObject: IDispatch): WordBool; function GetDiamObject: IDispatch; function SetDiamObject(const diamObject: IDispatch): WordBool; property DefaultInterface: ksCylindricSpiralDefinition read GetDefaultInterface; property turn: Double read Get_turn write Set_turn; property step: Double read Get_step write Set_step; property turnDir: WordBool read Get_turnDir write Set_turnDir; property buildMode: Smallint read Get_buildMode write Set_buildMode; property buildDir: WordBool read Get_buildDir write Set_buildDir; property height: Double read Get_height write Set_height; property heightType: Smallint read Get_heightType write Set_heightType; property heightAdd: Double read Get_heightAdd write Set_heightAdd; property heightAddHow: WordBool read Get_heightAddHow write Set_heightAddHow; property diam: Double read Get_diam write Set_diam; property diamType: Smallint read Get_diamType write Set_diamType; property firstAngle: Double read Get_firstAngle write Set_firstAngle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCylindricSpiralDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCylindricSpiralDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCylindricSpiralDefinitionProperties = class(TPersistent) private FServer: TCylindricSpiralDefinition; function GetDefaultInterface: ksCylindricSpiralDefinition; constructor Create(AServer: TCylindricSpiralDefinition); protected function Get_turn: Double; procedure Set_turn(Value: Double); function Get_step: Double; procedure Set_step(Value: Double); function Get_turnDir: WordBool; procedure Set_turnDir(Value: WordBool); function Get_buildMode: Smallint; procedure Set_buildMode(Value: Smallint); function Get_buildDir: WordBool; procedure Set_buildDir(Value: WordBool); function Get_height: Double; procedure Set_height(Value: Double); function Get_heightType: Smallint; procedure Set_heightType(Value: Smallint); function Get_heightAdd: Double; procedure Set_heightAdd(Value: Double); function Get_heightAddHow: WordBool; procedure Set_heightAddHow(Value: WordBool); function Get_diam: Double; procedure Set_diam(Value: Double); function Get_diamType: Smallint; procedure Set_diamType(Value: Smallint); function Get_firstAngle: Double; procedure Set_firstAngle(Value: Double); public property DefaultInterface: ksCylindricSpiralDefinition read GetDefaultInterface; published property turn: Double read Get_turn write Set_turn; property step: Double read Get_step write Set_step; property turnDir: WordBool read Get_turnDir write Set_turnDir; property buildMode: Smallint read Get_buildMode write Set_buildMode; property buildDir: WordBool read Get_buildDir write Set_buildDir; property height: Double read Get_height write Set_height; property heightType: Smallint read Get_heightType write Set_heightType; property heightAdd: Double read Get_heightAdd write Set_heightAdd; property heightAddHow: WordBool read Get_heightAddHow write Set_heightAddHow; property diam: Double read Get_diam write Set_diam; property diamType: Smallint read Get_diamType write Set_diamType; property firstAngle: Double read Get_firstAngle write Set_firstAngle; end; {$ENDIF} // *********************************************************************// // The Class CoPolyLineDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPolyLineDefinition exposed by // the CoClass PolyLineDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPolyLineDefinition = class class function Create: ksPolyLineDefinition; class function CreateRemote(const MachineName: string): ksPolyLineDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPolyLineDefinition // Help String : Ëîìàíàÿ. // Default Interface: ksPolyLineDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPolyLineDefinitionProperties= class; {$ENDIF} TPolyLineDefinition = class(TOleServer) private FIntf: ksPolyLineDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPolyLineDefinitionProperties; function GetServerProperties: TPolyLineDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPolyLineDefinition; protected procedure InitServerData; override; function Get_closed: WordBool; procedure Set_closed(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPolyLineDefinition); procedure Disconnect; override; function GetCountVertex: Integer; function AddVertex(x: Double; y: Double; z: Double; radius: Double): WordBool; function InsertVertex(index: Integer; x: Double; y: Double; z: Double; radius: Double): WordBool; function DeleteVertex(index: Integer): WordBool; function GetParamVertex(index: Integer; var x: Double; var y: Double; var z: Double; var radius: Double): WordBool; function Flush: WordBool; function ReadFromFile(const fileName: WideString): WordBool; function WriteToFile(const fileName: WideString): WordBool; property DefaultInterface: ksPolyLineDefinition read GetDefaultInterface; property closed: WordBool read Get_closed write Set_closed; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPolyLineDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPolyLineDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPolyLineDefinitionProperties = class(TPersistent) private FServer: TPolyLineDefinition; function GetDefaultInterface: ksPolyLineDefinition; constructor Create(AServer: TPolyLineDefinition); protected function Get_closed: WordBool; procedure Set_closed(Value: WordBool); public property DefaultInterface: ksPolyLineDefinition read GetDefaultInterface; published property closed: WordBool read Get_closed write Set_closed; end; {$ENDIF} // *********************************************************************// // The Class CoSplineDefinition provides a Create and CreateRemote method to // create instances of the default interface ksSplineDefinition exposed by // the CoClass SplineDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSplineDefinition = class class function Create: ksSplineDefinition; class function CreateRemote(const MachineName: string): ksSplineDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSplineDefinition // Help String : Ñïëàéí. // Default Interface: ksSplineDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSplineDefinitionProperties= class; {$ENDIF} TSplineDefinition = class(TOleServer) private FIntf: ksSplineDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSplineDefinitionProperties; function GetServerProperties: TSplineDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksSplineDefinition; protected procedure InitServerData; override; function Get_closed: WordBool; procedure Set_closed(Value: WordBool); function Get_splineOnPoles: WordBool; procedure Set_splineOnPoles(Value: WordBool); function Get_degree: Integer; procedure Set_degree(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSplineDefinition); procedure Disconnect; override; function GetCountVertex: Integer; function AddVertex(x: Double; y: Double; z: Double; radius: Double): WordBool; function InsertVertex(index: Integer; x: Double; y: Double; z: Double; weight: Double): WordBool; function DeleteVertex(index: Integer): WordBool; function GetParamVertex(index: Integer; var x: Double; var y: Double; var z: Double; var weight: Double): WordBool; function Flush: WordBool; function ReadFromFile(const fileName: WideString): WordBool; function WriteToFile(const fileName: WideString): WordBool; property DefaultInterface: ksSplineDefinition read GetDefaultInterface; property closed: WordBool read Get_closed write Set_closed; property splineOnPoles: WordBool read Get_splineOnPoles write Set_splineOnPoles; property degree: Integer read Get_degree write Set_degree; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSplineDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSplineDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSplineDefinitionProperties = class(TPersistent) private FServer: TSplineDefinition; function GetDefaultInterface: ksSplineDefinition; constructor Create(AServer: TSplineDefinition); protected function Get_closed: WordBool; procedure Set_closed(Value: WordBool); function Get_splineOnPoles: WordBool; procedure Set_splineOnPoles(Value: WordBool); function Get_degree: Integer; procedure Set_degree(Value: Integer); public property DefaultInterface: ksSplineDefinition read GetDefaultInterface; published property closed: WordBool read Get_closed write Set_closed; property splineOnPoles: WordBool read Get_splineOnPoles write Set_splineOnPoles; property degree: Integer read Get_degree write Set_degree; end; {$ENDIF} // *********************************************************************// // The Class CofaceDefinition provides a Create and CreateRemote method to // create instances of the default interface ksFaceDefinition exposed by // the CoClass faceDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CofaceDefinition = class class function Create: ksFaceDefinition; class function CreateRemote(const MachineName: string): ksFaceDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TfaceDefinition // Help String : Ïàðàìåòðû ãðàíè. // Default Interface: ksFaceDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TfaceDefinitionProperties= class; {$ENDIF} TfaceDefinition = class(TOleServer) private FIntf: ksFaceDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TfaceDefinitionProperties; function GetServerProperties: TfaceDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksFaceDefinition; protected procedure InitServerData; override; function Get_normalOrientation: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFaceDefinition); procedure Disconnect; override; function IsPlanar: WordBool; function IsCone: WordBool; function IsCylinder: WordBool; function GetCylinderParam(var h: Double; var r: Double): WordBool; function GetOwnerEntity: IDispatch; function GetSurface: IDispatch; function LoopCollection: IDispatch; function IsConnectedWith(const faceDefinition: IDispatch): WordBool; function ConnectedFaceCollection: IDispatch; function EdgeCollection: IDispatch; function GetNextFace: IDispatch; function IsTorus: WordBool; function IsSphere: WordBool; function IsNurbsSurface: WordBool; function IsRevolved: WordBool; function IsSwept: WordBool; function GetTessellation: IDispatch; function GetArea(bitVector: LongWord): Double; function GetEntity: IDispatch; property DefaultInterface: ksFaceDefinition read GetDefaultInterface; property normalOrientation: WordBool read Get_normalOrientation; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TfaceDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TfaceDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TfaceDefinitionProperties = class(TPersistent) private FServer: TfaceDefinition; function GetDefaultInterface: ksFaceDefinition; constructor Create(AServer: TfaceDefinition); protected function Get_normalOrientation: WordBool; public property DefaultInterface: ksFaceDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoEdgeDefinition provides a Create and CreateRemote method to // create instances of the default interface ksEdgeDefinition exposed by // the CoClass EdgeDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEdgeDefinition = class class function Create: ksEdgeDefinition; class function CreateRemote(const MachineName: string): ksEdgeDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEdgeDefinition // Help String : Ïàðàìåòðû ðåáðà. // Default Interface: ksEdgeDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEdgeDefinitionProperties= class; {$ENDIF} TEdgeDefinition = class(TOleServer) private FIntf: ksEdgeDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEdgeDefinitionProperties; function GetServerProperties: TEdgeDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksEdgeDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEdgeDefinition); procedure Disconnect; override; function IsStraight: WordBool; function GetOwnerEntity: IDispatch; function GetCurve3D: IDispatch; function GetAdjacentFace(facePlus: WordBool): IDispatch; function GetVertex(start: WordBool): IDispatch; function EdgeCollection(begin_: WordBool): IDispatch; function OrientedEdgeCollection: IDispatch; function IsArc: WordBool; function IsCircle: WordBool; function IsEllipse: WordBool; function IsNurbs: WordBool; function IsPeriodic: WordBool; function GetLength(bitVector: LongWord): Double; function GetEntity: IDispatch; property DefaultInterface: ksEdgeDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEdgeDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEdgeDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEdgeDefinitionProperties = class(TPersistent) private FServer: TEdgeDefinition; function GetDefaultInterface: ksEdgeDefinition; constructor Create(AServer: TEdgeDefinition); protected public property DefaultInterface: ksEdgeDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoChamferDefinition provides a Create and CreateRemote method to // create instances of the default interface ksChamferDefinition exposed by // the CoClass ChamferDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoChamferDefinition = class class function Create: ksChamferDefinition; class function CreateRemote(const MachineName: string): ksChamferDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TChamferDefinition // Help String : Ïàðàìåòðû îïåðàöèè ôàñêà. // Default Interface: ksChamferDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TChamferDefinitionProperties= class; {$ENDIF} TChamferDefinition = class(TOleServer) private FIntf: ksChamferDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TChamferDefinitionProperties; function GetServerProperties: TChamferDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksChamferDefinition; protected procedure InitServerData; override; function Get_tangent: WordBool; procedure Set_tangent(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksChamferDefinition); procedure Disconnect; override; function GetChamferParam(var transfer: WordBool; var distance1: Double; var distance2: Double): WordBool; function SetChamferParam(transfer: WordBool; distance1: Double; distance2: Double): WordBool; function array_: IDispatch; property DefaultInterface: ksChamferDefinition read GetDefaultInterface; property tangent: WordBool read Get_tangent write Set_tangent; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TChamferDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TChamferDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TChamferDefinitionProperties = class(TPersistent) private FServer: TChamferDefinition; function GetDefaultInterface: ksChamferDefinition; constructor Create(AServer: TChamferDefinition); protected function Get_tangent: WordBool; procedure Set_tangent(Value: WordBool); public property DefaultInterface: ksChamferDefinition read GetDefaultInterface; published property tangent: WordBool read Get_tangent write Set_tangent; end; {$ENDIF} // *********************************************************************// // The Class CoFilletDefinition provides a Create and CreateRemote method to // create instances of the default interface ksFilletDefinition exposed by // the CoClass FilletDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFilletDefinition = class class function Create: ksFilletDefinition; class function CreateRemote(const MachineName: string): ksFilletDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFilletDefinition // Help String : Ïàðàìåòðû îïåðàöèè ñêðóãëåíèÿ. // Default Interface: ksFilletDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFilletDefinitionProperties= class; {$ENDIF} TFilletDefinition = class(TOleServer) private FIntf: ksFilletDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFilletDefinitionProperties; function GetServerProperties: TFilletDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksFilletDefinition; protected procedure InitServerData; override; function Get_radius: Double; procedure Set_radius(Value: Double); function Get_tangent: WordBool; procedure Set_tangent(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFilletDefinition); procedure Disconnect; override; function array_: IDispatch; property DefaultInterface: ksFilletDefinition read GetDefaultInterface; property radius: Double read Get_radius write Set_radius; property tangent: WordBool read Get_tangent write Set_tangent; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFilletDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFilletDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFilletDefinitionProperties = class(TPersistent) private FServer: TFilletDefinition; function GetDefaultInterface: ksFilletDefinition; constructor Create(AServer: TFilletDefinition); protected function Get_radius: Double; procedure Set_radius(Value: Double); function Get_tangent: WordBool; procedure Set_tangent(Value: WordBool); public property DefaultInterface: ksFilletDefinition read GetDefaultInterface; published property radius: Double read Get_radius write Set_radius; property tangent: WordBool read Get_tangent write Set_tangent; end; {$ENDIF} // *********************************************************************// // The Class CoBaseExtrusionDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBaseExtrusionDefinition exposed by // the CoClass BaseExtrusionDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBaseExtrusionDefinition = class class function Create: ksBaseExtrusionDefinition; class function CreateRemote(const MachineName: string): ksBaseExtrusionDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBaseExtrusionDefinition // Help String : Ïàðàìåòðû áàçîâîé îïåðàöèè âûäàâëèâàíèÿ. // Default Interface: ksBaseExtrusionDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBaseExtrusionDefinitionProperties= class; {$ENDIF} TBaseExtrusionDefinition = class(TOleServer) private FIntf: ksBaseExtrusionDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBaseExtrusionDefinitionProperties; function GetServerProperties: TBaseExtrusionDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBaseExtrusionDefinition; protected procedure InitServerData; override; function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBaseExtrusionDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; function SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function ExtrusionParam: IDispatch; function GetDepthObject(normal: WordBool): IDispatch; function SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; function ResetDepthObject(normal: WordBool): WordBool; property DefaultInterface: ksBaseExtrusionDefinition read GetDefaultInterface; property directionType: Smallint read Get_directionType write Set_directionType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBaseExtrusionDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBaseExtrusionDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBaseExtrusionDefinitionProperties = class(TPersistent) private FServer: TBaseExtrusionDefinition; function GetDefaultInterface: ksBaseExtrusionDefinition; constructor Create(AServer: TBaseExtrusionDefinition); protected function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); public property DefaultInterface: ksBaseExtrusionDefinition read GetDefaultInterface; published property directionType: Smallint read Get_directionType write Set_directionType; end; {$ENDIF} // *********************************************************************// // The Class CoBossExtrusionDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBossExtrusionDefinition exposed by // the CoClass BossExtrusionDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBossExtrusionDefinition = class class function Create: ksBossExtrusionDefinition; class function CreateRemote(const MachineName: string): ksBossExtrusionDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBossExtrusionDefinition // Help String : Ïàðàìåòðû îïåðàöèè ïðèêëåèâàíèÿ. // Default Interface: ksBossExtrusionDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBossExtrusionDefinitionProperties= class; {$ENDIF} TBossExtrusionDefinition = class(TOleServer) private FIntf: ksBossExtrusionDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBossExtrusionDefinitionProperties; function GetServerProperties: TBossExtrusionDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBossExtrusionDefinition; protected procedure InitServerData; override; function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBossExtrusionDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; function SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function ExtrusionParam: IDispatch; function GetDepthObject(normal: WordBool): IDispatch; function SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; function ResetDepthObject(normal: WordBool): WordBool; property DefaultInterface: ksBossExtrusionDefinition read GetDefaultInterface; property directionType: Smallint read Get_directionType write Set_directionType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBossExtrusionDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBossExtrusionDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBossExtrusionDefinitionProperties = class(TPersistent) private FServer: TBossExtrusionDefinition; function GetDefaultInterface: ksBossExtrusionDefinition; constructor Create(AServer: TBossExtrusionDefinition); protected function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); public property DefaultInterface: ksBossExtrusionDefinition read GetDefaultInterface; published property directionType: Smallint read Get_directionType write Set_directionType; end; {$ENDIF} // *********************************************************************// // The Class CoCutExtrusionDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCutExtrusionDefinition exposed by // the CoClass CutExtrusionDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutExtrusionDefinition = class class function Create: ksCutExtrusionDefinition; class function CreateRemote(const MachineName: string): ksCutExtrusionDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutExtrusionDefinition // Help String : Ïàðàìåòðû îïåðàöèè âûðåçàíèÿ. // Default Interface: ksCutExtrusionDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutExtrusionDefinitionProperties= class; {$ENDIF} TCutExtrusionDefinition = class(TOleServer) private FIntf: ksCutExtrusionDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutExtrusionDefinitionProperties; function GetServerProperties: TCutExtrusionDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCutExtrusionDefinition; protected procedure InitServerData; override; function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutExtrusionDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; function SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function ExtrusionParam: IDispatch; function GetDepthObject(normal: WordBool): IDispatch; function SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; function ResetDepthObject(normal: WordBool): WordBool; property DefaultInterface: ksCutExtrusionDefinition read GetDefaultInterface; property directionType: Smallint read Get_directionType write Set_directionType; property cut: WordBool read Get_cut write Set_cut; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutExtrusionDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutExtrusionDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutExtrusionDefinitionProperties = class(TPersistent) private FServer: TCutExtrusionDefinition; function GetDefaultInterface: ksCutExtrusionDefinition; constructor Create(AServer: TCutExtrusionDefinition); protected function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public property DefaultInterface: ksCutExtrusionDefinition read GetDefaultInterface; published property directionType: Smallint read Get_directionType write Set_directionType; property cut: WordBool read Get_cut write Set_cut; end; {$ENDIF} // *********************************************************************// // The Class CoBaseLoftDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBaseLoftDefinition exposed by // the CoClass BaseLoftDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBaseLoftDefinition = class class function Create: ksBaseLoftDefinition; class function CreateRemote(const MachineName: string): ksBaseLoftDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBaseLoftDefinition // Help String : Áàçîâàÿ îïåðàöèÿ ïî ñå÷åíèÿì. // Default Interface: ksBaseLoftDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBaseLoftDefinitionProperties= class; {$ENDIF} TBaseLoftDefinition = class(TOleServer) private FIntf: ksBaseLoftDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBaseLoftDefinitionProperties; function GetServerProperties: TBaseLoftDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBaseLoftDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBaseLoftDefinition); procedure Disconnect; override; function GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; function SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function Sketchs: IDispatch; property DefaultInterface: ksBaseLoftDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBaseLoftDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBaseLoftDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBaseLoftDefinitionProperties = class(TPersistent) private FServer: TBaseLoftDefinition; function GetDefaultInterface: ksBaseLoftDefinition; constructor Create(AServer: TBaseLoftDefinition); protected public property DefaultInterface: ksBaseLoftDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoBossLoftDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBossLoftDefinition exposed by // the CoClass BossLoftDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBossLoftDefinition = class class function Create: ksBossLoftDefinition; class function CreateRemote(const MachineName: string): ksBossLoftDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBossLoftDefinition // Help String : Îïåðàöèÿ ïðèêëåèâàíèÿ ïî ñå÷åíèÿì. // Default Interface: ksBossLoftDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBossLoftDefinitionProperties= class; {$ENDIF} TBossLoftDefinition = class(TOleServer) private FIntf: ksBossLoftDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBossLoftDefinitionProperties; function GetServerProperties: TBossLoftDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBossLoftDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBossLoftDefinition); procedure Disconnect; override; function GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; function SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function Sketchs: IDispatch; property DefaultInterface: ksBossLoftDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBossLoftDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBossLoftDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBossLoftDefinitionProperties = class(TPersistent) private FServer: TBossLoftDefinition; function GetDefaultInterface: ksBossLoftDefinition; constructor Create(AServer: TBossLoftDefinition); protected public property DefaultInterface: ksBossLoftDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCutLoftDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCutLoftDefinition exposed by // the CoClass CutLoftDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutLoftDefinition = class class function Create: ksCutLoftDefinition; class function CreateRemote(const MachineName: string): ksCutLoftDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutLoftDefinition // Help String : Îïåðàöèÿ âûðåçàíèÿ ïî ñå÷åíèÿì. // Default Interface: ksCutLoftDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutLoftDefinitionProperties= class; {$ENDIF} TCutLoftDefinition = class(TOleServer) private FIntf: ksCutLoftDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutLoftDefinitionProperties; function GetServerProperties: TCutLoftDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCutLoftDefinition; protected procedure InitServerData; override; function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutLoftDefinition); procedure Disconnect; override; function GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; function SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function Sketchs: IDispatch; property DefaultInterface: ksCutLoftDefinition read GetDefaultInterface; property cut: WordBool read Get_cut write Set_cut; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutLoftDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutLoftDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutLoftDefinitionProperties = class(TPersistent) private FServer: TCutLoftDefinition; function GetDefaultInterface: ksCutLoftDefinition; constructor Create(AServer: TCutLoftDefinition); protected function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public property DefaultInterface: ksCutLoftDefinition read GetDefaultInterface; published property cut: WordBool read Get_cut write Set_cut; end; {$ENDIF} // *********************************************************************// // The Class CoInclineDefinition provides a Create and CreateRemote method to // create instances of the default interface ksInclineDefinition exposed by // the CoClass InclineDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoInclineDefinition = class class function Create: ksInclineDefinition; class function CreateRemote(const MachineName: string): ksInclineDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TInclineDefinition // Help String : Ïàðàìåòðû îïåðàöèè óêëîí. // Default Interface: ksInclineDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TInclineDefinitionProperties= class; {$ENDIF} TInclineDefinition = class(TOleServer) private FIntf: ksInclineDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TInclineDefinitionProperties; function GetServerProperties: TInclineDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksInclineDefinition; protected procedure InitServerData; override; function Get_angle: Double; procedure Set_angle(Value: Double); function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksInclineDefinition); procedure Disconnect; override; function FaceArray: IDispatch; function GetPlane: IDispatch; function SetPlane(const plane: IDispatch): WordBool; property DefaultInterface: ksInclineDefinition read GetDefaultInterface; property angle: Double read Get_angle write Set_angle; property direction: WordBool read Get_direction write Set_direction; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TInclineDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TInclineDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TInclineDefinitionProperties = class(TPersistent) private FServer: TInclineDefinition; function GetDefaultInterface: ksInclineDefinition; constructor Create(AServer: TInclineDefinition); protected function Get_angle: Double; procedure Set_angle(Value: Double); function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public property DefaultInterface: ksInclineDefinition read GetDefaultInterface; published property angle: Double read Get_angle write Set_angle; property direction: WordBool read Get_direction write Set_direction; end; {$ENDIF} // *********************************************************************// // The Class CoShellDefinition provides a Create and CreateRemote method to // create instances of the default interface ksShellDefinition exposed by // the CoClass ShellDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoShellDefinition = class class function Create: ksShellDefinition; class function CreateRemote(const MachineName: string): ksShellDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TShellDefinition // Help String : Ïàðàìåòðû îïåðàöèè îáîëî÷êà. // Default Interface: ksShellDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TShellDefinitionProperties= class; {$ENDIF} TShellDefinition = class(TOleServer) private FIntf: ksShellDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TShellDefinitionProperties; function GetServerProperties: TShellDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksShellDefinition; protected procedure InitServerData; override; function Get_thickness: Double; procedure Set_thickness(Value: Double); function Get_thinType: WordBool; procedure Set_thinType(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksShellDefinition); procedure Disconnect; override; function FaceArray: IDispatch; property DefaultInterface: ksShellDefinition read GetDefaultInterface; property thickness: Double read Get_thickness write Set_thickness; property thinType: WordBool read Get_thinType write Set_thinType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TShellDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TShellDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TShellDefinitionProperties = class(TPersistent) private FServer: TShellDefinition; function GetDefaultInterface: ksShellDefinition; constructor Create(AServer: TShellDefinition); protected function Get_thickness: Double; procedure Set_thickness(Value: Double); function Get_thinType: WordBool; procedure Set_thinType(Value: WordBool); public property DefaultInterface: ksShellDefinition read GetDefaultInterface; published property thickness: Double read Get_thickness write Set_thickness; property thinType: WordBool read Get_thinType write Set_thinType; end; {$ENDIF} // *********************************************************************// // The Class CoBaseEvolutionDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBaseEvolutionDefinition exposed by // the CoClass BaseEvolutionDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBaseEvolutionDefinition = class class function Create: ksBaseEvolutionDefinition; class function CreateRemote(const MachineName: string): ksBaseEvolutionDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBaseEvolutionDefinition // Help String : Ïàðàìåòðû áàçîâîé êèíåìàòè÷åñêîé îïåðàöèè. // Default Interface: ksBaseEvolutionDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBaseEvolutionDefinitionProperties= class; {$ENDIF} TBaseEvolutionDefinition = class(TOleServer) private FIntf: ksBaseEvolutionDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBaseEvolutionDefinitionProperties; function GetServerProperties: TBaseEvolutionDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBaseEvolutionDefinition; protected procedure InitServerData; override; function Get_sketchShiftType: Smallint; procedure Set_sketchShiftType(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBaseEvolutionDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function PathPartArray: IDispatch; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; property DefaultInterface: ksBaseEvolutionDefinition read GetDefaultInterface; property sketchShiftType: Smallint read Get_sketchShiftType write Set_sketchShiftType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBaseEvolutionDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBaseEvolutionDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBaseEvolutionDefinitionProperties = class(TPersistent) private FServer: TBaseEvolutionDefinition; function GetDefaultInterface: ksBaseEvolutionDefinition; constructor Create(AServer: TBaseEvolutionDefinition); protected function Get_sketchShiftType: Smallint; procedure Set_sketchShiftType(Value: Smallint); public property DefaultInterface: ksBaseEvolutionDefinition read GetDefaultInterface; published property sketchShiftType: Smallint read Get_sketchShiftType write Set_sketchShiftType; end; {$ENDIF} // *********************************************************************// // The Class CoBossEvolutionDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBossEvolutionDefinition exposed by // the CoClass BossEvolutionDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBossEvolutionDefinition = class class function Create: ksBossEvolutionDefinition; class function CreateRemote(const MachineName: string): ksBossEvolutionDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBossEvolutionDefinition // Help String : Ïàðàìåòðû îïåðàöèè ïðèêëåèòü êèíåìàòè÷åñêîé. // Default Interface: ksBossEvolutionDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBossEvolutionDefinitionProperties= class; {$ENDIF} TBossEvolutionDefinition = class(TOleServer) private FIntf: ksBossEvolutionDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBossEvolutionDefinitionProperties; function GetServerProperties: TBossEvolutionDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBossEvolutionDefinition; protected procedure InitServerData; override; function Get_sketchShiftType: Smallint; procedure Set_sketchShiftType(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBossEvolutionDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function PathPartArray: IDispatch; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; property DefaultInterface: ksBossEvolutionDefinition read GetDefaultInterface; property sketchShiftType: Smallint read Get_sketchShiftType write Set_sketchShiftType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBossEvolutionDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBossEvolutionDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBossEvolutionDefinitionProperties = class(TPersistent) private FServer: TBossEvolutionDefinition; function GetDefaultInterface: ksBossEvolutionDefinition; constructor Create(AServer: TBossEvolutionDefinition); protected function Get_sketchShiftType: Smallint; procedure Set_sketchShiftType(Value: Smallint); public property DefaultInterface: ksBossEvolutionDefinition read GetDefaultInterface; published property sketchShiftType: Smallint read Get_sketchShiftType write Set_sketchShiftType; end; {$ENDIF} // *********************************************************************// // The Class CoCutEvolutionDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCutEvolutionDefinition exposed by // the CoClass CutEvolutionDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutEvolutionDefinition = class class function Create: ksCutEvolutionDefinition; class function CreateRemote(const MachineName: string): ksCutEvolutionDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutEvolutionDefinition // Help String : Ïàðàìåòðû îïåðàöèè âûðåçàòü êèíåìàòè÷åñêè. // Default Interface: ksCutEvolutionDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutEvolutionDefinitionProperties= class; {$ENDIF} TCutEvolutionDefinition = class(TOleServer) private FIntf: ksCutEvolutionDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutEvolutionDefinitionProperties; function GetServerProperties: TCutEvolutionDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCutEvolutionDefinition; protected procedure InitServerData; override; function Get_sketchShiftType: Smallint; procedure Set_sketchShiftType(Value: Smallint); function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutEvolutionDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function PathPartArray: IDispatch; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; property DefaultInterface: ksCutEvolutionDefinition read GetDefaultInterface; property sketchShiftType: Smallint read Get_sketchShiftType write Set_sketchShiftType; property cut: WordBool read Get_cut write Set_cut; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutEvolutionDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutEvolutionDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutEvolutionDefinitionProperties = class(TPersistent) private FServer: TCutEvolutionDefinition; function GetDefaultInterface: ksCutEvolutionDefinition; constructor Create(AServer: TCutEvolutionDefinition); protected function Get_sketchShiftType: Smallint; procedure Set_sketchShiftType(Value: Smallint); function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public property DefaultInterface: ksCutEvolutionDefinition read GetDefaultInterface; published property sketchShiftType: Smallint read Get_sketchShiftType write Set_sketchShiftType; property cut: WordBool read Get_cut write Set_cut; end; {$ENDIF} // *********************************************************************// // The Class CoRibDefinition provides a Create and CreateRemote method to // create instances of the default interface ksRibDefinition exposed by // the CoClass RibDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRibDefinition = class class function Create: ksRibDefinition; class function CreateRemote(const MachineName: string): ksRibDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRibDefinition // Help String : Ïàðàìåòðû îïåðàöèè óêëîí. // Default Interface: ksRibDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRibDefinitionProperties= class; {$ENDIF} TRibDefinition = class(TOleServer) private FIntf: ksRibDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRibDefinitionProperties; function GetServerProperties: TRibDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksRibDefinition; protected procedure InitServerData; override; function Get_index: Integer; procedure Set_index(Value: Integer); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_side: Integer; procedure Set_side(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRibDefinition); procedure Disconnect; override; function GetSketch: IDispatch; function SetSketch(const sketch: IDispatch): WordBool; function GetThinParam(var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; property DefaultInterface: ksRibDefinition read GetDefaultInterface; property index: Integer read Get_index write Set_index; property angle: Double read Get_angle write Set_angle; property side: Integer read Get_side write Set_side; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRibDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRibDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRibDefinitionProperties = class(TPersistent) private FServer: TRibDefinition; function GetDefaultInterface: ksRibDefinition; constructor Create(AServer: TRibDefinition); protected function Get_index: Integer; procedure Set_index(Value: Integer); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_side: Integer; procedure Set_side(Value: Integer); public property DefaultInterface: ksRibDefinition read GetDefaultInterface; published property index: Integer read Get_index write Set_index; property angle: Double read Get_angle write Set_angle; property side: Integer read Get_side write Set_side; end; {$ENDIF} // *********************************************************************// // The Class CoCutByPlaneDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCutByPlaneDefinition exposed by // the CoClass CutByPlaneDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutByPlaneDefinition = class class function Create: ksCutByPlaneDefinition; class function CreateRemote(const MachineName: string): ksCutByPlaneDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutByPlaneDefinition // Help String : Ïàðàìåòðû îïåðàöèè ñå÷åíèå ïëîñêîñòüþ. // Default Interface: ksCutByPlaneDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutByPlaneDefinitionProperties= class; {$ENDIF} TCutByPlaneDefinition = class(TOleServer) private FIntf: ksCutByPlaneDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutByPlaneDefinitionProperties; function GetServerProperties: TCutByPlaneDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCutByPlaneDefinition; protected procedure InitServerData; override; function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutByPlaneDefinition); procedure Disconnect; override; function GetPlane: IDispatch; function SetPlane(const plane: IDispatch): WordBool; property DefaultInterface: ksCutByPlaneDefinition read GetDefaultInterface; property direction: WordBool read Get_direction write Set_direction; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutByPlaneDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutByPlaneDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutByPlaneDefinitionProperties = class(TPersistent) private FServer: TCutByPlaneDefinition; function GetDefaultInterface: ksCutByPlaneDefinition; constructor Create(AServer: TCutByPlaneDefinition); protected function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public property DefaultInterface: ksCutByPlaneDefinition read GetDefaultInterface; published property direction: WordBool read Get_direction write Set_direction; end; {$ENDIF} // *********************************************************************// // The Class CoCutBySketchDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCutBySketchDefinition exposed by // the CoClass CutBySketchDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutBySketchDefinition = class class function Create: ksCutBySketchDefinition; class function CreateRemote(const MachineName: string): ksCutBySketchDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutBySketchDefinition // Help String : Ïàðàìåòðû îïåðàöèè ñå÷åíèå ýñêèçîì. // Default Interface: ksCutBySketchDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutBySketchDefinitionProperties= class; {$ENDIF} TCutBySketchDefinition = class(TOleServer) private FIntf: ksCutBySketchDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutBySketchDefinitionProperties; function GetServerProperties: TCutBySketchDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCutBySketchDefinition; protected procedure InitServerData; override; function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutBySketchDefinition); procedure Disconnect; override; function GetSketch: IDispatch; function SetSketch(const sketch: IDispatch): WordBool; property DefaultInterface: ksCutBySketchDefinition read GetDefaultInterface; property direction: WordBool read Get_direction write Set_direction; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutBySketchDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutBySketchDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutBySketchDefinitionProperties = class(TPersistent) private FServer: TCutBySketchDefinition; function GetDefaultInterface: ksCutBySketchDefinition; constructor Create(AServer: TCutBySketchDefinition); protected function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public property DefaultInterface: ksCutBySketchDefinition read GetDefaultInterface; published property direction: WordBool read Get_direction write Set_direction; end; {$ENDIF} // *********************************************************************// // The Class CoPlaneOffsetDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneOffsetDefinition exposed by // the CoClass PlaneOffsetDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneOffsetDefinition = class class function Create: ksPlaneOffsetDefinition; class function CreateRemote(const MachineName: string): ksPlaneOffsetDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneOffsetDefinition // Help String : Ïàðàìåòðû ñìåùåííîé ïëîñêîñòè. // Default Interface: ksPlaneOffsetDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneOffsetDefinitionProperties= class; {$ENDIF} TPlaneOffsetDefinition = class(TOleServer) private FIntf: ksPlaneOffsetDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneOffsetDefinitionProperties; function GetServerProperties: TPlaneOffsetDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneOffsetDefinition; protected procedure InitServerData; override; function Get_offset: Double; procedure Set_offset(Value: Double); function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneOffsetDefinition); procedure Disconnect; override; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; property DefaultInterface: ksPlaneOffsetDefinition read GetDefaultInterface; property offset: Double read Get_offset write Set_offset; property direction: WordBool read Get_direction write Set_direction; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneOffsetDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneOffsetDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneOffsetDefinitionProperties = class(TPersistent) private FServer: TPlaneOffsetDefinition; function GetDefaultInterface: ksPlaneOffsetDefinition; constructor Create(AServer: TPlaneOffsetDefinition); protected function Get_offset: Double; procedure Set_offset(Value: Double); function Get_direction: WordBool; procedure Set_direction(Value: WordBool); public property DefaultInterface: ksPlaneOffsetDefinition read GetDefaultInterface; published property offset: Double read Get_offset write Set_offset; property direction: WordBool read Get_direction write Set_direction; end; {$ENDIF} // *********************************************************************// // The Class CoPlaneAngleDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneAngleDefinition exposed by // the CoClass PlaneAngleDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneAngleDefinition = class class function Create: ksPlaneAngleDefinition; class function CreateRemote(const MachineName: string): ksPlaneAngleDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneAngleDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ïîä óãëîì. // Default Interface: ksPlaneAngleDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneAngleDefinitionProperties= class; {$ENDIF} TPlaneAngleDefinition = class(TOleServer) private FIntf: ksPlaneAngleDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneAngleDefinitionProperties; function GetServerProperties: TPlaneAngleDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneAngleDefinition; protected procedure InitServerData; override; function Get_angle: Double; procedure Set_angle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneAngleDefinition); procedure Disconnect; override; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; function SetAxis(const axis: IDispatch): WordBool; function GetAxis: IDispatch; property DefaultInterface: ksPlaneAngleDefinition read GetDefaultInterface; property angle: Double read Get_angle write Set_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneAngleDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneAngleDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneAngleDefinitionProperties = class(TPersistent) private FServer: TPlaneAngleDefinition; function GetDefaultInterface: ksPlaneAngleDefinition; constructor Create(AServer: TPlaneAngleDefinition); protected function Get_angle: Double; procedure Set_angle(Value: Double); public property DefaultInterface: ksPlaneAngleDefinition read GetDefaultInterface; published property angle: Double read Get_angle write Set_angle; end; {$ENDIF} // *********************************************************************// // The Class CoPlane3PointsDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlane3PointsDefinition exposed by // the CoClass Plane3PointsDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlane3PointsDefinition = class class function Create: ksPlane3PointsDefinition; class function CreateRemote(const MachineName: string): ksPlane3PointsDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlane3PointsDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ïî 3 òî÷êàì. // Default Interface: ksPlane3PointsDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlane3PointsDefinitionProperties= class; {$ENDIF} TPlane3PointsDefinition = class(TOleServer) private FIntf: ksPlane3PointsDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlane3PointsDefinitionProperties; function GetServerProperties: TPlane3PointsDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlane3PointsDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlane3PointsDefinition); procedure Disconnect; override; function SetPoint(number: Integer; const point: IDispatch): WordBool; function GetPoint(number: Integer): IDispatch; property DefaultInterface: ksPlane3PointsDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlane3PointsDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlane3PointsDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlane3PointsDefinitionProperties = class(TPersistent) private FServer: TPlane3PointsDefinition; function GetDefaultInterface: ksPlane3PointsDefinition; constructor Create(AServer: TPlane3PointsDefinition); protected public property DefaultInterface: ksPlane3PointsDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPlaneNormalToSurfaceDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneNormalToSurfaceDefinition exposed by // the CoClass PlaneNormalToSurfaceDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneNormalToSurfaceDefinition = class class function Create: ksPlaneNormalToSurfaceDefinition; class function CreateRemote(const MachineName: string): ksPlaneNormalToSurfaceDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneNormalToSurfaceDefinition // Help String : Ïàðàìåòðû íîðìàëüíîé ïëîñêîñòè. // Default Interface: ksPlaneNormalToSurfaceDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneNormalToSurfaceDefinitionProperties= class; {$ENDIF} TPlaneNormalToSurfaceDefinition = class(TOleServer) private FIntf: ksPlaneNormalToSurfaceDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneNormalToSurfaceDefinitionProperties; function GetServerProperties: TPlaneNormalToSurfaceDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneNormalToSurfaceDefinition; protected procedure InitServerData; override; function Get_angle: Double; procedure Set_angle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneNormalToSurfaceDefinition); procedure Disconnect; override; function SetFace(const face: IDispatch): WordBool; function GetFace: IDispatch; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; property DefaultInterface: ksPlaneNormalToSurfaceDefinition read GetDefaultInterface; property angle: Double read Get_angle write Set_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneNormalToSurfaceDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneNormalToSurfaceDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneNormalToSurfaceDefinitionProperties = class(TPersistent) private FServer: TPlaneNormalToSurfaceDefinition; function GetDefaultInterface: ksPlaneNormalToSurfaceDefinition; constructor Create(AServer: TPlaneNormalToSurfaceDefinition); protected function Get_angle: Double; procedure Set_angle(Value: Double); public property DefaultInterface: ksPlaneNormalToSurfaceDefinition read GetDefaultInterface; published property angle: Double read Get_angle write Set_angle; end; {$ENDIF} // *********************************************************************// // The Class CoPlaneTangentToSurfaceDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneTangentToSurfaceDefinition exposed by // the CoClass PlaneTangentToSurfaceDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneTangentToSurfaceDefinition = class class function Create: ksPlaneTangentToSurfaceDefinition; class function CreateRemote(const MachineName: string): ksPlaneTangentToSurfaceDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneTangentToSurfaceDefinition // Help String : Ïàðàìåòðû êàñàòåëüíîé ïëîñêîñòè. // Default Interface: ksPlaneTangentToSurfaceDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneTangentToSurfaceDefinitionProperties= class; {$ENDIF} TPlaneTangentToSurfaceDefinition = class(TOleServer) private FIntf: ksPlaneTangentToSurfaceDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneTangentToSurfaceDefinitionProperties; function GetServerProperties: TPlaneTangentToSurfaceDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneTangentToSurfaceDefinition; protected procedure InitServerData; override; function Get_choosePlane: Smallint; procedure Set_choosePlane(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneTangentToSurfaceDefinition); procedure Disconnect; override; function SetFace(const face: IDispatch): WordBool; function GetFace: IDispatch; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; property DefaultInterface: ksPlaneTangentToSurfaceDefinition read GetDefaultInterface; property choosePlane: Smallint read Get_choosePlane write Set_choosePlane; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneTangentToSurfaceDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneTangentToSurfaceDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneTangentToSurfaceDefinitionProperties = class(TPersistent) private FServer: TPlaneTangentToSurfaceDefinition; function GetDefaultInterface: ksPlaneTangentToSurfaceDefinition; constructor Create(AServer: TPlaneTangentToSurfaceDefinition); protected function Get_choosePlane: Smallint; procedure Set_choosePlane(Value: Smallint); public property DefaultInterface: ksPlaneTangentToSurfaceDefinition read GetDefaultInterface; published property choosePlane: Smallint read Get_choosePlane write Set_choosePlane; end; {$ENDIF} // *********************************************************************// // The Class CoPlaneEdgePointDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneEdgePointDefinition exposed by // the CoClass PlaneEdgePointDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneEdgePointDefinition = class class function Create: ksPlaneEdgePointDefinition; class function CreateRemote(const MachineName: string): ksPlaneEdgePointDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneEdgePointDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ÷åðåç ðåáðî è âåðøèíó. // Default Interface: ksPlaneEdgePointDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneEdgePointDefinitionProperties= class; {$ENDIF} TPlaneEdgePointDefinition = class(TOleServer) private FIntf: ksPlaneEdgePointDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneEdgePointDefinitionProperties; function GetServerProperties: TPlaneEdgePointDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneEdgePointDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneEdgePointDefinition); procedure Disconnect; override; function SetEdge(const edge: IDispatch): WordBool; function GetEdge: IDispatch; function SetPoint(const point: IDispatch): WordBool; function GetPoint: IDispatch; property DefaultInterface: ksPlaneEdgePointDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneEdgePointDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneEdgePointDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneEdgePointDefinitionProperties = class(TPersistent) private FServer: TPlaneEdgePointDefinition; function GetDefaultInterface: ksPlaneEdgePointDefinition; constructor Create(AServer: TPlaneEdgePointDefinition); protected public property DefaultInterface: ksPlaneEdgePointDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPlaneParallelDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneParallelDefinition exposed by // the CoClass PlaneParallelDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneParallelDefinition = class class function Create: ksPlaneParallelDefinition; class function CreateRemote(const MachineName: string): ksPlaneParallelDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneParallelDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ÷åðåç âåðøèíó ïàðàëëåëüíî äðóãîé ïëîñêîñòè. // Default Interface: ksPlaneParallelDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneParallelDefinitionProperties= class; {$ENDIF} TPlaneParallelDefinition = class(TOleServer) private FIntf: ksPlaneParallelDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneParallelDefinitionProperties; function GetServerProperties: TPlaneParallelDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneParallelDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneParallelDefinition); procedure Disconnect; override; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; function SetPoint(const point: IDispatch): WordBool; function GetPoint: IDispatch; property DefaultInterface: ksPlaneParallelDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneParallelDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneParallelDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneParallelDefinitionProperties = class(TPersistent) private FServer: TPlaneParallelDefinition; function GetDefaultInterface: ksPlaneParallelDefinition; constructor Create(AServer: TPlaneParallelDefinition); protected public property DefaultInterface: ksPlaneParallelDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPlanePerpendicularDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlanePerpendicularDefinition exposed by // the CoClass PlanePerpendicularDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlanePerpendicularDefinition = class class function Create: ksPlanePerpendicularDefinition; class function CreateRemote(const MachineName: string): ksPlanePerpendicularDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlanePerpendicularDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ÷åðåç âåðøèíó ïåðïåíäèêóëÿðíî ðåáðó. // Default Interface: ksPlanePerpendicularDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlanePerpendicularDefinitionProperties= class; {$ENDIF} TPlanePerpendicularDefinition = class(TOleServer) private FIntf: ksPlanePerpendicularDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlanePerpendicularDefinitionProperties; function GetServerProperties: TPlanePerpendicularDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlanePerpendicularDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlanePerpendicularDefinition); procedure Disconnect; override; function SetEdge(const edge: IDispatch): WordBool; function GetEdge: IDispatch; function SetPoint(const point: IDispatch): WordBool; function GetPoint: IDispatch; property DefaultInterface: ksPlanePerpendicularDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlanePerpendicularDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlanePerpendicularDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlanePerpendicularDefinitionProperties = class(TPersistent) private FServer: TPlanePerpendicularDefinition; function GetDefaultInterface: ksPlanePerpendicularDefinition; constructor Create(AServer: TPlanePerpendicularDefinition); protected public property DefaultInterface: ksPlanePerpendicularDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPlaneLineToEdgeDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneLineToEdgeDefinition exposed by // the CoClass PlaneLineToEdgeDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneLineToEdgeDefinition = class class function Create: ksPlaneLineToEdgeDefinition; class function CreateRemote(const MachineName: string): ksPlaneLineToEdgeDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneLineToEdgeDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ÷åðåç ðåáðî ïàð-íî/ïåð-íî äðóãîìó ðåáðó. // Default Interface: ksPlaneLineToEdgeDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneLineToEdgeDefinitionProperties= class; {$ENDIF} TPlaneLineToEdgeDefinition = class(TOleServer) private FIntf: ksPlaneLineToEdgeDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneLineToEdgeDefinitionProperties; function GetServerProperties: TPlaneLineToEdgeDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneLineToEdgeDefinition; protected procedure InitServerData; override; function Get_parallel: WordBool; procedure Set_parallel(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneLineToEdgeDefinition); procedure Disconnect; override; function SetEdgeFirst(const edge1: IDispatch): WordBool; function GetEdgeFirst: IDispatch; function SetEdgeSecond(const edge2: IDispatch): WordBool; function GetEdgeSecond: IDispatch; property DefaultInterface: ksPlaneLineToEdgeDefinition read GetDefaultInterface; property parallel: WordBool read Get_parallel write Set_parallel; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneLineToEdgeDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneLineToEdgeDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneLineToEdgeDefinitionProperties = class(TPersistent) private FServer: TPlaneLineToEdgeDefinition; function GetDefaultInterface: ksPlaneLineToEdgeDefinition; constructor Create(AServer: TPlaneLineToEdgeDefinition); protected function Get_parallel: WordBool; procedure Set_parallel(Value: WordBool); public property DefaultInterface: ksPlaneLineToEdgeDefinition read GetDefaultInterface; published property parallel: WordBool read Get_parallel write Set_parallel; end; {$ENDIF} // *********************************************************************// // The Class CoPlaneLineToPlaneDefinition provides a Create and CreateRemote method to // create instances of the default interface ksPlaneLineToPlaneDefinition exposed by // the CoClass PlaneLineToPlaneDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneLineToPlaneDefinition = class class function Create: ksPlaneLineToPlaneDefinition; class function CreateRemote(const MachineName: string): ksPlaneLineToPlaneDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneLineToPlaneDefinition // Help String : Ïàðàìåòðû ïëîñêîñòè ÷åðåç ðåáðî ïàð-íî/ïåð-íî ãðàíè. // Default Interface: ksPlaneLineToPlaneDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneLineToPlaneDefinitionProperties= class; {$ENDIF} TPlaneLineToPlaneDefinition = class(TOleServer) private FIntf: ksPlaneLineToPlaneDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneLineToPlaneDefinitionProperties; function GetServerProperties: TPlaneLineToPlaneDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksPlaneLineToPlaneDefinition; protected procedure InitServerData; override; function Get_parallel: WordBool; procedure Set_parallel(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneLineToPlaneDefinition); procedure Disconnect; override; function SetEdge(const edge: IDispatch): WordBool; function GetEdge: IDispatch; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; property DefaultInterface: ksPlaneLineToPlaneDefinition read GetDefaultInterface; property parallel: WordBool read Get_parallel write Set_parallel; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneLineToPlaneDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneLineToPlaneDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneLineToPlaneDefinitionProperties = class(TPersistent) private FServer: TPlaneLineToPlaneDefinition; function GetDefaultInterface: ksPlaneLineToPlaneDefinition; constructor Create(AServer: TPlaneLineToPlaneDefinition); protected function Get_parallel: WordBool; procedure Set_parallel(Value: WordBool); public property DefaultInterface: ksPlaneLineToPlaneDefinition read GetDefaultInterface; published property parallel: WordBool read Get_parallel write Set_parallel; end; {$ENDIF} // *********************************************************************// // The Class CoThinParam provides a Create and CreateRemote method to // create instances of the default interface ksThinParam exposed by // the CoClass ThinParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoThinParam = class class function Create: ksThinParam; class function CreateRemote(const MachineName: string): ksThinParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TThinParam // Help String : Ïàðàìåòðû òîíêîé ñòåíêè. // Default Interface: ksThinParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TThinParamProperties= class; {$ENDIF} TThinParam = class(TOleServer) private FIntf: ksThinParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TThinParamProperties; function GetServerProperties: TThinParamProperties; {$ENDIF} function GetDefaultInterface: ksThinParam; protected procedure InitServerData; override; function Get_thin: WordBool; procedure Set_thin(Value: WordBool); function Get_thinType: Smallint; procedure Set_thinType(Value: Smallint); function Get_normalThickness: Double; procedure Set_normalThickness(Value: Double); function Get_reverseThickness: Double; procedure Set_reverseThickness(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksThinParam); procedure Disconnect; override; property DefaultInterface: ksThinParam read GetDefaultInterface; property thin: WordBool read Get_thin write Set_thin; property thinType: Smallint read Get_thinType write Set_thinType; property normalThickness: Double read Get_normalThickness write Set_normalThickness; property reverseThickness: Double read Get_reverseThickness write Set_reverseThickness; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TThinParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TThinParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TThinParamProperties = class(TPersistent) private FServer: TThinParam; function GetDefaultInterface: ksThinParam; constructor Create(AServer: TThinParam); protected function Get_thin: WordBool; procedure Set_thin(Value: WordBool); function Get_thinType: Smallint; procedure Set_thinType(Value: Smallint); function Get_normalThickness: Double; procedure Set_normalThickness(Value: Double); function Get_reverseThickness: Double; procedure Set_reverseThickness(Value: Double); public property DefaultInterface: ksThinParam read GetDefaultInterface; published property thin: WordBool read Get_thin write Set_thin; property thinType: Smallint read Get_thinType write Set_thinType; property normalThickness: Double read Get_normalThickness write Set_normalThickness; property reverseThickness: Double read Get_reverseThickness write Set_reverseThickness; end; {$ENDIF} // *********************************************************************// // The Class CoExtrusionParam provides a Create and CreateRemote method to // create instances of the default interface ksExtrusionParam exposed by // the CoClass ExtrusionParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExtrusionParam = class class function Create: ksExtrusionParam; class function CreateRemote(const MachineName: string): ksExtrusionParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExtrusionParam // Help String : Ïàðàìåòðû âûäàâëèâàíèÿ. // Default Interface: ksExtrusionParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TExtrusionParamProperties= class; {$ENDIF} TExtrusionParam = class(TOleServer) private FIntf: ksExtrusionParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TExtrusionParamProperties; function GetServerProperties: TExtrusionParamProperties; {$ENDIF} function GetDefaultInterface: ksExtrusionParam; protected procedure InitServerData; override; function Get_typeNormal: Smallint; procedure Set_typeNormal(Value: Smallint); function Get_depthNormal: Double; procedure Set_depthNormal(Value: Double); function Get_draftValueNormal: Double; procedure Set_draftValueNormal(Value: Double); function Get_draftOutwardNormal: WordBool; procedure Set_draftOutwardNormal(Value: WordBool); function Get_typeReverse: Smallint; procedure Set_typeReverse(Value: Smallint); function Get_depthReverse: Double; procedure Set_depthReverse(Value: Double); function Get_draftValueReverse: Double; procedure Set_draftValueReverse(Value: Double); function Get_draftOutwardReverse: WordBool; procedure Set_draftOutwardReverse(Value: WordBool); function Get_direction: Integer; procedure Set_direction(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksExtrusionParam); procedure Disconnect; override; property DefaultInterface: ksExtrusionParam read GetDefaultInterface; property typeNormal: Smallint read Get_typeNormal write Set_typeNormal; property depthNormal: Double read Get_depthNormal write Set_depthNormal; property draftValueNormal: Double read Get_draftValueNormal write Set_draftValueNormal; property draftOutwardNormal: WordBool read Get_draftOutwardNormal write Set_draftOutwardNormal; property typeReverse: Smallint read Get_typeReverse write Set_typeReverse; property depthReverse: Double read Get_depthReverse write Set_depthReverse; property draftValueReverse: Double read Get_draftValueReverse write Set_draftValueReverse; property draftOutwardReverse: WordBool read Get_draftOutwardReverse write Set_draftOutwardReverse; property direction: Integer read Get_direction write Set_direction; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TExtrusionParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TExtrusionParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TExtrusionParamProperties = class(TPersistent) private FServer: TExtrusionParam; function GetDefaultInterface: ksExtrusionParam; constructor Create(AServer: TExtrusionParam); protected function Get_typeNormal: Smallint; procedure Set_typeNormal(Value: Smallint); function Get_depthNormal: Double; procedure Set_depthNormal(Value: Double); function Get_draftValueNormal: Double; procedure Set_draftValueNormal(Value: Double); function Get_draftOutwardNormal: WordBool; procedure Set_draftOutwardNormal(Value: WordBool); function Get_typeReverse: Smallint; procedure Set_typeReverse(Value: Smallint); function Get_depthReverse: Double; procedure Set_depthReverse(Value: Double); function Get_draftValueReverse: Double; procedure Set_draftValueReverse(Value: Double); function Get_draftOutwardReverse: WordBool; procedure Set_draftOutwardReverse(Value: WordBool); function Get_direction: Integer; procedure Set_direction(Value: Integer); public property DefaultInterface: ksExtrusionParam read GetDefaultInterface; published property typeNormal: Smallint read Get_typeNormal write Set_typeNormal; property depthNormal: Double read Get_depthNormal write Set_depthNormal; property draftValueNormal: Double read Get_draftValueNormal write Set_draftValueNormal; property draftOutwardNormal: WordBool read Get_draftOutwardNormal write Set_draftOutwardNormal; property typeReverse: Smallint read Get_typeReverse write Set_typeReverse; property depthReverse: Double read Get_depthReverse write Set_depthReverse; property draftValueReverse: Double read Get_draftValueReverse write Set_draftValueReverse; property draftOutwardReverse: WordBool read Get_draftOutwardReverse write Set_draftOutwardReverse; property direction: Integer read Get_direction write Set_direction; end; {$ENDIF} // *********************************************************************// // The Class CoRotatedParam provides a Create and CreateRemote method to // create instances of the default interface ksRotatedParam exposed by // the CoClass RotatedParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRotatedParam = class class function Create: ksRotatedParam; class function CreateRemote(const MachineName: string): ksRotatedParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRotatedParam // Help String : Ïàðàìåòðû âðàùåíèÿ. // Default Interface: ksRotatedParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRotatedParamProperties= class; {$ENDIF} TRotatedParam = class(TOleServer) private FIntf: ksRotatedParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRotatedParamProperties; function GetServerProperties: TRotatedParamProperties; {$ENDIF} function GetDefaultInterface: ksRotatedParam; protected procedure InitServerData; override; function Get_angleNormal: Double; procedure Set_angleNormal(Value: Double); function Get_angleReverse: Double; procedure Set_angleReverse(Value: Double); function Get_toroidShape: WordBool; procedure Set_toroidShape(Value: WordBool); function Get_direction: Integer; procedure Set_direction(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRotatedParam); procedure Disconnect; override; property DefaultInterface: ksRotatedParam read GetDefaultInterface; property angleNormal: Double read Get_angleNormal write Set_angleNormal; property angleReverse: Double read Get_angleReverse write Set_angleReverse; property toroidShape: WordBool read Get_toroidShape write Set_toroidShape; property direction: Integer read Get_direction write Set_direction; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRotatedParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRotatedParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRotatedParamProperties = class(TPersistent) private FServer: TRotatedParam; function GetDefaultInterface: ksRotatedParam; constructor Create(AServer: TRotatedParam); protected function Get_angleNormal: Double; procedure Set_angleNormal(Value: Double); function Get_angleReverse: Double; procedure Set_angleReverse(Value: Double); function Get_toroidShape: WordBool; procedure Set_toroidShape(Value: WordBool); function Get_direction: Integer; procedure Set_direction(Value: Integer); public property DefaultInterface: ksRotatedParam read GetDefaultInterface; published property angleNormal: Double read Get_angleNormal write Set_angleNormal; property angleReverse: Double read Get_angleReverse write Set_angleReverse; property toroidShape: WordBool read Get_toroidShape write Set_toroidShape; property direction: Integer read Get_direction write Set_direction; end; {$ENDIF} // *********************************************************************// // The Class CoColorParam provides a Create and CreateRemote method to // create instances of the default interface ksColorParam exposed by // the CoClass ColorParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoColorParam = class class function Create: ksColorParam; class function CreateRemote(const MachineName: string): ksColorParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TColorParam // Help String : Ñâîéñòâà öâåòà îáúåêòà. // Default Interface: ksColorParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TColorParamProperties= class; {$ENDIF} TColorParam = class(TOleServer) private FIntf: ksColorParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TColorParamProperties; function GetServerProperties: TColorParamProperties; {$ENDIF} function GetDefaultInterface: ksColorParam; protected procedure InitServerData; override; function Get_color: Integer; procedure Set_color(Value: Integer); function Get_ambient: Double; procedure Set_ambient(Value: Double); function Get_diffuse: Double; procedure Set_diffuse(Value: Double); function Get_specularity: Double; procedure Set_specularity(Value: Double); function Get_shininess: Double; procedure Set_shininess(Value: Double); function Get_transparency: Double; procedure Set_transparency(Value: Double); function Get_emission: Double; procedure Set_emission(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksColorParam); procedure Disconnect; override; function Clear: WordBool; property DefaultInterface: ksColorParam read GetDefaultInterface; property color: Integer read Get_color write Set_color; property ambient: Double read Get_ambient write Set_ambient; property diffuse: Double read Get_diffuse write Set_diffuse; property specularity: Double read Get_specularity write Set_specularity; property shininess: Double read Get_shininess write Set_shininess; property transparency: Double read Get_transparency write Set_transparency; property emission: Double read Get_emission write Set_emission; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TColorParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TColorParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TColorParamProperties = class(TPersistent) private FServer: TColorParam; function GetDefaultInterface: ksColorParam; constructor Create(AServer: TColorParam); protected function Get_color: Integer; procedure Set_color(Value: Integer); function Get_ambient: Double; procedure Set_ambient(Value: Double); function Get_diffuse: Double; procedure Set_diffuse(Value: Double); function Get_specularity: Double; procedure Set_specularity(Value: Double); function Get_shininess: Double; procedure Set_shininess(Value: Double); function Get_transparency: Double; procedure Set_transparency(Value: Double); function Get_emission: Double; procedure Set_emission(Value: Double); public property DefaultInterface: ksColorParam read GetDefaultInterface; published property color: Integer read Get_color write Set_color; property ambient: Double read Get_ambient write Set_ambient; property diffuse: Double read Get_diffuse write Set_diffuse; property specularity: Double read Get_specularity write Set_specularity; property shininess: Double read Get_shininess write Set_shininess; property transparency: Double read Get_transparency write Set_transparency; property emission: Double read Get_emission write Set_emission; end; {$ENDIF} // *********************************************************************// // The Class CoBaseRotatedDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBaseRotatedDefinition exposed by // the CoClass BaseRotatedDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBaseRotatedDefinition = class class function Create: ksBaseRotatedDefinition; class function CreateRemote(const MachineName: string): ksBaseRotatedDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBaseRotatedDefinition // Help String : Áàçîâàÿ îïåðàöèÿ âðàùåíèÿ. // Default Interface: ksBaseRotatedDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBaseRotatedDefinitionProperties= class; {$ENDIF} TBaseRotatedDefinition = class(TOleServer) private FIntf: ksBaseRotatedDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBaseRotatedDefinitionProperties; function GetServerProperties: TBaseRotatedDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBaseRotatedDefinition; protected procedure InitServerData; override; function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_toroidShapeType: WordBool; procedure Set_toroidShapeType(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBaseRotatedDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function GetSideParam(side1: WordBool; var angle: Double): WordBool; function SetSideParam(side1: WordBool; angle: Double): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function RotatedParam: IDispatch; property DefaultInterface: ksBaseRotatedDefinition read GetDefaultInterface; property directionType: Smallint read Get_directionType write Set_directionType; property toroidShapeType: WordBool read Get_toroidShapeType write Set_toroidShapeType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBaseRotatedDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBaseRotatedDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBaseRotatedDefinitionProperties = class(TPersistent) private FServer: TBaseRotatedDefinition; function GetDefaultInterface: ksBaseRotatedDefinition; constructor Create(AServer: TBaseRotatedDefinition); protected function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_toroidShapeType: WordBool; procedure Set_toroidShapeType(Value: WordBool); public property DefaultInterface: ksBaseRotatedDefinition read GetDefaultInterface; published property directionType: Smallint read Get_directionType write Set_directionType; property toroidShapeType: WordBool read Get_toroidShapeType write Set_toroidShapeType; end; {$ENDIF} // *********************************************************************// // The Class CoBossRotatedDefinition provides a Create and CreateRemote method to // create instances of the default interface ksBossRotatedDefinition exposed by // the CoClass BossRotatedDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBossRotatedDefinition = class class function Create: ksBossRotatedDefinition; class function CreateRemote(const MachineName: string): ksBossRotatedDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBossRotatedDefinition // Help String : Îïåðàöèÿ ïðèêëåèâàíèÿ. // Default Interface: ksBossRotatedDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBossRotatedDefinitionProperties= class; {$ENDIF} TBossRotatedDefinition = class(TOleServer) private FIntf: ksBossRotatedDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBossRotatedDefinitionProperties; function GetServerProperties: TBossRotatedDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksBossRotatedDefinition; protected procedure InitServerData; override; function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_toroidShapeType: WordBool; procedure Set_toroidShapeType(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBossRotatedDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function GetSideParam(side1: WordBool; var angle: Double): WordBool; function SetSideParam(side1: WordBool; angle: Double): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function RotatedParam: IDispatch; property DefaultInterface: ksBossRotatedDefinition read GetDefaultInterface; property directionType: Smallint read Get_directionType write Set_directionType; property toroidShapeType: WordBool read Get_toroidShapeType write Set_toroidShapeType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBossRotatedDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBossRotatedDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBossRotatedDefinitionProperties = class(TPersistent) private FServer: TBossRotatedDefinition; function GetDefaultInterface: ksBossRotatedDefinition; constructor Create(AServer: TBossRotatedDefinition); protected function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_toroidShapeType: WordBool; procedure Set_toroidShapeType(Value: WordBool); public property DefaultInterface: ksBossRotatedDefinition read GetDefaultInterface; published property directionType: Smallint read Get_directionType write Set_directionType; property toroidShapeType: WordBool read Get_toroidShapeType write Set_toroidShapeType; end; {$ENDIF} // *********************************************************************// // The Class CoCutRotatedDefinition provides a Create and CreateRemote method to // create instances of the default interface ksCutRotatedDefinition exposed by // the CoClass CutRotatedDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCutRotatedDefinition = class class function Create: ksCutRotatedDefinition; class function CreateRemote(const MachineName: string): ksCutRotatedDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCutRotatedDefinition // Help String : Îïåðàöèÿ âûðåçàíèÿ. // Default Interface: ksCutRotatedDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCutRotatedDefinitionProperties= class; {$ENDIF} TCutRotatedDefinition = class(TOleServer) private FIntf: ksCutRotatedDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCutRotatedDefinitionProperties; function GetServerProperties: TCutRotatedDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksCutRotatedDefinition; protected procedure InitServerData; override; function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_toroidShapeType: WordBool; procedure Set_toroidShapeType(Value: WordBool); function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCutRotatedDefinition); procedure Disconnect; override; function SetSketch(const sketch: IDispatch): WordBool; function GetSketch: IDispatch; function GetSideParam(side1: WordBool; var angle: Double): WordBool; function SetSideParam(side1: WordBool; angle: Double): WordBool; function GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; function SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; function ThinParam: IDispatch; function RotatedParam: IDispatch; property DefaultInterface: ksCutRotatedDefinition read GetDefaultInterface; property directionType: Smallint read Get_directionType write Set_directionType; property toroidShapeType: WordBool read Get_toroidShapeType write Set_toroidShapeType; property cut: WordBool read Get_cut write Set_cut; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCutRotatedDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCutRotatedDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCutRotatedDefinitionProperties = class(TPersistent) private FServer: TCutRotatedDefinition; function GetDefaultInterface: ksCutRotatedDefinition; constructor Create(AServer: TCutRotatedDefinition); protected function Get_directionType: Smallint; procedure Set_directionType(Value: Smallint); function Get_toroidShapeType: WordBool; procedure Set_toroidShapeType(Value: WordBool); function Get_cut: WordBool; procedure Set_cut(Value: WordBool); public property DefaultInterface: ksCutRotatedDefinition read GetDefaultInterface; published property directionType: Smallint read Get_directionType write Set_directionType; property toroidShapeType: WordBool read Get_toroidShapeType write Set_toroidShapeType; property cut: WordBool read Get_cut write Set_cut; end; {$ENDIF} // *********************************************************************// // The Class CoSketchDefinition provides a Create and CreateRemote method to // create instances of the default interface ksSketchDefinition exposed by // the CoClass SketchDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSketchDefinition = class class function Create: ksSketchDefinition; class function CreateRemote(const MachineName: string): ksSketchDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSketchDefinition // Help String : Ïàðàìåòðû ýñêèçà. // Default Interface: ksSketchDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSketchDefinitionProperties= class; {$ENDIF} TSketchDefinition = class(TOleServer) private FIntf: ksSketchDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSketchDefinitionProperties; function GetServerProperties: TSketchDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksSketchDefinition; protected procedure InitServerData; override; function Get_angle: Double; procedure Set_angle(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSketchDefinition); procedure Disconnect; override; function EndEdit: WordBool; function SetPlane(const plane: IDispatch): WordBool; function GetPlane: IDispatch; function GetLocation(var x: Double; var y: Double): WordBool; function SetLocation(x: Double; y: Double): WordBool; function GetLoftPoint(var x: Double; var y: Double): WordBool; function UserSetPlacement(const prompt: WideString): WordBool; function BeginEdit: IDispatch; function AddProjectionOf(const entity: IDispatch): Integer; function SetLoftPoint(x: Double; y: Double): WordBool; property DefaultInterface: ksSketchDefinition read GetDefaultInterface; property angle: Double read Get_angle write Set_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSketchDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSketchDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSketchDefinitionProperties = class(TPersistent) private FServer: TSketchDefinition; function GetDefaultInterface: ksSketchDefinition; constructor Create(AServer: TSketchDefinition); protected function Get_angle: Double; procedure Set_angle(Value: Double); public property DefaultInterface: ksSketchDefinition read GetDefaultInterface; published property angle: Double read Get_angle write Set_angle; end; {$ENDIF} // *********************************************************************// // The Class CoRasterFormatParam provides a Create and CreateRemote method to // create instances of the default interface ksRasterFormatParam exposed by // the CoClass RasterFormatParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRasterFormatParam = class class function Create: ksRasterFormatParam; class function CreateRemote(const MachineName: string): ksRasterFormatParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRasterFormatParam // Help String : Ïàðàìåòðû äëÿ êîíâåðòàöèè â ðàñòðîâûé ôîðìàò. // Default Interface: ksRasterFormatParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRasterFormatParamProperties= class; {$ENDIF} TRasterFormatParam = class(TOleServer) private FIntf: ksRasterFormatParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRasterFormatParamProperties; function GetServerProperties: TRasterFormatParamProperties; {$ENDIF} function GetDefaultInterface: ksRasterFormatParam; protected procedure InitServerData; override; function Get_format: Smallint; procedure Set_format(Value: Smallint); function Get_colorBPP: Smallint; procedure Set_colorBPP(Value: Smallint); function Get_greyScale: WordBool; procedure Set_greyScale(Value: WordBool); function Get_extResolution: Integer; procedure Set_extResolution(Value: Integer); function Get_extScale: Double; procedure Set_extScale(Value: Double); function Get_colorType: Smallint; procedure Set_colorType(Value: Smallint); function Get_onlyThinLine: WordBool; procedure Set_onlyThinLine(Value: WordBool); function Get_pages: WideString; procedure Set_pages(const Value: WideString); function Get_rangeIndex: Smallint; procedure Set_rangeIndex(Value: Smallint); function Get_multiPageOutput: WordBool; procedure Set_multiPageOutput(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRasterFormatParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksRasterFormatParam read GetDefaultInterface; property format: Smallint read Get_format write Set_format; property colorBPP: Smallint read Get_colorBPP write Set_colorBPP; property greyScale: WordBool read Get_greyScale write Set_greyScale; property extResolution: Integer read Get_extResolution write Set_extResolution; property extScale: Double read Get_extScale write Set_extScale; property colorType: Smallint read Get_colorType write Set_colorType; property onlyThinLine: WordBool read Get_onlyThinLine write Set_onlyThinLine; property pages: WideString read Get_pages write Set_pages; property rangeIndex: Smallint read Get_rangeIndex write Set_rangeIndex; property multiPageOutput: WordBool read Get_multiPageOutput write Set_multiPageOutput; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRasterFormatParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRasterFormatParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRasterFormatParamProperties = class(TPersistent) private FServer: TRasterFormatParam; function GetDefaultInterface: ksRasterFormatParam; constructor Create(AServer: TRasterFormatParam); protected function Get_format: Smallint; procedure Set_format(Value: Smallint); function Get_colorBPP: Smallint; procedure Set_colorBPP(Value: Smallint); function Get_greyScale: WordBool; procedure Set_greyScale(Value: WordBool); function Get_extResolution: Integer; procedure Set_extResolution(Value: Integer); function Get_extScale: Double; procedure Set_extScale(Value: Double); function Get_colorType: Smallint; procedure Set_colorType(Value: Smallint); function Get_onlyThinLine: WordBool; procedure Set_onlyThinLine(Value: WordBool); function Get_pages: WideString; procedure Set_pages(const Value: WideString); function Get_rangeIndex: Smallint; procedure Set_rangeIndex(Value: Smallint); function Get_multiPageOutput: WordBool; procedure Set_multiPageOutput(Value: WordBool); public property DefaultInterface: ksRasterFormatParam read GetDefaultInterface; published property format: Smallint read Get_format write Set_format; property colorBPP: Smallint read Get_colorBPP write Set_colorBPP; property greyScale: WordBool read Get_greyScale write Set_greyScale; property extResolution: Integer read Get_extResolution write Set_extResolution; property extScale: Double read Get_extScale write Set_extScale; property colorType: Smallint read Get_colorType write Set_colorType; property onlyThinLine: WordBool read Get_onlyThinLine write Set_onlyThinLine; property pages: WideString read Get_pages write Set_pages; property rangeIndex: Smallint read Get_rangeIndex write Set_rangeIndex; property multiPageOutput: WordBool read Get_multiPageOutput write Set_multiPageOutput; end; {$ENDIF} // *********************************************************************// // The Class CoAdditionFormatParam provides a Create and CreateRemote method to // create instances of the default interface ksAdditionFormatParam exposed by // the CoClass AdditionFormatParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAdditionFormatParam = class class function Create: ksAdditionFormatParam; class function CreateRemote(const MachineName: string): ksAdditionFormatParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAdditionFormatParam // Help String : Ïàðàìåòðû äëÿ êîíâåðòàöèè â äîïîëíèòåëüíûå ôîðìàòû jgs, sat,xt,x_b, step, stl, VRML.. // Default Interface: ksAdditionFormatParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAdditionFormatParamProperties= class; {$ENDIF} TAdditionFormatParam = class(TOleServer) private FIntf: ksAdditionFormatParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAdditionFormatParamProperties; function GetServerProperties: TAdditionFormatParamProperties; {$ENDIF} function GetDefaultInterface: ksAdditionFormatParam; protected procedure InitServerData; override; function Get_format: Smallint; procedure Set_format(Value: Smallint); function Get_formatBinary: WordBool; procedure Set_formatBinary(Value: WordBool); function Get_topolgyIncluded: WordBool; procedure Set_topolgyIncluded(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAdditionFormatParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksAdditionFormatParam read GetDefaultInterface; property format: Smallint read Get_format write Set_format; property formatBinary: WordBool read Get_formatBinary write Set_formatBinary; property topolgyIncluded: WordBool read Get_topolgyIncluded write Set_topolgyIncluded; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAdditionFormatParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAdditionFormatParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAdditionFormatParamProperties = class(TPersistent) private FServer: TAdditionFormatParam; function GetDefaultInterface: ksAdditionFormatParam; constructor Create(AServer: TAdditionFormatParam); protected function Get_format: Smallint; procedure Set_format(Value: Smallint); function Get_formatBinary: WordBool; procedure Set_formatBinary(Value: WordBool); function Get_topolgyIncluded: WordBool; procedure Set_topolgyIncluded(Value: WordBool); public property DefaultInterface: ksAdditionFormatParam read GetDefaultInterface; published property format: Smallint read Get_format write Set_format; property formatBinary: WordBool read Get_formatBinary write Set_formatBinary; property topolgyIncluded: WordBool read Get_topolgyIncluded write Set_topolgyIncluded; end; {$ENDIF} // *********************************************************************// // The Class CoConstraintParam provides a Create and CreateRemote method to // create instances of the default interface ksConstraintParam exposed by // the CoClass ConstraintParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoConstraintParam = class class function Create: ksConstraintParam; class function CreateRemote(const MachineName: string): ksConstraintParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TConstraintParam // Help String : Ïàðàìåòðû äëÿ ïàðàìåòðè÷åñêèõ îãðàíè÷åíèé. // Default Interface: ksConstraintParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TConstraintParamProperties= class; {$ENDIF} TConstraintParam = class(TOleServer) private FIntf: ksConstraintParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TConstraintParamProperties; function GetServerProperties: TConstraintParamProperties; {$ENDIF} function GetDefaultInterface: ksConstraintParam; protected procedure InitServerData; override; function Get_constrType: Smallint; procedure Set_constrType(Value: Smallint); function Get_index: SYSINT; procedure Set_index(Value: SYSINT); function Get_partner: Integer; procedure Set_partner(Value: Integer); function Get_partnerIndex: SYSINT; procedure Set_partnerIndex(Value: SYSINT); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksConstraintParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksConstraintParam read GetDefaultInterface; property constrType: Smallint read Get_constrType write Set_constrType; property index: SYSINT read Get_index write Set_index; property partner: Integer read Get_partner write Set_partner; property partnerIndex: SYSINT read Get_partnerIndex write Set_partnerIndex; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TConstraintParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TConstraintParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TConstraintParamProperties = class(TPersistent) private FServer: TConstraintParam; function GetDefaultInterface: ksConstraintParam; constructor Create(AServer: TConstraintParam); protected function Get_constrType: Smallint; procedure Set_constrType(Value: Smallint); function Get_index: SYSINT; procedure Set_index(Value: SYSINT); function Get_partner: Integer; procedure Set_partner(Value: Integer); function Get_partnerIndex: SYSINT; procedure Set_partnerIndex(Value: SYSINT); public property DefaultInterface: ksConstraintParam read GetDefaultInterface; published property constrType: Smallint read Get_constrType write Set_constrType; property index: SYSINT read Get_index write Set_index; property partner: Integer read Get_partner write Set_partner; property partnerIndex: SYSINT read Get_partnerIndex write Set_partnerIndex; end; {$ENDIF} // *********************************************************************// // The Class CoImportedSurfaceDefinition provides a Create and CreateRemote method to // create instances of the default interface ksImportedSurfaceDefinition exposed by // the CoClass ImportedSurfaceDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoImportedSurfaceDefinition = class class function Create: ksImportedSurfaceDefinition; class function CreateRemote(const MachineName: string): ksImportedSurfaceDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TImportedSurfaceDefinition // Help String : Ïàðàìåòðû èìïîðòèðîâàííîé ïîâåðõíîñòè. // Default Interface: ksImportedSurfaceDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TImportedSurfaceDefinitionProperties= class; {$ENDIF} TImportedSurfaceDefinition = class(TOleServer) private FIntf: ksImportedSurfaceDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TImportedSurfaceDefinitionProperties; function GetServerProperties: TImportedSurfaceDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksImportedSurfaceDefinition; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksImportedSurfaceDefinition); procedure Disconnect; override; function Clear: WordBool; function BeginCurve: WordBool; function AddPoint(x: Double; y: Double; z: Double): WordBool; function EndCurve: WordBool; function AddCurve(arr: OleVariant): WordBool; property DefaultInterface: ksImportedSurfaceDefinition read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TImportedSurfaceDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TImportedSurfaceDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TImportedSurfaceDefinitionProperties = class(TPersistent) private FServer: TImportedSurfaceDefinition; function GetDefaultInterface: ksImportedSurfaceDefinition; constructor Create(AServer: TImportedSurfaceDefinition); protected public property DefaultInterface: ksImportedSurfaceDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoFaceCollection provides a Create and CreateRemote method to // create instances of the default interface ksFaceCollection exposed by // the CoClass FaceCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFaceCollection = class class function Create: ksFaceCollection; class function CreateRemote(const MachineName: string): ksFaceCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFaceCollection // Help String : Èíòåðôåéñ ìàññèâà ãðàíåé. // Default Interface: ksFaceCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFaceCollectionProperties= class; {$ENDIF} TFaceCollection = class(TOleServer) private FIntf: ksFaceCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFaceCollectionProperties; function GetServerProperties: TFaceCollectionProperties; {$ENDIF} function GetDefaultInterface: ksFaceCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFaceCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksFaceCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFaceCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFaceCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFaceCollectionProperties = class(TPersistent) private FServer: TFaceCollection; function GetDefaultInterface: ksFaceCollection; constructor Create(AServer: TFaceCollection); protected public property DefaultInterface: ksFaceCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoVertexDefinition provides a Create and CreateRemote method to // create instances of the default interface ksVertexDefinition exposed by // the CoClass VertexDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoVertexDefinition = class class function Create: ksVertexDefinition; class function CreateRemote(const MachineName: string): ksVertexDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TVertexDefinition // Help String : Îïèñàíèå âåðøèíû. // Default Interface: ksVertexDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TVertexDefinitionProperties= class; {$ENDIF} TVertexDefinition = class(TOleServer) private FIntf: ksVertexDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TVertexDefinitionProperties; function GetServerProperties: TVertexDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksVertexDefinition; protected procedure InitServerData; override; function Get_topologyVertex: WordBool; function Get_freeVertex: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksVertexDefinition); procedure Disconnect; override; function GetPoint(var x: Double; var y: Double; var z: Double): WordBool; function GetOwnerEntity: IDispatch; property DefaultInterface: ksVertexDefinition read GetDefaultInterface; property topologyVertex: WordBool read Get_topologyVertex; property freeVertex: WordBool read Get_freeVertex; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TVertexDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TVertexDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TVertexDefinitionProperties = class(TPersistent) private FServer: TVertexDefinition; function GetDefaultInterface: ksVertexDefinition; constructor Create(AServer: TVertexDefinition); protected function Get_topologyVertex: WordBool; function Get_freeVertex: WordBool; public property DefaultInterface: ksVertexDefinition read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoFeature provides a Create and CreateRemote method to // create instances of the default interface ksFeature exposed by // the CoClass Feature. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFeature = class class function Create: ksFeature; class function CreateRemote(const MachineName: string): ksFeature; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFeature // Help String : Èíòåðôåéñ îáúåêòà äåðåâà. // Default Interface: ksFeature // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFeatureProperties= class; {$ENDIF} TFeature = class(TOleServer) private FIntf: ksFeature; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFeatureProperties; function GetServerProperties: TFeatureProperties; {$ENDIF} function GetDefaultInterface: ksFeature; protected procedure InitServerData; override; function Get_excluded: WordBool; procedure Set_excluded(Value: WordBool); function Get_name: WideString; function Get_updateStamp: LongWord; function Get_type_: Smallint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFeature); procedure Disconnect; override; function IsModified(recursive: WordBool): WordBool; function SubFeatureCollection(through: WordBool; libObject: WordBool): IDispatch; function GetOwnerFeature: IDispatch; function IsValid: WordBool; function GetObject: IDispatch; function AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): ksAttribute3DCollection; function EntityCollection(objType: Smallint): ksEntityCollection; property DefaultInterface: ksFeature read GetDefaultInterface; property name: WideString read Get_name; property updateStamp: LongWord read Get_updateStamp; property type_: Smallint read Get_type_; property excluded: WordBool read Get_excluded write Set_excluded; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFeatureProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFeature // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFeatureProperties = class(TPersistent) private FServer: TFeature; function GetDefaultInterface: ksFeature; constructor Create(AServer: TFeature); protected function Get_excluded: WordBool; procedure Set_excluded(Value: WordBool); function Get_name: WideString; function Get_updateStamp: LongWord; function Get_type_: Smallint; public property DefaultInterface: ksFeature read GetDefaultInterface; published property excluded: WordBool read Get_excluded write Set_excluded; end; {$ENDIF} // *********************************************************************// // The Class CoTessellation provides a Create and CreateRemote method to // create instances of the default interface ksTessellation exposed by // the CoClass Tessellation. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTessellation = class class function Create: ksTessellation; class function CreateRemote(const MachineName: string): ksTessellation; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTessellation // Help String : Èíòåðôåéñ òðèàíãóëÿöèè. // Default Interface: ksTessellation // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTessellationProperties= class; {$ENDIF} TTessellation = class(TOleServer) private FIntf: ksTessellation; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTessellationProperties; function GetServerProperties: TTessellationProperties; {$ENDIF} function GetDefaultInterface: ksTessellation; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTessellation); procedure Disconnect; override; function GetFacetsCount: Integer; function GetFacetData(index: SYSINT; const facet: IDispatch): WordBool; function GetPointsCount: Integer; function GetPoint(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; function GetNormal(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; function SetFacetSize(sag: Double): WordBool; function GetFacetSize: Double; function GetFacet: IDispatch; function refresh: WordBool; property DefaultInterface: ksTessellation read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTessellationProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTessellation // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTessellationProperties = class(TPersistent) private FServer: TTessellation; function GetDefaultInterface: ksTessellation; constructor Create(AServer: TTessellation); protected public property DefaultInterface: ksTessellation read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class Cofacet provides a Create and CreateRemote method to // create instances of the default interface ksFacet exposed by // the CoClass facet. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// Cofacet = class class function Create: ksFacet; class function CreateRemote(const MachineName: string): ksFacet; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : Tfacet // Help String : Èíòåðôåéñ òðèàíãóëÿöèîííîé ïëàñòèíû. // Default Interface: ksFacet // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TfacetProperties= class; {$ENDIF} Tfacet = class(TOleServer) private FIntf: ksFacet; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TfacetProperties; function GetServerProperties: TfacetProperties; {$ENDIF} function GetDefaultInterface: ksFacet; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksFacet); procedure Disconnect; override; function GetPointsCount: SYSINT; function GetPoint(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; function GetNormal(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; function GetTessellationIndex(index: SYSINT): SYSINT; property DefaultInterface: ksFacet read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TfacetProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : Tfacet // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TfacetProperties = class(TPersistent) private FServer: Tfacet; function GetDefaultInterface: ksFacet; constructor Create(AServer: Tfacet); protected public property DefaultInterface: ksFacet read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoMeasurer provides a Create and CreateRemote method to // create instances of the default interface ksMeasurer exposed by // the CoClass Measurer. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMeasurer = class class function Create: ksMeasurer; class function CreateRemote(const MachineName: string): ksMeasurer; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMeasurer // Help String : Èíòåðôåéñ äëÿ èçìåðåíèé ðàññòîÿíèÿ è óãëà ìåæäó äâóìÿ ïðèìèòèâàìè ( ãðàíÿìè, ðåáðàìè, âåðøèíàìè). // Default Interface: ksMeasurer // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMeasurerProperties= class; {$ENDIF} TMeasurer = class(TOleServer) private FIntf: ksMeasurer; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMeasurerProperties; function GetServerProperties: TMeasurerProperties; {$ENDIF} function GetDefaultInterface: ksMeasurer; protected procedure InitServerData; override; function Get_unit_: LongWord; procedure Set_unit_(Value: LongWord); function Get_extendObject1: WordBool; procedure Set_extendObject1(Value: WordBool); function Get_extendObject2: WordBool; procedure Set_extendObject2(Value: WordBool); function Get_angle: Double; function Get_distance: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksMeasurer); procedure Disconnect; override; function SetObject1(const obj: IDispatch): WordBool; function SetObject2(const obj: IDispatch): WordBool; function GetObject1: IDispatch; function GetObject2: IDispatch; function Calc: WordBool; function IsAngleValid: WordBool; function GetPoint1(var x: Double; var y: Double; var z: Double): WordBool; function GetPoint2(var x: Double; var y: Double; var z: Double): WordBool; property DefaultInterface: ksMeasurer read GetDefaultInterface; property angle: Double read Get_angle; property distance: Double read Get_distance; property unit_: LongWord read Get_unit_ write Set_unit_; property extendObject1: WordBool read Get_extendObject1 write Set_extendObject1; property extendObject2: WordBool read Get_extendObject2 write Set_extendObject2; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMeasurerProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMeasurer // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMeasurerProperties = class(TPersistent) private FServer: TMeasurer; function GetDefaultInterface: ksMeasurer; constructor Create(AServer: TMeasurer); protected function Get_unit_: LongWord; procedure Set_unit_(Value: LongWord); function Get_extendObject1: WordBool; procedure Set_extendObject1(Value: WordBool); function Get_extendObject2: WordBool; procedure Set_extendObject2(Value: WordBool); function Get_angle: Double; function Get_distance: Double; public property DefaultInterface: ksMeasurer read GetDefaultInterface; published property unit_: LongWord read Get_unit_ write Set_unit_; property extendObject1: WordBool read Get_extendObject1 write Set_extendObject1; property extendObject2: WordBool read Get_extendObject2 write Set_extendObject2; end; {$ENDIF} // *********************************************************************// // The Class CoBodyCollection provides a Create and CreateRemote method to // create instances of the default interface ksBodyCollection exposed by // the CoClass BodyCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBodyCollection = class class function Create: ksBodyCollection; class function CreateRemote(const MachineName: string): ksBodyCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBodyCollection // Help String : Èíòåðôåéñ ìàññèâà òåë 3D. // Default Interface: ksBodyCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBodyCollectionProperties= class; {$ENDIF} TBodyCollection = class(TOleServer) private FIntf: ksBodyCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBodyCollectionProperties; function GetServerProperties: TBodyCollectionProperties; {$ENDIF} function GetDefaultInterface: ksBodyCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBodyCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksBodyCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBodyCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBodyCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBodyCollectionProperties = class(TPersistent) private FServer: TBodyCollection; function GetDefaultInterface: ksBodyCollection; constructor Create(AServer: TBodyCollection); protected public property DefaultInterface: ksBodyCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoBody provides a Create and CreateRemote method to // create instances of the default interface ksBody exposed by // the CoClass Body. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBody = class class function Create: ksBody; class function CreateRemote(const MachineName: string): ksBody; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBody // Help String : Òåëî 3D. // Default Interface: ksBody // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TBodyProperties= class; {$ENDIF} TBody = class(TOleServer) private FIntf: ksBody; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TBodyProperties; function GetServerProperties: TBodyProperties; {$ENDIF} function GetDefaultInterface: ksBody; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksBody); procedure Disconnect; override; function GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; function FaceCollection: IDispatch; function IsSolid: WordBool; function CalcMassInertiaProperties(bitVector: LongWord): IDispatch; property DefaultInterface: ksBody read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TBodyProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TBody // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TBodyProperties = class(TPersistent) private FServer: TBody; function GetDefaultInterface: ksBody; constructor Create(AServer: TBody); protected public property DefaultInterface: ksBody read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSurface provides a Create and CreateRemote method to // create instances of the default interface ksSurface exposed by // the CoClass Surface. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSurface = class class function Create: ksSurface; class function CreateRemote(const MachineName: string): ksSurface; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSurface // Help String : Ìàòåìàòè÷åñêèå ïîâåðõíîñòè â òðåõìåðíîì ïðîñòðàíñòâå. // Default Interface: ksSurface // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSurfaceProperties= class; {$ENDIF} TSurface = class(TOleServer) private FIntf: ksSurface; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSurfaceProperties; function GetServerProperties: TSurfaceProperties; {$ENDIF} function GetDefaultInterface: ksSurface; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSurface); procedure Disconnect; override; function GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; function GetPoint(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetNormal(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetTangentVectorU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetTangentVectorV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeUU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeUV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeUUU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeVVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeUVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeUUV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetParamUMin: Double; function GetParamUMax: Double; function GetParamVMin: Double; function GetParamVMax: Double; function IsClosedU: WordBool; function IsClosedV: WordBool; function IsPlane: WordBool; function IsCone: WordBool; function IsCylinder: WordBool; function IsTorus: WordBool; function IsSphere: WordBool; function IsNurbsSurface: WordBool; function IsRevolved: WordBool; function IsSwept: WordBool; function GetSurfaceParam: IDispatch; function GetArea(bitVector: LongWord): Double; property DefaultInterface: ksSurface read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSurfaceProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSurface // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSurfaceProperties = class(TPersistent) private FServer: TSurface; function GetDefaultInterface: ksSurface; constructor Create(AServer: TSurface); protected public property DefaultInterface: ksSurface read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoEdgeCollection provides a Create and CreateRemote method to // create instances of the default interface ksEdgeCollection exposed by // the CoClass EdgeCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEdgeCollection = class class function Create: ksEdgeCollection; class function CreateRemote(const MachineName: string): ksEdgeCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEdgeCollection // Help String : Èíòåðôåéñ ìàññèâà ðåáåð. // Default Interface: ksEdgeCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEdgeCollectionProperties= class; {$ENDIF} TEdgeCollection = class(TOleServer) private FIntf: ksEdgeCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEdgeCollectionProperties; function GetServerProperties: TEdgeCollectionProperties; {$ENDIF} function GetDefaultInterface: ksEdgeCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEdgeCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksEdgeCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEdgeCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEdgeCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEdgeCollectionProperties = class(TPersistent) private FServer: TEdgeCollection; function GetDefaultInterface: ksEdgeCollection; constructor Create(AServer: TEdgeCollection); protected public property DefaultInterface: ksEdgeCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoOrientedEdge provides a Create and CreateRemote method to // create instances of the default interface ksOrientedEdge exposed by // the CoClass OrientedEdge. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOrientedEdge = class class function Create: ksOrientedEdge; class function CreateRemote(const MachineName: string): ksOrientedEdge; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOrientedEdge // Help String : Èíòåðôåéñ îðèåíòèðîâàííîãî ðåáðà. // Default Interface: ksOrientedEdge // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOrientedEdgeProperties= class; {$ENDIF} TOrientedEdge = class(TOleServer) private FIntf: ksOrientedEdge; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOrientedEdgeProperties; function GetServerProperties: TOrientedEdgeProperties; {$ENDIF} function GetDefaultInterface: ksOrientedEdge; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksOrientedEdge); procedure Disconnect; override; function GetEdge: IDispatch; function GetOrientation: WordBool; function GetOwnerEntity: IDispatch; function GetNext: IDispatch; property DefaultInterface: ksOrientedEdge read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOrientedEdgeProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOrientedEdge // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOrientedEdgeProperties = class(TPersistent) private FServer: TOrientedEdge; function GetDefaultInterface: ksOrientedEdge; constructor Create(AServer: TOrientedEdge); protected public property DefaultInterface: ksOrientedEdge read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoOrientedEdgeCollection provides a Create and CreateRemote method to // create instances of the default interface ksOrientedEdgeCollection exposed by // the CoClass OrientedEdgeCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOrientedEdgeCollection = class class function Create: ksOrientedEdgeCollection; class function CreateRemote(const MachineName: string): ksOrientedEdgeCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOrientedEdgeCollection // Help String : Èíòåðôåéñ ìàññèâà îðèåíòèðîâàííûõ ðåáåð. // Default Interface: ksOrientedEdgeCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOrientedEdgeCollectionProperties= class; {$ENDIF} TOrientedEdgeCollection = class(TOleServer) private FIntf: ksOrientedEdgeCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOrientedEdgeCollectionProperties; function GetServerProperties: TOrientedEdgeCollectionProperties; {$ENDIF} function GetDefaultInterface: ksOrientedEdgeCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksOrientedEdgeCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksOrientedEdgeCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOrientedEdgeCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOrientedEdgeCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOrientedEdgeCollectionProperties = class(TPersistent) private FServer: TOrientedEdgeCollection; function GetDefaultInterface: ksOrientedEdgeCollection; constructor Create(AServer: TOrientedEdgeCollection); protected public property DefaultInterface: ksOrientedEdgeCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoLoop provides a Create and CreateRemote method to // create instances of the default interface ksLoop exposed by // the CoClass Loop. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLoop = class class function Create: ksLoop; class function CreateRemote(const MachineName: string): ksLoop; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLoop // Help String : Èíòåðôåéñ öèêëà. // Default Interface: ksLoop // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLoopProperties= class; {$ENDIF} TLoop = class(TOleServer) private FIntf: ksLoop; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLoopProperties; function GetServerProperties: TLoopProperties; {$ENDIF} function GetDefaultInterface: ksLoop; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLoop); procedure Disconnect; override; function OrientedEdgeCollection(const edge: IDispatch): IDispatch; function EdgeCollection: IDispatch; function IsOuter: WordBool; function GetLength(bitVector: LongWord): Double; property DefaultInterface: ksLoop read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLoopProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLoop // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLoopProperties = class(TPersistent) private FServer: TLoop; function GetDefaultInterface: ksLoop; constructor Create(AServer: TLoop); protected public property DefaultInterface: ksLoop read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoLoopCollection provides a Create and CreateRemote method to // create instances of the default interface ksLoopCollection exposed by // the CoClass LoopCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLoopCollection = class class function Create: ksLoopCollection; class function CreateRemote(const MachineName: string): ksLoopCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLoopCollection // Help String : Èíòåðôåéñ ìàññèâà öèêëîâ. // Default Interface: ksLoopCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLoopCollectionProperties= class; {$ENDIF} TLoopCollection = class(TOleServer) private FIntf: ksLoopCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLoopCollectionProperties; function GetServerProperties: TLoopCollectionProperties; {$ENDIF} function GetDefaultInterface: ksLoopCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLoopCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; property DefaultInterface: ksLoopCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLoopCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLoopCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLoopCollectionProperties = class(TPersistent) private FServer: TLoopCollection; function GetDefaultInterface: ksLoopCollection; constructor Create(AServer: TLoopCollection); protected public property DefaultInterface: ksLoopCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCurve3D provides a Create and CreateRemote method to // create instances of the default interface ksCurve3D exposed by // the CoClass Curve3D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCurve3D = class class function Create: ksCurve3D; class function CreateRemote(const MachineName: string): ksCurve3D; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCurve3D // Help String : Èíòåðôåéñ ìàòåìàòè÷åñêîé êðèâîé â òðåõìåðíîì ïðîñòðàíñòâå. // Default Interface: ksCurve3D // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCurve3DProperties= class; {$ENDIF} TCurve3D = class(TOleServer) private FIntf: ksCurve3D; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCurve3DProperties; function GetServerProperties: TCurve3DProperties; {$ENDIF} function GetDefaultInterface: ksCurve3D; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCurve3D); procedure Disconnect; override; function GetPoint(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetTangentVector(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetNormal(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeTT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetDerivativeTTT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; function GetParamMin: Double; function GetParamMax: Double; function IsClosed: WordBool; function IsPeriodic: WordBool; function GetMetricLength(startParam: Double; endParam: Double): Double; function GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; function IsDegenerate: WordBool; function IsPlanar: WordBool; function IsLineSeg: WordBool; function IsArc: WordBool; function IsCircle: WordBool; function IsEllipse: WordBool; function IsNurbs: WordBool; function GetCurveParam: IDispatch; function GetLength(bitVector: LongWord): Double; property DefaultInterface: ksCurve3D read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCurve3DProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCurve3D // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCurve3DProperties = class(TPersistent) private FServer: TCurve3D; function GetDefaultInterface: ksCurve3D; constructor Create(AServer: TCurve3D); protected public property DefaultInterface: ksCurve3D read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoLineSeg3dParam provides a Create and CreateRemote method to // create instances of the default interface ksLineSeg3dParam exposed by // the CoClass LineSeg3dParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoLineSeg3dParam = class class function Create: ksLineSeg3dParam; class function CreateRemote(const MachineName: string): ksLineSeg3dParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TLineSeg3dParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ 3d LineSeg. // Default Interface: ksLineSeg3dParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TLineSeg3dParamProperties= class; {$ENDIF} TLineSeg3dParam = class(TOleServer) private FIntf: ksLineSeg3dParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TLineSeg3dParamProperties; function GetServerProperties: TLineSeg3dParamProperties; {$ENDIF} function GetDefaultInterface: ksLineSeg3dParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksLineSeg3dParam); procedure Disconnect; override; function GetPointFirst(var x: Double; var y: Double; var z: Double): WordBool; function GetPointLast(var x: Double; var y: Double; var z: Double): WordBool; property DefaultInterface: ksLineSeg3dParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TLineSeg3dParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TLineSeg3dParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TLineSeg3dParamProperties = class(TPersistent) private FServer: TLineSeg3dParam; function GetDefaultInterface: ksLineSeg3dParam; constructor Create(AServer: TLineSeg3dParam); protected public property DefaultInterface: ksLineSeg3dParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCircle3dParam provides a Create and CreateRemote method to // create instances of the default interface ksCircle3dParam exposed by // the CoClass Circle3dParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCircle3dParam = class class function Create: ksCircle3dParam; class function CreateRemote(const MachineName: string): ksCircle3dParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCircle3dParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ 3d Circle. // Default Interface: ksCircle3dParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCircle3dParamProperties= class; {$ENDIF} TCircle3dParam = class(TOleServer) private FIntf: ksCircle3dParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCircle3dParamProperties; function GetServerProperties: TCircle3dParamProperties; {$ENDIF} function GetDefaultInterface: ksCircle3dParam; protected procedure InitServerData; override; function Get_radius: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCircle3dParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksCircle3dParam read GetDefaultInterface; property radius: Double read Get_radius; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCircle3dParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCircle3dParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCircle3dParamProperties = class(TPersistent) private FServer: TCircle3dParam; function GetDefaultInterface: ksCircle3dParam; constructor Create(AServer: TCircle3dParam); protected function Get_radius: Double; public property DefaultInterface: ksCircle3dParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoEllipse3dParam provides a Create and CreateRemote method to // create instances of the default interface ksEllipse3dParam exposed by // the CoClass Ellipse3dParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEllipse3dParam = class class function Create: ksEllipse3dParam; class function CreateRemote(const MachineName: string): ksEllipse3dParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEllipse3dParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ 3d Ellipse. // Default Interface: ksEllipse3dParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TEllipse3dParamProperties= class; {$ENDIF} TEllipse3dParam = class(TOleServer) private FIntf: ksEllipse3dParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TEllipse3dParamProperties; function GetServerProperties: TEllipse3dParamProperties; {$ENDIF} function GetDefaultInterface: ksEllipse3dParam; protected procedure InitServerData; override; function Get_majorRadius: Double; function Get_minorRadius: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksEllipse3dParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksEllipse3dParam read GetDefaultInterface; property majorRadius: Double read Get_majorRadius; property minorRadius: Double read Get_minorRadius; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TEllipse3dParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TEllipse3dParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TEllipse3dParamProperties = class(TPersistent) private FServer: TEllipse3dParam; function GetDefaultInterface: ksEllipse3dParam; constructor Create(AServer: TEllipse3dParam); protected function Get_majorRadius: Double; function Get_minorRadius: Double; public property DefaultInterface: ksEllipse3dParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPlaneParam provides a Create and CreateRemote method to // create instances of the default interface ksPlaneParam exposed by // the CoClass PlaneParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPlaneParam = class class function Create: ksPlaneParam; class function CreateRemote(const MachineName: string): ksPlaneParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPlaneParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ ïëîñêîñòè. // Default Interface: ksPlaneParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPlaneParamProperties= class; {$ENDIF} TPlaneParam = class(TOleServer) private FIntf: ksPlaneParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPlaneParamProperties; function GetServerProperties: TPlaneParamProperties; {$ENDIF} function GetDefaultInterface: ksPlaneParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksPlaneParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksPlaneParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPlaneParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPlaneParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPlaneParamProperties = class(TPersistent) private FServer: TPlaneParam; function GetDefaultInterface: ksPlaneParam; constructor Create(AServer: TPlaneParam); protected public property DefaultInterface: ksPlaneParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoConeParam provides a Create and CreateRemote method to // create instances of the default interface ksConeParam exposed by // the CoClass ConeParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoConeParam = class class function Create: ksConeParam; class function CreateRemote(const MachineName: string): ksConeParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TConeParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ êîíè÷åñêîé ïîâåðõíîñòè. // Default Interface: ksConeParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TConeParamProperties= class; {$ENDIF} TConeParam = class(TOleServer) private FIntf: ksConeParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TConeParamProperties; function GetServerProperties: TConeParamProperties; {$ENDIF} function GetDefaultInterface: ksConeParam; protected procedure InitServerData; override; function Get_radius: Double; function Get_height: Double; function Get_angle: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksConeParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksConeParam read GetDefaultInterface; property radius: Double read Get_radius; property height: Double read Get_height; property angle: Double read Get_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TConeParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TConeParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TConeParamProperties = class(TPersistent) private FServer: TConeParam; function GetDefaultInterface: ksConeParam; constructor Create(AServer: TConeParam); protected function Get_radius: Double; function Get_height: Double; function Get_angle: Double; public property DefaultInterface: ksConeParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCylinderParam provides a Create and CreateRemote method to // create instances of the default interface ksCylinderParam exposed by // the CoClass CylinderParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCylinderParam = class class function Create: ksCylinderParam; class function CreateRemote(const MachineName: string): ksCylinderParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCylinderParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ êîíè÷åñêîé ïîâåðõíîñòè. // Default Interface: ksCylinderParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCylinderParamProperties= class; {$ENDIF} TCylinderParam = class(TOleServer) private FIntf: ksCylinderParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCylinderParamProperties; function GetServerProperties: TCylinderParamProperties; {$ENDIF} function GetDefaultInterface: ksCylinderParam; protected procedure InitServerData; override; function Get_radius: Double; function Get_height: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCylinderParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksCylinderParam read GetDefaultInterface; property radius: Double read Get_radius; property height: Double read Get_height; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCylinderParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCylinderParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCylinderParamProperties = class(TPersistent) private FServer: TCylinderParam; function GetDefaultInterface: ksCylinderParam; constructor Create(AServer: TCylinderParam); protected function Get_radius: Double; function Get_height: Double; public property DefaultInterface: ksCylinderParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSphereParam provides a Create and CreateRemote method to // create instances of the default interface ksSphereParam exposed by // the CoClass SphereParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSphereParam = class class function Create: ksSphereParam; class function CreateRemote(const MachineName: string): ksSphereParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSphereParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ ñôåðû. // Default Interface: ksSphereParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSphereParamProperties= class; {$ENDIF} TSphereParam = class(TOleServer) private FIntf: ksSphereParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSphereParamProperties; function GetServerProperties: TSphereParamProperties; {$ENDIF} function GetDefaultInterface: ksSphereParam; protected procedure InitServerData; override; function Get_radius: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSphereParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksSphereParam read GetDefaultInterface; property radius: Double read Get_radius; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSphereParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSphereParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSphereParamProperties = class(TPersistent) private FServer: TSphereParam; function GetDefaultInterface: ksSphereParam; constructor Create(AServer: TSphereParam); protected function Get_radius: Double; public property DefaultInterface: ksSphereParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoTorusParam provides a Create and CreateRemote method to // create instances of the default interface ksTorusParam exposed by // the CoClass TorusParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTorusParam = class class function Create: ksTorusParam; class function CreateRemote(const MachineName: string): ksTorusParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTorusParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ òîðà. // Default Interface: ksTorusParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTorusParamProperties= class; {$ENDIF} TTorusParam = class(TOleServer) private FIntf: ksTorusParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTorusParamProperties; function GetServerProperties: TTorusParamProperties; {$ENDIF} function GetDefaultInterface: ksTorusParam; protected procedure InitServerData; override; function Get_radius: Double; function Get_generatrixRadius: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTorusParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksTorusParam read GetDefaultInterface; property radius: Double read Get_radius; property generatrixRadius: Double read Get_generatrixRadius; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTorusParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTorusParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTorusParamProperties = class(TPersistent) private FServer: TTorusParam; function GetDefaultInterface: ksTorusParam; constructor Create(AServer: TTorusParam); protected function Get_radius: Double; function Get_generatrixRadius: Double; public property DefaultInterface: ksTorusParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbsPoint3dParam provides a Create and CreateRemote method to // create instances of the default interface ksNurbsPoint3dParam exposed by // the CoClass NurbsPoint3dParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsPoint3dParam = class class function Create: ksNurbsPoint3dParam; class function CreateRemote(const MachineName: string): ksNurbsPoint3dParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsPoint3dParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ òî÷êè äëÿ Nurbs 3D. // Default Interface: ksNurbsPoint3dParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsPoint3dParamProperties= class; {$ENDIF} TNurbsPoint3dParam = class(TOleServer) private FIntf: ksNurbsPoint3dParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsPoint3dParamProperties; function GetServerProperties: TNurbsPoint3dParamProperties; {$ENDIF} function GetDefaultInterface: ksNurbsPoint3dParam; protected procedure InitServerData; override; function Get_weight: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsPoint3dParam); procedure Disconnect; override; function GetPoint(var x: Double; var y: Double; var z: Double): WordBool; property DefaultInterface: ksNurbsPoint3dParam read GetDefaultInterface; property weight: Double read Get_weight; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsPoint3dParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsPoint3dParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsPoint3dParamProperties = class(TPersistent) private FServer: TNurbsPoint3dParam; function GetDefaultInterface: ksNurbsPoint3dParam; constructor Create(AServer: TNurbsPoint3dParam); protected function Get_weight: Double; public property DefaultInterface: ksNurbsPoint3dParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbsSurfaceParam provides a Create and CreateRemote method to // create instances of the default interface ksNurbsSurfaceParam exposed by // the CoClass NurbsSurfaceParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsSurfaceParam = class class function Create: ksNurbsSurfaceParam; class function CreateRemote(const MachineName: string): ksNurbsSurfaceParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsSurfaceParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ Nurbs-ïîâåðõíîñòè. // Default Interface: ksNurbsSurfaceParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsSurfaceParamProperties= class; {$ENDIF} TNurbsSurfaceParam = class(TOleServer) private FIntf: ksNurbsSurfaceParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsSurfaceParamProperties; function GetServerProperties: TNurbsSurfaceParamProperties; {$ENDIF} function GetDefaultInterface: ksNurbsSurfaceParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsSurfaceParam); procedure Disconnect; override; function GetDegree(paramU: WordBool): Smallint; function GetClose(paramU: WordBool): WordBool; function GetPointCollection: IDispatch; function GetKnotCollection(paramU: WordBool): IDispatch; function GetPeriodic(paramU: WordBool): WordBool; property DefaultInterface: ksNurbsSurfaceParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsSurfaceParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsSurfaceParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsSurfaceParamProperties = class(TPersistent) private FServer: TNurbsSurfaceParam; function GetDefaultInterface: ksNurbsSurfaceParam; constructor Create(AServer: TNurbsSurfaceParam); protected public property DefaultInterface: ksNurbsSurfaceParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbs3dParam provides a Create and CreateRemote method to // create instances of the default interface ksNurbs3dParam exposed by // the CoClass Nurbs3dParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbs3dParam = class class function Create: ksNurbs3dParam; class function CreateRemote(const MachineName: string): ksNurbs3dParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbs3dParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ Nurbs-ñïëàéíà 3D. // Default Interface: ksNurbs3dParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbs3dParamProperties= class; {$ENDIF} TNurbs3dParam = class(TOleServer) private FIntf: ksNurbs3dParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbs3dParamProperties; function GetServerProperties: TNurbs3dParamProperties; {$ENDIF} function GetDefaultInterface: ksNurbs3dParam; protected procedure InitServerData; override; function Get_degree: Smallint; function Get_close: WordBool; function Get_periodic: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbs3dParam); procedure Disconnect; override; function GetPointCollection: IDispatch; function GetKnotCollection: IDispatch; property DefaultInterface: ksNurbs3dParam read GetDefaultInterface; property degree: Smallint read Get_degree; property close: WordBool read Get_close; property periodic: WordBool read Get_periodic; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbs3dParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbs3dParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbs3dParamProperties = class(TPersistent) private FServer: TNurbs3dParam; function GetDefaultInterface: ksNurbs3dParam; constructor Create(AServer: TNurbs3dParam); protected function Get_degree: Smallint; function Get_close: WordBool; function Get_periodic: WordBool; public property DefaultInterface: ksNurbs3dParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbsKnotCollection provides a Create and CreateRemote method to // create instances of the default interface ksNurbsKnotCollection exposed by // the CoClass NurbsKnotCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsKnotCollection = class class function Create: ksNurbsKnotCollection; class function CreateRemote(const MachineName: string): ksNurbsKnotCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsKnotCollection // Help String : Èíòåðôåéñ ìàññèâà óçëîâ äëÿ Nurbs 3D. // Default Interface: ksNurbsKnotCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsKnotCollectionProperties= class; {$ENDIF} TNurbsKnotCollection = class(TOleServer) private FIntf: ksNurbsKnotCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsKnotCollectionProperties; function GetServerProperties: TNurbsKnotCollectionProperties; {$ENDIF} function GetDefaultInterface: ksNurbsKnotCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsKnotCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: Double; function Last: Double; function Next: Double; function Prev: Double; function GetByIndex(index: Integer): Double; function Clear: WordBool; function Add(entity: Double): WordBool; function AddAt(entity: Double; index: Integer): WordBool; function AddBefore(entity: Double; base: Double): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(entity: Double): WordBool; function SetByIndex(entity: Double; index: Integer): WordBool; property DefaultInterface: ksNurbsKnotCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsKnotCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsKnotCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsKnotCollectionProperties = class(TPersistent) private FServer: TNurbsKnotCollection; function GetDefaultInterface: ksNurbsKnotCollection; constructor Create(AServer: TNurbsKnotCollection); protected public property DefaultInterface: ksNurbsKnotCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbsPoint3dCollCollection provides a Create and CreateRemote method to // create instances of the default interface ksNurbsPoint3dCollCollection exposed by // the CoClass NurbsPoint3dCollCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsPoint3dCollCollection = class class function Create: ksNurbsPoint3dCollCollection; class function CreateRemote(const MachineName: string): ksNurbsPoint3dCollCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsPoint3dCollCollection // Help String : Èíòåðôåéñ ìàññèâà ìàññèâîâ òî÷åê äëÿ Nurbs 3D Surface. // Default Interface: ksNurbsPoint3dCollCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsPoint3dCollCollectionProperties= class; {$ENDIF} TNurbsPoint3dCollCollection = class(TOleServer) private FIntf: ksNurbsPoint3dCollCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsPoint3dCollCollectionProperties; function GetServerProperties: TNurbsPoint3dCollCollectionProperties; {$ENDIF} function GetDefaultInterface: ksNurbsPoint3dCollCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsPoint3dCollCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function Clear: WordBool; function Add(const entity: IDispatch): WordBool; function AddAt(const entity: IDispatch; index: Integer): WordBool; function AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(const entity: IDispatch): WordBool; function SetByIndex(const entity: IDispatch; index: Integer): WordBool; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksNurbsPoint3dCollCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsPoint3dCollCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsPoint3dCollCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsPoint3dCollCollectionProperties = class(TPersistent) private FServer: TNurbsPoint3dCollCollection; function GetDefaultInterface: ksNurbsPoint3dCollCollection; constructor Create(AServer: TNurbsPoint3dCollCollection); protected public property DefaultInterface: ksNurbsPoint3dCollCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNurbsPoint3dCollection provides a Create and CreateRemote method to // create instances of the default interface ksNurbsPoint3dCollection exposed by // the CoClass NurbsPoint3dCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNurbsPoint3dCollection = class class function Create: ksNurbsPoint3dCollection; class function CreateRemote(const MachineName: string): ksNurbsPoint3dCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNurbsPoint3dCollection // Help String : Èíòåðôåéñ ìàññèâà òî÷åê äëÿ Nurbs 3D. // Default Interface: ksNurbsPoint3dCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNurbsPoint3dCollectionProperties= class; {$ENDIF} TNurbsPoint3dCollection = class(TOleServer) private FIntf: ksNurbsPoint3dCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNurbsPoint3dCollectionProperties; function GetServerProperties: TNurbsPoint3dCollectionProperties; {$ENDIF} function GetDefaultInterface: ksNurbsPoint3dCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksNurbsPoint3dCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function Clear: WordBool; function Add(const entity: IDispatch): WordBool; function AddAt(const entity: IDispatch; index: Integer): WordBool; function AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(const entity: IDispatch): WordBool; function SetByIndex(const entity: IDispatch; index: Integer): WordBool; function FindIt(const entity: IDispatch): Integer; property DefaultInterface: ksNurbsPoint3dCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNurbsPoint3dCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNurbsPoint3dCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNurbsPoint3dCollectionProperties = class(TPersistent) private FServer: TNurbsPoint3dCollection; function GetDefaultInterface: ksNurbsPoint3dCollection; constructor Create(AServer: TNurbsPoint3dCollection); protected public property DefaultInterface: ksNurbsPoint3dCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoViewProjection provides a Create and CreateRemote method to // create instances of the default interface ksViewProjection exposed by // the CoClass ViewProjection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoViewProjection = class class function Create: ksViewProjection; class function CreateRemote(const MachineName: string): ksViewProjection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TViewProjection // Help String : Èíòåðôåéñ ïðîåêöèè îòîáðàæåíèÿ ìîäåëè â îêíå. // Default Interface: ksViewProjection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TViewProjectionProperties= class; {$ENDIF} TViewProjection = class(TOleServer) private FIntf: ksViewProjection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TViewProjectionProperties; function GetServerProperties: TViewProjectionProperties; {$ENDIF} function GetDefaultInterface: ksViewProjection; protected procedure InitServerData; override; function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_scale: Double; procedure Set_scale(Value: Double); function Get_index: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksViewProjection); procedure Disconnect; override; function IsCurrent: WordBool; function SetCurrent: WordBool; function GetPlacement: IDispatch; function SetPlacement(const place: IDispatch): WordBool; property DefaultInterface: ksViewProjection read GetDefaultInterface; property index: Integer read Get_index; property name: WideString read Get_name write Set_name; property scale: Double read Get_scale write Set_scale; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TViewProjectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TViewProjection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TViewProjectionProperties = class(TPersistent) private FServer: TViewProjection; function GetDefaultInterface: ksViewProjection; constructor Create(AServer: TViewProjection); protected function Get_name: WideString; procedure Set_name(const Value: WideString); function Get_scale: Double; procedure Set_scale(Value: Double); function Get_index: Integer; public property DefaultInterface: ksViewProjection read GetDefaultInterface; published property name: WideString read Get_name write Set_name; property scale: Double read Get_scale write Set_scale; end; {$ENDIF} // *********************************************************************// // The Class CoViewProjectionCollection provides a Create and CreateRemote method to // create instances of the default interface ksViewProjectionCollection exposed by // the CoClass ViewProjectionCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoViewProjectionCollection = class class function Create: ksViewProjectionCollection; class function CreateRemote(const MachineName: string): ksViewProjectionCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TViewProjectionCollection // Help String : Èíòåðôåéñ ìàññèâà ïðîåêöèé îòîáðàæåíèÿ ìîäåëè â îêíå. // Default Interface: ksViewProjectionCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TViewProjectionCollectionProperties= class; {$ENDIF} TViewProjectionCollection = class(TOleServer) private FIntf: ksViewProjectionCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TViewProjectionCollectionProperties; function GetServerProperties: TViewProjectionCollectionProperties; {$ENDIF} function GetDefaultInterface: ksViewProjectionCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksViewProjectionCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetByIndex(index: Integer): IDispatch; function GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; function FindIt(const entity: IDispatch): Integer; function Add(const entity: IDispatch): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(const entity: IDispatch): WordBool; function DetachByName(const name: WideString): WordBool; function NewViewProjection: IDispatch; property DefaultInterface: ksViewProjectionCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TViewProjectionCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TViewProjectionCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TViewProjectionCollectionProperties = class(TPersistent) private FServer: TViewProjectionCollection; function GetDefaultInterface: ksViewProjectionCollection; constructor Create(AServer: TViewProjectionCollection); protected public property DefaultInterface: ksViewProjectionCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoSelectionMng provides a Create and CreateRemote method to // create instances of the default interface ksSelectionMng exposed by // the CoClass SelectionMng. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSelectionMng = class class function Create: ksSelectionMng; class function CreateRemote(const MachineName: string): ksSelectionMng; end; TSelectionMngSelect = procedure(Sender: TObject; obj: OleVariant) of object; TSelectionMngUnselect = procedure(Sender: TObject; obj: OleVariant) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSelectionMng // Help String : Èíòåðôåéñ ìåíåäæåðà ñåëåêòèðîâàííûõ îáúåêòîâ. // Default Interface: ksSelectionMng // Def. Intf. DISP? : Yes // Event Interface: ksSelectionMngNotify // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSelectionMngProperties= class; {$ENDIF} TSelectionMng = class(TOleServer) private FOnSelect: TSelectionMngSelect; FOnUnselect: TSelectionMngUnselect; FOnUnselectAll: TNotifyEvent; FIntf: ksSelectionMng; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSelectionMngProperties; function GetServerProperties: TSelectionMngProperties; {$ENDIF} function GetDefaultInterface: ksSelectionMng; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksSelectionMng); procedure Disconnect; override; function Select(const obj: IDispatch): WordBool; function Unselect(const obj: IDispatch): WordBool; function UnselectAll: WordBool; function IsSelected(const obj: IDispatch): WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetObjectByIndex(index: Integer): IDispatch; function GetObjectType(index: Integer): Integer; property DefaultInterface: ksSelectionMng read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSelectionMngProperties read GetServerProperties; {$ENDIF} property OnSelect: TSelectionMngSelect read FOnSelect write FOnSelect; property OnUnselect: TSelectionMngUnselect read FOnUnselect write FOnUnselect; property OnUnselectAll: TNotifyEvent read FOnUnselectAll write FOnUnselectAll; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSelectionMng // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSelectionMngProperties = class(TPersistent) private FServer: TSelectionMng; function GetDefaultInterface: ksSelectionMng; constructor Create(AServer: TSelectionMng); protected public property DefaultInterface: ksSelectionMng read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoChooseMng provides a Create and CreateRemote method to // create instances of the default interface ksChooseMng exposed by // the CoClass ChooseMng. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoChooseMng = class class function Create: ksChooseMng; class function CreateRemote(const MachineName: string): ksChooseMng; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TChooseMng // Help String : Èíòåðôåéñ ìåíåäæåðà âûáîðà (ïîäñâåòêè) îáúåêòîâ. // Default Interface: ksChooseMng // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TChooseMngProperties= class; {$ENDIF} TChooseMng = class(TOleServer) private FIntf: ksChooseMng; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TChooseMngProperties; function GetServerProperties: TChooseMngProperties; {$ENDIF} function GetDefaultInterface: ksChooseMng; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksChooseMng); procedure Disconnect; override; function Choose(const obj: IDispatch): WordBool; function UnChoose(const obj: IDispatch): WordBool; function UnChooseAll: WordBool; function IsChoosen(const obj: IDispatch): WordBool; function GetCount: Integer; function First: IDispatch; function Last: IDispatch; function Next: IDispatch; function Prev: IDispatch; function GetObjectByIndex(index: Integer): IDispatch; function GetObjectType(index: Integer): Integer; property DefaultInterface: ksChooseMng read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TChooseMngProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TChooseMng // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TChooseMngProperties = class(TPersistent) private FServer: TChooseMng; function GetDefaultInterface: ksChooseMng; constructor Create(AServer: TChooseMng); protected public property DefaultInterface: ksChooseMng read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoArc3dParam provides a Create and CreateRemote method to // create instances of the default interface ksArc3dParam exposed by // the CoClass Arc3dParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoArc3dParam = class class function Create: ksArc3dParam; class function CreateRemote(const MachineName: string): ksArc3dParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TArc3dParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ 3d Arc. // Default Interface: ksArc3dParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TArc3dParamProperties= class; {$ENDIF} TArc3dParam = class(TOleServer) private FIntf: ksArc3dParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TArc3dParamProperties; function GetServerProperties: TArc3dParamProperties; {$ENDIF} function GetDefaultInterface: ksArc3dParam; protected procedure InitServerData; override; function Get_radius: Double; function Get_angle: Double; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksArc3dParam); procedure Disconnect; override; function GetPlacement: IDispatch; property DefaultInterface: ksArc3dParam read GetDefaultInterface; property radius: Double read Get_radius; property angle: Double read Get_angle; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TArc3dParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TArc3dParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TArc3dParamProperties = class(TPersistent) private FServer: TArc3dParam; function GetDefaultInterface: ksArc3dParam; constructor Create(AServer: TArc3dParam); protected function Get_radius: Double; function Get_angle: Double; public property DefaultInterface: ksArc3dParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoTreeNodeParam provides a Create and CreateRemote method to // create instances of the default interface ksTreeNodeParam exposed by // the CoClass TreeNodeParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTreeNodeParam = class class function Create: ksTreeNodeParam; class function CreateRemote(const MachineName: string): ksTreeNodeParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTreeNodeParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ óçëà äåðåâà. // Default Interface: ksTreeNodeParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTreeNodeParamProperties= class; {$ENDIF} TTreeNodeParam = class(TOleServer) private FIntf: ksTreeNodeParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTreeNodeParamProperties; function GetServerProperties: TTreeNodeParamProperties; {$ENDIF} function GetDefaultInterface: ksTreeNodeParam; protected procedure InitServerData; override; function Get_type_: Integer; function Get_name: WideString; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTreeNodeParam); procedure Disconnect; override; function Init: WordBool; function GetComment: IDispatch; function GetNodes: IDispatch; property DefaultInterface: ksTreeNodeParam read GetDefaultInterface; property type_: Integer read Get_type_; property name: WideString read Get_name; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTreeNodeParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTreeNodeParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTreeNodeParamProperties = class(TPersistent) private FServer: TTreeNodeParam; function GetDefaultInterface: ksTreeNodeParam; constructor Create(AServer: TTreeNodeParam); protected function Get_type_: Integer; function Get_name: WideString; public property DefaultInterface: ksTreeNodeParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoAssociationViewParam provides a Create and CreateRemote method to // create instances of the default interface ksAssociationViewParam exposed by // the CoClass AssociationViewParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAssociationViewParam = class class function Create: ksAssociationViewParam; class function CreateRemote(const MachineName: string): ksAssociationViewParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAssociationViewParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ àññîöèàòèâíîãî âèäà. // Default Interface: ksAssociationViewParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAssociationViewParamProperties= class; {$ENDIF} TAssociationViewParam = class(TOleServer) private FIntf: ksAssociationViewParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAssociationViewParamProperties; function GetServerProperties: TAssociationViewParamProperties; {$ENDIF} function GetDefaultInterface: ksAssociationViewParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_projectionName: WideString; procedure Set_projectionName(const Value: WideString); function Get_projectionLink: WordBool; procedure Set_projectionLink(Value: WordBool); function Get_disassembly: WordBool; procedure Set_disassembly(Value: WordBool); function Get_visibleLinesStyle: Integer; procedure Set_visibleLinesStyle(Value: Integer); function Get_hiddenLinesStyle: Integer; procedure Set_hiddenLinesStyle(Value: Integer); function Get_tangentEdgesStyle: Integer; procedure Set_tangentEdgesStyle(Value: Integer); function Get_hiddenLinesShow: WordBool; procedure Set_hiddenLinesShow(Value: WordBool); function Get_tangentEdgesShow: WordBool; procedure Set_tangentEdgesShow(Value: WordBool); function Get_projBodies: WordBool; procedure Set_projBodies(Value: WordBool); function Get_projSurfaces: WordBool; procedure Set_projSurfaces(Value: WordBool); function Get_projThreads: WordBool; procedure Set_projThreads(Value: WordBool); function Get_section: WordBool; procedure Set_section(Value: WordBool); function Get_sameHatch: WordBool; procedure Set_sameHatch(Value: WordBool); function Get_viewType: Smallint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAssociationViewParam); procedure Disconnect; override; function Init: WordBool; function GetViewParam: IDispatch; function GetHatchParam: IDispatch; function SetDimensionLayoutScaling(scaling: WordBool): WordBool; property DefaultInterface: ksAssociationViewParam read GetDefaultInterface; property viewType: Smallint read Get_viewType; property fileName: WideString read Get_fileName write Set_fileName; property projectionName: WideString read Get_projectionName write Set_projectionName; property projectionLink: WordBool read Get_projectionLink write Set_projectionLink; property disassembly: WordBool read Get_disassembly write Set_disassembly; property visibleLinesStyle: Integer read Get_visibleLinesStyle write Set_visibleLinesStyle; property hiddenLinesStyle: Integer read Get_hiddenLinesStyle write Set_hiddenLinesStyle; property tangentEdgesStyle: Integer read Get_tangentEdgesStyle write Set_tangentEdgesStyle; property hiddenLinesShow: WordBool read Get_hiddenLinesShow write Set_hiddenLinesShow; property tangentEdgesShow: WordBool read Get_tangentEdgesShow write Set_tangentEdgesShow; property projBodies: WordBool read Get_projBodies write Set_projBodies; property projSurfaces: WordBool read Get_projSurfaces write Set_projSurfaces; property projThreads: WordBool read Get_projThreads write Set_projThreads; property section: WordBool read Get_section write Set_section; property sameHatch: WordBool read Get_sameHatch write Set_sameHatch; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAssociationViewParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAssociationViewParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAssociationViewParamProperties = class(TPersistent) private FServer: TAssociationViewParam; function GetDefaultInterface: ksAssociationViewParam; constructor Create(AServer: TAssociationViewParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_projectionName: WideString; procedure Set_projectionName(const Value: WideString); function Get_projectionLink: WordBool; procedure Set_projectionLink(Value: WordBool); function Get_disassembly: WordBool; procedure Set_disassembly(Value: WordBool); function Get_visibleLinesStyle: Integer; procedure Set_visibleLinesStyle(Value: Integer); function Get_hiddenLinesStyle: Integer; procedure Set_hiddenLinesStyle(Value: Integer); function Get_tangentEdgesStyle: Integer; procedure Set_tangentEdgesStyle(Value: Integer); function Get_hiddenLinesShow: WordBool; procedure Set_hiddenLinesShow(Value: WordBool); function Get_tangentEdgesShow: WordBool; procedure Set_tangentEdgesShow(Value: WordBool); function Get_projBodies: WordBool; procedure Set_projBodies(Value: WordBool); function Get_projSurfaces: WordBool; procedure Set_projSurfaces(Value: WordBool); function Get_projThreads: WordBool; procedure Set_projThreads(Value: WordBool); function Get_section: WordBool; procedure Set_section(Value: WordBool); function Get_sameHatch: WordBool; procedure Set_sameHatch(Value: WordBool); function Get_viewType: Smallint; public property DefaultInterface: ksAssociationViewParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property projectionName: WideString read Get_projectionName write Set_projectionName; property projectionLink: WordBool read Get_projectionLink write Set_projectionLink; property disassembly: WordBool read Get_disassembly write Set_disassembly; property visibleLinesStyle: Integer read Get_visibleLinesStyle write Set_visibleLinesStyle; property hiddenLinesStyle: Integer read Get_hiddenLinesStyle write Set_hiddenLinesStyle; property tangentEdgesStyle: Integer read Get_tangentEdgesStyle write Set_tangentEdgesStyle; property hiddenLinesShow: WordBool read Get_hiddenLinesShow write Set_hiddenLinesShow; property tangentEdgesShow: WordBool read Get_tangentEdgesShow write Set_tangentEdgesShow; property projBodies: WordBool read Get_projBodies write Set_projBodies; property projSurfaces: WordBool read Get_projSurfaces write Set_projSurfaces; property projThreads: WordBool read Get_projThreads write Set_projThreads; property section: WordBool read Get_section write Set_section; property sameHatch: WordBool read Get_sameHatch write Set_sameHatch; end; {$ENDIF} // *********************************************************************// // The Class CoViewColorParam provides a Create and CreateRemote method to // create instances of the default interface ksViewColorParam exposed by // the CoClass ViewColorParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoViewColorParam = class class function Create: ksViewColorParam; class function CreateRemote(const MachineName: string): ksViewColorParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TViewColorParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ öâåòà ôîíà. // Default Interface: ksViewColorParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TViewColorParamProperties= class; {$ENDIF} TViewColorParam = class(TOleServer) private FIntf: ksViewColorParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TViewColorParamProperties; function GetServerProperties: TViewColorParamProperties; {$ENDIF} function GetDefaultInterface: ksViewColorParam; protected procedure InitServerData; override; function Get_color: Integer; procedure Set_color(Value: Integer); function Get_useGradient: WordBool; procedure Set_useGradient(Value: WordBool); function Get_topColor: Integer; procedure Set_topColor(Value: Integer); function Get_bottomColor: Integer; procedure Set_bottomColor(Value: Integer); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksViewColorParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksViewColorParam read GetDefaultInterface; property color: Integer read Get_color write Set_color; property useGradient: WordBool read Get_useGradient write Set_useGradient; property topColor: Integer read Get_topColor write Set_topColor; property bottomColor: Integer read Get_bottomColor write Set_bottomColor; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TViewColorParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TViewColorParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TViewColorParamProperties = class(TPersistent) private FServer: TViewColorParam; function GetDefaultInterface: ksViewColorParam; constructor Create(AServer: TViewColorParam); protected function Get_color: Integer; procedure Set_color(Value: Integer); function Get_useGradient: WordBool; procedure Set_useGradient(Value: WordBool); function Get_topColor: Integer; procedure Set_topColor(Value: Integer); function Get_bottomColor: Integer; procedure Set_bottomColor(Value: Integer); public property DefaultInterface: ksViewColorParam read GetDefaultInterface; published property color: Integer read Get_color write Set_color; property useGradient: WordBool read Get_useGradient write Set_useGradient; property topColor: Integer read Get_topColor write Set_topColor; property bottomColor: Integer read Get_bottomColor write Set_bottomColor; end; {$ENDIF} // *********************************************************************// // The Class CoAxisLineParam provides a Create and CreateRemote method to // create instances of the default interface ksAxisLineParam exposed by // the CoClass AxisLineParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAxisLineParam = class class function Create: ksAxisLineParam; class function CreateRemote(const MachineName: string): ksAxisLineParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAxisLineParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ îñåâîé ëèíèè. // Default Interface: ksAxisLineParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAxisLineParamProperties= class; {$ENDIF} TAxisLineParam = class(TOleServer) private FIntf: ksAxisLineParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAxisLineParamProperties; function GetServerProperties: TAxisLineParamProperties; {$ENDIF} function GetDefaultInterface: ksAxisLineParam; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAxisLineParam); procedure Disconnect; override; function Init: WordBool; function GetBegPoint: IDispatch; function GetEndPoint: IDispatch; property DefaultInterface: ksAxisLineParam read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAxisLineParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAxisLineParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAxisLineParamProperties = class(TPersistent) private FServer: TAxisLineParam; function GetDefaultInterface: ksAxisLineParam; constructor Create(AServer: TAxisLineParam); protected public property DefaultInterface: ksAxisLineParam read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoTextDocumentParam provides a Create and CreateRemote method to // create instances of the default interface ksTextDocumentParam exposed by // the CoClass TextDocumentParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextDocumentParam = class class function Create: ksTextDocumentParam; class function CreateRemote(const MachineName: string): ksTextDocumentParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTextDocumentParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ òåêñòîâîãî äîêóìåíòà. // Default Interface: ksTextDocumentParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTextDocumentParamProperties= class; {$ENDIF} TTextDocumentParam = class(TOleServer) private FIntf: ksTextDocumentParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTextDocumentParamProperties; function GetServerProperties: TTextDocumentParamProperties; {$ENDIF} function GetDefaultInterface: ksTextDocumentParam; protected procedure InitServerData; override; function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_author: WideString; procedure Set_author(const Value: WideString); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_regime: Smallint; procedure Set_regime(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksTextDocumentParam); procedure Disconnect; override; function Init: WordBool; function GetFirstSheet: IDispatch; function GetEvenSheet: IDispatch; function GetOddSheet: IDispatch; function GetArrTitleSheet: IDispatch; function GetArrTailSheet: IDispatch; function GetSheetParam: IDispatch; property DefaultInterface: ksTextDocumentParam read GetDefaultInterface; property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property author: WideString read Get_author write Set_author; property type_: Smallint read Get_type_ write Set_type_; property regime: Smallint read Get_regime write Set_regime; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTextDocumentParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTextDocumentParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTextDocumentParamProperties = class(TPersistent) private FServer: TTextDocumentParam; function GetDefaultInterface: ksTextDocumentParam; constructor Create(AServer: TTextDocumentParam); protected function Get_fileName: WideString; procedure Set_fileName(const Value: WideString); function Get_comment: WideString; procedure Set_comment(const Value: WideString); function Get_author: WideString; procedure Set_author(const Value: WideString); function Get_type_: Smallint; procedure Set_type_(Value: Smallint); function Get_regime: Smallint; procedure Set_regime(Value: Smallint); public property DefaultInterface: ksTextDocumentParam read GetDefaultInterface; published property fileName: WideString read Get_fileName write Set_fileName; property comment: WideString read Get_comment write Set_comment; property author: WideString read Get_author write Set_author; property type_: Smallint read Get_type_ write Set_type_; property regime: Smallint read Get_regime write Set_regime; end; {$ENDIF} // *********************************************************************// // The Class CoRemoteElementParam provides a Create and CreateRemote method to // create instances of the default interface ksRemoteElementParam exposed by // the CoClass RemoteElementParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRemoteElementParam = class class function Create: ksRemoteElementParam; class function CreateRemote(const MachineName: string): ksRemoteElementParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRemoteElementParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ âûíîñíîãî ýëåìåíòà. // Default Interface: ksRemoteElementParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRemoteElementParamProperties= class; {$ENDIF} TRemoteElementParam = class(TOleServer) private FIntf: ksRemoteElementParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRemoteElementParamProperties; function GetServerProperties: TRemoteElementParamProperties; {$ENDIF} function GetDefaultInterface: ksRemoteElementParam; protected procedure InitServerData; override; function Get_style: Integer; procedure Set_style(Value: Integer); function Get_signType: Integer; procedure Set_signType(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); function Get_radius: Double; procedure Set_radius(Value: Double); function Get_smooth: Double; procedure Set_smooth(Value: Double); function Get_shelfX: Double; procedure Set_shelfX(Value: Double); function Get_shelfY: Double; procedure Set_shelfY(Value: Double); function Get_shelfDir: Smallint; procedure Set_shelfDir(Value: Smallint); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksRemoteElementParam); procedure Disconnect; override; function Init(style: Integer): WordBool; function GetpText: IDispatch; function SetpText(const pText: IDispatch): WordBool; property DefaultInterface: ksRemoteElementParam read GetDefaultInterface; property style: Integer read Get_style write Set_style; property signType: Integer read Get_signType write Set_signType; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property width: Double read Get_width write Set_width; property height: Double read Get_height write Set_height; property radius: Double read Get_radius write Set_radius; property smooth: Double read Get_smooth write Set_smooth; property shelfX: Double read Get_shelfX write Set_shelfX; property shelfY: Double read Get_shelfY write Set_shelfY; property shelfDir: Smallint read Get_shelfDir write Set_shelfDir; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRemoteElementParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRemoteElementParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRemoteElementParamProperties = class(TPersistent) private FServer: TRemoteElementParam; function GetDefaultInterface: ksRemoteElementParam; constructor Create(AServer: TRemoteElementParam); protected function Get_style: Integer; procedure Set_style(Value: Integer); function Get_signType: Integer; procedure Set_signType(Value: Integer); function Get_x: Double; procedure Set_x(Value: Double); function Get_y: Double; procedure Set_y(Value: Double); function Get_width: Double; procedure Set_width(Value: Double); function Get_height: Double; procedure Set_height(Value: Double); function Get_radius: Double; procedure Set_radius(Value: Double); function Get_smooth: Double; procedure Set_smooth(Value: Double); function Get_shelfX: Double; procedure Set_shelfX(Value: Double); function Get_shelfY: Double; procedure Set_shelfY(Value: Double); function Get_shelfDir: Smallint; procedure Set_shelfDir(Value: Smallint); public property DefaultInterface: ksRemoteElementParam read GetDefaultInterface; published property style: Integer read Get_style write Set_style; property signType: Integer read Get_signType write Set_signType; property x: Double read Get_x write Set_x; property y: Double read Get_y write Set_y; property width: Double read Get_width write Set_width; property height: Double read Get_height write Set_height; property radius: Double read Get_radius write Set_radius; property smooth: Double read Get_smooth write Set_smooth; property shelfX: Double read Get_shelfX write Set_shelfX; property shelfY: Double read Get_shelfY write Set_shelfY; property shelfDir: Smallint read Get_shelfDir write Set_shelfDir; end; {$ENDIF} // *********************************************************************// // The Class CoDeletedCopyCollection provides a Create and CreateRemote method to // create instances of the default interface ksDeletedCopyCollection exposed by // the CoClass DeletedCopyCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDeletedCopyCollection = class class function Create: ksDeletedCopyCollection; class function CreateRemote(const MachineName: string): ksDeletedCopyCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDeletedCopyCollection // Help String : Èíòåðôåéñ ìàññèâà óäàëåííûõ èíäåêñîâ äëÿ îïåðöèé êîïèðîâàíèÿ è ìàññèâîâ êîìïîíåíò. // Default Interface: ksDeletedCopyCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDeletedCopyCollectionProperties= class; {$ENDIF} TDeletedCopyCollection = class(TOleServer) private FIntf: ksDeletedCopyCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDeletedCopyCollectionProperties; function GetServerProperties: TDeletedCopyCollectionProperties; {$ENDIF} function GetDefaultInterface: ksDeletedCopyCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksDeletedCopyCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First(var index1: Integer; var index2: Integer): WordBool; function Last(var index1: Integer; var index2: Integer): WordBool; function Next(var index1: Integer; var index2: Integer): WordBool; function Prev(var index1: Integer; var index2: Integer): WordBool; function GetByIndex(index: Integer; var index1: Integer; var index2: Integer): WordBool; function Clear: WordBool; function Add(index1: Integer; index2: Integer): WordBool; function AddAt(index1: Integer; index2: Integer; index: Integer): WordBool; function DetachByIndex(index: Integer): WordBool; function DetachByBody(index1: Integer; index2: Integer): WordBool; function SetByIndex(index1: Integer; index2: Integer; index: Integer): WordBool; function FindIt(index1: Integer; index2: Integer): Integer; property DefaultInterface: ksDeletedCopyCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDeletedCopyCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDeletedCopyCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDeletedCopyCollectionProperties = class(TPersistent) private FServer: TDeletedCopyCollection; function GetDefaultInterface: ksDeletedCopyCollection; constructor Create(AServer: TDeletedCopyCollection); protected public property DefaultInterface: ksDeletedCopyCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoCopyObjectParam provides a Create and CreateRemote method to // create instances of the default interface ksCopyObjectParam exposed by // the CoClass CopyObjectParam. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCopyObjectParam = class class function Create: ksCopyObjectParam; class function CreateRemote(const MachineName: string): ksCopyObjectParam; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCopyObjectParam // Help String : Èíòåðôåéñ ïàðàìåòðîâ äëÿ êîïèðîâàíèÿ îáúåêòà 2d äîêóìåíòà. // Default Interface: ksCopyObjectParam // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TCopyObjectParamProperties= class; {$ENDIF} TCopyObjectParam = class(TOleServer) private FIntf: ksCopyObjectParam; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TCopyObjectParamProperties; function GetServerProperties: TCopyObjectParamProperties; {$ENDIF} function GetDefaultInterface: ksCopyObjectParam; protected procedure InitServerData; override; function Get_objRef: Integer; procedure Set_objRef(Value: Integer); function Get_xOld: Double; procedure Set_xOld(Value: Double); function Get_yOld: Double; procedure Set_yOld(Value: Double); function Get_xNew: Double; procedure Set_xNew(Value: Double); function Get_yNew: Double; procedure Set_yNew(Value: Double); function Get_scale: Double; procedure Set_scale(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_attrCopy: WordBool; procedure Set_attrCopy(Value: WordBool); function Get_dimLineScale: WordBool; procedure Set_dimLineScale(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksCopyObjectParam); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksCopyObjectParam read GetDefaultInterface; property objRef: Integer read Get_objRef write Set_objRef; property xOld: Double read Get_xOld write Set_xOld; property yOld: Double read Get_yOld write Set_yOld; property xNew: Double read Get_xNew write Set_xNew; property yNew: Double read Get_yNew write Set_yNew; property scale: Double read Get_scale write Set_scale; property angle: Double read Get_angle write Set_angle; property attrCopy: WordBool read Get_attrCopy write Set_attrCopy; property dimLineScale: WordBool read Get_dimLineScale write Set_dimLineScale; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TCopyObjectParamProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TCopyObjectParam // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TCopyObjectParamProperties = class(TPersistent) private FServer: TCopyObjectParam; function GetDefaultInterface: ksCopyObjectParam; constructor Create(AServer: TCopyObjectParam); protected function Get_objRef: Integer; procedure Set_objRef(Value: Integer); function Get_xOld: Double; procedure Set_xOld(Value: Double); function Get_yOld: Double; procedure Set_yOld(Value: Double); function Get_xNew: Double; procedure Set_xNew(Value: Double); function Get_yNew: Double; procedure Set_yNew(Value: Double); function Get_scale: Double; procedure Set_scale(Value: Double); function Get_angle: Double; procedure Set_angle(Value: Double); function Get_attrCopy: WordBool; procedure Set_attrCopy(Value: WordBool); function Get_dimLineScale: WordBool; procedure Set_dimLineScale(Value: WordBool); public property DefaultInterface: ksCopyObjectParam read GetDefaultInterface; published property objRef: Integer read Get_objRef write Set_objRef; property xOld: Double read Get_xOld write Set_xOld; property yOld: Double read Get_yOld write Set_yOld; property xNew: Double read Get_xNew write Set_xNew; property yNew: Double read Get_yNew write Set_yNew; property scale: Double read Get_scale write Set_scale; property angle: Double read Get_angle write Set_angle; property attrCopy: WordBool read Get_attrCopy write Set_attrCopy; property dimLineScale: WordBool read Get_dimLineScale write Set_dimLineScale; end; {$ENDIF} // *********************************************************************// // The Class CoThreadDefinition provides a Create and CreateRemote method to // create instances of the default interface ksThreadDefinition exposed by // the CoClass ThreadDefinition. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoThreadDefinition = class class function Create: ksThreadDefinition; class function CreateRemote(const MachineName: string): ksThreadDefinition; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TThreadDefinition // Help String : Óñëîâíîå èçîáðàæåíèå ðåçüáû. // Default Interface: ksThreadDefinition // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TThreadDefinitionProperties= class; {$ENDIF} TThreadDefinition = class(TOleServer) private FIntf: ksThreadDefinition; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TThreadDefinitionProperties; function GetServerProperties: TThreadDefinitionProperties; {$ENDIF} function GetDefaultInterface: ksThreadDefinition; protected procedure InitServerData; override; function Get_dr: Double; procedure Set_dr(Value: Double); function Get_length: Double; procedure Set_length(Value: Double); function Get_p: Double; procedure Set_p(Value: Double); function Get_autoDefinDr: WordBool; procedure Set_autoDefinDr(Value: WordBool); function Get_allLength: WordBool; procedure Set_allLength(Value: WordBool); function Get_faceValue: WordBool; procedure Set_faceValue(Value: WordBool); function Get_outside: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksThreadDefinition); procedure Disconnect; override; function GetBaseObject: IDispatch; function SetBaseObject(const obj: IDispatch): WordBool; function GetFaceBegin: IDispatch; function SetFaceBegin(const face: IDispatch): WordBool; function GetFaceEnd: IDispatch; function SetFaceEnd(const face: IDispatch): WordBool; property DefaultInterface: ksThreadDefinition read GetDefaultInterface; property outside: WordBool read Get_outside; property dr: Double read Get_dr write Set_dr; property length: Double read Get_length write Set_length; property p: Double read Get_p write Set_p; property autoDefinDr: WordBool read Get_autoDefinDr write Set_autoDefinDr; property allLength: WordBool read Get_allLength write Set_allLength; property faceValue: WordBool read Get_faceValue write Set_faceValue; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TThreadDefinitionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TThreadDefinition // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TThreadDefinitionProperties = class(TPersistent) private FServer: TThreadDefinition; function GetDefaultInterface: ksThreadDefinition; constructor Create(AServer: TThreadDefinition); protected function Get_dr: Double; procedure Set_dr(Value: Double); function Get_length: Double; procedure Set_length(Value: Double); function Get_p: Double; procedure Set_p(Value: Double); function Get_autoDefinDr: WordBool; procedure Set_autoDefinDr(Value: WordBool); function Get_allLength: WordBool; procedure Set_allLength(Value: WordBool); function Get_faceValue: WordBool; procedure Set_faceValue(Value: WordBool); function Get_outside: WordBool; public property DefaultInterface: ksThreadDefinition read GetDefaultInterface; published property dr: Double read Get_dr write Set_dr; property length: Double read Get_length write Set_length; property p: Double read Get_p write Set_p; property autoDefinDr: WordBool read Get_autoDefinDr write Set_autoDefinDr; property allLength: WordBool read Get_allLength write Set_allLength; property faceValue: WordBool read Get_faceValue write Set_faceValue; end; {$ENDIF} // *********************************************************************// // The Class CoOverlapObjectOptions provides a Create and CreateRemote method to // create instances of the default interface ksOverlapObjectOptions exposed by // the CoClass OverlapObjectOptions. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOverlapObjectOptions = class class function Create: ksOverlapObjectOptions; class function CreateRemote(const MachineName: string): ksOverlapObjectOptions; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOverlapObjectOptions // Help String : Ñòðóêòóðà ïàðàìåòðîâ ïåðåêðûâàþùèõñÿ îáúåêòîâ. // Default Interface: ksOverlapObjectOptions // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOverlapObjectOptionsProperties= class; {$ENDIF} TOverlapObjectOptions = class(TOleServer) private FIntf: ksOverlapObjectOptions; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOverlapObjectOptionsProperties; function GetServerProperties: TOverlapObjectOptionsProperties; {$ENDIF} function GetDefaultInterface: ksOverlapObjectOptions; protected procedure InitServerData; override; function Get_overlap: WordBool; procedure Set_overlap(Value: WordBool); function Get_gap: Double; procedure Set_gap(Value: Double); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksOverlapObjectOptions); procedure Disconnect; override; function Init: WordBool; property DefaultInterface: ksOverlapObjectOptions read GetDefaultInterface; property overlap: WordBool read Get_overlap write Set_overlap; property gap: Double read Get_gap write Set_gap; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOverlapObjectOptionsProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOverlapObjectOptions // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOverlapObjectOptionsProperties = class(TPersistent) private FServer: TOverlapObjectOptions; function GetDefaultInterface: ksOverlapObjectOptions; constructor Create(AServer: TOverlapObjectOptions); protected function Get_overlap: WordBool; procedure Set_overlap(Value: WordBool); function Get_gap: Double; procedure Set_gap(Value: Double); public property DefaultInterface: ksOverlapObjectOptions read GetDefaultInterface; published property overlap: WordBool read Get_overlap write Set_overlap; property gap: Double read Get_gap write Set_gap; end; {$ENDIF} // *********************************************************************// // The Class CoAttribute3D provides a Create and CreateRemote method to // create instances of the default interface ksAttribute3D exposed by // the CoClass Attribute3D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttribute3D = class class function Create: ksAttribute3D; class function CreateRemote(const MachineName: string): ksAttribute3D; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttribute3D // Help String : Èíòåðôåéñ àòðèáóòà. // Default Interface: ksAttribute3D // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAttribute3DProperties= class; {$ENDIF} TAttribute3D = class(TOleServer) private FIntf: ksAttribute3D; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAttribute3DProperties; function GetServerProperties: TAttribute3DProperties; {$ENDIF} function GetDefaultInterface: ksAttribute3D; protected procedure InitServerData; override; function Get_reference: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAttribute3D); procedure Disconnect; override; function FeatureCollection(objType: Integer): ksFeatureCollection; property DefaultInterface: ksAttribute3D read GetDefaultInterface; property reference: Integer read Get_reference; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAttribute3DProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAttribute3D // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAttribute3DProperties = class(TPersistent) private FServer: TAttribute3D; function GetDefaultInterface: ksAttribute3D; constructor Create(AServer: TAttribute3D); protected function Get_reference: Integer; public property DefaultInterface: ksAttribute3D read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoAttribute3DCollection provides a Create and CreateRemote method to // create instances of the default interface ksAttribute3DCollection exposed by // the CoClass Attribute3DCollection. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttribute3DCollection = class class function Create: ksAttribute3DCollection; class function CreateRemote(const MachineName: string): ksAttribute3DCollection; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttribute3DCollection // Help String : Èíòåðôåéñ ìàññèâà àòðèáóòîâ. // Default Interface: ksAttribute3DCollection // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAttribute3DCollectionProperties= class; {$ENDIF} TAttribute3DCollection = class(TOleServer) private FIntf: ksAttribute3DCollection; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAttribute3DCollectionProperties; function GetServerProperties: TAttribute3DCollectionProperties; {$ENDIF} function GetDefaultInterface: ksAttribute3DCollection; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksAttribute3DCollection); procedure Disconnect; override; function refresh: WordBool; function GetCount: Integer; function First: ksAttribute3D; function Last: ksAttribute3D; function Next: ksAttribute3D; function Prev: ksAttribute3D; function GetByIndex(index: Integer): ksAttribute3D; function FindIt(const obj: ksAttribute3D): Integer; function Select(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double; objType: Integer): WordBool; property DefaultInterface: ksAttribute3DCollection read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAttribute3DCollectionProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAttribute3DCollection // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAttribute3DCollectionProperties = class(TPersistent) private FServer: TAttribute3DCollection; function GetDefaultInterface: ksAttribute3DCollection; constructor Create(AServer: TAttribute3DCollection); protected public property DefaultInterface: ksAttribute3DCollection read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoComponentPositioner provides a Create and CreateRemote method to // create instances of the default interface ksComponentPositioner exposed by // the CoClass ComponentPositioner. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoComponentPositioner = class class function Create: ksComponentPositioner; class function CreateRemote(const MachineName: string): ksComponentPositioner; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TComponentPositioner // Help String : Èíòåðôåéñ óïðàâëåíèÿ ïîëîæåíèåì êîìïîíåíòîâ â ñáîðêå. // Default Interface: ksComponentPositioner // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TComponentPositionerProperties= class; {$ENDIF} TComponentPositioner = class(TOleServer) private FIntf: ksComponentPositioner; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TComponentPositionerProperties; function GetServerProperties: TComponentPositionerProperties; {$ENDIF} function GetDefaultInterface: ksComponentPositioner; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksComponentPositioner); procedure Disconnect; override; function SetPlaneByPlacement(const plane: ksPlacement): WordBool; function SetPlane(const plane: IDispatch): WordBool; function SetPlaneByPoints(x1: Double; y1: Double; z1: Double; x2: Double; y2: Double; z2: Double; x3: Double; y3: Double; z3: Double): WordBool; function SetDragPoint(x: Double; y: Double; z: Double): WordBool; function SetAxis(const axis: IDispatch): WordBool; function SetAxisByPoints(x1: Double; y1: Double; z1: Double; x2: Double; y2: Double; z2: Double): WordBool; function Prepare(const part: ksPart; positionerType: Integer): Integer; function MoveComponent(x: Double; y: Double; z: Double): WordBool; function RotateComponent(angl: Double): WordBool; function Finish: WordBool; property DefaultInterface: ksComponentPositioner read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TComponentPositionerProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TComponentPositioner // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TComponentPositionerProperties = class(TPersistent) private FServer: TComponentPositioner; function GetDefaultInterface: ksComponentPositioner; constructor Create(AServer: TComponentPositioner); protected public property DefaultInterface: ksComponentPositioner read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoObjectFilter3D provides a Create and CreateRemote method to // create instances of the default interface ksObjectFilter3D exposed by // the CoClass ObjectFilter3D. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoObjectFilter3D = class class function Create: ksObjectFilter3D; class function CreateRemote(const MachineName: string): ksObjectFilter3D; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TObjectFilter3D // Help String : Èíòåðôåéñ ôèëüòðàöèè îáúåêòîâ 3D. // Default Interface: ksObjectFilter3D // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TObjectFilter3DProperties= class; {$ENDIF} TObjectFilter3D = class(TOleServer) private FIntf: ksObjectFilter3D; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TObjectFilter3DProperties; function GetServerProperties: TObjectFilter3DProperties; {$ENDIF} function GetDefaultInterface: ksObjectFilter3D; protected procedure InitServerData; override; function Get_filterAll: WordBool; procedure Set_filterAll(Value: WordBool); function Get_filterFaces: WordBool; procedure Set_filterFaces(Value: WordBool); function Get_filterEdges: WordBool; procedure Set_filterEdges(Value: WordBool); function Get_filterVertexs: WordBool; procedure Set_filterVertexs(Value: WordBool); function Get_filterCPlanes: WordBool; procedure Set_filterCPlanes(Value: WordBool); function Get_filterCAxis: WordBool; procedure Set_filterCAxis(Value: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ksObjectFilter3D); procedure Disconnect; override; property DefaultInterface: ksObjectFilter3D read GetDefaultInterface; property filterAll: WordBool read Get_filterAll write Set_filterAll; property filterFaces: WordBool read Get_filterFaces write Set_filterFaces; property filterEdges: WordBool read Get_filterEdges write Set_filterEdges; property filterVertexs: WordBool read Get_filterVertexs write Set_filterVertexs; property filterCPlanes: WordBool read Get_filterCPlanes write Set_filterCPlanes; property filterCAxis: WordBool read Get_filterCAxis write Set_filterCAxis; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TObjectFilter3DProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TObjectFilter3D // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TObjectFilter3DProperties = class(TPersistent) private FServer: TObjectFilter3D; function GetDefaultInterface: ksObjectFilter3D; constructor Create(AServer: TObjectFilter3D); protected function Get_filterAll: WordBool; procedure Set_filterAll(Value: WordBool); function Get_filterFaces: WordBool; procedure Set_filterFaces(Value: WordBool); function Get_filterEdges: WordBool; procedure Set_filterEdges(Value: WordBool); function Get_filterVertexs: WordBool; procedure Set_filterVertexs(Value: WordBool); function Get_filterCPlanes: WordBool; procedure Set_filterCPlanes(Value: WordBool); function Get_filterCAxis: WordBool; procedure Set_filterCAxis(Value: WordBool); public property DefaultInterface: ksObjectFilter3D read GetDefaultInterface; published property filterAll: WordBool read Get_filterAll write Set_filterAll; property filterFaces: WordBool read Get_filterFaces write Set_filterFaces; property filterEdges: WordBool read Get_filterEdges write Set_filterEdges; property filterVertexs: WordBool read Get_filterVertexs write Set_filterVertexs; property filterCPlanes: WordBool read Get_filterCPlanes write Set_filterCPlanes; property filterCAxis: WordBool read Get_filterCAxis write Set_filterCAxis; end; {$ENDIF} procedure Register; implementation uses ComObj; class function CoObject2DNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_Object2DNotify) as IUnknown; end; class function CoObject2DNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_Object2DNotify) as IUnknown; end; procedure TObject2DNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{C7EBA9A1-9E76-436E-B362-A80C5763944C}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{2E29C343-C521-4B0F-B37D-587D0347B7BA}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TObject2DNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TObject2DNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TObject2DNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TObject2DNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TObject2DNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TObject2DNotifyProperties.Create(Self); {$ENDIF} end; destructor TObject2DNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TObject2DNotify.GetServerProperties: TObject2DNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TObject2DNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnChangeActive) then FOnChangeActive(Self, Params[0] {Integer}); 2: if Assigned(FOnBeginDelete) then FOnBeginDelete(Self, Params[0] {Integer}); 3: if Assigned(FOnDelete) then FOnDelete(Self, Params[0] {Integer}); 4: if Assigned(FOnBeginMove) then FOnBeginMove(Self, Params[0] {Integer}); 5: if Assigned(FOnMove) then FOnMove(Self, Params[0] {Integer}); 6: if Assigned(FOnBeginRotate) then FOnBeginRotate(Self, Params[0] {Integer}); 7: if Assigned(FOnRotate) then FOnRotate(Self, Params[0] {Integer}); 8: if Assigned(FOnBeginScale) then FOnBeginScale(Self, Params[0] {Integer}); 9: if Assigned(FOnscale) then FOnscale(Self, Params[0] {Integer}); 10: if Assigned(FOnBeginTransform) then FOnBeginTransform(Self, Params[0] {Integer}); 11: if Assigned(FOnTransform) then FOnTransform(Self, Params[0] {Integer}); 12: if Assigned(FOnBeginCopy) then FOnBeginCopy(Self, Params[0] {Integer}); 13: if Assigned(FOncopy) then FOncopy(Self, Params[0] {Integer}); 14: if Assigned(FOnBeginSymmetry) then FOnBeginSymmetry(Self, Params[0] {Integer}); 15: if Assigned(FOnSymmetry) then FOnSymmetry(Self, Params[0] {Integer}); 16: if Assigned(FOnBeginProcess) then FOnBeginProcess(Self, Params[0] {Integer}, Params[1] {Integer}); 17: if Assigned(FOnEndProcess) then FOnEndProcess(Self, Params[0] {Integer}); 18: if Assigned(FOnCreateObject) then FOnCreateObject(Self, Params[0] {Integer}); 19: if Assigned(FOnUpdateObject) then FOnUpdateObject(Self, Params[0] {Integer}); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TObject2DNotifyProperties.Create(AServer: TObject2DNotify); begin inherited Create; FServer := AServer; end; function TObject2DNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoSelectionMngNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_SelectionMngNotify) as IUnknown; end; class function CoSelectionMngNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_SelectionMngNotify) as IUnknown; end; procedure TSelectionMngNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{DC2E4057-7F8E-4652-860D-6B9E1F6F43AA}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{A421368A-34B6-4DDF-9A52-73B3488EE83F}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSelectionMngNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TSelectionMngNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSelectionMngNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSelectionMngNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSelectionMngNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSelectionMngNotifyProperties.Create(Self); {$ENDIF} end; destructor TSelectionMngNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSelectionMngNotify.GetServerProperties: TSelectionMngNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TSelectionMngNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnSelect) then FOnSelect(Self, Params[0] {OleVariant}); 2: if Assigned(FOnUnselect) then FOnUnselect(Self, Params[0] {OleVariant}); 3: if Assigned(FOnUnselectAll) then FOnUnselectAll(Self); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSelectionMngNotifyProperties.Create(AServer: TSelectionMngNotify); begin inherited Create; FServer := AServer; end; function TSelectionMngNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoDocument2DNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_Document2DNotify) as IUnknown; end; class function CoDocument2DNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_Document2DNotify) as IUnknown; end; procedure TDocument2DNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{1B9B9B4E-DCD7-496E-A583-547EC1E91E47}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{13F0BE95-3361-4AD9-90AF-D935EA64A127}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDocument2DNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TDocument2DNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDocument2DNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDocument2DNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDocument2DNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDocument2DNotifyProperties.Create(Self); {$ENDIF} end; destructor TDocument2DNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDocument2DNotify.GetServerProperties: TDocument2DNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TDocument2DNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginRebuild) then FOnBeginRebuild(Self); 2: if Assigned(FOnRebuild) then FOnRebuild(Self); 3: if Assigned(FOnBeginChoiceMaterial) then FOnBeginChoiceMaterial(Self); 4: if Assigned(FOnChoiceMaterial) then FOnChoiceMaterial(Self, Params[0] {const WideString}, Params[1] {Double}); 5: if Assigned(FOnBeginInsertFragment) then FOnBeginInsertFragment(Self); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDocument2DNotifyProperties.Create(AServer: TDocument2DNotify); begin inherited Create; FServer := AServer; end; function TDocument2DNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoDocument3DNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_Document3DNotify) as IUnknown; end; class function CoDocument3DNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_Document3DNotify) as IUnknown; end; procedure TDocument3DNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{22B81342-42D6-4907-A91E-F75A959F2270}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{B6C1BCFD-68DA-4A0A-A95C-296084C6A01A}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDocument3DNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TDocument3DNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDocument3DNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDocument3DNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDocument3DNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDocument3DNotifyProperties.Create(Self); {$ENDIF} end; destructor TDocument3DNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDocument3DNotify.GetServerProperties: TDocument3DNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TDocument3DNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginRebuild) then FOnBeginRebuild(Self); 2: if Assigned(FOnRebuild) then FOnRebuild(Self); 3: if Assigned(FOnBeginChoiceMaterial) then FOnBeginChoiceMaterial(Self); 4: if Assigned(FOnChoiceMaterial) then FOnChoiceMaterial(Self, Params[0] {const WideString}, Params[1] {Double}); 5: if Assigned(FOnBeginChoiceMarking) then FOnBeginChoiceMarking(Self); 6: if Assigned(FOnChoiceMarking) then FOnChoiceMarking(Self, Params[0] {const WideString}); 7: if Assigned(FOnBeginSetPartFromFile) then FOnBeginSetPartFromFile(Self); 8: if Assigned(FOnBeginCreatePartFromFile) then FOnBeginCreatePartFromFile(Self, Params[0] {WordBool}, Params[1] {const ksEntity}); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDocument3DNotifyProperties.Create(AServer: TDocument3DNotify); begin inherited Create; FServer := AServer; end; function TDocument3DNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoObject3DNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_Object3DNotify) as IUnknown; end; class function CoObject3DNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_Object3DNotify) as IUnknown; end; procedure TObject3DNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{CA35F3C6-7E2D-4700-BE12-BAA26DC1945B}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{BFA024B6-679E-4A95-B6C2-1EA47A7CD0E9}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TObject3DNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TObject3DNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TObject3DNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TObject3DNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TObject3DNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TObject3DNotifyProperties.Create(Self); {$ENDIF} end; destructor TObject3DNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TObject3DNotify.GetServerProperties: TObject3DNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TObject3DNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginDelete) then FOnBeginDelete(Self, Params[0] {const IDispatch}); 2: if Assigned(FOnDelete) then FOnDelete(Self, Params[0] {const IDispatch}); 3: if Assigned(FOnexcluded) then FOnexcluded(Self, Params[0] {const IDispatch}, Params[1] {WordBool}); 4: if Assigned(FOnhidden) then FOnhidden(Self, Params[0] {const IDispatch}, Params[1] {WordBool}); 5: if Assigned(FOnBeginPropertyChanged) then FOnBeginPropertyChanged(Self, Params[0] {const IDispatch}); 6: if Assigned(FOnPropertyChanged) then FOnPropertyChanged(Self, Params[0] {const IDispatch}); 7: if Assigned(FOnBeginPlacementChanged) then FOnBeginPlacementChanged(Self, Params[0] {const IDispatch}); 8: if Assigned(FOnPlacementChanged) then FOnPlacementChanged(Self, Params[0] {const IDispatch}); 9: if Assigned(FOnBeginProcess) then FOnBeginProcess(Self, Params[0] {Integer}, Params[1] {const IDispatch}); 10: if Assigned(FOnEndProcess) then FOnEndProcess(Self, Params[0] {Integer}); 11: if Assigned(FOnCreateObject) then FOnCreateObject(Self, Params[0] {const IDispatch}); 12: if Assigned(FOnUpdateObject) then FOnUpdateObject(Self, Params[0] {const IDispatch}); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TObject3DNotifyProperties.Create(AServer: TObject3DNotify); begin inherited Create; FServer := AServer; end; function TObject3DNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoApp.Create: KompasObject; begin Result := CreateComObject(CLASS_App) as KompasObject; end; class function CoApp.CreateRemote(const MachineName: string): KompasObject; begin Result := CreateRemoteComObject(MachineName, CLASS_App) as KompasObject; end; procedure TApp.InitServerData; const CServerData: TServerData = ( ClassID: '{3B1C886B-EB51-42CF-87B2-427E3BCC5B09}'; IntfIID: '{2557A84B-0FB9-4BA5-ACE3-B43819F9751F}'; EventIID: '{C7CB743A-C59D-4C27-8CB6-971C2A393F2F}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TApp.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as KompasObject; end; end; procedure TApp.ConnectTo(svrIntf: KompasObject); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TApp.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); if FAutoQuit then Quit(); FIntf := nil; end; end; function TApp.GetDefaultInterface: KompasObject; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TApp.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAppProperties.Create(Self); {$ENDIF} end; destructor TApp.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TApp.GetServerProperties: TAppProperties; begin Result := FProps; end; {$ENDIF} procedure TApp.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnCreateDocument) then FOnCreateDocument(Self, Params[0] {const IDispatch}, Params[1] {Integer}); 2: if Assigned(FOnBeginOpenDocument) then FOnBeginOpenDocument(Self, Params[0] {const WideString}); 3: if Assigned(FOnOpenDocument) then FOnOpenDocument(Self, Params[0] {const IDispatch}, Params[1] {Integer}); 4: if Assigned(FOnChangeActiveDocument) then FOnChangeActiveDocument(Self, Params[0] {const IDispatch}, Params[1] {Integer}); 5: if Assigned(FOnApplicationDestroy) then FOnApplicationDestroy(Self); 6: if Assigned(FOnBeginCreate) then FOnBeginCreate(Self, Params[0] {Integer}); 7: if Assigned(FOnBeginOpenFile) then FOnBeginOpenFile(Self); 8: if Assigned(FOnBeginCloseAllDocument) then FOnBeginCloseAllDocument(Self); end; {case DispID} end; function TApp.Get_Visible: WordBool; begin Result := DefaultInterface.Visible; end; procedure TApp.Set_Visible(Value: WordBool); begin DefaultInterface.Visible := Value; end; function TApp.Document3D: IDispatch; begin Result := DefaultInterface.Document3D; end; function TApp.ActiveDocument3D: IDispatch; begin Result := DefaultInterface.ActiveDocument3D; end; function TApp.Document2D: ksDocument2D; begin Result := DefaultInterface.Document2D; end; function TApp.ActiveDocument2D: IDispatch; begin Result := DefaultInterface.ActiveDocument2D; end; function TApp.DataBaseObject: IDispatch; begin Result := DefaultInterface.DataBaseObject; end; function TApp.GetIterator: IDispatch; begin Result := DefaultInterface.GetIterator; end; function TApp.GetMathematic2D: IDispatch; begin Result := DefaultInterface.GetMathematic2D; end; function TApp.GetParamStruct(structType: Smallint): IDispatch; begin Result := DefaultInterface.GetParamStruct(structType); end; function TApp.SpcDocument: IDispatch; begin Result := DefaultInterface.SpcDocument; end; function TApp.SpcActiveDocument: IDispatch; begin Result := DefaultInterface.SpcActiveDocument; end; function TApp.ksMessage(const s: WideString): WordBool; begin Result := DefaultInterface.ksMessage(s); end; function TApp.ksError(const s: WideString): WordBool; begin Result := DefaultInterface.ksError(s); end; function TApp.ksEnableTaskAccess(enabl: Integer): WordBool; begin Result := DefaultInterface.ksEnableTaskAccess(enabl); end; function TApp.ksReturnResult: Integer; begin Result := DefaultInterface.ksReturnResult; end; function TApp.ksResultNULL: Integer; begin Result := DefaultInterface.ksResultNULL; end; function TApp.ksIsEnableTaskAccess: Integer; begin Result := DefaultInterface.ksIsEnableTaskAccess; end; function TApp.ksMessageBoxResult: WordBool; begin Result := DefaultInterface.ksMessageBoxResult; end; function TApp.ksDrawSlide(HWindow: Integer; sldID: Integer): Integer; begin Result := DefaultInterface.ksDrawSlide(HWindow, sldID); end; function TApp.ksStrResult: WideString; begin Result := DefaultInterface.ksStrResult; end; function TApp.ksGetHWindow: Integer; begin Result := DefaultInterface.ksGetHWindow; end; function TApp.ksGetWorkWindowColor: Integer; begin Result := DefaultInterface.ksGetWorkWindowColor; end; function TApp.ksPumpWaitingMessages: WordBool; begin Result := DefaultInterface.ksPumpWaitingMessages; end; function TApp.ksSetCriticalProcess: Integer; begin Result := DefaultInterface.ksSetCriticalProcess; end; function TApp.ksChoiceFile(const ext: WideString; const filter: WideString; preview: WordBool): WideString; begin Result := DefaultInterface.ksChoiceFile(ext, filter, preview); end; function TApp.ksDrawBitmap(HWindow: Integer; sldID: Integer): Integer; begin Result := DefaultInterface.ksDrawBitmap(HWindow, sldID); end; function TApp.ksYesNo(const s: WideString): Integer; begin Result := DefaultInterface.ksYesNo(s); end; function TApp.ksDrawSlideFromFile(HWindow: Integer; const fileName: WideString): Integer; begin Result := DefaultInterface.ksDrawSlideFromFile(HWindow, fileName); end; function TApp.ksWriteSlide(const fileName: WideString; iD: Integer; x: Double; y: Double): Integer; begin Result := DefaultInterface.ksWriteSlide(fileName, iD, x, y); end; function TApp.ksSlideBackground(color: Integer): WordBool; begin Result := DefaultInterface.ksSlideBackground(color); end; function TApp.ksReadDouble(const mess: WideString; defValue: Double; min: Double; max: Double; var value: Double): Integer; begin Result := DefaultInterface.ksReadDouble(mess, defValue, min, max, value); end; function TApp.ksReadInt(const mess: WideString; defValue: Integer; min: Integer; max: Integer; var value: Integer): Integer; begin Result := DefaultInterface.ksReadInt(mess, defValue, min, max, value); end; function TApp.ksReadString(const mess: WideString; const value: WideString): WideString; begin Result := DefaultInterface.ksReadString(mess, value); end; function TApp.ksFullFileName(const oldName: WideString): WideString; begin Result := DefaultInterface.ksFullFileName(oldName); end; function TApp.ksUniqueFileName: WideString; begin Result := DefaultInterface.ksUniqueFileName; end; function TApp.ksRemoveUniqueFile(const fileName: WideString): WordBool; begin Result := DefaultInterface.ksRemoveUniqueFile(fileName); end; function TApp.ksSystemControlStop: WordBool; begin Result := DefaultInterface.ksSystemControlStop; end; function TApp.ksSystemControlStart(const menuCommand: WideString): Integer; begin Result := DefaultInterface.ksSystemControlStart(menuCommand); end; function TApp.GetDynamicArray(type_: Integer): IDispatch; begin Result := DefaultInterface.GetDynamicArray(type_); end; function TApp.ksChoiceFileAppointedDir(const ext: WideString; const filter: WideString; preview: WordBool; typeDir: Integer): WideString; begin Result := DefaultInterface.ksChoiceFileAppointedDir(ext, filter, preview, typeDir); end; function TApp.ksChoiceFiles(const ext: WideString; const filter: WideString; const p: IDispatch; preview: WordBool): Integer; begin Result := DefaultInterface.ksChoiceFiles(ext, filter, p, preview); end; function TApp.ksSaveFile(const ext: WideString; const oldName: WideString; const filter: WideString; preview: WordBool): WideString; begin Result := DefaultInterface.ksSaveFile(ext, oldName, filter, preview); end; function TApp.GetAttributeObject: IDispatch; begin Result := DefaultInterface.GetAttributeObject; end; function TApp.ksRefreshActiveWindow: Integer; begin Result := DefaultInterface.ksRefreshActiveWindow; end; function TApp.ksSystemPath(pathType: Integer): WideString; begin Result := DefaultInterface.ksSystemPath(pathType); end; function TApp.ksGetRelativePathFromSystemPath(const sourcePath: WideString; pathType: Integer): WideString; begin Result := DefaultInterface.ksGetRelativePathFromSystemPath(sourcePath, pathType); end; function TApp.ksGetFullPathFromSystemPath(const relativePath: WideString; pathType: Integer): WideString; begin Result := DefaultInterface.ksGetFullPathFromSystemPath(relativePath, pathType); end; function TApp.ksGetRelativePathFromFullPath(const mainFilePath: WideString; const sourcePath: WideString): WideString; begin Result := DefaultInterface.ksGetRelativePathFromFullPath(mainFilePath, sourcePath); end; function TApp.ksGetFullPathFromRelativePath(const mainFilePath: WideString; const relativePath: WideString): WideString; begin Result := DefaultInterface.ksGetFullPathFromRelativePath(mainFilePath, relativePath); end; function TApp.ksGetSystemVersion(var iMajor: Integer; var iMinor: Integer; var iRelease: Integer; var iBuild: Integer): Integer; begin Result := DefaultInterface.ksGetSystemVersion(iMajor, iMinor, iRelease, iBuild); end; function TApp.ksGetSystemProfileString(const lpSection: WideString; const lpKey: WideString): WideString; begin Result := DefaultInterface.ksGetSystemProfileString(lpSection, lpKey); end; function TApp.ksOpenHelpFile(const file_: WideString; command: Integer; iD: Integer): WordBool; begin Result := DefaultInterface.ksOpenHelpFile(file_, command, iD); end; function TApp.ksSetSysOptions(optionsType: Integer; const param: IDispatch): Integer; begin Result := DefaultInterface.ksSetSysOptions(optionsType, param); end; function TApp.ksGetSysOptions(optionsType: Integer; const param: IDispatch): Integer; begin Result := DefaultInterface.ksGetSysOptions(optionsType, param); end; function TApp.ksPrintPreviewWindow(const docsArr: IDispatch; inquiry: Integer): Integer; begin Result := DefaultInterface.ksPrintPreviewWindow(docsArr, inquiry); end; function TApp.ksGetLibraryStylesArray(const libraryName: WideString; libraryType: Smallint): IDispatch; begin Result := DefaultInterface.ksGetLibraryStylesArray(libraryName, libraryType); end; function TApp.ksViewGetDensity(HWindow: Integer): Double; begin Result := DefaultInterface.ksViewGetDensity(HWindow); end; function TApp.ksCalculate(const s: WideString; var rez: Double): Integer; begin Result := DefaultInterface.ksCalculate(s, rez); end; function TApp.ksCalculateReset: Integer; begin Result := DefaultInterface.ksCalculateReset; end; function TApp.ksExecuteLibraryCommand(const fileName: WideString; command: Integer): Integer; begin Result := DefaultInterface.ksExecuteLibraryCommand(fileName, command); end; function TApp.ksGetQualityNames(const names: IDispatch; dimValue: Double; high: Double; low: Double; system: Smallint; withLimitation: Smallint): Integer; begin Result := DefaultInterface.ksGetQualityNames(names, dimValue, high, low, system, withLimitation); end; function TApp.ksGetQualityDefects(const name: WideString; dimValue: Double; var high: Double; var low: Double; inMM: Smallint): Integer; begin Result := DefaultInterface.ksGetQualityDefects(name, dimValue, high, low, inMM); end; function TApp.ksGetQualityContensParam(const name: WideString; const param: IDispatch; inMM: Smallint): Integer; begin Result := DefaultInterface.ksGetQualityContensParam(name, param, inMM); end; function TApp.ksGet3dDocumentFromRef(doc: Integer): IDispatch; begin Result := DefaultInterface.ksGet3dDocumentFromRef(doc); end; function TApp.GetModelLibrary: IDispatch; begin Result := DefaultInterface.GetModelLibrary; end; function TApp.GetFragmentLibrary: IDispatch; begin Result := DefaultInterface.GetFragmentLibrary; end; function TApp.ksIsLibraryEnabled(const libName: WideString): Integer; begin Result := DefaultInterface.ksIsLibraryEnabled(libName); end; function TApp.ksIsModuleSpecificationActive: Integer; begin Result := DefaultInterface.ksIsModuleSpecificationActive; end; function TApp.ksModuleSpecification(attach: WordBool): Integer; begin Result := DefaultInterface.ksModuleSpecification(attach); end; function TApp.ksMaterialDlg(HWindow: Integer; var res: Integer; var plt: Double; var kod_size_1: Double; var kod_size_2: Double; var kod_size_3: Double; var kod_size_4: Double; const kod_tip: WideString): WideString; begin Result := DefaultInterface.ksMaterialDlg(HWindow, res, plt, kod_size_1, kod_size_2, kod_size_3, kod_size_4, kod_tip); end; function TApp.ksExecDialPredefinedText(HWindow: Integer; var res: Integer): WideString; begin Result := DefaultInterface.ksExecDialPredefinedText(HWindow, res); end; function TApp.ksDrawSlideEx(HWindow: Integer; sldID: Integer; hInst: Integer): Integer; begin Result := DefaultInterface.ksDrawSlideEx(HWindow, sldID, hInst); end; function TApp.ksViewGetDensityAndMaterial(var density: Double; HWindow: Integer): WideString; begin Result := DefaultInterface.ksViewGetDensityAndMaterial(density, HWindow); end; function TApp.ksConvertLangStr(const src: WideString): WideString; begin Result := DefaultInterface.ksConvertLangStr(src); end; function TApp.ksConvertLangWindow(hWnd: Integer): WordBool; begin Result := DefaultInterface.ksConvertLangWindow(hWnd); end; function TApp.ksConvertLangMenu(hMenu: Integer): Integer; begin Result := DefaultInterface.ksConvertLangMenu(hMenu); end; function TApp.ksEditTextLine(HWindow: Integer; var res: Integer; const str: WideString): WideString; begin Result := DefaultInterface.ksEditTextLine(HWindow, res, str); end; function TApp.ksGetDocOptions(optionsType: Integer; const param: IDispatch): Integer; begin Result := DefaultInterface.ksGetDocOptions(optionsType, param); end; function TApp.ksAttachKompasLibrary(const libName: WideString): Integer; begin Result := DefaultInterface.ksAttachKompasLibrary(libName); end; function TApp.ksDetachKompasLibrary(libId: Integer): Integer; begin Result := DefaultInterface.ksDetachKompasLibrary(libId); end; function TApp.ksExecuteKompasLibraryCommand(libId: Integer; command: Integer): Integer; begin Result := DefaultInterface.ksExecuteKompasLibraryCommand(libId, command); end; procedure TApp.Quit; begin DefaultInterface.Quit; end; function TApp.ksPrintKompasDocument(const fileName: WideString; const toFile: WideString; scale: Double): Integer; begin Result := DefaultInterface.ksPrintKompasDocument(fileName, toFile, scale); end; function TApp.ksDrawKompasDocument(HWindow: Integer; const docFileName: WideString): Integer; begin Result := DefaultInterface.ksDrawKompasDocument(HWindow, docFileName); end; function TApp.ksSetFlagDisableLockApp(setDisableLockApp: WordBool): WordBool; begin Result := DefaultInterface.ksSetFlagDisableLockApp(setDisableLockApp); end; function TApp.ActivateControllerAPI: WordBool; begin Result := DefaultInterface.ActivateControllerAPI; end; function TApp.DocumentTxt: IDispatch; begin Result := DefaultInterface.DocumentTxt; end; function TApp.ActiveDocumentTxt: IDispatch; begin Result := DefaultInterface.ActiveDocumentTxt; end; function TApp.ksGetLibraryTreeStruct(const libName: WideString; const p: IDispatch): WordBool; begin Result := DefaultInterface.ksGetLibraryTreeStruct(libName, p); end; function TApp.ksSetDocOptions(optionsType: Integer; const param: IDispatch): Integer; begin Result := DefaultInterface.ksSetDocOptions(optionsType, param); end; function TApp.ksGetDocumentType(doc: Integer): Integer; begin Result := DefaultInterface.ksGetDocumentType(doc); end; function TApp.ksDrawKompasDocumentByReference(HWindow: Integer; pDoc: Integer): Integer; begin Result := DefaultInterface.ksDrawKompasDocumentByReference(HWindow, pDoc); end; function TApp.ksExecDialPredefinedTextEx(HWindow: Integer): IDispatch; begin Result := DefaultInterface.ksExecDialPredefinedTextEx(HWindow); end; function TApp.ksGetDocumentTypeByName(const fileName: WideString): Integer; begin Result := DefaultInterface.ksGetDocumentTypeByName(fileName); end; function TApp.ksGetDocumentByReference(docRef: Integer): IDispatch; begin Result := DefaultInterface.ksGetDocumentByReference(docRef); end; function TApp.ksConvertLangStrEx(hInstance: Integer; strID: Integer): WideString; begin Result := DefaultInterface.ksConvertLangStrEx(hInstance, strID); end; function TApp.ksConvertLangWindowEx(hWnd: Integer; hInstance: Integer; const dlgID: WideString): WordBool; begin Result := DefaultInterface.ksConvertLangWindowEx(hWnd, hInstance, dlgID); end; function TApp.LoadDSK: WordBool; begin Result := DefaultInterface.LoadDSK; end; function TApp.GetObjectsFilter3D: IDispatch; begin Result := DefaultInterface.GetObjectsFilter3D; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAppProperties.Create(AServer: TApp); begin inherited Create; FServer := AServer; end; function TAppProperties.GetDefaultInterface: KompasObject; begin Result := FServer.DefaultInterface; end; function TAppProperties.Get_Visible: WordBool; begin Result := DefaultInterface.Visible; end; procedure TAppProperties.Set_Visible(Value: WordBool); begin DefaultInterface.Visible := Value; end; {$ENDIF} class function CoObject2DNotifyResult.Create: ksObject2DNotifyResult; begin Result := CreateComObject(CLASS_Object2DNotifyResult) as ksObject2DNotifyResult; end; class function CoObject2DNotifyResult.CreateRemote(const MachineName: string): ksObject2DNotifyResult; begin Result := CreateRemoteComObject(MachineName, CLASS_Object2DNotifyResult) as ksObject2DNotifyResult; end; procedure TObject2DNotifyResult.InitServerData; const CServerData: TServerData = ( ClassID: '{DE8219EC-0A9F-44E1-AC2B-F17269484FFF}'; IntfIID: '{1FE1EB28-CD28-4700-8E46-25CCFE9C0EC8}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TObject2DNotifyResult.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksObject2DNotifyResult; end; end; procedure TObject2DNotifyResult.ConnectTo(svrIntf: ksObject2DNotifyResult); begin Disconnect; FIntf := svrIntf; end; procedure TObject2DNotifyResult.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TObject2DNotifyResult.GetDefaultInterface: ksObject2DNotifyResult; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TObject2DNotifyResult.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TObject2DNotifyResultProperties.Create(Self); {$ENDIF} end; destructor TObject2DNotifyResult.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TObject2DNotifyResult.GetServerProperties: TObject2DNotifyResultProperties; begin Result := FProps; end; {$ENDIF} function TObject2DNotifyResult.GetNotifyType: Integer; begin Result := DefaultInterface.GetNotifyType; end; function TObject2DNotifyResult.IsCopy: WordBool; begin Result := DefaultInterface.IsCopy; end; function TObject2DNotifyResult.GetSheetPoint(from: WordBool; var x: Double; var y: Double): WordBool; begin Result := DefaultInterface.GetSheetPoint(from, x, y); end; function TObject2DNotifyResult.GetCopyObject: Integer; begin Result := DefaultInterface.GetCopyObject; end; function TObject2DNotifyResult.GetAngle: Double; begin Result := DefaultInterface.GetAngle; end; function TObject2DNotifyResult.GetScale(var sx: Double; var sy: Double): WordBool; begin Result := DefaultInterface.GetScale(sx, sy); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TObject2DNotifyResultProperties.Create(AServer: TObject2DNotifyResult); begin inherited Create; FServer := AServer; end; function TObject2DNotifyResultProperties.GetDefaultInterface: ksObject2DNotifyResult; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoFeatureCollection.Create: ksFeatureCollection; begin Result := CreateComObject(CLASS_FeatureCollection) as ksFeatureCollection; end; class function CoFeatureCollection.CreateRemote(const MachineName: string): ksFeatureCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_FeatureCollection) as ksFeatureCollection; end; procedure TFeatureCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{87CD4F95-083C-4514-B8B4-025C8907D8F1}'; IntfIID: '{CE6A46FF-02B4-4C7E-AF50-3F3707C8B122}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFeatureCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFeatureCollection; end; end; procedure TFeatureCollection.ConnectTo(svrIntf: ksFeatureCollection); begin Disconnect; FIntf := svrIntf; end; procedure TFeatureCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TFeatureCollection.GetDefaultInterface: ksFeatureCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFeatureCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFeatureCollectionProperties.Create(Self); {$ENDIF} end; destructor TFeatureCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFeatureCollection.GetServerProperties: TFeatureCollectionProperties; begin Result := FProps; end; {$ENDIF} function TFeatureCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TFeatureCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TFeatureCollection.First: ksFeature; begin Result := DefaultInterface.First; end; function TFeatureCollection.Last: ksFeature; begin Result := DefaultInterface.Last; end; function TFeatureCollection.Next: ksFeature; begin Result := DefaultInterface.Next; end; function TFeatureCollection.Prev: ksFeature; begin Result := DefaultInterface.Prev; end; function TFeatureCollection.GetByIndex(index: Integer): ksFeature; begin Result := DefaultInterface.GetByIndex(index); end; function TFeatureCollection.GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): ksFeature; begin Result := DefaultInterface.GetByName(name, testFullName, testIgnoreCase); end; function TFeatureCollection.FindIt(const entity: ksFeature): Integer; begin Result := DefaultInterface.FindIt(entity); end; function TFeatureCollection.Add(const obj: ksFeature): WordBool; begin Result := DefaultInterface.Add(obj); end; function TFeatureCollection.AddAt(const obj: ksFeature; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(obj, index); end; function TFeatureCollection.AddBefore(const obj: ksFeature; const base: ksFeature): WordBool; begin Result := DefaultInterface.AddBefore(obj, base); end; function TFeatureCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TFeatureCollection.DetachByBody(const obj: ksFeature): WordBool; begin Result := DefaultInterface.DetachByBody(obj); end; function TFeatureCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TFeatureCollection.SetByIndex(const obj: ksFeature; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(obj, index); end; function TFeatureCollection.AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): ksAttribute3DCollection; begin Result := DefaultInterface.AttributeCollection(key1, key2, key3, key4, numb); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFeatureCollectionProperties.Create(AServer: TFeatureCollection); begin inherited Create; FServer := AServer; end; function TFeatureCollectionProperties.GetDefaultInterface: ksFeatureCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function Coplacement.Create: ksPlacement; begin Result := CreateComObject(CLASS_placement) as ksPlacement; end; class function Coplacement.CreateRemote(const MachineName: string): ksPlacement; begin Result := CreateRemoteComObject(MachineName, CLASS_placement) as ksPlacement; end; procedure Tplacement.InitServerData; const CServerData: TServerData = ( ClassID: '{2DFACC66-C4A4-11D6-8734-00C0262CDD2C}'; IntfIID: '{2DFACC64-C4A4-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure Tplacement.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlacement; end; end; procedure Tplacement.ConnectTo(svrIntf: ksPlacement); begin Disconnect; FIntf := svrIntf; end; procedure Tplacement.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function Tplacement.GetDefaultInterface: ksPlacement; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor Tplacement.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TplacementProperties.Create(Self); {$ENDIF} end; destructor Tplacement.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function Tplacement.GetServerProperties: TplacementProperties; begin Result := FProps; end; {$ENDIF} function Tplacement.GetOrigin(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetOrigin(x, y, z); end; function Tplacement.SetOrigin(x: Double; y: Double; z: Double): WordBool; begin Result := DefaultInterface.SetOrigin(x, y, z); end; function Tplacement.GetAxis(var x: Double; var y: Double; var z: Double; type_: Integer): WordBool; begin Result := DefaultInterface.GetAxis(x, y, z, type_); end; function Tplacement.SetAxis(x: Double; y: Double; z: Double; type_: Integer): WordBool; begin Result := DefaultInterface.SetAxis(x, y, z, type_); end; function Tplacement.SetPlacement(const placement: IDispatch): WordBool; begin Result := DefaultInterface.SetPlacement(placement); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TplacementProperties.Create(AServer: Tplacement); begin inherited Create; FServer := AServer; end; function TplacementProperties.GetDefaultInterface: ksPlacement; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoObject3DNotifyResult.Create: ksObject3DNotifyResult; begin Result := CreateComObject(CLASS_Object3DNotifyResult) as ksObject3DNotifyResult; end; class function CoObject3DNotifyResult.CreateRemote(const MachineName: string): ksObject3DNotifyResult; begin Result := CreateRemoteComObject(MachineName, CLASS_Object3DNotifyResult) as ksObject3DNotifyResult; end; procedure TObject3DNotifyResult.InitServerData; const CServerData: TServerData = ( ClassID: '{600F12DF-D8B8-4CA8-A476-D2A7E425C740}'; IntfIID: '{9C3ECC92-E72F-4892-8921-7886F34CA9AD}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TObject3DNotifyResult.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksObject3DNotifyResult; end; end; procedure TObject3DNotifyResult.ConnectTo(svrIntf: ksObject3DNotifyResult); begin Disconnect; FIntf := svrIntf; end; procedure TObject3DNotifyResult.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TObject3DNotifyResult.GetDefaultInterface: ksObject3DNotifyResult; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TObject3DNotifyResult.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TObject3DNotifyResultProperties.Create(Self); {$ENDIF} end; destructor TObject3DNotifyResult.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TObject3DNotifyResult.GetServerProperties: TObject3DNotifyResultProperties; begin Result := FProps; end; {$ENDIF} function TObject3DNotifyResult.GetNotifyType: Integer; begin Result := DefaultInterface.GetNotifyType; end; function TObject3DNotifyResult.GetFeatureCollection: ksFeatureCollection; begin Result := DefaultInterface.GetFeatureCollection; end; function TObject3DNotifyResult.GetPlacement: ksPlacement; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TObject3DNotifyResultProperties.Create(AServer: TObject3DNotifyResult); begin inherited Create; FServer := AServer; end; function TObject3DNotifyResultProperties.GetDefaultInterface: ksObject3DNotifyResult; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoDocument2D.Create: ksDocument2D; begin Result := CreateComObject(CLASS_Document2D) as ksDocument2D; end; class function CoDocument2D.CreateRemote(const MachineName: string): ksDocument2D; begin Result := CreateRemoteComObject(MachineName, CLASS_Document2D) as ksDocument2D; end; class function CoSpecRoughParam.Create: ksSpecRoughParam; begin Result := CreateComObject(CLASS_SpecRoughParam) as ksSpecRoughParam; end; class function CoSpecRoughParam.CreateRemote(const MachineName: string): ksSpecRoughParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpecRoughParam) as ksSpecRoughParam; end; procedure TSpecRoughParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521A5-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521A3-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpecRoughParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpecRoughParam; end; end; procedure TSpecRoughParam.ConnectTo(svrIntf: ksSpecRoughParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpecRoughParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpecRoughParam.GetDefaultInterface: ksSpecRoughParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpecRoughParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpecRoughParamProperties.Create(Self); {$ENDIF} end; destructor TSpecRoughParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpecRoughParam.GetServerProperties: TSpecRoughParamProperties; begin Result := FProps; end; {$ENDIF} function TSpecRoughParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TSpecRoughParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TSpecRoughParam.Get_sign: Smallint; begin Result := DefaultInterface.sign; end; procedure TSpecRoughParam.Set_sign(Value: Smallint); begin DefaultInterface.sign := Value; end; function TSpecRoughParam.Get_t: WordBool; begin Result := DefaultInterface.t; end; procedure TSpecRoughParam.Set_t(Value: WordBool); begin DefaultInterface.t := Value; end; function TSpecRoughParam.Get_s: WideString; begin Result := DefaultInterface.s; end; procedure TSpecRoughParam.Set_s(const Value: WideString); begin DefaultInterface.s := Value; end; function TSpecRoughParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpecRoughParamProperties.Create(AServer: TSpecRoughParam); begin inherited Create; FServer := AServer; end; function TSpecRoughParamProperties.GetDefaultInterface: ksSpecRoughParam; begin Result := FServer.DefaultInterface; end; function TSpecRoughParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TSpecRoughParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TSpecRoughParamProperties.Get_sign: Smallint; begin Result := DefaultInterface.sign; end; procedure TSpecRoughParamProperties.Set_sign(Value: Smallint); begin DefaultInterface.sign := Value; end; function TSpecRoughParamProperties.Get_t: WordBool; begin Result := DefaultInterface.t; end; procedure TSpecRoughParamProperties.Set_t(Value: WordBool); begin DefaultInterface.t := Value; end; function TSpecRoughParamProperties.Get_s: WideString; begin Result := DefaultInterface.s; end; procedure TSpecRoughParamProperties.Set_s(const Value: WideString); begin DefaultInterface.s := Value; end; {$ENDIF} class function CoEllipseParam.Create: ksEllipseParam; begin Result := CreateComObject(CLASS_EllipseParam) as ksEllipseParam; end; class function CoEllipseParam.CreateRemote(const MachineName: string): ksEllipseParam; begin Result := CreateRemoteComObject(MachineName, CLASS_EllipseParam) as ksEllipseParam; end; procedure TEllipseParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521A8-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521A6-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEllipseParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEllipseParam; end; end; procedure TEllipseParam.ConnectTo(svrIntf: ksEllipseParam); begin Disconnect; FIntf := svrIntf; end; procedure TEllipseParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEllipseParam.GetDefaultInterface: ksEllipseParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEllipseParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEllipseParamProperties.Create(Self); {$ENDIF} end; destructor TEllipseParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEllipseParam.GetServerProperties: TEllipseParamProperties; begin Result := FProps; end; {$ENDIF} function TEllipseParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TEllipseParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TEllipseParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TEllipseParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TEllipseParam.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TEllipseParam.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TEllipseParam.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TEllipseParam.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TEllipseParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TEllipseParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TEllipseParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEllipseParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TEllipseParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEllipseParamProperties.Create(AServer: TEllipseParam); begin inherited Create; FServer := AServer; end; function TEllipseParamProperties.GetDefaultInterface: ksEllipseParam; begin Result := FServer.DefaultInterface; end; function TEllipseParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TEllipseParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TEllipseParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TEllipseParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TEllipseParamProperties.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TEllipseParamProperties.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TEllipseParamProperties.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TEllipseParamProperties.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TEllipseParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TEllipseParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TEllipseParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEllipseParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoEllipseArcParam.Create: ksEllipseArcParam; begin Result := CreateComObject(CLASS_EllipseArcParam) as ksEllipseArcParam; end; class function CoEllipseArcParam.CreateRemote(const MachineName: string): ksEllipseArcParam; begin Result := CreateRemoteComObject(MachineName, CLASS_EllipseArcParam) as ksEllipseArcParam; end; procedure TEllipseArcParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521AB-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521A9-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEllipseArcParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEllipseArcParam; end; end; procedure TEllipseArcParam.ConnectTo(svrIntf: ksEllipseArcParam); begin Disconnect; FIntf := svrIntf; end; procedure TEllipseArcParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEllipseArcParam.GetDefaultInterface: ksEllipseArcParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEllipseArcParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEllipseArcParamProperties.Create(Self); {$ENDIF} end; destructor TEllipseArcParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEllipseArcParam.GetServerProperties: TEllipseArcParamProperties; begin Result := FProps; end; {$ENDIF} function TEllipseArcParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TEllipseArcParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TEllipseArcParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TEllipseArcParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TEllipseArcParam.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TEllipseArcParam.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TEllipseArcParam.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TEllipseArcParam.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TEllipseArcParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TEllipseArcParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TEllipseArcParam.Get_angleFirst: Double; begin Result := DefaultInterface.angleFirst; end; procedure TEllipseArcParam.Set_angleFirst(Value: Double); begin DefaultInterface.angleFirst := Value; end; function TEllipseArcParam.Get_angleSecond: Double; begin Result := DefaultInterface.angleSecond; end; procedure TEllipseArcParam.Set_angleSecond(Value: Double); begin DefaultInterface.angleSecond := Value; end; function TEllipseArcParam.Get_direction: Double; begin Result := DefaultInterface.direction; end; procedure TEllipseArcParam.Set_direction(Value: Double); begin DefaultInterface.direction := Value; end; function TEllipseArcParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEllipseArcParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TEllipseArcParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEllipseArcParamProperties.Create(AServer: TEllipseArcParam); begin inherited Create; FServer := AServer; end; function TEllipseArcParamProperties.GetDefaultInterface: ksEllipseArcParam; begin Result := FServer.DefaultInterface; end; function TEllipseArcParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TEllipseArcParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TEllipseArcParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TEllipseArcParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TEllipseArcParamProperties.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TEllipseArcParamProperties.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TEllipseArcParamProperties.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TEllipseArcParamProperties.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TEllipseArcParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TEllipseArcParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TEllipseArcParamProperties.Get_angleFirst: Double; begin Result := DefaultInterface.angleFirst; end; procedure TEllipseArcParamProperties.Set_angleFirst(Value: Double); begin DefaultInterface.angleFirst := Value; end; function TEllipseArcParamProperties.Get_angleSecond: Double; begin Result := DefaultInterface.angleSecond; end; procedure TEllipseArcParamProperties.Set_angleSecond(Value: Double); begin DefaultInterface.angleSecond := Value; end; function TEllipseArcParamProperties.Get_direction: Double; begin Result := DefaultInterface.direction; end; procedure TEllipseArcParamProperties.Set_direction(Value: Double); begin DefaultInterface.direction := Value; end; function TEllipseArcParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEllipseArcParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoEllipseArcParam1.Create: ksEllipseArcParam1; begin Result := CreateComObject(CLASS_EllipseArcParam1) as ksEllipseArcParam1; end; class function CoEllipseArcParam1.CreateRemote(const MachineName: string): ksEllipseArcParam1; begin Result := CreateRemoteComObject(MachineName, CLASS_EllipseArcParam1) as ksEllipseArcParam1; end; procedure TEllipseArcParam1.InitServerData; const CServerData: TServerData = ( ClassID: '{364521AE-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521AC-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEllipseArcParam1.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEllipseArcParam1; end; end; procedure TEllipseArcParam1.ConnectTo(svrIntf: ksEllipseArcParam1); begin Disconnect; FIntf := svrIntf; end; procedure TEllipseArcParam1.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEllipseArcParam1.GetDefaultInterface: ksEllipseArcParam1; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEllipseArcParam1.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEllipseArcParam1Properties.Create(Self); {$ENDIF} end; destructor TEllipseArcParam1.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEllipseArcParam1.GetServerProperties: TEllipseArcParam1Properties; begin Result := FProps; end; {$ENDIF} function TEllipseArcParam1.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TEllipseArcParam1.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TEllipseArcParam1.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TEllipseArcParam1.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TEllipseArcParam1.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TEllipseArcParam1.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TEllipseArcParam1.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TEllipseArcParam1.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TEllipseArcParam1.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TEllipseArcParam1.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TEllipseArcParam1.Get_parFirst: Double; begin Result := DefaultInterface.parFirst; end; procedure TEllipseArcParam1.Set_parFirst(Value: Double); begin DefaultInterface.parFirst := Value; end; function TEllipseArcParam1.Get_parSecond: Double; begin Result := DefaultInterface.parSecond; end; procedure TEllipseArcParam1.Set_parSecond(Value: Double); begin DefaultInterface.parSecond := Value; end; function TEllipseArcParam1.Get_direction: Double; begin Result := DefaultInterface.direction; end; procedure TEllipseArcParam1.Set_direction(Value: Double); begin DefaultInterface.direction := Value; end; function TEllipseArcParam1.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEllipseArcParam1.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TEllipseArcParam1.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEllipseArcParam1Properties.Create(AServer: TEllipseArcParam1); begin inherited Create; FServer := AServer; end; function TEllipseArcParam1Properties.GetDefaultInterface: ksEllipseArcParam1; begin Result := FServer.DefaultInterface; end; function TEllipseArcParam1Properties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TEllipseArcParam1Properties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TEllipseArcParam1Properties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TEllipseArcParam1Properties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TEllipseArcParam1Properties.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TEllipseArcParam1Properties.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TEllipseArcParam1Properties.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TEllipseArcParam1Properties.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TEllipseArcParam1Properties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TEllipseArcParam1Properties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TEllipseArcParam1Properties.Get_parFirst: Double; begin Result := DefaultInterface.parFirst; end; procedure TEllipseArcParam1Properties.Set_parFirst(Value: Double); begin DefaultInterface.parFirst := Value; end; function TEllipseArcParam1Properties.Get_parSecond: Double; begin Result := DefaultInterface.parSecond; end; procedure TEllipseArcParam1Properties.Set_parSecond(Value: Double); begin DefaultInterface.parSecond := Value; end; function TEllipseArcParam1Properties.Get_direction: Double; begin Result := DefaultInterface.direction; end; procedure TEllipseArcParam1Properties.Set_direction(Value: Double); begin DefaultInterface.direction := Value; end; function TEllipseArcParam1Properties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEllipseArcParam1Properties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoEquidistantParam.Create: ksEquidistantParam; begin Result := CreateComObject(CLASS_EquidistantParam) as ksEquidistantParam; end; class function CoEquidistantParam.CreateRemote(const MachineName: string): ksEquidistantParam; begin Result := CreateRemoteComObject(MachineName, CLASS_EquidistantParam) as ksEquidistantParam; end; procedure TEquidistantParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521B1-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521AF-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEquidistantParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEquidistantParam; end; end; procedure TEquidistantParam.ConnectTo(svrIntf: ksEquidistantParam); begin Disconnect; FIntf := svrIntf; end; procedure TEquidistantParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEquidistantParam.GetDefaultInterface: ksEquidistantParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEquidistantParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEquidistantParamProperties.Create(Self); {$ENDIF} end; destructor TEquidistantParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEquidistantParam.GetServerProperties: TEquidistantParamProperties; begin Result := FProps; end; {$ENDIF} function TEquidistantParam.Get_geoObj: Integer; begin Result := DefaultInterface.geoObj; end; procedure TEquidistantParam.Set_geoObj(Value: Integer); begin DefaultInterface.geoObj := Value; end; function TEquidistantParam.Get_side: Smallint; begin Result := DefaultInterface.side; end; procedure TEquidistantParam.Set_side(Value: Smallint); begin DefaultInterface.side := Value; end; function TEquidistantParam.Get_cutMode: WordBool; begin Result := DefaultInterface.cutMode; end; procedure TEquidistantParam.Set_cutMode(Value: WordBool); begin DefaultInterface.cutMode := Value; end; function TEquidistantParam.Get_degState: WordBool; begin Result := DefaultInterface.degState; end; procedure TEquidistantParam.Set_degState(Value: WordBool); begin DefaultInterface.degState := Value; end; function TEquidistantParam.Get_radRight: Double; begin Result := DefaultInterface.radRight; end; procedure TEquidistantParam.Set_radRight(Value: Double); begin DefaultInterface.radRight := Value; end; function TEquidistantParam.Get_radLeft: Double; begin Result := DefaultInterface.radLeft; end; procedure TEquidistantParam.Set_radLeft(Value: Double); begin DefaultInterface.radLeft := Value; end; function TEquidistantParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEquidistantParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TEquidistantParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEquidistantParamProperties.Create(AServer: TEquidistantParam); begin inherited Create; FServer := AServer; end; function TEquidistantParamProperties.GetDefaultInterface: ksEquidistantParam; begin Result := FServer.DefaultInterface; end; function TEquidistantParamProperties.Get_geoObj: Integer; begin Result := DefaultInterface.geoObj; end; procedure TEquidistantParamProperties.Set_geoObj(Value: Integer); begin DefaultInterface.geoObj := Value; end; function TEquidistantParamProperties.Get_side: Smallint; begin Result := DefaultInterface.side; end; procedure TEquidistantParamProperties.Set_side(Value: Smallint); begin DefaultInterface.side := Value; end; function TEquidistantParamProperties.Get_cutMode: WordBool; begin Result := DefaultInterface.cutMode; end; procedure TEquidistantParamProperties.Set_cutMode(Value: WordBool); begin DefaultInterface.cutMode := Value; end; function TEquidistantParamProperties.Get_degState: WordBool; begin Result := DefaultInterface.degState; end; procedure TEquidistantParamProperties.Set_degState(Value: WordBool); begin DefaultInterface.degState := Value; end; function TEquidistantParamProperties.Get_radRight: Double; begin Result := DefaultInterface.radRight; end; procedure TEquidistantParamProperties.Set_radRight(Value: Double); begin DefaultInterface.radRight := Value; end; function TEquidistantParamProperties.Get_radLeft: Double; begin Result := DefaultInterface.radLeft; end; procedure TEquidistantParamProperties.Set_radLeft(Value: Double); begin DefaultInterface.radLeft := Value; end; function TEquidistantParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TEquidistantParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoParagraphParam.Create: ksParagraphParam; begin Result := CreateComObject(CLASS_ParagraphParam) as ksParagraphParam; end; class function CoParagraphParam.CreateRemote(const MachineName: string): ksParagraphParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ParagraphParam) as ksParagraphParam; end; procedure TParagraphParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521B4-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521B2-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TParagraphParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksParagraphParam; end; end; procedure TParagraphParam.ConnectTo(svrIntf: ksParagraphParam); begin Disconnect; FIntf := svrIntf; end; procedure TParagraphParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TParagraphParam.GetDefaultInterface: ksParagraphParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TParagraphParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TParagraphParamProperties.Create(Self); {$ENDIF} end; destructor TParagraphParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TParagraphParam.GetServerProperties: TParagraphParamProperties; begin Result := FProps; end; {$ENDIF} function TParagraphParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TParagraphParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TParagraphParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TParagraphParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TParagraphParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TParagraphParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TParagraphParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TParagraphParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TParagraphParam.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TParagraphParam.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TParagraphParam.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TParagraphParam.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TParagraphParam.Get_vFormat: Integer; begin Result := DefaultInterface.vFormat; end; procedure TParagraphParam.Set_vFormat(Value: Integer); begin DefaultInterface.vFormat := Value; end; function TParagraphParam.Get_hFormat: Integer; begin Result := DefaultInterface.hFormat; end; procedure TParagraphParam.Set_hFormat(Value: Integer); begin DefaultInterface.hFormat := Value; end; function TParagraphParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TParagraphParamProperties.Create(AServer: TParagraphParam); begin inherited Create; FServer := AServer; end; function TParagraphParamProperties.GetDefaultInterface: ksParagraphParam; begin Result := FServer.DefaultInterface; end; function TParagraphParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TParagraphParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TParagraphParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TParagraphParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TParagraphParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TParagraphParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TParagraphParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TParagraphParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TParagraphParamProperties.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TParagraphParamProperties.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TParagraphParamProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TParagraphParamProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TParagraphParamProperties.Get_vFormat: Integer; begin Result := DefaultInterface.vFormat; end; procedure TParagraphParamProperties.Set_vFormat(Value: Integer); begin DefaultInterface.vFormat := Value; end; function TParagraphParamProperties.Get_hFormat: Integer; begin Result := DefaultInterface.hFormat; end; procedure TParagraphParamProperties.Set_hFormat(Value: Integer); begin DefaultInterface.hFormat := Value; end; {$ENDIF} class function CoTextItemParam.Create: ksTextItemParam; begin Result := CreateComObject(CLASS_TextItemParam) as ksTextItemParam; end; class function CoTextItemParam.CreateRemote(const MachineName: string): ksTextItemParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TextItemParam) as ksTextItemParam; end; procedure TTextItemParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521B9-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521B7-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTextItemParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTextItemParam; end; end; procedure TTextItemParam.ConnectTo(svrIntf: ksTextItemParam); begin Disconnect; FIntf := svrIntf; end; procedure TTextItemParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTextItemParam.GetDefaultInterface: ksTextItemParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTextItemParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTextItemParamProperties.Create(Self); {$ENDIF} end; destructor TTextItemParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTextItemParam.GetServerProperties: TTextItemParamProperties; begin Result := FProps; end; {$ENDIF} function TTextItemParam.Get_type_: Integer; begin Result := DefaultInterface.type_; end; procedure TTextItemParam.Set_type_(Value: Integer); begin DefaultInterface.type_ := Value; end; function TTextItemParam.Get_s: WideString; begin Result := DefaultInterface.s; end; procedure TTextItemParam.Set_s(const Value: WideString); begin DefaultInterface.s := Value; end; function TTextItemParam.Get_iSNumb: Integer; begin Result := DefaultInterface.iSNumb; end; procedure TTextItemParam.Set_iSNumb(Value: Integer); begin DefaultInterface.iSNumb := Value; end; function TTextItemParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TTextItemParam.GetItemFont: IDispatch; begin Result := DefaultInterface.GetItemFont; end; function TTextItemParam.SetItemFont(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetItemFont(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTextItemParamProperties.Create(AServer: TTextItemParam); begin inherited Create; FServer := AServer; end; function TTextItemParamProperties.GetDefaultInterface: ksTextItemParam; begin Result := FServer.DefaultInterface; end; function TTextItemParamProperties.Get_type_: Integer; begin Result := DefaultInterface.type_; end; procedure TTextItemParamProperties.Set_type_(Value: Integer); begin DefaultInterface.type_ := Value; end; function TTextItemParamProperties.Get_s: WideString; begin Result := DefaultInterface.s; end; procedure TTextItemParamProperties.Set_s(const Value: WideString); begin DefaultInterface.s := Value; end; function TTextItemParamProperties.Get_iSNumb: Integer; begin Result := DefaultInterface.iSNumb; end; procedure TTextItemParamProperties.Set_iSNumb(Value: Integer); begin DefaultInterface.iSNumb := Value; end; {$ENDIF} class function CoTextLineParam.Create: ksTextLineParam; begin Result := CreateComObject(CLASS_TextLineParam) as ksTextLineParam; end; class function CoTextLineParam.CreateRemote(const MachineName: string): ksTextLineParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TextLineParam) as ksTextLineParam; end; procedure TTextLineParam.InitServerData; const CServerData: TServerData = ( ClassID: '{364521BC-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521BA-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTextLineParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTextLineParam; end; end; procedure TTextLineParam.ConnectTo(svrIntf: ksTextLineParam); begin Disconnect; FIntf := svrIntf; end; procedure TTextLineParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTextLineParam.GetDefaultInterface: ksTextLineParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTextLineParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTextLineParamProperties.Create(Self); {$ENDIF} end; destructor TTextLineParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTextLineParam.GetServerProperties: TTextLineParamProperties; begin Result := FProps; end; {$ENDIF} function TTextLineParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TTextLineParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TTextLineParam.GetTextItemArr: IDispatch; begin Result := DefaultInterface.GetTextItemArr; end; function TTextLineParam.SetTextItemArr(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTextItemArr(val); end; function TTextLineParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTextLineParamProperties.Create(AServer: TTextLineParam); begin inherited Create; FServer := AServer; end; function TTextLineParamProperties.GetDefaultInterface: ksTextLineParam; begin Result := FServer.DefaultInterface; end; function TTextLineParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TTextLineParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoTextItemFont.Create: ksTextItemFont; begin Result := CreateComObject(CLASS_TextItemFont) as ksTextItemFont; end; class function CoTextItemFont.CreateRemote(const MachineName: string): ksTextItemFont; begin Result := CreateRemoteComObject(MachineName, CLASS_TextItemFont) as ksTextItemFont; end; procedure TTextItemFont.InitServerData; const CServerData: TServerData = ( ClassID: '{364521BF-94B5-11D6-8732-00C0262CDD2C}'; IntfIID: '{364521BD-94B5-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTextItemFont.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTextItemFont; end; end; procedure TTextItemFont.ConnectTo(svrIntf: ksTextItemFont); begin Disconnect; FIntf := svrIntf; end; procedure TTextItemFont.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTextItemFont.GetDefaultInterface: ksTextItemFont; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTextItemFont.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTextItemFontProperties.Create(Self); {$ENDIF} end; destructor TTextItemFont.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTextItemFont.GetServerProperties: TTextItemFontProperties; begin Result := FProps; end; {$ENDIF} function TTextItemFont.Get_fontName: WideString; begin Result := DefaultInterface.fontName; end; procedure TTextItemFont.Set_fontName(const Value: WideString); begin DefaultInterface.fontName := Value; end; function TTextItemFont.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TTextItemFont.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TTextItemFont.Get_ksu: Double; begin Result := DefaultInterface.ksu; end; procedure TTextItemFont.Set_ksu(Value: Double); begin DefaultInterface.ksu := Value; end; function TTextItemFont.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TTextItemFont.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TTextItemFont.Get_bitVector: Integer; begin Result := DefaultInterface.bitVector; end; procedure TTextItemFont.Set_bitVector(Value: Integer); begin DefaultInterface.bitVector := Value; end; function TTextItemFont.Init: WordBool; begin Result := DefaultInterface.Init; end; function TTextItemFont.GetBitVectorValue(val: Integer): WordBool; begin Result := DefaultInterface.GetBitVectorValue(val); end; function TTextItemFont.SetBitVectorValue(val: Integer; state: WordBool): WordBool; begin Result := DefaultInterface.SetBitVectorValue(val, state); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTextItemFontProperties.Create(AServer: TTextItemFont); begin inherited Create; FServer := AServer; end; function TTextItemFontProperties.GetDefaultInterface: ksTextItemFont; begin Result := FServer.DefaultInterface; end; function TTextItemFontProperties.Get_fontName: WideString; begin Result := DefaultInterface.fontName; end; procedure TTextItemFontProperties.Set_fontName(const Value: WideString); begin DefaultInterface.fontName := Value; end; function TTextItemFontProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TTextItemFontProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TTextItemFontProperties.Get_ksu: Double; begin Result := DefaultInterface.ksu; end; procedure TTextItemFontProperties.Set_ksu(Value: Double); begin DefaultInterface.ksu := Value; end; function TTextItemFontProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TTextItemFontProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TTextItemFontProperties.Get_bitVector: Integer; begin Result := DefaultInterface.bitVector; end; procedure TTextItemFontProperties.Set_bitVector(Value: Integer); begin DefaultInterface.bitVector := Value; end; {$ENDIF} class function CoCornerParam.Create: ksCornerParam; begin Result := CreateComObject(CLASS_CornerParam) as ksCornerParam; end; class function CoCornerParam.CreateRemote(const MachineName: string): ksCornerParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CornerParam) as ksCornerParam; end; procedure TCornerParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C2503-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2501-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCornerParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCornerParam; end; end; procedure TCornerParam.ConnectTo(svrIntf: ksCornerParam); begin Disconnect; FIntf := svrIntf; end; procedure TCornerParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCornerParam.GetDefaultInterface: ksCornerParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCornerParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCornerParamProperties.Create(Self); {$ENDIF} end; destructor TCornerParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCornerParam.GetServerProperties: TCornerParamProperties; begin Result := FProps; end; {$ENDIF} function TCornerParam.Get_index: Integer; begin Result := DefaultInterface.index; end; procedure TCornerParam.Set_index(Value: Integer); begin DefaultInterface.index := Value; end; function TCornerParam.Get_fillet: WordBool; begin Result := DefaultInterface.fillet; end; procedure TCornerParam.Set_fillet(Value: WordBool); begin DefaultInterface.fillet := Value; end; function TCornerParam.Get_l1: Double; begin Result := DefaultInterface.l1; end; procedure TCornerParam.Set_l1(Value: Double); begin DefaultInterface.l1 := Value; end; function TCornerParam.Get_l2: Double; begin Result := DefaultInterface.l2; end; procedure TCornerParam.Set_l2(Value: Double); begin DefaultInterface.l2 := Value; end; function TCornerParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCornerParamProperties.Create(AServer: TCornerParam); begin inherited Create; FServer := AServer; end; function TCornerParamProperties.GetDefaultInterface: ksCornerParam; begin Result := FServer.DefaultInterface; end; function TCornerParamProperties.Get_index: Integer; begin Result := DefaultInterface.index; end; procedure TCornerParamProperties.Set_index(Value: Integer); begin DefaultInterface.index := Value; end; function TCornerParamProperties.Get_fillet: WordBool; begin Result := DefaultInterface.fillet; end; procedure TCornerParamProperties.Set_fillet(Value: WordBool); begin DefaultInterface.fillet := Value; end; function TCornerParamProperties.Get_l1: Double; begin Result := DefaultInterface.l1; end; procedure TCornerParamProperties.Set_l1(Value: Double); begin DefaultInterface.l1 := Value; end; function TCornerParamProperties.Get_l2: Double; begin Result := DefaultInterface.l2; end; procedure TCornerParamProperties.Set_l2(Value: Double); begin DefaultInterface.l2 := Value; end; {$ENDIF} class function CoContourParam.Create: ksContourParam; begin Result := CreateComObject(CLASS_ContourParam) as ksContourParam; end; class function CoContourParam.CreateRemote(const MachineName: string): ksContourParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ContourParam) as ksContourParam; end; procedure TContourParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C2506-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2504-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TContourParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksContourParam; end; end; procedure TContourParam.ConnectTo(svrIntf: ksContourParam); begin Disconnect; FIntf := svrIntf; end; procedure TContourParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TContourParam.GetDefaultInterface: ksContourParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TContourParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TContourParamProperties.Create(Self); {$ENDIF} end; destructor TContourParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TContourParam.GetServerProperties: TContourParamProperties; begin Result := FProps; end; {$ENDIF} function TContourParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TContourParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TContourParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TContourParamProperties.Create(AServer: TContourParam); begin inherited Create; FServer := AServer; end; function TContourParamProperties.GetDefaultInterface: ksContourParam; begin Result := FServer.DefaultInterface; end; function TContourParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TContourParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoLayerParam.Create: ksLayerParam; begin Result := CreateComObject(CLASS_LayerParam) as ksLayerParam; end; class function CoLayerParam.CreateRemote(const MachineName: string): ksLayerParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LayerParam) as ksLayerParam; end; procedure TLayerParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C2509-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2507-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLayerParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLayerParam; end; end; procedure TLayerParam.ConnectTo(svrIntf: ksLayerParam); begin Disconnect; FIntf := svrIntf; end; procedure TLayerParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLayerParam.GetDefaultInterface: ksLayerParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLayerParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLayerParamProperties.Create(Self); {$ENDIF} end; destructor TLayerParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLayerParam.GetServerProperties: TLayerParamProperties; begin Result := FProps; end; {$ENDIF} function TLayerParam.Get_state: Smallint; begin Result := DefaultInterface.state; end; procedure TLayerParam.Set_state(Value: Smallint); begin DefaultInterface.state := Value; end; function TLayerParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TLayerParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TLayerParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TLayerParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TLayerParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLayerParamProperties.Create(AServer: TLayerParam); begin inherited Create; FServer := AServer; end; function TLayerParamProperties.GetDefaultInterface: ksLayerParam; begin Result := FServer.DefaultInterface; end; function TLayerParamProperties.Get_state: Smallint; begin Result := DefaultInterface.state; end; procedure TLayerParamProperties.Set_state(Value: Smallint); begin DefaultInterface.state := Value; end; function TLayerParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TLayerParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TLayerParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TLayerParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; {$ENDIF} class function CoLineParam.Create: ksLineParam; begin Result := CreateComObject(CLASS_LineParam) as ksLineParam; end; class function CoLineParam.CreateRemote(const MachineName: string): ksLineParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LineParam) as ksLineParam; end; procedure TLineParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C250C-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C250A-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLineParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLineParam; end; end; procedure TLineParam.ConnectTo(svrIntf: ksLineParam); begin Disconnect; FIntf := svrIntf; end; procedure TLineParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLineParam.GetDefaultInterface: ksLineParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLineParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLineParamProperties.Create(Self); {$ENDIF} end; destructor TLineParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLineParam.GetServerProperties: TLineParamProperties; begin Result := FProps; end; {$ENDIF} function TLineParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TLineParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TLineParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TLineParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TLineParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TLineParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TLineParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLineParamProperties.Create(AServer: TLineParam); begin inherited Create; FServer := AServer; end; function TLineParamProperties.GetDefaultInterface: ksLineParam; begin Result := FServer.DefaultInterface; end; function TLineParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TLineParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TLineParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TLineParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TLineParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TLineParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; {$ENDIF} class function CoRegularPolygonParam.Create: ksRegularPolygonParam; begin Result := CreateComObject(CLASS_RegularPolygonParam) as ksRegularPolygonParam; end; class function CoRegularPolygonParam.CreateRemote(const MachineName: string): ksRegularPolygonParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RegularPolygonParam) as ksRegularPolygonParam; end; procedure TRegularPolygonParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C250F-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C250D-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRegularPolygonParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRegularPolygonParam; end; end; procedure TRegularPolygonParam.ConnectTo(svrIntf: ksRegularPolygonParam); begin Disconnect; FIntf := svrIntf; end; procedure TRegularPolygonParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRegularPolygonParam.GetDefaultInterface: ksRegularPolygonParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRegularPolygonParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRegularPolygonParamProperties.Create(Self); {$ENDIF} end; destructor TRegularPolygonParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRegularPolygonParam.GetServerProperties: TRegularPolygonParamProperties; begin Result := FProps; end; {$ENDIF} function TRegularPolygonParam.Get_count: Integer; begin Result := DefaultInterface.count; end; procedure TRegularPolygonParam.Set_count(Value: Integer); begin DefaultInterface.count := Value; end; function TRegularPolygonParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TRegularPolygonParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TRegularPolygonParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TRegularPolygonParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TRegularPolygonParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRegularPolygonParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRegularPolygonParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; procedure TRegularPolygonParam.Set_radius(Value: Double); begin DefaultInterface.radius := Value; end; function TRegularPolygonParam.Get_describe: WordBool; begin Result := DefaultInterface.describe; end; procedure TRegularPolygonParam.Set_describe(Value: WordBool); begin DefaultInterface.describe := Value; end; function TRegularPolygonParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TRegularPolygonParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TRegularPolygonParam.GetPCorner: IDispatch; begin Result := DefaultInterface.GetPCorner; end; function TRegularPolygonParam.SetPCorner(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPCorner(val); end; function TRegularPolygonParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRegularPolygonParamProperties.Create(AServer: TRegularPolygonParam); begin inherited Create; FServer := AServer; end; function TRegularPolygonParamProperties.GetDefaultInterface: ksRegularPolygonParam; begin Result := FServer.DefaultInterface; end; function TRegularPolygonParamProperties.Get_count: Integer; begin Result := DefaultInterface.count; end; procedure TRegularPolygonParamProperties.Set_count(Value: Integer); begin DefaultInterface.count := Value; end; function TRegularPolygonParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TRegularPolygonParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TRegularPolygonParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TRegularPolygonParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TRegularPolygonParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRegularPolygonParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRegularPolygonParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; procedure TRegularPolygonParamProperties.Set_radius(Value: Double); begin DefaultInterface.radius := Value; end; function TRegularPolygonParamProperties.Get_describe: WordBool; begin Result := DefaultInterface.describe; end; procedure TRegularPolygonParamProperties.Set_describe(Value: WordBool); begin DefaultInterface.describe := Value; end; function TRegularPolygonParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TRegularPolygonParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoRectangleParam.Create: ksRectangleParam; begin Result := CreateComObject(CLASS_RectangleParam) as ksRectangleParam; end; class function CoRectangleParam.CreateRemote(const MachineName: string): ksRectangleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RectangleParam) as ksRectangleParam; end; procedure TRectangleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C2512-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2510-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRectangleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRectangleParam; end; end; procedure TRectangleParam.ConnectTo(svrIntf: ksRectangleParam); begin Disconnect; FIntf := svrIntf; end; procedure TRectangleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRectangleParam.GetDefaultInterface: ksRectangleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRectangleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRectangleParamProperties.Create(Self); {$ENDIF} end; destructor TRectangleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRectangleParam.GetServerProperties: TRectangleParamProperties; begin Result := FProps; end; {$ENDIF} function TRectangleParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TRectangleParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TRectangleParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TRectangleParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TRectangleParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRectangleParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRectangleParam.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TRectangleParam.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TRectangleParam.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TRectangleParam.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TRectangleParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TRectangleParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TRectangleParam.GetPCorner: IDispatch; begin Result := DefaultInterface.GetPCorner; end; function TRectangleParam.SetPCorner(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPCorner(val); end; function TRectangleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRectangleParamProperties.Create(AServer: TRectangleParam); begin inherited Create; FServer := AServer; end; function TRectangleParamProperties.GetDefaultInterface: ksRectangleParam; begin Result := FServer.DefaultInterface; end; function TRectangleParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TRectangleParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TRectangleParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TRectangleParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TRectangleParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRectangleParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRectangleParamProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TRectangleParamProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TRectangleParamProperties.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TRectangleParamProperties.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TRectangleParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TRectangleParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoBaseParam.Create: ksBaseParam; begin Result := CreateComObject(CLASS_BaseParam) as ksBaseParam; end; class function CoBaseParam.CreateRemote(const MachineName: string): ksBaseParam; begin Result := CreateRemoteComObject(MachineName, CLASS_BaseParam) as ksBaseParam; end; procedure TBaseParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C2515-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2513-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBaseParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBaseParam; end; end; procedure TBaseParam.ConnectTo(svrIntf: ksBaseParam); begin Disconnect; FIntf := svrIntf; end; procedure TBaseParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBaseParam.GetDefaultInterface: ksBaseParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBaseParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBaseParamProperties.Create(Self); {$ENDIF} end; destructor TBaseParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBaseParam.GetServerProperties: TBaseParamProperties; begin Result := FProps; end; {$ENDIF} function TBaseParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TBaseParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TBaseParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TBaseParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TBaseParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TBaseParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TBaseParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TBaseParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TBaseParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TBaseParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TBaseParam.Get_type_: WordBool; begin Result := DefaultInterface.type_; end; procedure TBaseParam.Set_type_(Value: WordBool); begin DefaultInterface.type_ := Value; end; function TBaseParam.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TBaseParam.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; function TBaseParam.GetPTextItem: IDispatch; begin Result := DefaultInterface.GetPTextItem; end; function TBaseParam.SetPTextItem(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPTextItem(val); end; function TBaseParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBaseParamProperties.Create(AServer: TBaseParam); begin inherited Create; FServer := AServer; end; function TBaseParamProperties.GetDefaultInterface: ksBaseParam; begin Result := FServer.DefaultInterface; end; function TBaseParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TBaseParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TBaseParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TBaseParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TBaseParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TBaseParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TBaseParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TBaseParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TBaseParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TBaseParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TBaseParamProperties.Get_type_: WordBool; begin Result := DefaultInterface.type_; end; procedure TBaseParamProperties.Set_type_(Value: WordBool); begin DefaultInterface.type_ := Value; end; function TBaseParamProperties.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TBaseParamProperties.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; {$ENDIF} class function CoLtVariant.Create: ksLtVariant; begin Result := CreateComObject(CLASS_LtVariant) as ksLtVariant; end; class function CoLtVariant.CreateRemote(const MachineName: string): ksLtVariant; begin Result := CreateRemoteComObject(MachineName, CLASS_LtVariant) as ksLtVariant; end; procedure TLtVariant.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C2518-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2516-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLtVariant.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLtVariant; end; end; procedure TLtVariant.ConnectTo(svrIntf: ksLtVariant); begin Disconnect; FIntf := svrIntf; end; procedure TLtVariant.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLtVariant.GetDefaultInterface: ksLtVariant; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLtVariant.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLtVariantProperties.Create(Self); {$ENDIF} end; destructor TLtVariant.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLtVariant.GetServerProperties: TLtVariantProperties; begin Result := FProps; end; {$ENDIF} function TLtVariant.Get_strVal: WideString; begin Result := DefaultInterface.strVal; end; procedure TLtVariant.Set_strVal(const Value: WideString); begin DefaultInterface.strVal := Value; end; function TLtVariant.Get_shortVal: Smallint; begin Result := DefaultInterface.shortVal; end; procedure TLtVariant.Set_shortVal(Value: Smallint); begin DefaultInterface.shortVal := Value; end; function TLtVariant.Get_intVal: Integer; begin Result := DefaultInterface.intVal; end; procedure TLtVariant.Set_intVal(Value: Integer); begin DefaultInterface.intVal := Value; end; function TLtVariant.Get_longVal: Integer; begin Result := DefaultInterface.longVal; end; procedure TLtVariant.Set_longVal(Value: Integer); begin DefaultInterface.longVal := Value; end; function TLtVariant.Get_floatVal: Single; begin Result := DefaultInterface.floatVal; end; procedure TLtVariant.Set_floatVal(Value: Single); begin DefaultInterface.floatVal := Value; end; function TLtVariant.Get_doubleVal: Double; begin Result := DefaultInterface.doubleVal; end; procedure TLtVariant.Set_doubleVal(Value: Double); begin DefaultInterface.doubleVal := Value; end; function TLtVariant.Get_charVal: Smallint; begin Result := DefaultInterface.charVal; end; procedure TLtVariant.Set_charVal(Value: Smallint); begin DefaultInterface.charVal := Value; end; function TLtVariant.Get_uCharVal: Smallint; begin Result := DefaultInterface.uCharVal; end; procedure TLtVariant.Set_uCharVal(Value: Smallint); begin DefaultInterface.uCharVal := Value; end; function TLtVariant.Get_uIntVal: Integer; begin Result := DefaultInterface.uIntVal; end; procedure TLtVariant.Set_uIntVal(Value: Integer); begin DefaultInterface.uIntVal := Value; end; function TLtVariant.Get_valType: Smallint; begin Result := DefaultInterface.valType; end; function TLtVariant.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLtVariantProperties.Create(AServer: TLtVariant); begin inherited Create; FServer := AServer; end; function TLtVariantProperties.GetDefaultInterface: ksLtVariant; begin Result := FServer.DefaultInterface; end; function TLtVariantProperties.Get_strVal: WideString; begin Result := DefaultInterface.strVal; end; procedure TLtVariantProperties.Set_strVal(const Value: WideString); begin DefaultInterface.strVal := Value; end; function TLtVariantProperties.Get_shortVal: Smallint; begin Result := DefaultInterface.shortVal; end; procedure TLtVariantProperties.Set_shortVal(Value: Smallint); begin DefaultInterface.shortVal := Value; end; function TLtVariantProperties.Get_intVal: Integer; begin Result := DefaultInterface.intVal; end; procedure TLtVariantProperties.Set_intVal(Value: Integer); begin DefaultInterface.intVal := Value; end; function TLtVariantProperties.Get_longVal: Integer; begin Result := DefaultInterface.longVal; end; procedure TLtVariantProperties.Set_longVal(Value: Integer); begin DefaultInterface.longVal := Value; end; function TLtVariantProperties.Get_floatVal: Single; begin Result := DefaultInterface.floatVal; end; procedure TLtVariantProperties.Set_floatVal(Value: Single); begin DefaultInterface.floatVal := Value; end; function TLtVariantProperties.Get_doubleVal: Double; begin Result := DefaultInterface.doubleVal; end; procedure TLtVariantProperties.Set_doubleVal(Value: Double); begin DefaultInterface.doubleVal := Value; end; function TLtVariantProperties.Get_charVal: Smallint; begin Result := DefaultInterface.charVal; end; procedure TLtVariantProperties.Set_charVal(Value: Smallint); begin DefaultInterface.charVal := Value; end; function TLtVariantProperties.Get_uCharVal: Smallint; begin Result := DefaultInterface.uCharVal; end; procedure TLtVariantProperties.Set_uCharVal(Value: Smallint); begin DefaultInterface.uCharVal := Value; end; function TLtVariantProperties.Get_uIntVal: Integer; begin Result := DefaultInterface.uIntVal; end; procedure TLtVariantProperties.Set_uIntVal(Value: Integer); begin DefaultInterface.uIntVal := Value; end; function TLtVariantProperties.Get_valType: Smallint; begin Result := DefaultInterface.valType; end; {$ENDIF} class function CoUserParam.Create: ksUserParam; begin Result := CreateComObject(CLASS_UserParam) as ksUserParam; end; class function CoUserParam.CreateRemote(const MachineName: string): ksUserParam; begin Result := CreateRemoteComObject(MachineName, CLASS_UserParam) as ksUserParam; end; procedure TUserParam.InitServerData; const CServerData: TServerData = ( ClassID: '{E79C251B-9584-11D6-8732-00C0262CDD2C}'; IntfIID: '{E79C2519-9584-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TUserParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksUserParam; end; end; procedure TUserParam.ConnectTo(svrIntf: ksUserParam); begin Disconnect; FIntf := svrIntf; end; procedure TUserParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TUserParam.GetDefaultInterface: ksUserParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TUserParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TUserParamProperties.Create(Self); {$ENDIF} end; destructor TUserParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TUserParam.GetServerProperties: TUserParamProperties; begin Result := FProps; end; {$ENDIF} function TUserParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TUserParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TUserParam.Get_libName: WideString; begin Result := DefaultInterface.libName; end; procedure TUserParam.Set_libName(const Value: WideString); begin DefaultInterface.libName := Value; end; function TUserParam.Get_number: Integer; begin Result := DefaultInterface.number; end; procedure TUserParam.Set_number(Value: Integer); begin DefaultInterface.number := Value; end; function TUserParam.GetUserArray: IDispatch; begin Result := DefaultInterface.GetUserArray; end; function TUserParam.SetUserArray(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetUserArray(val); end; function TUserParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TUserParamProperties.Create(AServer: TUserParam); begin inherited Create; FServer := AServer; end; function TUserParamProperties.GetDefaultInterface: ksUserParam; begin Result := FServer.DefaultInterface; end; function TUserParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TUserParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TUserParamProperties.Get_libName: WideString; begin Result := DefaultInterface.libName; end; procedure TUserParamProperties.Set_libName(const Value: WideString); begin DefaultInterface.libName := Value; end; function TUserParamProperties.Get_number: Integer; begin Result := DefaultInterface.number; end; procedure TUserParamProperties.Set_number(Value: Integer); begin DefaultInterface.number := Value; end; {$ENDIF} class function CoMathPointParam.Create: ksMathPointParam; begin Result := CreateComObject(CLASS_MathPointParam) as ksMathPointParam; end; class function CoMathPointParam.CreateRemote(const MachineName: string): ksMathPointParam; begin Result := CreateRemoteComObject(MachineName, CLASS_MathPointParam) as ksMathPointParam; end; procedure TMathPointParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3198E123-9585-11D6-95CE-00C0262D30E3}'; IntfIID: '{3198E121-9585-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMathPointParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMathPointParam; end; end; procedure TMathPointParam.ConnectTo(svrIntf: ksMathPointParam); begin Disconnect; FIntf := svrIntf; end; procedure TMathPointParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMathPointParam.GetDefaultInterface: ksMathPointParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMathPointParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMathPointParamProperties.Create(Self); {$ENDIF} end; destructor TMathPointParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMathPointParam.GetServerProperties: TMathPointParamProperties; begin Result := FProps; end; {$ENDIF} function TMathPointParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TMathPointParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TMathPointParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TMathPointParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TMathPointParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMathPointParamProperties.Create(AServer: TMathPointParam); begin inherited Create; FServer := AServer; end; function TMathPointParamProperties.GetDefaultInterface: ksMathPointParam; begin Result := FServer.DefaultInterface; end; function TMathPointParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TMathPointParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TMathPointParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TMathPointParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; {$ENDIF} class function CoCurvePicture.Create: ksCurvePicture; begin Result := CreateComObject(CLASS_CurvePicture) as ksCurvePicture; end; class function CoCurvePicture.CreateRemote(const MachineName: string): ksCurvePicture; begin Result := CreateRemoteComObject(MachineName, CLASS_CurvePicture) as ksCurvePicture; end; procedure TCurvePicture.InitServerData; const CServerData: TServerData = ( ClassID: '{910EC543-958D-11D6-95CE-00C0262D30E3}'; IntfIID: '{910EC541-958D-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurvePicture.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurvePicture; end; end; procedure TCurvePicture.ConnectTo(svrIntf: ksCurvePicture); begin Disconnect; FIntf := svrIntf; end; procedure TCurvePicture.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurvePicture.GetDefaultInterface: ksCurvePicture; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurvePicture.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurvePictureProperties.Create(Self); {$ENDIF} end; destructor TCurvePicture.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurvePicture.GetServerProperties: TCurvePictureProperties; begin Result := FProps; end; {$ENDIF} function TCurvePicture.GetPolygon: IDispatch; begin Result := DefaultInterface.GetPolygon; end; function TCurvePicture.SetPolygon(const polygon: IDispatch): WordBool; begin Result := DefaultInterface.SetPolygon(polygon); end; function TCurvePicture.GetFill: IDispatch; begin Result := DefaultInterface.GetFill; end; function TCurvePicture.SetFill(const fill: IDispatch): WordBool; begin Result := DefaultInterface.SetFill(fill); end; function TCurvePicture.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurvePictureProperties.Create(AServer: TCurvePicture); begin inherited Create; FServer := AServer; end; function TCurvePictureProperties.GetDefaultInterface: ksCurvePicture; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoCurvePattern.Create: ksCurvePattern; begin Result := CreateComObject(CLASS_CurvePattern) as ksCurvePattern; end; class function CoCurvePattern.CreateRemote(const MachineName: string): ksCurvePattern; begin Result := CreateRemoteComObject(MachineName, CLASS_CurvePattern) as ksCurvePattern; end; procedure TCurvePattern.InitServerData; const CServerData: TServerData = ( ClassID: '{910EC546-958D-11D6-95CE-00C0262D30E3}'; IntfIID: '{910EC544-958D-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurvePattern.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurvePattern; end; end; procedure TCurvePattern.ConnectTo(svrIntf: ksCurvePattern); begin Disconnect; FIntf := svrIntf; end; procedure TCurvePattern.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurvePattern.GetDefaultInterface: ksCurvePattern; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurvePattern.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurvePatternProperties.Create(Self); {$ENDIF} end; destructor TCurvePattern.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurvePattern.GetServerProperties: TCurvePatternProperties; begin Result := FProps; end; {$ENDIF} function TCurvePattern.Get_visibleSeg: Double; begin Result := DefaultInterface.visibleSeg; end; procedure TCurvePattern.Set_visibleSeg(Value: Double); begin DefaultInterface.visibleSeg := Value; end; function TCurvePattern.Get_invisibleSeg: Double; begin Result := DefaultInterface.invisibleSeg; end; procedure TCurvePattern.Set_invisibleSeg(Value: Double); begin DefaultInterface.invisibleSeg := Value; end; function TCurvePattern.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurvePatternProperties.Create(AServer: TCurvePattern); begin inherited Create; FServer := AServer; end; function TCurvePatternProperties.GetDefaultInterface: ksCurvePattern; begin Result := FServer.DefaultInterface; end; function TCurvePatternProperties.Get_visibleSeg: Double; begin Result := DefaultInterface.visibleSeg; end; procedure TCurvePatternProperties.Set_visibleSeg(Value: Double); begin DefaultInterface.visibleSeg := Value; end; function TCurvePatternProperties.Get_invisibleSeg: Double; begin Result := DefaultInterface.invisibleSeg; end; procedure TCurvePatternProperties.Set_invisibleSeg(Value: Double); begin DefaultInterface.invisibleSeg := Value; end; {$ENDIF} class function CoTAN.Create: ksTAN; begin Result := CreateComObject(CLASS_TAN) as ksTAN; end; class function CoTAN.CreateRemote(const MachineName: string): ksTAN; begin Result := CreateRemoteComObject(MachineName, CLASS_TAN) as ksTAN; end; procedure TTAN.InitServerData; const CServerData: TServerData = ( ClassID: '{9F8CA523-173C-4206-8F2A-AB221138692E}'; IntfIID: '{8075EDE4-6C85-4711-8685-68FBE359D4C4}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTAN.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTAN; end; end; procedure TTAN.ConnectTo(svrIntf: ksTAN); begin Disconnect; FIntf := svrIntf; end; procedure TTAN.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTAN.GetDefaultInterface: ksTAN; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTAN.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTANProperties.Create(Self); {$ENDIF} end; destructor TTAN.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTAN.GetServerProperties: TTANProperties; begin Result := FProps; end; {$ENDIF} function TTAN.Get_x1(index: Integer): Double; begin Result := DefaultInterface.x1[index]; end; function TTAN.Get_y1(index: Integer): Double; begin Result := DefaultInterface.y1[index]; end; function TTAN.Get_x2(index: Integer): Double; begin Result := DefaultInterface.x2[index]; end; function TTAN.Get_y2(index: Integer): Double; begin Result := DefaultInterface.y2[index]; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTANProperties.Create(AServer: TTAN); begin inherited Create; FServer := AServer; end; function TTANProperties.GetDefaultInterface: ksTAN; begin Result := FServer.DefaultInterface; end; function TTANProperties.Get_x1(index: Integer): Double; begin Result := DefaultInterface.x1[index]; end; function TTANProperties.Get_y1(index: Integer): Double; begin Result := DefaultInterface.y1[index]; end; function TTANProperties.Get_x2(index: Integer): Double; begin Result := DefaultInterface.x2[index]; end; function TTANProperties.Get_y2(index: Integer): Double; begin Result := DefaultInterface.y2[index]; end; {$ENDIF} class function CoCON.Create: ksCON; begin Result := CreateComObject(CLASS_CON) as ksCON; end; class function CoCON.CreateRemote(const MachineName: string): ksCON; begin Result := CreateRemoteComObject(MachineName, CLASS_CON) as ksCON; end; procedure TCON.InitServerData; const CServerData: TServerData = ( ClassID: '{9CC1A2E2-29A8-49BB-ABF6-792FA2D38014}'; IntfIID: '{C175BFB8-D7D6-4325-BFDA-2A282B9D1119}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCON.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCON; end; end; procedure TCON.ConnectTo(svrIntf: ksCON); begin Disconnect; FIntf := svrIntf; end; procedure TCON.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCON.GetDefaultInterface: ksCON; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCON.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCONProperties.Create(Self); {$ENDIF} end; destructor TCON.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCON.GetServerProperties: TCONProperties; begin Result := FProps; end; {$ENDIF} function TCON.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TCON.GetXc(index: Integer): Double; begin Result := DefaultInterface.GetXc(index); end; function TCON.GetYc(index: Integer): Double; begin Result := DefaultInterface.GetYc(index); end; function TCON.GetX1(index: Integer): Double; begin Result := DefaultInterface.GetX1(index); end; function TCON.GetY1(index: Integer): Double; begin Result := DefaultInterface.GetY1(index); end; function TCON.GetX2(index: Integer): Double; begin Result := DefaultInterface.GetX2(index); end; function TCON.GetY2(index: Integer): Double; begin Result := DefaultInterface.GetY2(index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCONProperties.Create(AServer: TCON); begin inherited Create; FServer := AServer; end; function TCONProperties.GetDefaultInterface: ksCON; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoInertiaParam.Create: ksInertiaParam; begin Result := CreateComObject(CLASS_InertiaParam) as ksInertiaParam; end; class function CoInertiaParam.CreateRemote(const MachineName: string): ksInertiaParam; begin Result := CreateRemoteComObject(MachineName, CLASS_InertiaParam) as ksInertiaParam; end; procedure TInertiaParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7B8B632E-5BDD-4EE5-B623-DF2880BE0EE4}'; IntfIID: '{EA92E649-239E-4105-BBD3-AEF4817BD783}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TInertiaParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksInertiaParam; end; end; procedure TInertiaParam.ConnectTo(svrIntf: ksInertiaParam); begin Disconnect; FIntf := svrIntf; end; procedure TInertiaParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TInertiaParam.GetDefaultInterface: ksInertiaParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TInertiaParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TInertiaParamProperties.Create(Self); {$ENDIF} end; destructor TInertiaParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TInertiaParam.GetServerProperties: TInertiaParamProperties; begin Result := FProps; end; {$ENDIF} function TInertiaParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; function TInertiaParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; function TInertiaParam.Get_F: Double; begin Result := DefaultInterface.F; end; function TInertiaParam.Get_ly: Double; begin Result := DefaultInterface.ly; end; function TInertiaParam.Get_lx: Double; begin Result := DefaultInterface.lx; end; function TInertiaParam.Get_lxy: Double; begin Result := DefaultInterface.lxy; end; function TInertiaParam.Get_mx: Double; begin Result := DefaultInterface.mx; end; function TInertiaParam.Get_my: Double; begin Result := DefaultInterface.my; end; function TInertiaParam.Get_mxy: Double; begin Result := DefaultInterface.mxy; end; function TInertiaParam.Get_jx: Double; begin Result := DefaultInterface.jx; end; function TInertiaParam.Get_jy: Double; begin Result := DefaultInterface.jy; end; function TInertiaParam.Get_A: Double; begin Result := DefaultInterface.A; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TInertiaParamProperties.Create(AServer: TInertiaParam); begin inherited Create; FServer := AServer; end; function TInertiaParamProperties.GetDefaultInterface: ksInertiaParam; begin Result := FServer.DefaultInterface; end; function TInertiaParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; function TInertiaParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; function TInertiaParamProperties.Get_F: Double; begin Result := DefaultInterface.F; end; function TInertiaParamProperties.Get_ly: Double; begin Result := DefaultInterface.ly; end; function TInertiaParamProperties.Get_lx: Double; begin Result := DefaultInterface.lx; end; function TInertiaParamProperties.Get_lxy: Double; begin Result := DefaultInterface.lxy; end; function TInertiaParamProperties.Get_mx: Double; begin Result := DefaultInterface.mx; end; function TInertiaParamProperties.Get_my: Double; begin Result := DefaultInterface.my; end; function TInertiaParamProperties.Get_mxy: Double; begin Result := DefaultInterface.mxy; end; function TInertiaParamProperties.Get_jx: Double; begin Result := DefaultInterface.jx; end; function TInertiaParamProperties.Get_jy: Double; begin Result := DefaultInterface.jy; end; function TInertiaParamProperties.Get_A: Double; begin Result := DefaultInterface.A; end; {$ENDIF} class function CoMassInertiaParam.Create: ksMassInertiaParam; begin Result := CreateComObject(CLASS_MassInertiaParam) as ksMassInertiaParam; end; class function CoMassInertiaParam.CreateRemote(const MachineName: string): ksMassInertiaParam; begin Result := CreateRemoteComObject(MachineName, CLASS_MassInertiaParam) as ksMassInertiaParam; end; procedure TMassInertiaParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4693323B-42A7-42CC-902E-7123DD916FB4}'; IntfIID: '{283F77EB-7E2C-4F71-8B16-4D286FA4857E}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMassInertiaParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMassInertiaParam; end; end; procedure TMassInertiaParam.ConnectTo(svrIntf: ksMassInertiaParam); begin Disconnect; FIntf := svrIntf; end; procedure TMassInertiaParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMassInertiaParam.GetDefaultInterface: ksMassInertiaParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMassInertiaParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMassInertiaParamProperties.Create(Self); {$ENDIF} end; destructor TMassInertiaParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMassInertiaParam.GetServerProperties: TMassInertiaParamProperties; begin Result := FProps; end; {$ENDIF} function TMassInertiaParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; function TMassInertiaParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; function TMassInertiaParam.Get_zc: Double; begin Result := DefaultInterface.zc; end; function TMassInertiaParam.Get_lx: Double; begin Result := DefaultInterface.lx; end; function TMassInertiaParam.Get_ly: Double; begin Result := DefaultInterface.ly; end; function TMassInertiaParam.Get_lz: Double; begin Result := DefaultInterface.lz; end; function TMassInertiaParam.Get_jx: Double; begin Result := DefaultInterface.jx; end; function TMassInertiaParam.Get_jy: Double; begin Result := DefaultInterface.jy; end; function TMassInertiaParam.Get_jz: Double; begin Result := DefaultInterface.jz; end; function TMassInertiaParam.Get_jxy: Double; begin Result := DefaultInterface.jxy; end; function TMassInertiaParam.Get_jxz: Double; begin Result := DefaultInterface.jxz; end; function TMassInertiaParam.Get_jyz: Double; begin Result := DefaultInterface.jyz; end; function TMassInertiaParam.Get_jx0z: Double; begin Result := DefaultInterface.jx0z; end; function TMassInertiaParam.Get_jy0z: Double; begin Result := DefaultInterface.jy0z; end; function TMassInertiaParam.Get_jx0y: Double; begin Result := DefaultInterface.jx0y; end; function TMassInertiaParam.Get_lxy: Double; begin Result := DefaultInterface.lxy; end; function TMassInertiaParam.Get_lxz: Double; begin Result := DefaultInterface.lxz; end; function TMassInertiaParam.Get_lyz: Double; begin Result := DefaultInterface.lyz; end; function TMassInertiaParam.Get_r: Double; begin Result := DefaultInterface.r; end; function TMassInertiaParam.Get_m: Double; begin Result := DefaultInterface.m; end; function TMassInertiaParam.Get_v: Double; begin Result := DefaultInterface.v; end; function TMassInertiaParam.Get_F: Double; begin Result := DefaultInterface.F; end; function TMassInertiaParam.Get_jx0: Double; begin Result := DefaultInterface.jx0; end; function TMassInertiaParam.Get_jy0: Double; begin Result := DefaultInterface.jy0; end; function TMassInertiaParam.Get_jz0: Double; begin Result := DefaultInterface.jz0; end; function TMassInertiaParam.SetBitVectorValue(val: Integer; setState: WordBool): WordBool; begin Result := DefaultInterface.SetBitVectorValue(val, setState); end; function TMassInertiaParam.GetAxisX(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetAxisX(x, y, z); end; function TMassInertiaParam.GetAxisY(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetAxisY(x, y, z); end; function TMassInertiaParam.GetAxisZ(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetAxisZ(x, y, z); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMassInertiaParamProperties.Create(AServer: TMassInertiaParam); begin inherited Create; FServer := AServer; end; function TMassInertiaParamProperties.GetDefaultInterface: ksMassInertiaParam; begin Result := FServer.DefaultInterface; end; function TMassInertiaParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; function TMassInertiaParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; function TMassInertiaParamProperties.Get_zc: Double; begin Result := DefaultInterface.zc; end; function TMassInertiaParamProperties.Get_lx: Double; begin Result := DefaultInterface.lx; end; function TMassInertiaParamProperties.Get_ly: Double; begin Result := DefaultInterface.ly; end; function TMassInertiaParamProperties.Get_lz: Double; begin Result := DefaultInterface.lz; end; function TMassInertiaParamProperties.Get_jx: Double; begin Result := DefaultInterface.jx; end; function TMassInertiaParamProperties.Get_jy: Double; begin Result := DefaultInterface.jy; end; function TMassInertiaParamProperties.Get_jz: Double; begin Result := DefaultInterface.jz; end; function TMassInertiaParamProperties.Get_jxy: Double; begin Result := DefaultInterface.jxy; end; function TMassInertiaParamProperties.Get_jxz: Double; begin Result := DefaultInterface.jxz; end; function TMassInertiaParamProperties.Get_jyz: Double; begin Result := DefaultInterface.jyz; end; function TMassInertiaParamProperties.Get_jx0z: Double; begin Result := DefaultInterface.jx0z; end; function TMassInertiaParamProperties.Get_jy0z: Double; begin Result := DefaultInterface.jy0z; end; function TMassInertiaParamProperties.Get_jx0y: Double; begin Result := DefaultInterface.jx0y; end; function TMassInertiaParamProperties.Get_lxy: Double; begin Result := DefaultInterface.lxy; end; function TMassInertiaParamProperties.Get_lxz: Double; begin Result := DefaultInterface.lxz; end; function TMassInertiaParamProperties.Get_lyz: Double; begin Result := DefaultInterface.lyz; end; function TMassInertiaParamProperties.Get_r: Double; begin Result := DefaultInterface.r; end; function TMassInertiaParamProperties.Get_m: Double; begin Result := DefaultInterface.m; end; function TMassInertiaParamProperties.Get_v: Double; begin Result := DefaultInterface.v; end; function TMassInertiaParamProperties.Get_F: Double; begin Result := DefaultInterface.F; end; function TMassInertiaParamProperties.Get_jx0: Double; begin Result := DefaultInterface.jx0; end; function TMassInertiaParamProperties.Get_jy0: Double; begin Result := DefaultInterface.jy0; end; function TMassInertiaParamProperties.Get_jz0: Double; begin Result := DefaultInterface.jz0; end; {$ENDIF} class function CoMathematic2D.Create: ksMathematic2D; begin Result := CreateComObject(CLASS_Mathematic2D) as ksMathematic2D; end; class function CoMathematic2D.CreateRemote(const MachineName: string): ksMathematic2D; begin Result := CreateRemoteComObject(MachineName, CLASS_Mathematic2D) as ksMathematic2D; end; procedure TMathematic2D.InitServerData; const CServerData: TServerData = ( ClassID: '{C77421D3-13EC-4595-A198-677EFB45AEF3}'; IntfIID: '{F2D5AE01-45DE-4496-B01B-9958CAEF5943}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMathematic2D.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMathematic2D; end; end; procedure TMathematic2D.ConnectTo(svrIntf: ksMathematic2D); begin Disconnect; FIntf := svrIntf; end; procedure TMathematic2D.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMathematic2D.GetDefaultInterface: ksMathematic2D; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMathematic2D.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMathematic2DProperties.Create(Self); {$ENDIF} end; destructor TMathematic2D.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMathematic2D.GetServerProperties: TMathematic2DProperties; begin Result := FProps; end; {$ENDIF} function TMathematic2D.ksCosD(x: Double): Double; begin Result := DefaultInterface.ksCosD(x); end; function TMathematic2D.ksSinD(x: Double): Double; begin Result := DefaultInterface.ksSinD(x); end; function TMathematic2D.ksTanD(x: Double): Double; begin Result := DefaultInterface.ksTanD(x); end; function TMathematic2D.ksAtanD(x: Double): Double; begin Result := DefaultInterface.ksAtanD(x); end; function TMathematic2D.ksAngle(x1: Double; y1: Double; x2: Double; y2: Double): Double; begin Result := DefaultInterface.ksAngle(x1, y1, x2, y2); end; function TMathematic2D.ksEqualPoints(x1: Double; y1: Double; x2: Double; y2: Double): Integer; begin Result := DefaultInterface.ksEqualPoints(x1, y1, x2, y2); end; function TMathematic2D.ksIntersectLinSLinS(x11: Double; y11: Double; x12: Double; y12: Double; x21: Double; y21: Double; x22: Double; y22: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectLinSLinS(x11, y11, x12, y12, x21, y21, x22, y22, param); end; function TMathematic2D.ksIntersectLinSLine(x1: Double; y1: Double; x2: Double; y2: Double; x: Double; y: Double; ang: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectLinSLine(x1, y1, x2, y2, x, y, ang, param); end; function TMathematic2D.ksIntersectArcLin(xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; n: Integer; x: Double; y: Double; ang: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectArcLin(xc, yc, rad, f1, f2, n, x, y, ang, param); end; function TMathematic2D.ksIntersectLinLin(x1: Double; y1: Double; angle1: Double; x2: Double; y2: Double; angle2: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectLinLin(x1, y1, angle1, x2, y2, angle2, param); end; function TMathematic2D.ksIntersectCirCir(xc1: Double; yc1: Double; radius1: Double; xc2: Double; yc2: Double; radius2: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectCirCir(xc1, yc1, radius1, xc2, yc2, radius2, param); end; function TMathematic2D.ksIntersectArcArc(xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint; xbc: Double; ybc: Double; radb: Double; fb1: Double; fb2: Double; directb: Integer; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectArcArc(xac, yac, rada, fa1, fa2, directa, xbc, ybc, radb, fb1, fb2, directb, param); end; function TMathematic2D.ksIntersectLinSArc(x1: Double; y1: Double; x2: Double; y2: Double; xc: Double; yc: Double; rad: Double; f1: Double; f2: Double; direct: Smallint; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectLinSArc(x1, y1, x2, y2, xc, yc, rad, f1, f2, direct, param); end; function TMathematic2D.ksIntersectLinSCir(x1: Double; y1: Double; x2: Double; y2: Double; xc: Double; yc: Double; rad: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectLinSCir(x1, y1, x2, y2, xc, yc, rad, param); end; function TMathematic2D.ksIntersectCirLin(xc: Double; yc: Double; rad: Double; xl: Double; yl: Double; angle: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectCirLin(xc, yc, rad, xl, yl, angle, param); end; function TMathematic2D.ksIntersectCirArc(xcc: Double; ycc: Double; radc: Double; xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksIntersectCirArc(xcc, ycc, radc, xac, yac, rada, fa1, fa2, directa, param); end; function TMathematic2D.ksIntersectCurvCurv(p1: Integer; p2: Integer; const param: IDispatch): Integer; begin Result := DefaultInterface.ksIntersectCurvCurv(p1, p2, param); end; function TMathematic2D.ksTanLinePointCircle(x: Double; y: Double; xc: Double; yc: Double; rad: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksTanLinePointCircle(x, y, xc, yc, rad, param); end; function TMathematic2D.ksTanLineAngCircle(xc: Double; yc: Double; rad: Double; ang: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksTanLineAngCircle(xc, yc, rad, ang, param); end; function TMathematic2D.ksTanCircleCircle(xc1: Double; yc1: Double; radius1: Double; xc2: Double; yc2: Double; radius2: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksTanCircleCircle(xc1, yc1, radius1, xc2, yc2, radius2, param); end; function TMathematic2D.ksTanLinePointCurve(x: Double; y: Double; pCur: Integer; const array_: IDispatch): Integer; begin Result := DefaultInterface.ksTanLinePointCurve(x, y, pCur, array_); end; function TMathematic2D.ksCouplingLineLine(x1: Double; y1: Double; angle1: Double; x2: Double; y2: Double; angle2: Double; rad: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksCouplingLineLine(x1, y1, angle1, x2, y2, angle2, rad, param); end; function TMathematic2D.ksCouplingLineCircle(xc: Double; yc: Double; radc: Double; x1: Double; y1: Double; angle1: Double; rad: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksCouplingLineCircle(xc, yc, radc, x1, y1, angle1, rad, param); end; function TMathematic2D.ksCouplingCircleCircle(xc1: Double; yc1: Double; radc1: Double; xc2: Double; yc2: Double; radc2: Double; rad: Double; const param: IDispatch): WordBool; begin Result := DefaultInterface.ksCouplingCircleCircle(xc1, yc1, radc1, xc2, yc2, radc2, rad, param); end; function TMathematic2D.ksSymmetry(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double; var xc: Double; var yc: Double): WordBool; begin Result := DefaultInterface.ksSymmetry(x, y, x1, y1, x2, y2, xc, yc); end; function TMathematic2D.ksRotate(x: Double; y: Double; xc: Double; yc: Double; ang: Double; var xr: Double; var yr: Double): WordBool; begin Result := DefaultInterface.ksRotate(x, y, xc, yc, ang, xr, yr); end; function TMathematic2D.ksDistancePntPnt(x1: Double; y1: Double; x2: Double; y2: Double): Double; begin Result := DefaultInterface.ksDistancePntPnt(x1, y1, x2, y2); end; function TMathematic2D.ksDistancePntLineSeg(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double): Double; begin Result := DefaultInterface.ksDistancePntLineSeg(x, y, x1, y1, x2, y2); end; function TMathematic2D.ksDistancePntArc(x: Double; y: Double; xac: Double; yac: Double; rada: Double; fa1: Double; fa2: Double; directa: Smallint): Double; begin Result := DefaultInterface.ksDistancePntArc(x, y, xac, yac, rada, fa1, fa2, directa); end; function TMathematic2D.ksDistancePntCircle(x: Double; y: Double; xc: Double; yc: Double; rad: Double): Double; begin Result := DefaultInterface.ksDistancePntCircle(x, y, xc, yc, rad); end; function TMathematic2D.ksDistancePntLine(x: Double; y: Double; x1: Double; y1: Double; angle: Double): Double; begin Result := DefaultInterface.ksDistancePntLine(x, y, x1, y1, angle); end; function TMathematic2D.ksDistancePntLineForPoint(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double): Double; begin Result := DefaultInterface.ksDistancePntLineForPoint(x, y, x1, y1, x2, y2); end; function TMathematic2D.ksPerpendicular(x: Double; y: Double; x1: Double; y1: Double; x2: Double; y2: Double; var xp: Double; var yp: Double): WordBool; begin Result := DefaultInterface.ksPerpendicular(x, y, x1, y1, x2, y2, xp, yp); end; function TMathematic2D.ksPointsOnCurve(curve: Integer; count: Integer): IDispatch; begin Result := DefaultInterface.ksPointsOnCurve(curve, count); end; function TMathematic2D.ksGetCurvePerpendicular(curve: Integer; x: Double; y: Double): Double; begin Result := DefaultInterface.ksGetCurvePerpendicular(curve, x, y); end; function TMathematic2D.ksGetCurvePointProjection(curve: Integer; x: Double; y: Double; var kx: Double; var ky: Double): Integer; begin Result := DefaultInterface.ksGetCurvePointProjection(curve, x, y, kx, ky); end; function TMathematic2D.ksMovePointOnCurve(curve: Integer; var x: Double; var y: Double; len: Double; dir: Integer): Integer; begin Result := DefaultInterface.ksMovePointOnCurve(curve, x, y, len, dir); end; function TMathematic2D.ksCalcInertiaProperties(p: Integer; const prop: IDispatch; dimension: Smallint): Integer; begin Result := DefaultInterface.ksCalcInertiaProperties(p, prop, dimension); end; function TMathematic2D.ksCalcMassInertiaProperties(p: Integer; const prop: IDispatch; density: Double; param: Double): Integer; begin Result := DefaultInterface.ksCalcMassInertiaProperties(p, prop, density, param); end; function TMathematic2D.ksGetCurvePerimeter(curve: Integer; dimension: Smallint): Double; begin Result := DefaultInterface.ksGetCurvePerimeter(curve, dimension); end; function TMathematic2D.ksPointsOnCurveByStep(curve: Integer; step: Double): IDispatch; begin Result := DefaultInterface.ksPointsOnCurveByStep(curve, step); end; function TMathematic2D.ksDistancePntPntOnCurve(curve: Integer; x1: Double; y1: Double; x2: Double; y2: Double): Double; begin Result := DefaultInterface.ksDistancePntPntOnCurve(curve, x1, y1, x2, y2); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMathematic2DProperties.Create(AServer: TMathematic2D); begin inherited Create; FServer := AServer; end; function TMathematic2DProperties.GetDefaultInterface: ksMathematic2D; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoDynamicArray.Create: ksDynamicArray; begin Result := CreateComObject(CLASS_DynamicArray) as ksDynamicArray; end; class function CoDynamicArray.CreateRemote(const MachineName: string): ksDynamicArray; begin Result := CreateRemoteComObject(MachineName, CLASS_DynamicArray) as ksDynamicArray; end; procedure TDynamicArray.InitServerData; const CServerData: TServerData = ( ClassID: '{FD30B325-9E27-42CA-ADCF-C30EEBE0BBB8}'; IntfIID: '{4D91CD9A-6E02-409D-9360-CF7FEF60D31C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDynamicArray.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDynamicArray; end; end; procedure TDynamicArray.ConnectTo(svrIntf: ksDynamicArray); begin Disconnect; FIntf := svrIntf; end; procedure TDynamicArray.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDynamicArray.GetDefaultInterface: ksDynamicArray; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDynamicArray.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDynamicArrayProperties.Create(Self); {$ENDIF} end; destructor TDynamicArray.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDynamicArray.GetServerProperties: TDynamicArrayProperties; begin Result := FProps; end; {$ENDIF} function TDynamicArray.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TDynamicArray.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; function TDynamicArray.ksDeleteArray: Integer; begin Result := DefaultInterface.ksDeleteArray; end; function TDynamicArray.ksClearArray: Integer; begin Result := DefaultInterface.ksClearArray; end; function TDynamicArray.ksGetArrayCount: Integer; begin Result := DefaultInterface.ksGetArrayCount; end; function TDynamicArray.ksGetArrayType: Integer; begin Result := DefaultInterface.ksGetArrayType; end; function TDynamicArray.ksExcludeArrayItem(index: Integer): Integer; begin Result := DefaultInterface.ksExcludeArrayItem(index); end; function TDynamicArray.ksAddArrayItem(index: Integer; const item: IDispatch): Integer; begin Result := DefaultInterface.ksAddArrayItem(index, item); end; function TDynamicArray.ksGetArrayItem(index: Integer; const item: IDispatch): Integer; begin Result := DefaultInterface.ksGetArrayItem(index, item); end; function TDynamicArray.ksSetArrayItem(index: Integer; const item: IDispatch): Integer; begin Result := DefaultInterface.ksSetArrayItem(index, item); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDynamicArrayProperties.Create(AServer: TDynamicArray); begin inherited Create; FServer := AServer; end; function TDynamicArrayProperties.GetDefaultInterface: ksDynamicArray; begin Result := FServer.DefaultInterface; end; function TDynamicArrayProperties.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TDynamicArrayProperties.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; {$ENDIF} class function CoRDimDrawingParam.Create: ksRDimDrawingParam; begin Result := CreateComObject(CLASS_RDimDrawingParam) as ksRDimDrawingParam; end; class function CoRDimDrawingParam.CreateRemote(const MachineName: string): ksRDimDrawingParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RDimDrawingParam) as ksRDimDrawingParam; end; procedure TRDimDrawingParam.InitServerData; const CServerData: TServerData = ( ClassID: '{2A4D4544-95B3-11D6-8732-00C0262CDD2C}'; IntfIID: '{2A4D4542-95B3-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRDimDrawingParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRDimDrawingParam; end; end; procedure TRDimDrawingParam.ConnectTo(svrIntf: ksRDimDrawingParam); begin Disconnect; FIntf := svrIntf; end; procedure TRDimDrawingParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRDimDrawingParam.GetDefaultInterface: ksRDimDrawingParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRDimDrawingParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRDimDrawingParamProperties.Create(Self); {$ENDIF} end; destructor TRDimDrawingParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRDimDrawingParam.GetServerProperties: TRDimDrawingParamProperties; begin Result := FProps; end; {$ENDIF} function TRDimDrawingParam.Get_pt1: Smallint; begin Result := DefaultInterface.pt1; end; procedure TRDimDrawingParam.Set_pt1(Value: Smallint); begin DefaultInterface.pt1 := Value; end; function TRDimDrawingParam.Get_pt2: Smallint; begin Result := DefaultInterface.pt2; end; procedure TRDimDrawingParam.Set_pt2(Value: Smallint); begin DefaultInterface.pt2 := Value; end; function TRDimDrawingParam.Get_textPos: Integer; begin Result := DefaultInterface.textPos; end; procedure TRDimDrawingParam.Set_textPos(Value: Integer); begin DefaultInterface.textPos := Value; end; function TRDimDrawingParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRDimDrawingParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRDimDrawingParam.Get_shelfDir: Integer; begin Result := DefaultInterface.shelfDir; end; procedure TRDimDrawingParam.Set_shelfDir(Value: Integer); begin DefaultInterface.shelfDir := Value; end; function TRDimDrawingParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRDimDrawingParamProperties.Create(AServer: TRDimDrawingParam); begin inherited Create; FServer := AServer; end; function TRDimDrawingParamProperties.GetDefaultInterface: ksRDimDrawingParam; begin Result := FServer.DefaultInterface; end; function TRDimDrawingParamProperties.Get_pt1: Smallint; begin Result := DefaultInterface.pt1; end; procedure TRDimDrawingParamProperties.Set_pt1(Value: Smallint); begin DefaultInterface.pt1 := Value; end; function TRDimDrawingParamProperties.Get_pt2: Smallint; begin Result := DefaultInterface.pt2; end; procedure TRDimDrawingParamProperties.Set_pt2(Value: Smallint); begin DefaultInterface.pt2 := Value; end; function TRDimDrawingParamProperties.Get_textPos: Integer; begin Result := DefaultInterface.textPos; end; procedure TRDimDrawingParamProperties.Set_textPos(Value: Integer); begin DefaultInterface.textPos := Value; end; function TRDimDrawingParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRDimDrawingParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRDimDrawingParamProperties.Get_shelfDir: Integer; begin Result := DefaultInterface.shelfDir; end; procedure TRDimDrawingParamProperties.Set_shelfDir(Value: Integer); begin DefaultInterface.shelfDir := Value; end; {$ENDIF} class function CoRDimSourceParam.Create: ksRDimSourceParam; begin Result := CreateComObject(CLASS_RDimSourceParam) as ksRDimSourceParam; end; class function CoRDimSourceParam.CreateRemote(const MachineName: string): ksRDimSourceParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RDimSourceParam) as ksRDimSourceParam; end; procedure TRDimSourceParam.InitServerData; const CServerData: TServerData = ( ClassID: '{2A4D4547-95B3-11D6-8732-00C0262CDD2C}'; IntfIID: '{2A4D4545-95B3-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRDimSourceParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRDimSourceParam; end; end; procedure TRDimSourceParam.ConnectTo(svrIntf: ksRDimSourceParam); begin Disconnect; FIntf := svrIntf; end; procedure TRDimSourceParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRDimSourceParam.GetDefaultInterface: ksRDimSourceParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRDimSourceParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRDimSourceParamProperties.Create(Self); {$ENDIF} end; destructor TRDimSourceParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRDimSourceParam.GetServerProperties: TRDimSourceParamProperties; begin Result := FProps; end; {$ENDIF} function TRDimSourceParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TRDimSourceParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TRDimSourceParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TRDimSourceParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TRDimSourceParam.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TRDimSourceParam.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TRDimSourceParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRDimSourceParamProperties.Create(AServer: TRDimSourceParam); begin inherited Create; FServer := AServer; end; function TRDimSourceParamProperties.GetDefaultInterface: ksRDimSourceParam; begin Result := FServer.DefaultInterface; end; function TRDimSourceParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TRDimSourceParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TRDimSourceParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TRDimSourceParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TRDimSourceParamProperties.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TRDimSourceParamProperties.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; {$ENDIF} class function CoRDimParam.Create: ksRDimParam; begin Result := CreateComObject(CLASS_RDimParam) as ksRDimParam; end; class function CoRDimParam.CreateRemote(const MachineName: string): ksRDimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RDimParam) as ksRDimParam; end; procedure TRDimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F83-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F81-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRDimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRDimParam; end; end; procedure TRDimParam.ConnectTo(svrIntf: ksRDimParam); begin Disconnect; FIntf := svrIntf; end; procedure TRDimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRDimParam.GetDefaultInterface: ksRDimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRDimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRDimParamProperties.Create(Self); {$ENDIF} end; destructor TRDimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRDimParam.GetServerProperties: TRDimParamProperties; begin Result := FProps; end; {$ENDIF} function TRDimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TRDimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TRDimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TRDimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TRDimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TRDimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRDimParamProperties.Create(AServer: TRDimParam); begin inherited Create; FServer := AServer; end; function TRDimParamProperties.GetDefaultInterface: ksRDimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoLineSegParam.Create: ksLineSegParam; begin Result := CreateComObject(CLASS_LineSegParam) as ksLineSegParam; end; class function CoLineSegParam.CreateRemote(const MachineName: string): ksLineSegParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LineSegParam) as ksLineSegParam; end; procedure TLineSegParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F86-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F84-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLineSegParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLineSegParam; end; end; procedure TLineSegParam.ConnectTo(svrIntf: ksLineSegParam); begin Disconnect; FIntf := svrIntf; end; procedure TLineSegParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLineSegParam.GetDefaultInterface: ksLineSegParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLineSegParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLineSegParamProperties.Create(Self); {$ENDIF} end; destructor TLineSegParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLineSegParam.GetServerProperties: TLineSegParamProperties; begin Result := FProps; end; {$ENDIF} function TLineSegParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TLineSegParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TLineSegParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TLineSegParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TLineSegParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TLineSegParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TLineSegParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TLineSegParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TLineSegParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TLineSegParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TLineSegParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLineSegParamProperties.Create(AServer: TLineSegParam); begin inherited Create; FServer := AServer; end; function TLineSegParamProperties.GetDefaultInterface: ksLineSegParam; begin Result := FServer.DefaultInterface; end; function TLineSegParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TLineSegParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TLineSegParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TLineSegParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TLineSegParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TLineSegParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TLineSegParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TLineSegParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TLineSegParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TLineSegParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoCircleParam.Create: ksCircleParam; begin Result := CreateComObject(CLASS_CircleParam) as ksCircleParam; end; class function CoCircleParam.CreateRemote(const MachineName: string): ksCircleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CircleParam) as ksCircleParam; end; procedure TCircleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F89-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F87-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCircleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCircleParam; end; end; procedure TCircleParam.ConnectTo(svrIntf: ksCircleParam); begin Disconnect; FIntf := svrIntf; end; procedure TCircleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCircleParam.GetDefaultInterface: ksCircleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCircleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCircleParamProperties.Create(Self); {$ENDIF} end; destructor TCircleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCircleParam.GetServerProperties: TCircleParamProperties; begin Result := FProps; end; {$ENDIF} function TCircleParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TCircleParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TCircleParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TCircleParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TCircleParam.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TCircleParam.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TCircleParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TCircleParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TCircleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCircleParamProperties.Create(AServer: TCircleParam); begin inherited Create; FServer := AServer; end; function TCircleParamProperties.GetDefaultInterface: ksCircleParam; begin Result := FServer.DefaultInterface; end; function TCircleParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TCircleParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TCircleParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TCircleParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TCircleParamProperties.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TCircleParamProperties.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TCircleParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TCircleParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoArcByAngleParam.Create: ksArcByAngleParam; begin Result := CreateComObject(CLASS_ArcByAngleParam) as ksArcByAngleParam; end; class function CoArcByAngleParam.CreateRemote(const MachineName: string): ksArcByAngleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ArcByAngleParam) as ksArcByAngleParam; end; procedure TArcByAngleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F8C-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F8A-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TArcByAngleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksArcByAngleParam; end; end; procedure TArcByAngleParam.ConnectTo(svrIntf: ksArcByAngleParam); begin Disconnect; FIntf := svrIntf; end; procedure TArcByAngleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TArcByAngleParam.GetDefaultInterface: ksArcByAngleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TArcByAngleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TArcByAngleParamProperties.Create(Self); {$ENDIF} end; destructor TArcByAngleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TArcByAngleParam.GetServerProperties: TArcByAngleParamProperties; begin Result := FProps; end; {$ENDIF} function TArcByAngleParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TArcByAngleParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TArcByAngleParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TArcByAngleParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TArcByAngleParam.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TArcByAngleParam.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TArcByAngleParam.Get_ang1: Double; begin Result := DefaultInterface.ang1; end; procedure TArcByAngleParam.Set_ang1(Value: Double); begin DefaultInterface.ang1 := Value; end; function TArcByAngleParam.Get_ang2: Double; begin Result := DefaultInterface.ang2; end; procedure TArcByAngleParam.Set_ang2(Value: Double); begin DefaultInterface.ang2 := Value; end; function TArcByAngleParam.Get_dir: Smallint; begin Result := DefaultInterface.dir; end; procedure TArcByAngleParam.Set_dir(Value: Smallint); begin DefaultInterface.dir := Value; end; function TArcByAngleParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TArcByAngleParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TArcByAngleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TArcByAngleParamProperties.Create(AServer: TArcByAngleParam); begin inherited Create; FServer := AServer; end; function TArcByAngleParamProperties.GetDefaultInterface: ksArcByAngleParam; begin Result := FServer.DefaultInterface; end; function TArcByAngleParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TArcByAngleParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TArcByAngleParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TArcByAngleParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TArcByAngleParamProperties.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TArcByAngleParamProperties.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TArcByAngleParamProperties.Get_ang1: Double; begin Result := DefaultInterface.ang1; end; procedure TArcByAngleParamProperties.Set_ang1(Value: Double); begin DefaultInterface.ang1 := Value; end; function TArcByAngleParamProperties.Get_ang2: Double; begin Result := DefaultInterface.ang2; end; procedure TArcByAngleParamProperties.Set_ang2(Value: Double); begin DefaultInterface.ang2 := Value; end; function TArcByAngleParamProperties.Get_dir: Smallint; begin Result := DefaultInterface.dir; end; procedure TArcByAngleParamProperties.Set_dir(Value: Smallint); begin DefaultInterface.dir := Value; end; function TArcByAngleParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TArcByAngleParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoArcByPointParam.Create: ksArcByPointParam; begin Result := CreateComObject(CLASS_ArcByPointParam) as ksArcByPointParam; end; class function CoArcByPointParam.CreateRemote(const MachineName: string): ksArcByPointParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ArcByPointParam) as ksArcByPointParam; end; procedure TArcByPointParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F8F-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F8D-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TArcByPointParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksArcByPointParam; end; end; procedure TArcByPointParam.ConnectTo(svrIntf: ksArcByPointParam); begin Disconnect; FIntf := svrIntf; end; procedure TArcByPointParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TArcByPointParam.GetDefaultInterface: ksArcByPointParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TArcByPointParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TArcByPointParamProperties.Create(Self); {$ENDIF} end; destructor TArcByPointParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TArcByPointParam.GetServerProperties: TArcByPointParamProperties; begin Result := FProps; end; {$ENDIF} function TArcByPointParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TArcByPointParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TArcByPointParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TArcByPointParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TArcByPointParam.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TArcByPointParam.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TArcByPointParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TArcByPointParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TArcByPointParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TArcByPointParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TArcByPointParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TArcByPointParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TArcByPointParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TArcByPointParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TArcByPointParam.Get_dir: Smallint; begin Result := DefaultInterface.dir; end; procedure TArcByPointParam.Set_dir(Value: Smallint); begin DefaultInterface.dir := Value; end; function TArcByPointParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TArcByPointParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TArcByPointParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TArcByPointParamProperties.Create(AServer: TArcByPointParam); begin inherited Create; FServer := AServer; end; function TArcByPointParamProperties.GetDefaultInterface: ksArcByPointParam; begin Result := FServer.DefaultInterface; end; function TArcByPointParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TArcByPointParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TArcByPointParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TArcByPointParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TArcByPointParamProperties.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TArcByPointParamProperties.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TArcByPointParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TArcByPointParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TArcByPointParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TArcByPointParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TArcByPointParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TArcByPointParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TArcByPointParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TArcByPointParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TArcByPointParamProperties.Get_dir: Smallint; begin Result := DefaultInterface.dir; end; procedure TArcByPointParamProperties.Set_dir(Value: Smallint); begin DefaultInterface.dir := Value; end; function TArcByPointParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TArcByPointParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoPointParam.Create: ksPointParam; begin Result := CreateComObject(CLASS_PointParam) as ksPointParam; end; class function CoPointParam.CreateRemote(const MachineName: string): ksPointParam; begin Result := CreateRemoteComObject(MachineName, CLASS_PointParam) as ksPointParam; end; procedure TPointParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F92-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F90-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPointParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPointParam; end; end; procedure TPointParam.ConnectTo(svrIntf: ksPointParam); begin Disconnect; FIntf := svrIntf; end; procedure TPointParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPointParam.GetDefaultInterface: ksPointParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPointParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPointParamProperties.Create(Self); {$ENDIF} end; destructor TPointParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPointParam.GetServerProperties: TPointParamProperties; begin Result := FProps; end; {$ENDIF} function TPointParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TPointParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TPointParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TPointParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TPointParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TPointParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TPointParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPointParamProperties.Create(AServer: TPointParam); begin inherited Create; FServer := AServer; end; function TPointParamProperties.GetDefaultInterface: ksPointParam; begin Result := FServer.DefaultInterface; end; function TPointParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TPointParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TPointParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TPointParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TPointParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TPointParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoHatchParam.Create: ksHatchParam; begin Result := CreateComObject(CLASS_HatchParam) as ksHatchParam; end; class function CoHatchParam.CreateRemote(const MachineName: string): ksHatchParam; begin Result := CreateRemoteComObject(MachineName, CLASS_HatchParam) as ksHatchParam; end; procedure THatchParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F95-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F93-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure THatchParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksHatchParam; end; end; procedure THatchParam.ConnectTo(svrIntf: ksHatchParam); begin Disconnect; FIntf := svrIntf; end; procedure THatchParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function THatchParam.GetDefaultInterface: ksHatchParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor THatchParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := THatchParamProperties.Create(Self); {$ENDIF} end; destructor THatchParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function THatchParam.GetServerProperties: THatchParamProperties; begin Result := FProps; end; {$ENDIF} function THatchParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure THatchParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function THatchParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure THatchParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function THatchParam.Get_step: Double; begin Result := DefaultInterface.step; end; procedure THatchParam.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function THatchParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure THatchParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function THatchParam.Get_width: Double; begin Result := DefaultInterface.width; end; procedure THatchParam.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function THatchParam.Get_boundaries: Integer; begin Result := DefaultInterface.boundaries; end; procedure THatchParam.Set_boundaries(Value: Integer); begin DefaultInterface.boundaries := Value; end; function THatchParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure THatchParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function THatchParam.Get_sheeting: Smallint; begin Result := DefaultInterface.sheeting; end; procedure THatchParam.Set_sheeting(Value: Smallint); begin DefaultInterface.sheeting := Value; end; function THatchParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure THatchParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function THatchParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor THatchParamProperties.Create(AServer: THatchParam); begin inherited Create; FServer := AServer; end; function THatchParamProperties.GetDefaultInterface: ksHatchParam; begin Result := FServer.DefaultInterface; end; function THatchParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure THatchParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function THatchParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure THatchParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function THatchParamProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure THatchParamProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function THatchParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure THatchParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function THatchParamProperties.Get_width: Double; begin Result := DefaultInterface.width; end; procedure THatchParamProperties.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function THatchParamProperties.Get_boundaries: Integer; begin Result := DefaultInterface.boundaries; end; procedure THatchParamProperties.Set_boundaries(Value: Integer); begin DefaultInterface.boundaries := Value; end; function THatchParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure THatchParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function THatchParamProperties.Get_sheeting: Smallint; begin Result := DefaultInterface.sheeting; end; procedure THatchParamProperties.Set_sheeting(Value: Smallint); begin DefaultInterface.sheeting := Value; end; function THatchParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure THatchParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoTextParam.Create: ksTextParam; begin Result := CreateComObject(CLASS_TextParam) as ksTextParam; end; class function CoTextParam.CreateRemote(const MachineName: string): ksTextParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TextParam) as ksTextParam; end; procedure TTextParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F98-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F96-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTextParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTextParam; end; end; procedure TTextParam.ConnectTo(svrIntf: ksTextParam); begin Disconnect; FIntf := svrIntf; end; procedure TTextParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTextParam.GetDefaultInterface: ksTextParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTextParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTextParamProperties.Create(Self); {$ENDIF} end; destructor TTextParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTextParam.GetServerProperties: TTextParamProperties; begin Result := FProps; end; {$ENDIF} function TTextParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TTextParam.GetParagraphParam: IDispatch; begin Result := DefaultInterface.GetParagraphParam; end; function TTextParam.SetParagraphParam(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetParagraphParam(val); end; function TTextParam.GetTextLineArr: IDispatch; begin Result := DefaultInterface.GetTextLineArr; end; function TTextParam.SetTextLineArr(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTextLineArr(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTextParamProperties.Create(AServer: TTextParam); begin inherited Create; FServer := AServer; end; function TTextParamProperties.GetDefaultInterface: ksTextParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoNurbsPointParam.Create: ksNurbsPointParam; begin Result := CreateComObject(CLASS_NurbsPointParam) as ksNurbsPointParam; end; class function CoNurbsPointParam.CreateRemote(const MachineName: string): ksNurbsPointParam; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsPointParam) as ksNurbsPointParam; end; procedure TNurbsPointParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F9B-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F99-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsPointParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsPointParam; end; end; procedure TNurbsPointParam.ConnectTo(svrIntf: ksNurbsPointParam); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsPointParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsPointParam.GetDefaultInterface: ksNurbsPointParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsPointParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsPointParamProperties.Create(Self); {$ENDIF} end; destructor TNurbsPointParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsPointParam.GetServerProperties: TNurbsPointParamProperties; begin Result := FProps; end; {$ENDIF} function TNurbsPointParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TNurbsPointParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TNurbsPointParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TNurbsPointParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TNurbsPointParam.Get_weight: Double; begin Result := DefaultInterface.weight; end; procedure TNurbsPointParam.Set_weight(Value: Double); begin DefaultInterface.weight := Value; end; function TNurbsPointParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsPointParamProperties.Create(AServer: TNurbsPointParam); begin inherited Create; FServer := AServer; end; function TNurbsPointParamProperties.GetDefaultInterface: ksNurbsPointParam; begin Result := FServer.DefaultInterface; end; function TNurbsPointParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TNurbsPointParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TNurbsPointParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TNurbsPointParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TNurbsPointParamProperties.Get_weight: Double; begin Result := DefaultInterface.weight; end; procedure TNurbsPointParamProperties.Set_weight(Value: Double); begin DefaultInterface.weight := Value; end; {$ENDIF} class function CoDoubleValue.Create: ksDoubleValue; begin Result := CreateComObject(CLASS_DoubleValue) as ksDoubleValue; end; class function CoDoubleValue.CreateRemote(const MachineName: string): ksDoubleValue; begin Result := CreateRemoteComObject(MachineName, CLASS_DoubleValue) as ksDoubleValue; end; procedure TDoubleValue.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6F9E-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F9C-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDoubleValue.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDoubleValue; end; end; procedure TDoubleValue.ConnectTo(svrIntf: ksDoubleValue); begin Disconnect; FIntf := svrIntf; end; procedure TDoubleValue.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDoubleValue.GetDefaultInterface: ksDoubleValue; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDoubleValue.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDoubleValueProperties.Create(Self); {$ENDIF} end; destructor TDoubleValue.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDoubleValue.GetServerProperties: TDoubleValueProperties; begin Result := FProps; end; {$ENDIF} function TDoubleValue.Get_value: Double; begin Result := DefaultInterface.value; end; procedure TDoubleValue.Set_value(Value: Double); begin DefaultInterface.value := Value; end; function TDoubleValue.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDoubleValueProperties.Create(AServer: TDoubleValue); begin inherited Create; FServer := AServer; end; function TDoubleValueProperties.GetDefaultInterface: ksDoubleValue; begin Result := FServer.DefaultInterface; end; function TDoubleValueProperties.Get_value: Double; begin Result := DefaultInterface.value; end; procedure TDoubleValueProperties.Set_value(Value: Double); begin DefaultInterface.value := Value; end; {$ENDIF} class function CoNurbsParam.Create: ksNurbsParam; begin Result := CreateComObject(CLASS_NurbsParam) as ksNurbsParam; end; class function CoNurbsParam.CreateRemote(const MachineName: string): ksNurbsParam; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsParam) as ksNurbsParam; end; procedure TNurbsParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FA1-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6F9F-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsParam; end; end; procedure TNurbsParam.ConnectTo(svrIntf: ksNurbsParam); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsParam.GetDefaultInterface: ksNurbsParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsParamProperties.Create(Self); {$ENDIF} end; destructor TNurbsParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsParam.GetServerProperties: TNurbsParamProperties; begin Result := FProps; end; {$ENDIF} function TNurbsParam.Get_degree: Smallint; begin Result := DefaultInterface.degree; end; procedure TNurbsParam.Set_degree(Value: Smallint); begin DefaultInterface.degree := Value; end; function TNurbsParam.Get_close: WordBool; begin Result := DefaultInterface.close; end; procedure TNurbsParam.Set_close(Value: WordBool); begin DefaultInterface.close := Value; end; function TNurbsParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TNurbsParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TNurbsParam.Get_periodic: WordBool; begin Result := DefaultInterface.periodic; end; function TNurbsParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TNurbsParam.GetPPoint: IDispatch; begin Result := DefaultInterface.GetPPoint; end; function TNurbsParam.SetPPoint(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPPoint(val); end; function TNurbsParam.GetPKnot: IDispatch; begin Result := DefaultInterface.GetPKnot; end; function TNurbsParam.SetPKnot(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPKnot(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsParamProperties.Create(AServer: TNurbsParam); begin inherited Create; FServer := AServer; end; function TNurbsParamProperties.GetDefaultInterface: ksNurbsParam; begin Result := FServer.DefaultInterface; end; function TNurbsParamProperties.Get_degree: Smallint; begin Result := DefaultInterface.degree; end; procedure TNurbsParamProperties.Set_degree(Value: Smallint); begin DefaultInterface.degree := Value; end; function TNurbsParamProperties.Get_close: WordBool; begin Result := DefaultInterface.close; end; procedure TNurbsParamProperties.Set_close(Value: WordBool); begin DefaultInterface.close := Value; end; function TNurbsParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TNurbsParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TNurbsParamProperties.Get_periodic: WordBool; begin Result := DefaultInterface.periodic; end; {$ENDIF} class function CoConicArcParam.Create: ksConicArcParam; begin Result := CreateComObject(CLASS_ConicArcParam) as ksConicArcParam; end; class function CoConicArcParam.CreateRemote(const MachineName: string): ksConicArcParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ConicArcParam) as ksConicArcParam; end; procedure TConicArcParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FA4-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FA2-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TConicArcParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksConicArcParam; end; end; procedure TConicArcParam.ConnectTo(svrIntf: ksConicArcParam); begin Disconnect; FIntf := svrIntf; end; procedure TConicArcParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TConicArcParam.GetDefaultInterface: ksConicArcParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TConicArcParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TConicArcParamProperties.Create(Self); {$ENDIF} end; destructor TConicArcParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TConicArcParam.GetServerProperties: TConicArcParamProperties; begin Result := FProps; end; {$ENDIF} function TConicArcParam.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TConicArcParam.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TConicArcParam.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TConicArcParam.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TConicArcParam.Get_C: Double; begin Result := DefaultInterface.C; end; procedure TConicArcParam.Set_C(Value: Double); begin DefaultInterface.C := Value; end; function TConicArcParam.Get_D: Double; begin Result := DefaultInterface.D; end; procedure TConicArcParam.Set_D(Value: Double); begin DefaultInterface.D := Value; end; function TConicArcParam.Get_E: Double; begin Result := DefaultInterface.E; end; procedure TConicArcParam.Set_E(Value: Double); begin DefaultInterface.E := Value; end; function TConicArcParam.Get_F: Double; begin Result := DefaultInterface.F; end; procedure TConicArcParam.Set_F(Value: Double); begin DefaultInterface.F := Value; end; function TConicArcParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TConicArcParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TConicArcParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TConicArcParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TConicArcParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TConicArcParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TConicArcParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TConicArcParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TConicArcParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TConicArcParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TConicArcParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TConicArcParamProperties.Create(AServer: TConicArcParam); begin inherited Create; FServer := AServer; end; function TConicArcParamProperties.GetDefaultInterface: ksConicArcParam; begin Result := FServer.DefaultInterface; end; function TConicArcParamProperties.Get_A: Double; begin Result := DefaultInterface.A; end; procedure TConicArcParamProperties.Set_A(Value: Double); begin DefaultInterface.A := Value; end; function TConicArcParamProperties.Get_B: Double; begin Result := DefaultInterface.B; end; procedure TConicArcParamProperties.Set_B(Value: Double); begin DefaultInterface.B := Value; end; function TConicArcParamProperties.Get_C: Double; begin Result := DefaultInterface.C; end; procedure TConicArcParamProperties.Set_C(Value: Double); begin DefaultInterface.C := Value; end; function TConicArcParamProperties.Get_D: Double; begin Result := DefaultInterface.D; end; procedure TConicArcParamProperties.Set_D(Value: Double); begin DefaultInterface.D := Value; end; function TConicArcParamProperties.Get_E: Double; begin Result := DefaultInterface.E; end; procedure TConicArcParamProperties.Set_E(Value: Double); begin DefaultInterface.E := Value; end; function TConicArcParamProperties.Get_F: Double; begin Result := DefaultInterface.F; end; procedure TConicArcParamProperties.Set_F(Value: Double); begin DefaultInterface.F := Value; end; function TConicArcParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TConicArcParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TConicArcParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TConicArcParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TConicArcParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TConicArcParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TConicArcParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TConicArcParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TConicArcParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TConicArcParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoCentreParam.Create: ksCentreParam; begin Result := CreateComObject(CLASS_CentreParam) as ksCentreParam; end; class function CoCentreParam.CreateRemote(const MachineName: string): ksCentreParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CentreParam) as ksCentreParam; end; procedure TCentreParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FA7-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FA5-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCentreParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCentreParam; end; end; procedure TCentreParam.ConnectTo(svrIntf: ksCentreParam); begin Disconnect; FIntf := svrIntf; end; procedure TCentreParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCentreParam.GetDefaultInterface: ksCentreParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCentreParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCentreParamProperties.Create(Self); {$ENDIF} end; destructor TCentreParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCentreParam.GetServerProperties: TCentreParamProperties; begin Result := FProps; end; {$ENDIF} function TCentreParam.Get_baseCurve: Integer; begin Result := DefaultInterface.baseCurve; end; procedure TCentreParam.Set_baseCurve(Value: Integer); begin DefaultInterface.baseCurve := Value; end; function TCentreParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TCentreParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TCentreParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TCentreParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TCentreParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TCentreParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TCentreParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TCentreParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TCentreParam.Get_standXpTail: WordBool; begin Result := DefaultInterface.standXpTail; end; procedure TCentreParam.Set_standXpTail(Value: WordBool); begin DefaultInterface.standXpTail := Value; end; function TCentreParam.Get_standXmTail: WordBool; begin Result := DefaultInterface.standXmTail; end; procedure TCentreParam.Set_standXmTail(Value: WordBool); begin DefaultInterface.standXmTail := Value; end; function TCentreParam.Get_standYpTail: WordBool; begin Result := DefaultInterface.standYpTail; end; procedure TCentreParam.Set_standYpTail(Value: WordBool); begin DefaultInterface.standYpTail := Value; end; function TCentreParam.Get_standYmTail: WordBool; begin Result := DefaultInterface.standYmTail; end; procedure TCentreParam.Set_standYmTail(Value: WordBool); begin DefaultInterface.standYmTail := Value; end; function TCentreParam.Get_lenXpTail: Double; begin Result := DefaultInterface.lenXpTail; end; procedure TCentreParam.Set_lenXpTail(Value: Double); begin DefaultInterface.lenXpTail := Value; end; function TCentreParam.Get_lenXmTail: Double; begin Result := DefaultInterface.lenXmTail; end; procedure TCentreParam.Set_lenXmTail(Value: Double); begin DefaultInterface.lenXmTail := Value; end; function TCentreParam.Get_lenYpTail: Double; begin Result := DefaultInterface.lenYpTail; end; procedure TCentreParam.Set_lenYpTail(Value: Double); begin DefaultInterface.lenYpTail := Value; end; function TCentreParam.Get_lenYmTail: Double; begin Result := DefaultInterface.lenYmTail; end; procedure TCentreParam.Set_lenYmTail(Value: Double); begin DefaultInterface.lenYmTail := Value; end; function TCentreParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCentreParamProperties.Create(AServer: TCentreParam); begin inherited Create; FServer := AServer; end; function TCentreParamProperties.GetDefaultInterface: ksCentreParam; begin Result := FServer.DefaultInterface; end; function TCentreParamProperties.Get_baseCurve: Integer; begin Result := DefaultInterface.baseCurve; end; procedure TCentreParamProperties.Set_baseCurve(Value: Integer); begin DefaultInterface.baseCurve := Value; end; function TCentreParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TCentreParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TCentreParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TCentreParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TCentreParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TCentreParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TCentreParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TCentreParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TCentreParamProperties.Get_standXpTail: WordBool; begin Result := DefaultInterface.standXpTail; end; procedure TCentreParamProperties.Set_standXpTail(Value: WordBool); begin DefaultInterface.standXpTail := Value; end; function TCentreParamProperties.Get_standXmTail: WordBool; begin Result := DefaultInterface.standXmTail; end; procedure TCentreParamProperties.Set_standXmTail(Value: WordBool); begin DefaultInterface.standXmTail := Value; end; function TCentreParamProperties.Get_standYpTail: WordBool; begin Result := DefaultInterface.standYpTail; end; procedure TCentreParamProperties.Set_standYpTail(Value: WordBool); begin DefaultInterface.standYpTail := Value; end; function TCentreParamProperties.Get_standYmTail: WordBool; begin Result := DefaultInterface.standYmTail; end; procedure TCentreParamProperties.Set_standYmTail(Value: WordBool); begin DefaultInterface.standYmTail := Value; end; function TCentreParamProperties.Get_lenXpTail: Double; begin Result := DefaultInterface.lenXpTail; end; procedure TCentreParamProperties.Set_lenXpTail(Value: Double); begin DefaultInterface.lenXpTail := Value; end; function TCentreParamProperties.Get_lenXmTail: Double; begin Result := DefaultInterface.lenXmTail; end; procedure TCentreParamProperties.Set_lenXmTail(Value: Double); begin DefaultInterface.lenXmTail := Value; end; function TCentreParamProperties.Get_lenYpTail: Double; begin Result := DefaultInterface.lenYpTail; end; procedure TCentreParamProperties.Set_lenYpTail(Value: Double); begin DefaultInterface.lenYpTail := Value; end; function TCentreParamProperties.Get_lenYmTail: Double; begin Result := DefaultInterface.lenYmTail; end; procedure TCentreParamProperties.Set_lenYmTail(Value: Double); begin DefaultInterface.lenYmTail := Value; end; {$ENDIF} class function CoPlacementParam.Create: ksPlacementParam; begin Result := CreateComObject(CLASS_PlacementParam) as ksPlacementParam; end; class function CoPlacementParam.CreateRemote(const MachineName: string): ksPlacementParam; begin Result := CreateRemoteComObject(MachineName, CLASS_PlacementParam) as ksPlacementParam; end; procedure TPlacementParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FAA-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FA8-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlacementParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlacementParam; end; end; procedure TPlacementParam.ConnectTo(svrIntf: ksPlacementParam); begin Disconnect; FIntf := svrIntf; end; procedure TPlacementParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlacementParam.GetDefaultInterface: ksPlacementParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlacementParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlacementParamProperties.Create(Self); {$ENDIF} end; destructor TPlacementParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlacementParam.GetServerProperties: TPlacementParamProperties; begin Result := FProps; end; {$ENDIF} function TPlacementParam.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TPlacementParam.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TPlacementParam.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TPlacementParam.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TPlacementParam.Get_scale_: Double; begin Result := DefaultInterface.scale_; end; procedure TPlacementParam.Set_scale_(Value: Double); begin DefaultInterface.scale_ := Value; end; function TPlacementParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TPlacementParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TPlacementParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlacementParamProperties.Create(AServer: TPlacementParam); begin inherited Create; FServer := AServer; end; function TPlacementParamProperties.GetDefaultInterface: ksPlacementParam; begin Result := FServer.DefaultInterface; end; function TPlacementParamProperties.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TPlacementParamProperties.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TPlacementParamProperties.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TPlacementParamProperties.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TPlacementParamProperties.Get_scale_: Double; begin Result := DefaultInterface.scale_; end; procedure TPlacementParamProperties.Set_scale_(Value: Double); begin DefaultInterface.scale_ := Value; end; function TPlacementParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TPlacementParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; {$ENDIF} class function CoRasterParam.Create: ksRasterParam; begin Result := CreateComObject(CLASS_RasterParam) as ksRasterParam; end; class function CoRasterParam.CreateRemote(const MachineName: string): ksRasterParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RasterParam) as ksRasterParam; end; procedure TRasterParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FAD-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FAB-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRasterParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRasterParam; end; end; procedure TRasterParam.ConnectTo(svrIntf: ksRasterParam); begin Disconnect; FIntf := svrIntf; end; procedure TRasterParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRasterParam.GetDefaultInterface: ksRasterParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRasterParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRasterParamProperties.Create(Self); {$ENDIF} end; destructor TRasterParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRasterParam.GetServerProperties: TRasterParamProperties; begin Result := FProps; end; {$ENDIF} function TRasterParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TRasterParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TRasterParam.Get_embeded: WordBool; begin Result := DefaultInterface.embeded; end; procedure TRasterParam.Set_embeded(Value: WordBool); begin DefaultInterface.embeded := Value; end; function TRasterParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TRasterParam.GetPlace: IDispatch; begin Result := DefaultInterface.GetPlace; end; function TRasterParam.SetPlace(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPlace(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRasterParamProperties.Create(AServer: TRasterParam); begin inherited Create; FServer := AServer; end; function TRasterParamProperties.GetDefaultInterface: ksRasterParam; begin Result := FServer.DefaultInterface; end; function TRasterParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TRasterParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TRasterParamProperties.Get_embeded: WordBool; begin Result := DefaultInterface.embeded; end; procedure TRasterParamProperties.Set_embeded(Value: WordBool); begin DefaultInterface.embeded := Value; end; {$ENDIF} class function CoPolylineParam.Create: ksPolylineParam; begin Result := CreateComObject(CLASS_PolylineParam) as ksPolylineParam; end; class function CoPolylineParam.CreateRemote(const MachineName: string): ksPolylineParam; begin Result := CreateRemoteComObject(MachineName, CLASS_PolylineParam) as ksPolylineParam; end; procedure TPolylineParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FB0-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FAE-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPolylineParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPolylineParam; end; end; procedure TPolylineParam.ConnectTo(svrIntf: ksPolylineParam); begin Disconnect; FIntf := svrIntf; end; procedure TPolylineParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPolylineParam.GetDefaultInterface: ksPolylineParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPolylineParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPolylineParamProperties.Create(Self); {$ENDIF} end; destructor TPolylineParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPolylineParam.GetServerProperties: TPolylineParamProperties; begin Result := FProps; end; {$ENDIF} function TPolylineParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TPolylineParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TPolylineParam.Get_closed: WordBool; begin Result := DefaultInterface.closed; end; procedure TPolylineParam.Set_closed(Value: WordBool); begin DefaultInterface.closed := Value; end; function TPolylineParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TPolylineParam.GetpMathPoint: IDispatch; begin Result := DefaultInterface.GetpMathPoint; end; function TPolylineParam.SetpMathPoint(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetpMathPoint(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPolylineParamProperties.Create(AServer: TPolylineParam); begin inherited Create; FServer := AServer; end; function TPolylineParamProperties.GetDefaultInterface: ksPolylineParam; begin Result := FServer.DefaultInterface; end; function TPolylineParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TPolylineParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TPolylineParamProperties.Get_closed: WordBool; begin Result := DefaultInterface.closed; end; procedure TPolylineParamProperties.Set_closed(Value: WordBool); begin DefaultInterface.closed := Value; end; {$ENDIF} class function CoInsertFragmentParam.Create: ksInsertFragmentParam; begin Result := CreateComObject(CLASS_InsertFragmentParam) as ksInsertFragmentParam; end; class function CoInsertFragmentParam.CreateRemote(const MachineName: string): ksInsertFragmentParam; begin Result := CreateRemoteComObject(MachineName, CLASS_InsertFragmentParam) as ksInsertFragmentParam; end; procedure TInsertFragmentParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FB3-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FB1-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TInsertFragmentParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksInsertFragmentParam; end; end; procedure TInsertFragmentParam.ConnectTo(svrIntf: ksInsertFragmentParam); begin Disconnect; FIntf := svrIntf; end; procedure TInsertFragmentParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TInsertFragmentParam.GetDefaultInterface: ksInsertFragmentParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TInsertFragmentParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TInsertFragmentParamProperties.Create(Self); {$ENDIF} end; destructor TInsertFragmentParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TInsertFragmentParam.GetServerProperties: TInsertFragmentParamProperties; begin Result := FProps; end; {$ENDIF} function TInsertFragmentParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TInsertFragmentParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TInsertFragmentParam.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TInsertFragmentParam.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TInsertFragmentParam.Get_insertType: Smallint; begin Result := DefaultInterface.insertType; end; procedure TInsertFragmentParam.Set_insertType(Value: Smallint); begin DefaultInterface.insertType := Value; end; function TInsertFragmentParam.Get_multiLayer: WordBool; begin Result := DefaultInterface.multiLayer; end; procedure TInsertFragmentParam.Set_multiLayer(Value: WordBool); begin DefaultInterface.multiLayer := Value; end; function TInsertFragmentParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TInsertFragmentParam.GetPlace: IDispatch; begin Result := DefaultInterface.GetPlace; end; function TInsertFragmentParam.SetPlace(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPlace(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TInsertFragmentParamProperties.Create(AServer: TInsertFragmentParam); begin inherited Create; FServer := AServer; end; function TInsertFragmentParamProperties.GetDefaultInterface: ksInsertFragmentParam; begin Result := FServer.DefaultInterface; end; function TInsertFragmentParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TInsertFragmentParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TInsertFragmentParamProperties.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TInsertFragmentParamProperties.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TInsertFragmentParamProperties.Get_insertType: Smallint; begin Result := DefaultInterface.insertType; end; procedure TInsertFragmentParamProperties.Set_insertType(Value: Smallint); begin DefaultInterface.insertType := Value; end; function TInsertFragmentParamProperties.Get_multiLayer: WordBool; begin Result := DefaultInterface.multiLayer; end; procedure TInsertFragmentParamProperties.Set_multiLayer(Value: WordBool); begin DefaultInterface.multiLayer := Value; end; {$ENDIF} class function CoViewParam.Create: ksViewParam; begin Result := CreateComObject(CLASS_ViewParam) as ksViewParam; end; class function CoViewParam.CreateRemote(const MachineName: string): ksViewParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ViewParam) as ksViewParam; end; procedure TViewParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FB6-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FB4-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TViewParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksViewParam; end; end; procedure TViewParam.ConnectTo(svrIntf: ksViewParam); begin Disconnect; FIntf := svrIntf; end; procedure TViewParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TViewParam.GetDefaultInterface: ksViewParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TViewParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TViewParamProperties.Create(Self); {$ENDIF} end; destructor TViewParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TViewParam.GetServerProperties: TViewParamProperties; begin Result := FProps; end; {$ENDIF} function TViewParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TViewParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TViewParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TViewParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TViewParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TViewParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TViewParam.Get_scale_: Double; begin Result := DefaultInterface.scale_; end; procedure TViewParam.Set_scale_(Value: Double); begin DefaultInterface.scale_ := Value; end; function TViewParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TViewParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TViewParam.Get_state: Smallint; begin Result := DefaultInterface.state; end; procedure TViewParam.Set_state(Value: Smallint); begin DefaultInterface.state := Value; end; function TViewParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TViewParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TViewParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TViewParamProperties.Create(AServer: TViewParam); begin inherited Create; FServer := AServer; end; function TViewParamProperties.GetDefaultInterface: ksViewParam; begin Result := FServer.DefaultInterface; end; function TViewParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TViewParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TViewParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TViewParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TViewParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TViewParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TViewParamProperties.Get_scale_: Double; begin Result := DefaultInterface.scale_; end; procedure TViewParamProperties.Set_scale_(Value: Double); begin DefaultInterface.scale_ := Value; end; function TViewParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TViewParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TViewParamProperties.Get_state: Smallint; begin Result := DefaultInterface.state; end; procedure TViewParamProperties.Set_state(Value: Smallint); begin DefaultInterface.state := Value; end; function TViewParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TViewParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; {$ENDIF} class function CoLBreakDimSource.Create: ksLBreakDimSource; begin Result := CreateComObject(CLASS_LBreakDimSource) as ksLBreakDimSource; end; class function CoLBreakDimSource.CreateRemote(const MachineName: string): ksLBreakDimSource; begin Result := CreateRemoteComObject(MachineName, CLASS_LBreakDimSource) as ksLBreakDimSource; end; procedure TLBreakDimSource.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FB9-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FB7-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLBreakDimSource.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLBreakDimSource; end; end; procedure TLBreakDimSource.ConnectTo(svrIntf: ksLBreakDimSource); begin Disconnect; FIntf := svrIntf; end; procedure TLBreakDimSource.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLBreakDimSource.GetDefaultInterface: ksLBreakDimSource; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLBreakDimSource.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLBreakDimSourceProperties.Create(Self); {$ENDIF} end; destructor TLBreakDimSource.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLBreakDimSource.GetServerProperties: TLBreakDimSourceProperties; begin Result := FProps; end; {$ENDIF} function TLBreakDimSource.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TLBreakDimSource.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TLBreakDimSource.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TLBreakDimSource.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TLBreakDimSource.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TLBreakDimSource.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TLBreakDimSource.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TLBreakDimSource.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TLBreakDimSource.Get_x3: Double; begin Result := DefaultInterface.x3; end; procedure TLBreakDimSource.Set_x3(Value: Double); begin DefaultInterface.x3 := Value; end; function TLBreakDimSource.Get_y3: Double; begin Result := DefaultInterface.y3; end; procedure TLBreakDimSource.Set_y3(Value: Double); begin DefaultInterface.y3 := Value; end; function TLBreakDimSource.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLBreakDimSourceProperties.Create(AServer: TLBreakDimSource); begin inherited Create; FServer := AServer; end; function TLBreakDimSourceProperties.GetDefaultInterface: ksLBreakDimSource; begin Result := FServer.DefaultInterface; end; function TLBreakDimSourceProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TLBreakDimSourceProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TLBreakDimSourceProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TLBreakDimSourceProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TLBreakDimSourceProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TLBreakDimSourceProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TLBreakDimSourceProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TLBreakDimSourceProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TLBreakDimSourceProperties.Get_x3: Double; begin Result := DefaultInterface.x3; end; procedure TLBreakDimSourceProperties.Set_x3(Value: Double); begin DefaultInterface.x3 := Value; end; function TLBreakDimSourceProperties.Get_y3: Double; begin Result := DefaultInterface.y3; end; procedure TLBreakDimSourceProperties.Set_y3(Value: Double); begin DefaultInterface.y3 := Value; end; {$ENDIF} class function CoBreakDimDrawing.Create: ksBreakDimDrawing; begin Result := CreateComObject(CLASS_BreakDimDrawing) as ksBreakDimDrawing; end; class function CoBreakDimDrawing.CreateRemote(const MachineName: string): ksBreakDimDrawing; begin Result := CreateRemoteComObject(MachineName, CLASS_BreakDimDrawing) as ksBreakDimDrawing; end; procedure TBreakDimDrawing.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FBC-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FBA-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBreakDimDrawing.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBreakDimDrawing; end; end; procedure TBreakDimDrawing.ConnectTo(svrIntf: ksBreakDimDrawing); begin Disconnect; FIntf := svrIntf; end; procedure TBreakDimDrawing.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBreakDimDrawing.GetDefaultInterface: ksBreakDimDrawing; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBreakDimDrawing.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBreakDimDrawingProperties.Create(Self); {$ENDIF} end; destructor TBreakDimDrawing.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBreakDimDrawing.GetServerProperties: TBreakDimDrawingProperties; begin Result := FProps; end; {$ENDIF} function TBreakDimDrawing.Get_pl: WordBool; begin Result := DefaultInterface.pl; end; procedure TBreakDimDrawing.Set_pl(Value: WordBool); begin DefaultInterface.pl := Value; end; function TBreakDimDrawing.Get_pt: Smallint; begin Result := DefaultInterface.pt; end; procedure TBreakDimDrawing.Set_pt(Value: Smallint); begin DefaultInterface.pt := Value; end; function TBreakDimDrawing.Get_textPos: Integer; begin Result := DefaultInterface.textPos; end; procedure TBreakDimDrawing.Set_textPos(Value: Integer); begin DefaultInterface.textPos := Value; end; function TBreakDimDrawing.Get_shelfDir: Integer; begin Result := DefaultInterface.shelfDir; end; procedure TBreakDimDrawing.Set_shelfDir(Value: Integer); begin DefaultInterface.shelfDir := Value; end; function TBreakDimDrawing.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TBreakDimDrawing.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TBreakDimDrawing.Get_length: Integer; begin Result := DefaultInterface.length; end; procedure TBreakDimDrawing.Set_length(Value: Integer); begin DefaultInterface.length := Value; end; function TBreakDimDrawing.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBreakDimDrawingProperties.Create(AServer: TBreakDimDrawing); begin inherited Create; FServer := AServer; end; function TBreakDimDrawingProperties.GetDefaultInterface: ksBreakDimDrawing; begin Result := FServer.DefaultInterface; end; function TBreakDimDrawingProperties.Get_pl: WordBool; begin Result := DefaultInterface.pl; end; procedure TBreakDimDrawingProperties.Set_pl(Value: WordBool); begin DefaultInterface.pl := Value; end; function TBreakDimDrawingProperties.Get_pt: Smallint; begin Result := DefaultInterface.pt; end; procedure TBreakDimDrawingProperties.Set_pt(Value: Smallint); begin DefaultInterface.pt := Value; end; function TBreakDimDrawingProperties.Get_textPos: Integer; begin Result := DefaultInterface.textPos; end; procedure TBreakDimDrawingProperties.Set_textPos(Value: Integer); begin DefaultInterface.textPos := Value; end; function TBreakDimDrawingProperties.Get_shelfDir: Integer; begin Result := DefaultInterface.shelfDir; end; procedure TBreakDimDrawingProperties.Set_shelfDir(Value: Integer); begin DefaultInterface.shelfDir := Value; end; function TBreakDimDrawingProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TBreakDimDrawingProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TBreakDimDrawingProperties.Get_length: Integer; begin Result := DefaultInterface.length; end; procedure TBreakDimDrawingProperties.Set_length(Value: Integer); begin DefaultInterface.length := Value; end; {$ENDIF} class function CoLBreakDimParam.Create: ksLBreakDimParam; begin Result := CreateComObject(CLASS_LBreakDimParam) as ksLBreakDimParam; end; class function CoLBreakDimParam.CreateRemote(const MachineName: string): ksLBreakDimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LBreakDimParam) as ksLBreakDimParam; end; procedure TLBreakDimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FBF-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FBD-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLBreakDimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLBreakDimParam; end; end; procedure TLBreakDimParam.ConnectTo(svrIntf: ksLBreakDimParam); begin Disconnect; FIntf := svrIntf; end; procedure TLBreakDimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLBreakDimParam.GetDefaultInterface: ksLBreakDimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLBreakDimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLBreakDimParamProperties.Create(Self); {$ENDIF} end; destructor TLBreakDimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLBreakDimParam.GetServerProperties: TLBreakDimParamProperties; begin Result := FProps; end; {$ENDIF} function TLBreakDimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TLBreakDimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TLBreakDimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TLBreakDimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TLBreakDimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TLBreakDimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLBreakDimParamProperties.Create(AServer: TLBreakDimParam); begin inherited Create; FServer := AServer; end; function TLBreakDimParamProperties.GetDefaultInterface: ksLBreakDimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoABreakDimParam.Create: ksABreakDimParam; begin Result := CreateComObject(CLASS_ABreakDimParam) as ksABreakDimParam; end; class function CoABreakDimParam.CreateRemote(const MachineName: string): ksABreakDimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ABreakDimParam) as ksABreakDimParam; end; procedure TABreakDimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FC2-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FC0-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TABreakDimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksABreakDimParam; end; end; procedure TABreakDimParam.ConnectTo(svrIntf: ksABreakDimParam); begin Disconnect; FIntf := svrIntf; end; procedure TABreakDimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TABreakDimParam.GetDefaultInterface: ksABreakDimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TABreakDimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TABreakDimParamProperties.Create(Self); {$ENDIF} end; destructor TABreakDimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TABreakDimParam.GetServerProperties: TABreakDimParamProperties; begin Result := FProps; end; {$ENDIF} function TABreakDimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TABreakDimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TABreakDimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TABreakDimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TABreakDimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TABreakDimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TABreakDimParamProperties.Create(AServer: TABreakDimParam); begin inherited Create; FServer := AServer; end; function TABreakDimParamProperties.GetDefaultInterface: ksABreakDimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoInsertFragmentParamEx.Create: ksInsertFragmentParamEx; begin Result := CreateComObject(CLASS_InsertFragmentParamEx) as ksInsertFragmentParamEx; end; class function CoInsertFragmentParamEx.CreateRemote(const MachineName: string): ksInsertFragmentParamEx; begin Result := CreateRemoteComObject(MachineName, CLASS_InsertFragmentParamEx) as ksInsertFragmentParamEx; end; procedure TInsertFragmentParamEx.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FC5-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FC3-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TInsertFragmentParamEx.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksInsertFragmentParamEx; end; end; procedure TInsertFragmentParamEx.ConnectTo(svrIntf: ksInsertFragmentParamEx); begin Disconnect; FIntf := svrIntf; end; procedure TInsertFragmentParamEx.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TInsertFragmentParamEx.GetDefaultInterface: ksInsertFragmentParamEx; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TInsertFragmentParamEx.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TInsertFragmentParamExProperties.Create(Self); {$ENDIF} end; destructor TInsertFragmentParamEx.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TInsertFragmentParamEx.GetServerProperties: TInsertFragmentParamExProperties; begin Result := FProps; end; {$ENDIF} function TInsertFragmentParamEx.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TInsertFragmentParamEx.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TInsertFragmentParamEx.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TInsertFragmentParamEx.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TInsertFragmentParamEx.Get_insertType: Smallint; begin Result := DefaultInterface.insertType; end; procedure TInsertFragmentParamEx.Set_insertType(Value: Smallint); begin DefaultInterface.insertType := Value; end; function TInsertFragmentParamEx.Get_multiLayer: WordBool; begin Result := DefaultInterface.multiLayer; end; procedure TInsertFragmentParamEx.Set_multiLayer(Value: WordBool); begin DefaultInterface.multiLayer := Value; end; function TInsertFragmentParamEx.Get_scaleProjLinesSize: Smallint; begin Result := DefaultInterface.scaleProjLinesSize; end; procedure TInsertFragmentParamEx.Set_scaleProjLinesSize(Value: Smallint); begin DefaultInterface.scaleProjLinesSize := Value; end; function TInsertFragmentParamEx.Init: WordBool; begin Result := DefaultInterface.Init; end; function TInsertFragmentParamEx.GetPlace: IDispatch; begin Result := DefaultInterface.GetPlace; end; function TInsertFragmentParamEx.SetPlace(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPlace(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TInsertFragmentParamExProperties.Create(AServer: TInsertFragmentParamEx); begin inherited Create; FServer := AServer; end; function TInsertFragmentParamExProperties.GetDefaultInterface: ksInsertFragmentParamEx; begin Result := FServer.DefaultInterface; end; function TInsertFragmentParamExProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TInsertFragmentParamExProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TInsertFragmentParamExProperties.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TInsertFragmentParamExProperties.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TInsertFragmentParamExProperties.Get_insertType: Smallint; begin Result := DefaultInterface.insertType; end; procedure TInsertFragmentParamExProperties.Set_insertType(Value: Smallint); begin DefaultInterface.insertType := Value; end; function TInsertFragmentParamExProperties.Get_multiLayer: WordBool; begin Result := DefaultInterface.multiLayer; end; procedure TInsertFragmentParamExProperties.Set_multiLayer(Value: WordBool); begin DefaultInterface.multiLayer := Value; end; function TInsertFragmentParamExProperties.Get_scaleProjLinesSize: Smallint; begin Result := DefaultInterface.scaleProjLinesSize; end; procedure TInsertFragmentParamExProperties.Set_scaleProjLinesSize(Value: Smallint); begin DefaultInterface.scaleProjLinesSize := Value; end; {$ENDIF} class function CoBezierParam.Create: ksBezierParam; begin Result := CreateComObject(CLASS_BezierParam) as ksBezierParam; end; class function CoBezierParam.CreateRemote(const MachineName: string): ksBezierParam; begin Result := CreateRemoteComObject(MachineName, CLASS_BezierParam) as ksBezierParam; end; procedure TBezierParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FC8-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FC6-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBezierParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBezierParam; end; end; procedure TBezierParam.ConnectTo(svrIntf: ksBezierParam); begin Disconnect; FIntf := svrIntf; end; procedure TBezierParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBezierParam.GetDefaultInterface: ksBezierParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBezierParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBezierParamProperties.Create(Self); {$ENDIF} end; destructor TBezierParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBezierParam.GetServerProperties: TBezierParamProperties; begin Result := FProps; end; {$ENDIF} function TBezierParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TBezierParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TBezierParam.Get_closed: Smallint; begin Result := DefaultInterface.closed; end; procedure TBezierParam.Set_closed(Value: Smallint); begin DefaultInterface.closed := Value; end; function TBezierParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TBezierParam.GetMathPointArr: IDispatch; begin Result := DefaultInterface.GetMathPointArr; end; function TBezierParam.SetMathPointArr(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetMathPointArr(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBezierParamProperties.Create(AServer: TBezierParam); begin inherited Create; FServer := AServer; end; function TBezierParamProperties.GetDefaultInterface: ksBezierParam; begin Result := FServer.DefaultInterface; end; function TBezierParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TBezierParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TBezierParamProperties.Get_closed: Smallint; begin Result := DefaultInterface.closed; end; procedure TBezierParamProperties.Set_closed(Value: Smallint); begin DefaultInterface.closed := Value; end; {$ENDIF} class function CoBezierPointParam.Create: ksBezierPointParam; begin Result := CreateComObject(CLASS_BezierPointParam) as ksBezierPointParam; end; class function CoBezierPointParam.CreateRemote(const MachineName: string): ksBezierPointParam; begin Result := CreateRemoteComObject(MachineName, CLASS_BezierPointParam) as ksBezierPointParam; end; procedure TBezierPointParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FCB-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FC9-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBezierPointParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBezierPointParam; end; end; procedure TBezierPointParam.ConnectTo(svrIntf: ksBezierPointParam); begin Disconnect; FIntf := svrIntf; end; procedure TBezierPointParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBezierPointParam.GetDefaultInterface: ksBezierPointParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBezierPointParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBezierPointParamProperties.Create(Self); {$ENDIF} end; destructor TBezierPointParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBezierPointParam.GetServerProperties: TBezierPointParamProperties; begin Result := FProps; end; {$ENDIF} function TBezierPointParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TBezierPointParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TBezierPointParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TBezierPointParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TBezierPointParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TBezierPointParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TBezierPointParam.Get_left: Double; begin Result := DefaultInterface.left; end; procedure TBezierPointParam.Set_left(Value: Double); begin DefaultInterface.left := Value; end; function TBezierPointParam.Get_right: Double; begin Result := DefaultInterface.right; end; procedure TBezierPointParam.Set_right(Value: Double); begin DefaultInterface.right := Value; end; function TBezierPointParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBezierPointParamProperties.Create(AServer: TBezierPointParam); begin inherited Create; FServer := AServer; end; function TBezierPointParamProperties.GetDefaultInterface: ksBezierPointParam; begin Result := FServer.DefaultInterface; end; function TBezierPointParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TBezierPointParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TBezierPointParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TBezierPointParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TBezierPointParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TBezierPointParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TBezierPointParamProperties.Get_left: Double; begin Result := DefaultInterface.left; end; procedure TBezierPointParamProperties.Set_left(Value: Double); begin DefaultInterface.left := Value; end; function TBezierPointParamProperties.Get_right: Double; begin Result := DefaultInterface.right; end; procedure TBezierPointParamProperties.Set_right(Value: Double); begin DefaultInterface.right := Value; end; {$ENDIF} class function CoDimTextParam.Create: ksDimTextParam; begin Result := CreateComObject(CLASS_DimTextParam) as ksDimTextParam; end; class function CoDimTextParam.CreateRemote(const MachineName: string): ksDimTextParam; begin Result := CreateRemoteComObject(MachineName, CLASS_DimTextParam) as ksDimTextParam; end; procedure TDimTextParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FCE-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FCC-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDimTextParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDimTextParam; end; end; procedure TDimTextParam.ConnectTo(svrIntf: ksDimTextParam); begin Disconnect; FIntf := svrIntf; end; procedure TDimTextParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDimTextParam.GetDefaultInterface: ksDimTextParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDimTextParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDimTextParamProperties.Create(Self); {$ENDIF} end; destructor TDimTextParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDimTextParam.GetServerProperties: TDimTextParamProperties; begin Result := FProps; end; {$ENDIF} function TDimTextParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TDimTextParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TDimTextParam.Get_sign: Integer; begin Result := DefaultInterface.sign; end; procedure TDimTextParam.Set_sign(Value: Integer); begin DefaultInterface.sign := Value; end; function TDimTextParam.Get_stringFlag: WordBool; begin Result := DefaultInterface.stringFlag; end; procedure TDimTextParam.Set_stringFlag(Value: WordBool); begin DefaultInterface.stringFlag := Value; end; function TDimTextParam.Get_bitFlag: Integer; begin Result := DefaultInterface.bitFlag; end; procedure TDimTextParam.Set_bitFlag(Value: Integer); begin DefaultInterface.bitFlag := Value; end; function TDimTextParam.Init(stringFlag: WordBool): WordBool; begin Result := DefaultInterface.Init(stringFlag); end; function TDimTextParam.GetBitFlagValue(bitFlag: Integer): WordBool; begin Result := DefaultInterface.GetBitFlagValue(bitFlag); end; function TDimTextParam.SetBitFlagValue(val: Integer; state: WordBool): WordBool; begin Result := DefaultInterface.SetBitFlagValue(val, state); end; function TDimTextParam.GetTextArr: IDispatch; begin Result := DefaultInterface.GetTextArr; end; function TDimTextParam.SetTextArr(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTextArr(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDimTextParamProperties.Create(AServer: TDimTextParam); begin inherited Create; FServer := AServer; end; function TDimTextParamProperties.GetDefaultInterface: ksDimTextParam; begin Result := FServer.DefaultInterface; end; function TDimTextParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TDimTextParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TDimTextParamProperties.Get_sign: Integer; begin Result := DefaultInterface.sign; end; procedure TDimTextParamProperties.Set_sign(Value: Integer); begin DefaultInterface.sign := Value; end; function TDimTextParamProperties.Get_stringFlag: WordBool; begin Result := DefaultInterface.stringFlag; end; procedure TDimTextParamProperties.Set_stringFlag(Value: WordBool); begin DefaultInterface.stringFlag := Value; end; function TDimTextParamProperties.Get_bitFlag: Integer; begin Result := DefaultInterface.bitFlag; end; procedure TDimTextParamProperties.Set_bitFlag(Value: Integer); begin DefaultInterface.bitFlag := Value; end; {$ENDIF} class function CoLDimSourceParam.Create: ksLDimSourceParam; begin Result := CreateComObject(CLASS_LDimSourceParam) as ksLDimSourceParam; end; class function CoLDimSourceParam.CreateRemote(const MachineName: string): ksLDimSourceParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LDimSourceParam) as ksLDimSourceParam; end; procedure TLDimSourceParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FD1-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FCF-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLDimSourceParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLDimSourceParam; end; end; procedure TLDimSourceParam.ConnectTo(svrIntf: ksLDimSourceParam); begin Disconnect; FIntf := svrIntf; end; procedure TLDimSourceParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLDimSourceParam.GetDefaultInterface: ksLDimSourceParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLDimSourceParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLDimSourceParamProperties.Create(Self); {$ENDIF} end; destructor TLDimSourceParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLDimSourceParam.GetServerProperties: TLDimSourceParamProperties; begin Result := FProps; end; {$ENDIF} function TLDimSourceParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TLDimSourceParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TLDimSourceParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TLDimSourceParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TLDimSourceParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TLDimSourceParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TLDimSourceParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TLDimSourceParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TLDimSourceParam.Get_dx: Double; begin Result := DefaultInterface.dx; end; procedure TLDimSourceParam.Set_dx(Value: Double); begin DefaultInterface.dx := Value; end; function TLDimSourceParam.Get_dy: Double; begin Result := DefaultInterface.dy; end; procedure TLDimSourceParam.Set_dy(Value: Double); begin DefaultInterface.dy := Value; end; function TLDimSourceParam.Get_ps: Smallint; begin Result := DefaultInterface.ps; end; procedure TLDimSourceParam.Set_ps(Value: Smallint); begin DefaultInterface.ps := Value; end; function TLDimSourceParam.Get_basePoint: Smallint; begin Result := DefaultInterface.basePoint; end; procedure TLDimSourceParam.Set_basePoint(Value: Smallint); begin DefaultInterface.basePoint := Value; end; function TLDimSourceParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLDimSourceParamProperties.Create(AServer: TLDimSourceParam); begin inherited Create; FServer := AServer; end; function TLDimSourceParamProperties.GetDefaultInterface: ksLDimSourceParam; begin Result := FServer.DefaultInterface; end; function TLDimSourceParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TLDimSourceParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TLDimSourceParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TLDimSourceParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TLDimSourceParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TLDimSourceParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TLDimSourceParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TLDimSourceParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TLDimSourceParamProperties.Get_dx: Double; begin Result := DefaultInterface.dx; end; procedure TLDimSourceParamProperties.Set_dx(Value: Double); begin DefaultInterface.dx := Value; end; function TLDimSourceParamProperties.Get_dy: Double; begin Result := DefaultInterface.dy; end; procedure TLDimSourceParamProperties.Set_dy(Value: Double); begin DefaultInterface.dy := Value; end; function TLDimSourceParamProperties.Get_ps: Smallint; begin Result := DefaultInterface.ps; end; procedure TLDimSourceParamProperties.Set_ps(Value: Smallint); begin DefaultInterface.ps := Value; end; function TLDimSourceParamProperties.Get_basePoint: Smallint; begin Result := DefaultInterface.basePoint; end; procedure TLDimSourceParamProperties.Set_basePoint(Value: Smallint); begin DefaultInterface.basePoint := Value; end; {$ENDIF} class function CoDimDrawingParam.Create: ksDimDrawingParam; begin Result := CreateComObject(CLASS_DimDrawingParam) as ksDimDrawingParam; end; class function CoDimDrawingParam.CreateRemote(const MachineName: string): ksDimDrawingParam; begin Result := CreateRemoteComObject(MachineName, CLASS_DimDrawingParam) as ksDimDrawingParam; end; procedure TDimDrawingParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FD4-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FD2-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDimDrawingParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDimDrawingParam; end; end; procedure TDimDrawingParam.ConnectTo(svrIntf: ksDimDrawingParam); begin Disconnect; FIntf := svrIntf; end; procedure TDimDrawingParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDimDrawingParam.GetDefaultInterface: ksDimDrawingParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDimDrawingParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDimDrawingParamProperties.Create(Self); {$ENDIF} end; destructor TDimDrawingParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDimDrawingParam.GetServerProperties: TDimDrawingParamProperties; begin Result := FProps; end; {$ENDIF} function TDimDrawingParam.Get_pl1: WordBool; begin Result := DefaultInterface.pl1; end; procedure TDimDrawingParam.Set_pl1(Value: WordBool); begin DefaultInterface.pl1 := Value; end; function TDimDrawingParam.Get_pl2: WordBool; begin Result := DefaultInterface.pl2; end; procedure TDimDrawingParam.Set_pl2(Value: WordBool); begin DefaultInterface.pl2 := Value; end; function TDimDrawingParam.Get_pt1: Smallint; begin Result := DefaultInterface.pt1; end; procedure TDimDrawingParam.Set_pt1(Value: Smallint); begin DefaultInterface.pt1 := Value; end; function TDimDrawingParam.Get_pt2: Smallint; begin Result := DefaultInterface.pt2; end; procedure TDimDrawingParam.Set_pt2(Value: Smallint); begin DefaultInterface.pt2 := Value; end; function TDimDrawingParam.Get_textPos: Integer; begin Result := DefaultInterface.textPos; end; procedure TDimDrawingParam.Set_textPos(Value: Integer); begin DefaultInterface.textPos := Value; end; function TDimDrawingParam.Get_textBase: Smallint; begin Result := DefaultInterface.textBase; end; procedure TDimDrawingParam.Set_textBase(Value: Smallint); begin DefaultInterface.textBase := Value; end; function TDimDrawingParam.Get_shelfDir: Integer; begin Result := DefaultInterface.shelfDir; end; procedure TDimDrawingParam.Set_shelfDir(Value: Integer); begin DefaultInterface.shelfDir := Value; end; function TDimDrawingParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TDimDrawingParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TDimDrawingParam.Get_lenght: Integer; begin Result := DefaultInterface.lenght; end; procedure TDimDrawingParam.Set_lenght(Value: Integer); begin DefaultInterface.lenght := Value; end; function TDimDrawingParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDimDrawingParamProperties.Create(AServer: TDimDrawingParam); begin inherited Create; FServer := AServer; end; function TDimDrawingParamProperties.GetDefaultInterface: ksDimDrawingParam; begin Result := FServer.DefaultInterface; end; function TDimDrawingParamProperties.Get_pl1: WordBool; begin Result := DefaultInterface.pl1; end; procedure TDimDrawingParamProperties.Set_pl1(Value: WordBool); begin DefaultInterface.pl1 := Value; end; function TDimDrawingParamProperties.Get_pl2: WordBool; begin Result := DefaultInterface.pl2; end; procedure TDimDrawingParamProperties.Set_pl2(Value: WordBool); begin DefaultInterface.pl2 := Value; end; function TDimDrawingParamProperties.Get_pt1: Smallint; begin Result := DefaultInterface.pt1; end; procedure TDimDrawingParamProperties.Set_pt1(Value: Smallint); begin DefaultInterface.pt1 := Value; end; function TDimDrawingParamProperties.Get_pt2: Smallint; begin Result := DefaultInterface.pt2; end; procedure TDimDrawingParamProperties.Set_pt2(Value: Smallint); begin DefaultInterface.pt2 := Value; end; function TDimDrawingParamProperties.Get_textPos: Integer; begin Result := DefaultInterface.textPos; end; procedure TDimDrawingParamProperties.Set_textPos(Value: Integer); begin DefaultInterface.textPos := Value; end; function TDimDrawingParamProperties.Get_textBase: Smallint; begin Result := DefaultInterface.textBase; end; procedure TDimDrawingParamProperties.Set_textBase(Value: Smallint); begin DefaultInterface.textBase := Value; end; function TDimDrawingParamProperties.Get_shelfDir: Integer; begin Result := DefaultInterface.shelfDir; end; procedure TDimDrawingParamProperties.Set_shelfDir(Value: Integer); begin DefaultInterface.shelfDir := Value; end; function TDimDrawingParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TDimDrawingParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TDimDrawingParamProperties.Get_lenght: Integer; begin Result := DefaultInterface.lenght; end; procedure TDimDrawingParamProperties.Set_lenght(Value: Integer); begin DefaultInterface.lenght := Value; end; {$ENDIF} class function CoLDimParam.Create: ksLDimParam; begin Result := CreateComObject(CLASS_LDimParam) as ksLDimParam; end; class function CoLDimParam.CreateRemote(const MachineName: string): ksLDimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LDimParam) as ksLDimParam; end; procedure TLDimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FD7-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FD5-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLDimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLDimParam; end; end; procedure TLDimParam.ConnectTo(svrIntf: ksLDimParam); begin Disconnect; FIntf := svrIntf; end; procedure TLDimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLDimParam.GetDefaultInterface: ksLDimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLDimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLDimParamProperties.Create(Self); {$ENDIF} end; destructor TLDimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLDimParam.GetServerProperties: TLDimParamProperties; begin Result := FProps; end; {$ENDIF} function TLDimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TLDimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TLDimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TLDimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TLDimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TLDimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLDimParamProperties.Create(AServer: TLDimParam); begin inherited Create; FServer := AServer; end; function TLDimParamProperties.GetDefaultInterface: ksLDimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoADimSourceParam.Create: ksADimSourceParam; begin Result := CreateComObject(CLASS_ADimSourceParam) as ksADimSourceParam; end; class function CoADimSourceParam.CreateRemote(const MachineName: string): ksADimSourceParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ADimSourceParam) as ksADimSourceParam; end; procedure TADimSourceParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FDA-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FD8-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TADimSourceParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksADimSourceParam; end; end; procedure TADimSourceParam.ConnectTo(svrIntf: ksADimSourceParam); begin Disconnect; FIntf := svrIntf; end; procedure TADimSourceParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TADimSourceParam.GetDefaultInterface: ksADimSourceParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TADimSourceParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TADimSourceParamProperties.Create(Self); {$ENDIF} end; destructor TADimSourceParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TADimSourceParam.GetServerProperties: TADimSourceParamProperties; begin Result := FProps; end; {$ENDIF} function TADimSourceParam.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TADimSourceParam.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TADimSourceParam.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TADimSourceParam.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TADimSourceParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TADimSourceParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TADimSourceParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TADimSourceParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TADimSourceParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TADimSourceParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TADimSourceParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TADimSourceParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TADimSourceParam.Get_ang1: Double; begin Result := DefaultInterface.ang1; end; procedure TADimSourceParam.Set_ang1(Value: Double); begin DefaultInterface.ang1 := Value; end; function TADimSourceParam.Get_ang2: Double; begin Result := DefaultInterface.ang2; end; procedure TADimSourceParam.Set_ang2(Value: Double); begin DefaultInterface.ang2 := Value; end; function TADimSourceParam.Get_dir: Integer; begin Result := DefaultInterface.dir; end; procedure TADimSourceParam.Set_dir(Value: Integer); begin DefaultInterface.dir := Value; end; function TADimSourceParam.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TADimSourceParam.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; function TADimSourceParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TADimSourceParamProperties.Create(AServer: TADimSourceParam); begin inherited Create; FServer := AServer; end; function TADimSourceParamProperties.GetDefaultInterface: ksADimSourceParam; begin Result := FServer.DefaultInterface; end; function TADimSourceParamProperties.Get_xc: Double; begin Result := DefaultInterface.xc; end; procedure TADimSourceParamProperties.Set_xc(Value: Double); begin DefaultInterface.xc := Value; end; function TADimSourceParamProperties.Get_yc: Double; begin Result := DefaultInterface.yc; end; procedure TADimSourceParamProperties.Set_yc(Value: Double); begin DefaultInterface.yc := Value; end; function TADimSourceParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TADimSourceParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TADimSourceParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TADimSourceParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TADimSourceParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TADimSourceParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TADimSourceParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TADimSourceParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TADimSourceParamProperties.Get_ang1: Double; begin Result := DefaultInterface.ang1; end; procedure TADimSourceParamProperties.Set_ang1(Value: Double); begin DefaultInterface.ang1 := Value; end; function TADimSourceParamProperties.Get_ang2: Double; begin Result := DefaultInterface.ang2; end; procedure TADimSourceParamProperties.Set_ang2(Value: Double); begin DefaultInterface.ang2 := Value; end; function TADimSourceParamProperties.Get_dir: Integer; begin Result := DefaultInterface.dir; end; procedure TADimSourceParamProperties.Set_dir(Value: Integer); begin DefaultInterface.dir := Value; end; function TADimSourceParamProperties.Get_rad: Double; begin Result := DefaultInterface.rad; end; procedure TADimSourceParamProperties.Set_rad(Value: Double); begin DefaultInterface.rad := Value; end; {$ENDIF} class function CoDimensionPartsParam.Create: ksDimensionPartsParam; begin Result := CreateComObject(CLASS_DimensionPartsParam) as ksDimensionPartsParam; end; class function CoDimensionPartsParam.CreateRemote(const MachineName: string): ksDimensionPartsParam; begin Result := CreateRemoteComObject(MachineName, CLASS_DimensionPartsParam) as ksDimensionPartsParam; end; procedure TDimensionPartsParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FDD-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FDB-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDimensionPartsParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDimensionPartsParam; end; end; procedure TDimensionPartsParam.ConnectTo(svrIntf: ksDimensionPartsParam); begin Disconnect; FIntf := svrIntf; end; procedure TDimensionPartsParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDimensionPartsParam.GetDefaultInterface: ksDimensionPartsParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDimensionPartsParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDimensionPartsParamProperties.Create(Self); {$ENDIF} end; destructor TDimensionPartsParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDimensionPartsParam.GetServerProperties: TDimensionPartsParamProperties; begin Result := FProps; end; {$ENDIF} function TDimensionPartsParam.Get_line1: Integer; begin Result := DefaultInterface.line1; end; procedure TDimensionPartsParam.Set_line1(Value: Integer); begin DefaultInterface.line1 := Value; end; function TDimensionPartsParam.Get_line2: Integer; begin Result := DefaultInterface.line2; end; procedure TDimensionPartsParam.Set_line2(Value: Integer); begin DefaultInterface.line2 := Value; end; function TDimensionPartsParam.Get_dimLine: Integer; begin Result := DefaultInterface.dimLine; end; procedure TDimensionPartsParam.Set_dimLine(Value: Integer); begin DefaultInterface.dimLine := Value; end; function TDimensionPartsParam.Get_dimLine1: Integer; begin Result := DefaultInterface.dimLine1; end; procedure TDimensionPartsParam.Set_dimLine1(Value: Integer); begin DefaultInterface.dimLine1 := Value; end; function TDimensionPartsParam.Get_leg: Integer; begin Result := DefaultInterface.leg; end; procedure TDimensionPartsParam.Set_leg(Value: Integer); begin DefaultInterface.leg := Value; end; function TDimensionPartsParam.Get_shelf: Integer; begin Result := DefaultInterface.shelf; end; procedure TDimensionPartsParam.Set_shelf(Value: Integer); begin DefaultInterface.shelf := Value; end; function TDimensionPartsParam.Get_gr: Integer; begin Result := DefaultInterface.gr; end; procedure TDimensionPartsParam.Set_gr(Value: Integer); begin DefaultInterface.gr := Value; end; function TDimensionPartsParam.Get_curveExt: Integer; begin Result := DefaultInterface.curveExt; end; procedure TDimensionPartsParam.Set_curveExt(Value: Integer); begin DefaultInterface.curveExt := Value; end; function TDimensionPartsParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDimensionPartsParamProperties.Create(AServer: TDimensionPartsParam); begin inherited Create; FServer := AServer; end; function TDimensionPartsParamProperties.GetDefaultInterface: ksDimensionPartsParam; begin Result := FServer.DefaultInterface; end; function TDimensionPartsParamProperties.Get_line1: Integer; begin Result := DefaultInterface.line1; end; procedure TDimensionPartsParamProperties.Set_line1(Value: Integer); begin DefaultInterface.line1 := Value; end; function TDimensionPartsParamProperties.Get_line2: Integer; begin Result := DefaultInterface.line2; end; procedure TDimensionPartsParamProperties.Set_line2(Value: Integer); begin DefaultInterface.line2 := Value; end; function TDimensionPartsParamProperties.Get_dimLine: Integer; begin Result := DefaultInterface.dimLine; end; procedure TDimensionPartsParamProperties.Set_dimLine(Value: Integer); begin DefaultInterface.dimLine := Value; end; function TDimensionPartsParamProperties.Get_dimLine1: Integer; begin Result := DefaultInterface.dimLine1; end; procedure TDimensionPartsParamProperties.Set_dimLine1(Value: Integer); begin DefaultInterface.dimLine1 := Value; end; function TDimensionPartsParamProperties.Get_leg: Integer; begin Result := DefaultInterface.leg; end; procedure TDimensionPartsParamProperties.Set_leg(Value: Integer); begin DefaultInterface.leg := Value; end; function TDimensionPartsParamProperties.Get_shelf: Integer; begin Result := DefaultInterface.shelf; end; procedure TDimensionPartsParamProperties.Set_shelf(Value: Integer); begin DefaultInterface.shelf := Value; end; function TDimensionPartsParamProperties.Get_gr: Integer; begin Result := DefaultInterface.gr; end; procedure TDimensionPartsParamProperties.Set_gr(Value: Integer); begin DefaultInterface.gr := Value; end; function TDimensionPartsParamProperties.Get_curveExt: Integer; begin Result := DefaultInterface.curveExt; end; procedure TDimensionPartsParamProperties.Set_curveExt(Value: Integer); begin DefaultInterface.curveExt := Value; end; {$ENDIF} class function CoADimParam.Create: ksADimParam; begin Result := CreateComObject(CLASS_ADimParam) as ksADimParam; end; class function CoADimParam.CreateRemote(const MachineName: string): ksADimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ADimParam) as ksADimParam; end; procedure TADimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FE0-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FDE-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TADimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksADimParam; end; end; procedure TADimParam.ConnectTo(svrIntf: ksADimParam); begin Disconnect; FIntf := svrIntf; end; procedure TADimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TADimParam.GetDefaultInterface: ksADimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TADimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TADimParamProperties.Create(Self); {$ENDIF} end; destructor TADimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TADimParam.GetServerProperties: TADimParamProperties; begin Result := FProps; end; {$ENDIF} function TADimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TADimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TADimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TADimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TADimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TADimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TADimParamProperties.Create(AServer: TADimParam); begin inherited Create; FServer := AServer; end; function TADimParamProperties.GetDefaultInterface: ksADimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoRBreakDrawingParam.Create: ksRBreakDrawingParam; begin Result := CreateComObject(CLASS_RBreakDrawingParam) as ksRBreakDrawingParam; end; class function CoRBreakDrawingParam.CreateRemote(const MachineName: string): ksRBreakDrawingParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RBreakDrawingParam) as ksRBreakDrawingParam; end; procedure TRBreakDrawingParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FE3-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FE1-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRBreakDrawingParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRBreakDrawingParam; end; end; procedure TRBreakDrawingParam.ConnectTo(svrIntf: ksRBreakDrawingParam); begin Disconnect; FIntf := svrIntf; end; procedure TRBreakDrawingParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRBreakDrawingParam.GetDefaultInterface: ksRBreakDrawingParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRBreakDrawingParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRBreakDrawingParamProperties.Create(Self); {$ENDIF} end; destructor TRBreakDrawingParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRBreakDrawingParam.GetServerProperties: TRBreakDrawingParamProperties; begin Result := FProps; end; {$ENDIF} function TRBreakDrawingParam.Get_pt: Smallint; begin Result := DefaultInterface.pt; end; procedure TRBreakDrawingParam.Set_pt(Value: Smallint); begin DefaultInterface.pt := Value; end; function TRBreakDrawingParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRBreakDrawingParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRBreakDrawingParam.Get_pb: Integer; begin Result := DefaultInterface.pb; end; procedure TRBreakDrawingParam.Set_pb(Value: Integer); begin DefaultInterface.pb := Value; end; function TRBreakDrawingParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRBreakDrawingParamProperties.Create(AServer: TRBreakDrawingParam); begin inherited Create; FServer := AServer; end; function TRBreakDrawingParamProperties.GetDefaultInterface: ksRBreakDrawingParam; begin Result := FServer.DefaultInterface; end; function TRBreakDrawingParamProperties.Get_pt: Smallint; begin Result := DefaultInterface.pt; end; procedure TRBreakDrawingParamProperties.Set_pt(Value: Smallint); begin DefaultInterface.pt := Value; end; function TRBreakDrawingParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TRBreakDrawingParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TRBreakDrawingParamProperties.Get_pb: Integer; begin Result := DefaultInterface.pb; end; procedure TRBreakDrawingParamProperties.Set_pb(Value: Integer); begin DefaultInterface.pb := Value; end; {$ENDIF} class function CoRBreakDimParam.Create: ksRBreakDimParam; begin Result := CreateComObject(CLASS_RBreakDimParam) as ksRBreakDimParam; end; class function CoRBreakDimParam.CreateRemote(const MachineName: string): ksRBreakDimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RBreakDimParam) as ksRBreakDimParam; end; procedure TRBreakDimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FE6-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FE4-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRBreakDimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRBreakDimParam; end; end; procedure TRBreakDimParam.ConnectTo(svrIntf: ksRBreakDimParam); begin Disconnect; FIntf := svrIntf; end; procedure TRBreakDimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRBreakDimParam.GetDefaultInterface: ksRBreakDimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRBreakDimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRBreakDimParamProperties.Create(Self); {$ENDIF} end; destructor TRBreakDimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRBreakDimParam.GetServerProperties: TRBreakDimParamProperties; begin Result := FProps; end; {$ENDIF} function TRBreakDimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TRBreakDimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TRBreakDimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TRBreakDimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TRBreakDimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TRBreakDimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRBreakDimParamProperties.Create(AServer: TRBreakDimParam); begin inherited Create; FServer := AServer; end; function TRBreakDimParamProperties.GetDefaultInterface: ksRBreakDimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoQualityItemParam.Create: ksQualityItemParam; begin Result := CreateComObject(CLASS_QualityItemParam) as ksQualityItemParam; end; class function CoQualityItemParam.CreateRemote(const MachineName: string): ksQualityItemParam; begin Result := CreateRemoteComObject(MachineName, CLASS_QualityItemParam) as ksQualityItemParam; end; procedure TQualityItemParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FE9-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FE7-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TQualityItemParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksQualityItemParam; end; end; procedure TQualityItemParam.ConnectTo(svrIntf: ksQualityItemParam); begin Disconnect; FIntf := svrIntf; end; procedure TQualityItemParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TQualityItemParam.GetDefaultInterface: ksQualityItemParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TQualityItemParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TQualityItemParamProperties.Create(Self); {$ENDIF} end; destructor TQualityItemParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TQualityItemParam.GetServerProperties: TQualityItemParamProperties; begin Result := FProps; end; {$ENDIF} function TQualityItemParam.Get_minLimit: Smallint; begin Result := DefaultInterface.minLimit; end; procedure TQualityItemParam.Set_minLimit(Value: Smallint); begin DefaultInterface.minLimit := Value; end; function TQualityItemParam.Get_maxLimit: Smallint; begin Result := DefaultInterface.maxLimit; end; procedure TQualityItemParam.Set_maxLimit(Value: Smallint); begin DefaultInterface.maxLimit := Value; end; function TQualityItemParam.Get_high: Double; begin Result := DefaultInterface.high; end; procedure TQualityItemParam.Set_high(Value: Double); begin DefaultInterface.high := Value; end; function TQualityItemParam.Get_low: Double; begin Result := DefaultInterface.low; end; procedure TQualityItemParam.Set_low(Value: Double); begin DefaultInterface.low := Value; end; function TQualityItemParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TQualityItemParamProperties.Create(AServer: TQualityItemParam); begin inherited Create; FServer := AServer; end; function TQualityItemParamProperties.GetDefaultInterface: ksQualityItemParam; begin Result := FServer.DefaultInterface; end; function TQualityItemParamProperties.Get_minLimit: Smallint; begin Result := DefaultInterface.minLimit; end; procedure TQualityItemParamProperties.Set_minLimit(Value: Smallint); begin DefaultInterface.minLimit := Value; end; function TQualityItemParamProperties.Get_maxLimit: Smallint; begin Result := DefaultInterface.maxLimit; end; procedure TQualityItemParamProperties.Set_maxLimit(Value: Smallint); begin DefaultInterface.maxLimit := Value; end; function TQualityItemParamProperties.Get_high: Double; begin Result := DefaultInterface.high; end; procedure TQualityItemParamProperties.Set_high(Value: Double); begin DefaultInterface.high := Value; end; function TQualityItemParamProperties.Get_low: Double; begin Result := DefaultInterface.low; end; procedure TQualityItemParamProperties.Set_low(Value: Double); begin DefaultInterface.low := Value; end; {$ENDIF} class function CoQualityContensParam.Create: ksQualityContensParam; begin Result := CreateComObject(CLASS_QualityContensParam) as ksQualityContensParam; end; class function CoQualityContensParam.CreateRemote(const MachineName: string): ksQualityContensParam; begin Result := CreateRemoteComObject(MachineName, CLASS_QualityContensParam) as ksQualityContensParam; end; procedure TQualityContensParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7F7D6FEC-97DA-11D6-8732-00C0262CDD2C}'; IntfIID: '{7F7D6FEA-97DA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TQualityContensParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksQualityContensParam; end; end; procedure TQualityContensParam.ConnectTo(svrIntf: ksQualityContensParam); begin Disconnect; FIntf := svrIntf; end; procedure TQualityContensParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TQualityContensParam.GetDefaultInterface: ksQualityContensParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TQualityContensParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TQualityContensParamProperties.Create(Self); {$ENDIF} end; destructor TQualityContensParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TQualityContensParam.GetServerProperties: TQualityContensParamProperties; begin Result := FProps; end; {$ENDIF} function TQualityContensParam.Get_systemQuality: Smallint; begin Result := DefaultInterface.systemQuality; end; procedure TQualityContensParam.Set_systemQuality(Value: Smallint); begin DefaultInterface.systemQuality := Value; end; function TQualityContensParam.Get_kindQuality: Smallint; begin Result := DefaultInterface.kindQuality; end; procedure TQualityContensParam.Set_kindQuality(Value: Smallint); begin DefaultInterface.kindQuality := Value; end; function TQualityContensParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TQualityContensParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TQualityContensParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TQualityContensParam.GetpQualityItems: IDispatch; begin Result := DefaultInterface.GetpQualityItems; end; function TQualityContensParam.SetpQualityItems(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetpQualityItems(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TQualityContensParamProperties.Create(AServer: TQualityContensParam); begin inherited Create; FServer := AServer; end; function TQualityContensParamProperties.GetDefaultInterface: ksQualityContensParam; begin Result := FServer.DefaultInterface; end; function TQualityContensParamProperties.Get_systemQuality: Smallint; begin Result := DefaultInterface.systemQuality; end; procedure TQualityContensParamProperties.Set_systemQuality(Value: Smallint); begin DefaultInterface.systemQuality := Value; end; function TQualityContensParamProperties.Get_kindQuality: Smallint; begin Result := DefaultInterface.kindQuality; end; procedure TQualityContensParamProperties.Set_kindQuality(Value: Smallint); begin DefaultInterface.kindQuality := Value; end; function TQualityContensParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TQualityContensParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; {$ENDIF} class function CoIterator.Create: ksIterator; begin Result := CreateComObject(CLASS_Iterator) as ksIterator; end; class function CoIterator.CreateRemote(const MachineName: string): ksIterator; begin Result := CreateRemoteComObject(MachineName, CLASS_Iterator) as ksIterator; end; procedure TIterator.InitServerData; const CServerData: TServerData = ( ClassID: '{D06C9103-98CA-11D6-8732-00C0262CDD2C}'; IntfIID: '{D06C9101-98CA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TIterator.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksIterator; end; end; procedure TIterator.ConnectTo(svrIntf: ksIterator); begin Disconnect; FIntf := svrIntf; end; procedure TIterator.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TIterator.GetDefaultInterface: ksIterator; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TIterator.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TIteratorProperties.Create(Self); {$ENDIF} end; destructor TIterator.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TIterator.GetServerProperties: TIteratorProperties; begin Result := FProps; end; {$ENDIF} function TIterator.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TIterator.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; function TIterator.ksCreateIterator(tipSeartch: Integer; parent: Integer): WordBool; begin Result := DefaultInterface.ksCreateIterator(tipSeartch, parent); end; function TIterator.ksMoveIterator(const ksMoveIterator: WideString): Integer; begin Result := DefaultInterface.ksMoveIterator(ksMoveIterator); end; function TIterator.ksCreateAttrIterator(obj: Integer; key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): WordBool; begin Result := DefaultInterface.ksCreateAttrIterator(obj, key1, key2, key3, key4, numb); end; function TIterator.ksMoveAttrIterator(const ch: WideString; var pObj: Integer): Integer; begin Result := DefaultInterface.ksMoveAttrIterator(ch, pObj); end; function TIterator.ksCreateSpcIterator(const nameLib: WideString; styleNumb: Integer; spcObjType: Integer): WordBool; begin Result := DefaultInterface.ksCreateSpcIterator(nameLib, styleNumb, spcObjType); end; function TIterator.ksCreateQualityIterator(system: Smallint; withLimitation: Smallint): WordBool; begin Result := DefaultInterface.ksCreateQualityIterator(system, withLimitation); end; function TIterator.ksMoveQualityIterator(const param: IDispatch; inMM: Smallint; const ch: WideString): WordBool; begin Result := DefaultInterface.ksMoveQualityIterator(param, inMM, ch); end; function TIterator.ksDeleteIterator: Integer; begin Result := DefaultInterface.ksDeleteIterator; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TIteratorProperties.Create(AServer: TIterator); begin inherited Create; FServer := AServer; end; function TIteratorProperties.GetDefaultInterface: ksIterator; begin Result := FServer.DefaultInterface; end; function TIteratorProperties.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TIteratorProperties.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; {$ENDIF} class function CoFragment.Create: ksFragment; begin Result := CreateComObject(CLASS_Fragment) as ksFragment; end; class function CoFragment.CreateRemote(const MachineName: string): ksFragment; begin Result := CreateRemoteComObject(MachineName, CLASS_Fragment) as ksFragment; end; procedure TFragment.InitServerData; const CServerData: TServerData = ( ClassID: '{D06C9106-98CA-11D6-8732-00C0262CDD2C}'; IntfIID: '{D06C9104-98CA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFragment.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFragment; end; end; procedure TFragment.ConnectTo(svrIntf: ksFragment); begin Disconnect; FIntf := svrIntf; end; procedure TFragment.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TFragment.GetDefaultInterface: ksFragment; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFragment.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFragmentProperties.Create(Self); {$ENDIF} end; destructor TFragment.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFragment.GetServerProperties: TFragmentProperties; begin Result := FProps; end; {$ENDIF} function TFragment.ksFragmentDefinition(const fileName: WideString; const comment: WideString; insertType: Smallint): Integer; begin Result := DefaultInterface.ksFragmentDefinition(fileName, comment, insertType); end; function TFragment.ksInsertFragment(p: Integer; curentLayer: WordBool; const par: IDispatch): Integer; begin Result := DefaultInterface.ksInsertFragment(p, curentLayer, par); end; function TFragment.ksReadFragment(const fileName: WideString; curentLayer: WordBool; const par: IDispatch): Integer; begin Result := DefaultInterface.ksReadFragment(fileName, curentLayer, par); end; function TFragment.ksReadFragmentToGroup(const fileName: WideString; curentLayer: WordBool; const par: IDispatch): Integer; begin Result := DefaultInterface.ksReadFragmentToGroup(fileName, curentLayer, par); end; function TFragment.ksReadFragmentToGroupEx(const fileName: WideString; curentLayer: WordBool; const par: IDispatch; scaleProjLinesSize: WordBool): Integer; begin Result := DefaultInterface.ksReadFragmentToGroupEx(fileName, curentLayer, par, scaleProjLinesSize); end; function TFragment.ksWriteFragment(gr: Integer; const fileName: WideString; const comment: WideString; xb: Double; yb: Double): Integer; begin Result := DefaultInterface.ksWriteFragment(gr, fileName, comment, xb, yb); end; function TFragment.ksLocalFragmentDefinition(const comment: WideString): Integer; begin Result := DefaultInterface.ksLocalFragmentDefinition(comment); end; function TFragment.ksCloseLocalFragmentDefinition: Integer; begin Result := DefaultInterface.ksCloseLocalFragmentDefinition; end; function TFragment.ksInsertFragmentEx(p: Integer; curentLayer: WordBool; const par: IDispatch; scaleProjLinesSize: WordBool): Integer; begin Result := DefaultInterface.ksInsertFragmentEx(p, curentLayer, par, scaleProjLinesSize); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFragmentProperties.Create(AServer: TFragment); begin inherited Create; FServer := AServer; end; function TFragmentProperties.GetDefaultInterface: ksFragment; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoFragmentLib.Create: ksFragmentLibrary; begin Result := CreateComObject(CLASS_FragmentLib) as ksFragmentLibrary; end; class function CoFragmentLib.CreateRemote(const MachineName: string): ksFragmentLibrary; begin Result := CreateRemoteComObject(MachineName, CLASS_FragmentLib) as ksFragmentLibrary; end; procedure TFragmentLib.InitServerData; const CServerData: TServerData = ( ClassID: '{D06C910C-98CA-11D6-8732-00C0262CDD2C}'; IntfIID: '{D06C910A-98CA-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFragmentLib.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFragmentLibrary; end; end; procedure TFragmentLib.ConnectTo(svrIntf: ksFragmentLibrary); begin Disconnect; FIntf := svrIntf; end; procedure TFragmentLib.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TFragmentLib.GetDefaultInterface: ksFragmentLibrary; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFragmentLib.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFragmentLibProperties.Create(Self); {$ENDIF} end; destructor TFragmentLib.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFragmentLib.GetServerProperties: TFragmentLibProperties; begin Result := FProps; end; {$ENDIF} function TFragmentLib.ksChoiceFragmentFromLib(const frwLibFile: WideString; var type_: Integer): WideString; begin Result := DefaultInterface.ksChoiceFragmentFromLib(frwLibFile, type_); end; function TFragmentLib.ksFragmentLibraryOperation(const libName: WideString; type_: Integer): Integer; begin Result := DefaultInterface.ksFragmentLibraryOperation(libName, type_); end; function TFragmentLib.ksAddFragmentToLibrary(const libName: WideString; const frwName: WideString): Integer; begin Result := DefaultInterface.ksAddFragmentToLibrary(libName, frwName); end; function TFragmentLib.ksCheckFragmentLibrary(const libName: WideString; possibleMessage: WordBool): Integer; begin Result := DefaultInterface.ksCheckFragmentLibrary(libName, possibleMessage); end; function TFragmentLib.ksExistFragmentInLibrary(const frwName: WideString): Integer; begin Result := DefaultInterface.ksExistFragmentInLibrary(frwName); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFragmentLibProperties.Create(AServer: TFragmentLib); begin inherited Create; FServer := AServer; end; function TFragmentLibProperties.GetDefaultInterface: ksFragmentLibrary; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoTechnicalDemandParam.Create: ksTechnicalDemandParam; begin Result := CreateComObject(CLASS_TechnicalDemandParam) as ksTechnicalDemandParam; end; class function CoTechnicalDemandParam.CreateRemote(const MachineName: string): ksTechnicalDemandParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TechnicalDemandParam) as ksTechnicalDemandParam; end; procedure TTechnicalDemandParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B83-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B81-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTechnicalDemandParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTechnicalDemandParam; end; end; procedure TTechnicalDemandParam.ConnectTo(svrIntf: ksTechnicalDemandParam); begin Disconnect; FIntf := svrIntf; end; procedure TTechnicalDemandParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTechnicalDemandParam.GetDefaultInterface: ksTechnicalDemandParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTechnicalDemandParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTechnicalDemandParamProperties.Create(Self); {$ENDIF} end; destructor TTechnicalDemandParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTechnicalDemandParam.GetServerProperties: TTechnicalDemandParamProperties; begin Result := FProps; end; {$ENDIF} function TTechnicalDemandParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TTechnicalDemandParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TTechnicalDemandParam.Get_strCount: Smallint; begin Result := DefaultInterface.strCount; end; procedure TTechnicalDemandParam.Set_strCount(Value: Smallint); begin DefaultInterface.strCount := Value; end; function TTechnicalDemandParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TTechnicalDemandParam.GetPGab: IDispatch; begin Result := DefaultInterface.GetPGab; end; function TTechnicalDemandParam.SetPGab(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetPGab(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTechnicalDemandParamProperties.Create(AServer: TTechnicalDemandParam); begin inherited Create; FServer := AServer; end; function TTechnicalDemandParamProperties.GetDefaultInterface: ksTechnicalDemandParam; begin Result := FServer.DefaultInterface; end; function TTechnicalDemandParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TTechnicalDemandParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TTechnicalDemandParamProperties.Get_strCount: Smallint; begin Result := DefaultInterface.strCount; end; procedure TTechnicalDemandParamProperties.Set_strCount(Value: Smallint); begin DefaultInterface.strCount := Value; end; {$ENDIF} class function CoOrdinatedSourceParam.Create: ksOrdinatedSourceParam; begin Result := CreateComObject(CLASS_OrdinatedSourceParam) as ksOrdinatedSourceParam; end; class function CoOrdinatedSourceParam.CreateRemote(const MachineName: string): ksOrdinatedSourceParam; begin Result := CreateRemoteComObject(MachineName, CLASS_OrdinatedSourceParam) as ksOrdinatedSourceParam; end; procedure TOrdinatedSourceParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B86-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B84-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOrdinatedSourceParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksOrdinatedSourceParam; end; end; procedure TOrdinatedSourceParam.ConnectTo(svrIntf: ksOrdinatedSourceParam); begin Disconnect; FIntf := svrIntf; end; procedure TOrdinatedSourceParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOrdinatedSourceParam.GetDefaultInterface: ksOrdinatedSourceParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOrdinatedSourceParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOrdinatedSourceParamProperties.Create(Self); {$ENDIF} end; destructor TOrdinatedSourceParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOrdinatedSourceParam.GetServerProperties: TOrdinatedSourceParamProperties; begin Result := FProps; end; {$ENDIF} function TOrdinatedSourceParam.Get_x0: Double; begin Result := DefaultInterface.x0; end; procedure TOrdinatedSourceParam.Set_x0(Value: Double); begin DefaultInterface.x0 := Value; end; function TOrdinatedSourceParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TOrdinatedSourceParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TOrdinatedSourceParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TOrdinatedSourceParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TOrdinatedSourceParam.Get_y0: Double; begin Result := DefaultInterface.y0; end; procedure TOrdinatedSourceParam.Set_y0(Value: Double); begin DefaultInterface.y0 := Value; end; function TOrdinatedSourceParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TOrdinatedSourceParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TOrdinatedSourceParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TOrdinatedSourceParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOrdinatedSourceParamProperties.Create(AServer: TOrdinatedSourceParam); begin inherited Create; FServer := AServer; end; function TOrdinatedSourceParamProperties.GetDefaultInterface: ksOrdinatedSourceParam; begin Result := FServer.DefaultInterface; end; function TOrdinatedSourceParamProperties.Get_x0: Double; begin Result := DefaultInterface.x0; end; procedure TOrdinatedSourceParamProperties.Set_x0(Value: Double); begin DefaultInterface.x0 := Value; end; function TOrdinatedSourceParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TOrdinatedSourceParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TOrdinatedSourceParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TOrdinatedSourceParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TOrdinatedSourceParamProperties.Get_y0: Double; begin Result := DefaultInterface.y0; end; procedure TOrdinatedSourceParamProperties.Set_y0(Value: Double); begin DefaultInterface.y0 := Value; end; function TOrdinatedSourceParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TOrdinatedSourceParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TOrdinatedSourceParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TOrdinatedSourceParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; {$ENDIF} class function CoOrdinatedDimParam.Create: ksOrdinatedDimParam; begin Result := CreateComObject(CLASS_OrdinatedDimParam) as ksOrdinatedDimParam; end; class function CoOrdinatedDimParam.CreateRemote(const MachineName: string): ksOrdinatedDimParam; begin Result := CreateRemoteComObject(MachineName, CLASS_OrdinatedDimParam) as ksOrdinatedDimParam; end; procedure TOrdinatedDimParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B89-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B87-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOrdinatedDimParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksOrdinatedDimParam; end; end; procedure TOrdinatedDimParam.ConnectTo(svrIntf: ksOrdinatedDimParam); begin Disconnect; FIntf := svrIntf; end; procedure TOrdinatedDimParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOrdinatedDimParam.GetDefaultInterface: ksOrdinatedDimParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOrdinatedDimParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOrdinatedDimParamProperties.Create(Self); {$ENDIF} end; destructor TOrdinatedDimParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOrdinatedDimParam.GetServerProperties: TOrdinatedDimParamProperties; begin Result := FProps; end; {$ENDIF} function TOrdinatedDimParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TOrdinatedDimParam.GetTPar: IDispatch; begin Result := DefaultInterface.GetTPar; end; function TOrdinatedDimParam.SetTPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetTPar(val); end; function TOrdinatedDimParam.GetDPar: IDispatch; begin Result := DefaultInterface.GetDPar; end; function TOrdinatedDimParam.SetDPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetDPar(val); end; function TOrdinatedDimParam.GetSPar: IDispatch; begin Result := DefaultInterface.GetSPar; end; function TOrdinatedDimParam.SetSPar(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetSPar(val); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOrdinatedDimParamProperties.Create(AServer: TOrdinatedDimParam); begin inherited Create; FServer := AServer; end; function TOrdinatedDimParamProperties.GetDefaultInterface: ksOrdinatedDimParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoOrdinatedDrawingParam.Create: ksOrdinatedDrawingParam; begin Result := CreateComObject(CLASS_OrdinatedDrawingParam) as ksOrdinatedDrawingParam; end; class function CoOrdinatedDrawingParam.CreateRemote(const MachineName: string): ksOrdinatedDrawingParam; begin Result := CreateRemoteComObject(MachineName, CLASS_OrdinatedDrawingParam) as ksOrdinatedDrawingParam; end; procedure TOrdinatedDrawingParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B8C-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B8A-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOrdinatedDrawingParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksOrdinatedDrawingParam; end; end; procedure TOrdinatedDrawingParam.ConnectTo(svrIntf: ksOrdinatedDrawingParam); begin Disconnect; FIntf := svrIntf; end; procedure TOrdinatedDrawingParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOrdinatedDrawingParam.GetDefaultInterface: ksOrdinatedDrawingParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOrdinatedDrawingParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOrdinatedDrawingParamProperties.Create(Self); {$ENDIF} end; destructor TOrdinatedDrawingParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOrdinatedDrawingParam.GetServerProperties: TOrdinatedDrawingParamProperties; begin Result := FProps; end; {$ENDIF} function TOrdinatedDrawingParam.Get_type_: Integer; begin Result := DefaultInterface.type_; end; procedure TOrdinatedDrawingParam.Set_type_(Value: Integer); begin DefaultInterface.type_ := Value; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOrdinatedDrawingParamProperties.Create(AServer: TOrdinatedDrawingParam); begin inherited Create; FServer := AServer; end; function TOrdinatedDrawingParamProperties.GetDefaultInterface: ksOrdinatedDrawingParam; begin Result := FServer.DefaultInterface; end; function TOrdinatedDrawingParamProperties.Get_type_: Integer; begin Result := DefaultInterface.type_; end; procedure TOrdinatedDrawingParamProperties.Set_type_(Value: Integer); begin DefaultInterface.type_ := Value; end; {$ENDIF} class function CoSheetSize.Create: ksSheetSize; begin Result := CreateComObject(CLASS_SheetSize) as ksSheetSize; end; class function CoSheetSize.CreateRemote(const MachineName: string): ksSheetSize; begin Result := CreateRemoteComObject(MachineName, CLASS_SheetSize) as ksSheetSize; end; procedure TSheetSize.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B8F-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B8D-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSheetSize.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSheetSize; end; end; procedure TSheetSize.ConnectTo(svrIntf: ksSheetSize); begin Disconnect; FIntf := svrIntf; end; procedure TSheetSize.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSheetSize.GetDefaultInterface: ksSheetSize; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSheetSize.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSheetSizeProperties.Create(Self); {$ENDIF} end; destructor TSheetSize.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSheetSize.GetServerProperties: TSheetSizeProperties; begin Result := FProps; end; {$ENDIF} function TSheetSize.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TSheetSize.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TSheetSize.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TSheetSize.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TSheetSize.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSheetSizeProperties.Create(AServer: TSheetSize); begin inherited Create; FServer := AServer; end; function TSheetSizeProperties.GetDefaultInterface: ksSheetSize; begin Result := FServer.DefaultInterface; end; function TSheetSizeProperties.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TSheetSizeProperties.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TSheetSizeProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TSheetSizeProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; {$ENDIF} class function CoStandartSheet.Create: ksStandartSheet; begin Result := CreateComObject(CLASS_StandartSheet) as ksStandartSheet; end; class function CoStandartSheet.CreateRemote(const MachineName: string): ksStandartSheet; begin Result := CreateRemoteComObject(MachineName, CLASS_StandartSheet) as ksStandartSheet; end; procedure TStandartSheet.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B92-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B90-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TStandartSheet.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksStandartSheet; end; end; procedure TStandartSheet.ConnectTo(svrIntf: ksStandartSheet); begin Disconnect; FIntf := svrIntf; end; procedure TStandartSheet.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TStandartSheet.GetDefaultInterface: ksStandartSheet; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TStandartSheet.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TStandartSheetProperties.Create(Self); {$ENDIF} end; destructor TStandartSheet.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TStandartSheet.GetServerProperties: TStandartSheetProperties; begin Result := FProps; end; {$ENDIF} function TStandartSheet.Get_format: Smallint; begin Result := DefaultInterface.format; end; procedure TStandartSheet.Set_format(Value: Smallint); begin DefaultInterface.format := Value; end; function TStandartSheet.Get_multiply: Smallint; begin Result := DefaultInterface.multiply; end; procedure TStandartSheet.Set_multiply(Value: Smallint); begin DefaultInterface.multiply := Value; end; function TStandartSheet.Get_direct: WordBool; begin Result := DefaultInterface.direct; end; procedure TStandartSheet.Set_direct(Value: WordBool); begin DefaultInterface.direct := Value; end; function TStandartSheet.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TStandartSheetProperties.Create(AServer: TStandartSheet); begin inherited Create; FServer := AServer; end; function TStandartSheetProperties.GetDefaultInterface: ksStandartSheet; begin Result := FServer.DefaultInterface; end; function TStandartSheetProperties.Get_format: Smallint; begin Result := DefaultInterface.format; end; procedure TStandartSheetProperties.Set_format(Value: Smallint); begin DefaultInterface.format := Value; end; function TStandartSheetProperties.Get_multiply: Smallint; begin Result := DefaultInterface.multiply; end; procedure TStandartSheetProperties.Set_multiply(Value: Smallint); begin DefaultInterface.multiply := Value; end; function TStandartSheetProperties.Get_direct: WordBool; begin Result := DefaultInterface.direct; end; procedure TStandartSheetProperties.Set_direct(Value: WordBool); begin DefaultInterface.direct := Value; end; {$ENDIF} class function CoSheetPar.Create: ksSheetPar; begin Result := CreateComObject(CLASS_SheetPar) as ksSheetPar; end; class function CoSheetPar.CreateRemote(const MachineName: string): ksSheetPar; begin Result := CreateRemoteComObject(MachineName, CLASS_SheetPar) as ksSheetPar; end; procedure TSheetPar.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B95-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B93-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSheetPar.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSheetPar; end; end; procedure TSheetPar.ConnectTo(svrIntf: ksSheetPar); begin Disconnect; FIntf := svrIntf; end; procedure TSheetPar.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSheetPar.GetDefaultInterface: ksSheetPar; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSheetPar.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSheetParProperties.Create(Self); {$ENDIF} end; destructor TSheetPar.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSheetPar.GetServerProperties: TSheetParProperties; begin Result := FProps; end; {$ENDIF} function TSheetPar.Get_layoutName: WideString; begin Result := DefaultInterface.layoutName; end; procedure TSheetPar.Set_layoutName(const Value: WideString); begin DefaultInterface.layoutName := Value; end; function TSheetPar.Get_shtType: Smallint; begin Result := DefaultInterface.shtType; end; procedure TSheetPar.Set_shtType(Value: Smallint); begin DefaultInterface.shtType := Value; end; function TSheetPar.Init: WordBool; begin Result := DefaultInterface.Init; end; function TSheetPar.GetSheetParam: IDispatch; begin Result := DefaultInterface.GetSheetParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSheetParProperties.Create(AServer: TSheetPar); begin inherited Create; FServer := AServer; end; function TSheetParProperties.GetDefaultInterface: ksSheetPar; begin Result := FServer.DefaultInterface; end; function TSheetParProperties.Get_layoutName: WideString; begin Result := DefaultInterface.layoutName; end; procedure TSheetParProperties.Set_layoutName(const Value: WideString); begin DefaultInterface.layoutName := Value; end; function TSheetParProperties.Get_shtType: Smallint; begin Result := DefaultInterface.shtType; end; procedure TSheetParProperties.Set_shtType(Value: Smallint); begin DefaultInterface.shtType := Value; end; {$ENDIF} class function CoDocumentParam.Create: ksDocumentParam; begin Result := CreateComObject(CLASS_DocumentParam) as ksDocumentParam; end; class function CoDocumentParam.CreateRemote(const MachineName: string): ksDocumentParam; begin Result := CreateRemoteComObject(MachineName, CLASS_DocumentParam) as ksDocumentParam; end; procedure TDocumentParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B98-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B96-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDocumentParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDocumentParam; end; end; procedure TDocumentParam.ConnectTo(svrIntf: ksDocumentParam); begin Disconnect; FIntf := svrIntf; end; procedure TDocumentParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDocumentParam.GetDefaultInterface: ksDocumentParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDocumentParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDocumentParamProperties.Create(Self); {$ENDIF} end; destructor TDocumentParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDocumentParam.GetServerProperties: TDocumentParamProperties; begin Result := FProps; end; {$ENDIF} function TDocumentParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TDocumentParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TDocumentParam.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TDocumentParam.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TDocumentParam.Get_author: WideString; begin Result := DefaultInterface.author; end; procedure TDocumentParam.Set_author(const Value: WideString); begin DefaultInterface.author := Value; end; function TDocumentParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TDocumentParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TDocumentParam.Get_regime: Smallint; begin Result := DefaultInterface.regime; end; procedure TDocumentParam.Set_regime(Value: Smallint); begin DefaultInterface.regime := Value; end; function TDocumentParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TDocumentParam.GetLayoutParam: IDispatch; begin Result := DefaultInterface.GetLayoutParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDocumentParamProperties.Create(AServer: TDocumentParam); begin inherited Create; FServer := AServer; end; function TDocumentParamProperties.GetDefaultInterface: ksDocumentParam; begin Result := FServer.DefaultInterface; end; function TDocumentParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TDocumentParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TDocumentParamProperties.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TDocumentParamProperties.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TDocumentParamProperties.Get_author: WideString; begin Result := DefaultInterface.author; end; procedure TDocumentParamProperties.Set_author(const Value: WideString); begin DefaultInterface.author := Value; end; function TDocumentParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TDocumentParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TDocumentParamProperties.Get_regime: Smallint; begin Result := DefaultInterface.regime; end; procedure TDocumentParamProperties.Set_regime(Value: Smallint); begin DefaultInterface.regime := Value; end; {$ENDIF} class function CoDimensionsOptions.Create: ksDimensionsOptions; begin Result := CreateComObject(CLASS_DimensionsOptions) as ksDimensionsOptions; end; class function CoDimensionsOptions.CreateRemote(const MachineName: string): ksDimensionsOptions; begin Result := CreateRemoteComObject(MachineName, CLASS_DimensionsOptions) as ksDimensionsOptions; end; procedure TDimensionsOptions.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B9B-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B99-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDimensionsOptions.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDimensionsOptions; end; end; procedure TDimensionsOptions.ConnectTo(svrIntf: ksDimensionsOptions); begin Disconnect; FIntf := svrIntf; end; procedure TDimensionsOptions.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDimensionsOptions.GetDefaultInterface: ksDimensionsOptions; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDimensionsOptions.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDimensionsOptionsProperties.Create(Self); {$ENDIF} end; destructor TDimensionsOptions.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDimensionsOptions.GetServerProperties: TDimensionsOptionsProperties; begin Result := FProps; end; {$ENDIF} function TDimensionsOptions.Get_proLineExtension: Double; begin Result := DefaultInterface.proLineExtension; end; procedure TDimensionsOptions.Set_proLineExtension(Value: Double); begin DefaultInterface.proLineExtension := Value; end; function TDimensionsOptions.Get_textDistanceFromDimLine: Double; begin Result := DefaultInterface.textDistanceFromDimLine; end; procedure TDimensionsOptions.Set_textDistanceFromDimLine(Value: Double); begin DefaultInterface.textDistanceFromDimLine := Value; end; function TDimensionsOptions.Get_textDistanceFromProLine: Double; begin Result := DefaultInterface.textDistanceFromProLine; end; procedure TDimensionsOptions.Set_textDistanceFromProLine(Value: Double); begin DefaultInterface.textDistanceFromProLine := Value; end; function TDimensionsOptions.Get_dimLineExtension: Double; begin Result := DefaultInterface.dimLineExtension; end; procedure TDimensionsOptions.Set_dimLineExtension(Value: Double); begin DefaultInterface.dimLineExtension := Value; end; function TDimensionsOptions.Get_arrowLength: Double; begin Result := DefaultInterface.arrowLength; end; procedure TDimensionsOptions.Set_arrowLength(Value: Double); begin DefaultInterface.arrowLength := Value; end; function TDimensionsOptions.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TDimensionsOptions.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TDimensionsOptions.Get_decimalsCount: Smallint; begin Result := DefaultInterface.decimalsCount; end; procedure TDimensionsOptions.Set_decimalsCount(Value: Smallint); begin DefaultInterface.decimalsCount := Value; end; function TDimensionsOptions.Get_anglePrecisionLevel: Integer; begin Result := DefaultInterface.anglePrecisionLevel; end; procedure TDimensionsOptions.Set_anglePrecisionLevel(Value: Integer); begin DefaultInterface.anglePrecisionLevel := Value; end; function TDimensionsOptions.Get_hiddenToleranceNumber: Integer; begin Result := DefaultInterface.hiddenToleranceNumber; end; procedure TDimensionsOptions.Set_hiddenToleranceNumber(Value: Integer); begin DefaultInterface.hiddenToleranceNumber := Value; end; function TDimensionsOptions.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDimensionsOptionsProperties.Create(AServer: TDimensionsOptions); begin inherited Create; FServer := AServer; end; function TDimensionsOptionsProperties.GetDefaultInterface: ksDimensionsOptions; begin Result := FServer.DefaultInterface; end; function TDimensionsOptionsProperties.Get_proLineExtension: Double; begin Result := DefaultInterface.proLineExtension; end; procedure TDimensionsOptionsProperties.Set_proLineExtension(Value: Double); begin DefaultInterface.proLineExtension := Value; end; function TDimensionsOptionsProperties.Get_textDistanceFromDimLine: Double; begin Result := DefaultInterface.textDistanceFromDimLine; end; procedure TDimensionsOptionsProperties.Set_textDistanceFromDimLine(Value: Double); begin DefaultInterface.textDistanceFromDimLine := Value; end; function TDimensionsOptionsProperties.Get_textDistanceFromProLine: Double; begin Result := DefaultInterface.textDistanceFromProLine; end; procedure TDimensionsOptionsProperties.Set_textDistanceFromProLine(Value: Double); begin DefaultInterface.textDistanceFromProLine := Value; end; function TDimensionsOptionsProperties.Get_dimLineExtension: Double; begin Result := DefaultInterface.dimLineExtension; end; procedure TDimensionsOptionsProperties.Set_dimLineExtension(Value: Double); begin DefaultInterface.dimLineExtension := Value; end; function TDimensionsOptionsProperties.Get_arrowLength: Double; begin Result := DefaultInterface.arrowLength; end; procedure TDimensionsOptionsProperties.Set_arrowLength(Value: Double); begin DefaultInterface.arrowLength := Value; end; function TDimensionsOptionsProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TDimensionsOptionsProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TDimensionsOptionsProperties.Get_decimalsCount: Smallint; begin Result := DefaultInterface.decimalsCount; end; procedure TDimensionsOptionsProperties.Set_decimalsCount(Value: Smallint); begin DefaultInterface.decimalsCount := Value; end; function TDimensionsOptionsProperties.Get_anglePrecisionLevel: Integer; begin Result := DefaultInterface.anglePrecisionLevel; end; procedure TDimensionsOptionsProperties.Set_anglePrecisionLevel(Value: Integer); begin DefaultInterface.anglePrecisionLevel := Value; end; function TDimensionsOptionsProperties.Get_hiddenToleranceNumber: Integer; begin Result := DefaultInterface.hiddenToleranceNumber; end; procedure TDimensionsOptionsProperties.Set_hiddenToleranceNumber(Value: Integer); begin DefaultInterface.hiddenToleranceNumber := Value; end; {$ENDIF} class function CoSnapOptions.Create: ksSnapOptions; begin Result := CreateComObject(CLASS_SnapOptions) as ksSnapOptions; end; class function CoSnapOptions.CreateRemote(const MachineName: string): ksSnapOptions; begin Result := CreateRemoteComObject(MachineName, CLASS_SnapOptions) as ksSnapOptions; end; procedure TSnapOptions.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5B9E-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B9C-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSnapOptions.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSnapOptions; end; end; procedure TSnapOptions.ConnectTo(svrIntf: ksSnapOptions); begin Disconnect; FIntf := svrIntf; end; procedure TSnapOptions.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSnapOptions.GetDefaultInterface: ksSnapOptions; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSnapOptions.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSnapOptionsProperties.Create(Self); {$ENDIF} end; destructor TSnapOptions.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSnapOptions.GetServerProperties: TSnapOptionsProperties; begin Result := FProps; end; {$ENDIF} function TSnapOptions.Get_nearestPoint: WordBool; begin Result := DefaultInterface.nearestPoint; end; procedure TSnapOptions.Set_nearestPoint(Value: WordBool); begin DefaultInterface.nearestPoint := Value; end; function TSnapOptions.Get_nearestMiddle: WordBool; begin Result := DefaultInterface.nearestMiddle; end; procedure TSnapOptions.Set_nearestMiddle(Value: WordBool); begin DefaultInterface.nearestMiddle := Value; end; function TSnapOptions.Get_intersect: WordBool; begin Result := DefaultInterface.intersect; end; procedure TSnapOptions.Set_intersect(Value: WordBool); begin DefaultInterface.intersect := Value; end; function TSnapOptions.Get_tangentToCurve: WordBool; begin Result := DefaultInterface.tangentToCurve; end; procedure TSnapOptions.Set_tangentToCurve(Value: WordBool); begin DefaultInterface.tangentToCurve := Value; end; function TSnapOptions.Get_normalToCurve: WordBool; begin Result := DefaultInterface.normalToCurve; end; procedure TSnapOptions.Set_normalToCurve(Value: WordBool); begin DefaultInterface.normalToCurve := Value; end; function TSnapOptions.Get_grid: WordBool; begin Result := DefaultInterface.grid; end; procedure TSnapOptions.Set_grid(Value: WordBool); begin DefaultInterface.grid := Value; end; function TSnapOptions.Get_xyAlign: WordBool; begin Result := DefaultInterface.xyAlign; end; procedure TSnapOptions.Set_xyAlign(Value: WordBool); begin DefaultInterface.xyAlign := Value; end; function TSnapOptions.Get_angSnap: WordBool; begin Result := DefaultInterface.angSnap; end; procedure TSnapOptions.Set_angSnap(Value: WordBool); begin DefaultInterface.angSnap := Value; end; function TSnapOptions.Get_pointOnCurve: WordBool; begin Result := DefaultInterface.pointOnCurve; end; procedure TSnapOptions.Set_pointOnCurve(Value: WordBool); begin DefaultInterface.pointOnCurve := Value; end; function TSnapOptions.Get_commonOpt: Integer; begin Result := DefaultInterface.commonOpt; end; procedure TSnapOptions.Set_commonOpt(Value: Integer); begin DefaultInterface.commonOpt := Value; end; function TSnapOptions.Get_angleStep: Double; begin Result := DefaultInterface.angleStep; end; procedure TSnapOptions.Set_angleStep(Value: Double); begin DefaultInterface.angleStep := Value; end; function TSnapOptions.Get_localSnap: Smallint; begin Result := DefaultInterface.localSnap; end; procedure TSnapOptions.Set_localSnap(Value: Smallint); begin DefaultInterface.localSnap := Value; end; function TSnapOptions.Init: WordBool; begin Result := DefaultInterface.Init; end; function TSnapOptions.GetCommonOptValue(val: Integer): WordBool; begin Result := DefaultInterface.GetCommonOptValue(val); end; function TSnapOptions.SetCommonOptValue(val: Integer; state: WordBool): WordBool; begin Result := DefaultInterface.SetCommonOptValue(val, state); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSnapOptionsProperties.Create(AServer: TSnapOptions); begin inherited Create; FServer := AServer; end; function TSnapOptionsProperties.GetDefaultInterface: ksSnapOptions; begin Result := FServer.DefaultInterface; end; function TSnapOptionsProperties.Get_nearestPoint: WordBool; begin Result := DefaultInterface.nearestPoint; end; procedure TSnapOptionsProperties.Set_nearestPoint(Value: WordBool); begin DefaultInterface.nearestPoint := Value; end; function TSnapOptionsProperties.Get_nearestMiddle: WordBool; begin Result := DefaultInterface.nearestMiddle; end; procedure TSnapOptionsProperties.Set_nearestMiddle(Value: WordBool); begin DefaultInterface.nearestMiddle := Value; end; function TSnapOptionsProperties.Get_intersect: WordBool; begin Result := DefaultInterface.intersect; end; procedure TSnapOptionsProperties.Set_intersect(Value: WordBool); begin DefaultInterface.intersect := Value; end; function TSnapOptionsProperties.Get_tangentToCurve: WordBool; begin Result := DefaultInterface.tangentToCurve; end; procedure TSnapOptionsProperties.Set_tangentToCurve(Value: WordBool); begin DefaultInterface.tangentToCurve := Value; end; function TSnapOptionsProperties.Get_normalToCurve: WordBool; begin Result := DefaultInterface.normalToCurve; end; procedure TSnapOptionsProperties.Set_normalToCurve(Value: WordBool); begin DefaultInterface.normalToCurve := Value; end; function TSnapOptionsProperties.Get_grid: WordBool; begin Result := DefaultInterface.grid; end; procedure TSnapOptionsProperties.Set_grid(Value: WordBool); begin DefaultInterface.grid := Value; end; function TSnapOptionsProperties.Get_xyAlign: WordBool; begin Result := DefaultInterface.xyAlign; end; procedure TSnapOptionsProperties.Set_xyAlign(Value: WordBool); begin DefaultInterface.xyAlign := Value; end; function TSnapOptionsProperties.Get_angSnap: WordBool; begin Result := DefaultInterface.angSnap; end; procedure TSnapOptionsProperties.Set_angSnap(Value: WordBool); begin DefaultInterface.angSnap := Value; end; function TSnapOptionsProperties.Get_pointOnCurve: WordBool; begin Result := DefaultInterface.pointOnCurve; end; procedure TSnapOptionsProperties.Set_pointOnCurve(Value: WordBool); begin DefaultInterface.pointOnCurve := Value; end; function TSnapOptionsProperties.Get_commonOpt: Integer; begin Result := DefaultInterface.commonOpt; end; procedure TSnapOptionsProperties.Set_commonOpt(Value: Integer); begin DefaultInterface.commonOpt := Value; end; function TSnapOptionsProperties.Get_angleStep: Double; begin Result := DefaultInterface.angleStep; end; procedure TSnapOptionsProperties.Set_angleStep(Value: Double); begin DefaultInterface.angleStep := Value; end; function TSnapOptionsProperties.Get_localSnap: Smallint; begin Result := DefaultInterface.localSnap; end; procedure TSnapOptionsProperties.Set_localSnap(Value: Smallint); begin DefaultInterface.localSnap := Value; end; {$ENDIF} class function CoLibraryStyleParam.Create: ksLibraryStyleParam; begin Result := CreateComObject(CLASS_LibraryStyleParam) as ksLibraryStyleParam; end; class function CoLibraryStyleParam.CreateRemote(const MachineName: string): ksLibraryStyleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LibraryStyleParam) as ksLibraryStyleParam; end; procedure TLibraryStyleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5BA1-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5B9F-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLibraryStyleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLibraryStyleParam; end; end; procedure TLibraryStyleParam.ConnectTo(svrIntf: ksLibraryStyleParam); begin Disconnect; FIntf := svrIntf; end; procedure TLibraryStyleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLibraryStyleParam.GetDefaultInterface: ksLibraryStyleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLibraryStyleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLibraryStyleParamProperties.Create(Self); {$ENDIF} end; destructor TLibraryStyleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLibraryStyleParam.GetServerProperties: TLibraryStyleParamProperties; begin Result := FProps; end; {$ENDIF} function TLibraryStyleParam.Get_styleName: WideString; begin Result := DefaultInterface.styleName; end; procedure TLibraryStyleParam.Set_styleName(const Value: WideString); begin DefaultInterface.styleName := Value; end; function TLibraryStyleParam.Get_styleId: Integer; begin Result := DefaultInterface.styleId; end; procedure TLibraryStyleParam.Set_styleId(Value: Integer); begin DefaultInterface.styleId := Value; end; function TLibraryStyleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLibraryStyleParamProperties.Create(AServer: TLibraryStyleParam); begin inherited Create; FServer := AServer; end; function TLibraryStyleParamProperties.GetDefaultInterface: ksLibraryStyleParam; begin Result := FServer.DefaultInterface; end; function TLibraryStyleParamProperties.Get_styleName: WideString; begin Result := DefaultInterface.styleName; end; procedure TLibraryStyleParamProperties.Set_styleName(const Value: WideString); begin DefaultInterface.styleName := Value; end; function TLibraryStyleParamProperties.Get_styleId: Integer; begin Result := DefaultInterface.styleId; end; procedure TLibraryStyleParamProperties.Set_styleId(Value: Integer); begin DefaultInterface.styleId := Value; end; {$ENDIF} class function CoStamp.Create: ksStamp; begin Result := CreateComObject(CLASS_Stamp) as ksStamp; end; class function CoStamp.CreateRemote(const MachineName: string): ksStamp; begin Result := CreateRemoteComObject(MachineName, CLASS_Stamp) as ksStamp; end; procedure TStamp.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5BA7-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5BA5-996C-11D6-8732-00C0262CDD2C}'; EventIID: '{404E7D5A-A13F-4CFF-8214-FEA7012110CB}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TStamp.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as ksStamp; end; end; procedure TStamp.ConnectTo(svrIntf: ksStamp); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TStamp.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TStamp.GetDefaultInterface: ksStamp; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TStamp.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TStampProperties.Create(Self); {$ENDIF} end; destructor TStamp.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TStamp.GetServerProperties: TStampProperties; begin Result := FProps; end; {$ENDIF} procedure TStamp.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginEditStamp) then FOnBeginEditStamp(Self); 2: if Assigned(FOnEndEditStamp) then FOnEndEditStamp(Self, Params[0] {WordBool}); 3: if Assigned(FOnStampCellDblClick) then FOnStampCellDblClick(Self, Params[0] {Integer}); 4: if Assigned(FOnStampCellBeginEdit) then FOnStampCellBeginEdit(Self, Params[0] {Integer}); end; {case DispID} end; function TStamp.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TStamp.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; function TStamp.ksOpenStamp: Integer; begin Result := DefaultInterface.ksOpenStamp; end; function TStamp.ksCloseStamp: Integer; begin Result := DefaultInterface.ksCloseStamp; end; function TStamp.ksClearStamp(numb: Integer): Integer; begin Result := DefaultInterface.ksClearStamp(numb); end; function TStamp.ksGetStampColumnText(var numb: Integer): IDispatch; begin Result := DefaultInterface.ksGetStampColumnText(numb); end; function TStamp.ksSetStampColumnText(numb: Integer; const textArr: IDispatch): Integer; begin Result := DefaultInterface.ksSetStampColumnText(numb, textArr); end; function TStamp.ksColumnNumber(numb: Integer): Integer; begin Result := DefaultInterface.ksColumnNumber(numb); end; function TStamp.ksTextLine(const textItem: IDispatch): Integer; begin Result := DefaultInterface.ksTextLine(textItem); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TStampProperties.Create(AServer: TStamp); begin inherited Create; FServer := AServer; end; function TStampProperties.GetDefaultInterface: ksStamp; begin Result := FServer.DefaultInterface; end; function TStampProperties.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TStampProperties.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; {$ENDIF} class function CoSheetOptions.Create: ksSheetOptions; begin Result := CreateComObject(CLASS_SheetOptions) as ksSheetOptions; end; class function CoSheetOptions.CreateRemote(const MachineName: string): ksSheetOptions; begin Result := CreateRemoteComObject(MachineName, CLASS_SheetOptions) as ksSheetOptions; end; procedure TSheetOptions.InitServerData; const CServerData: TServerData = ( ClassID: '{FBCC5BAA-996C-11D6-8732-00C0262CDD2C}'; IntfIID: '{FBCC5BA8-996C-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSheetOptions.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSheetOptions; end; end; procedure TSheetOptions.ConnectTo(svrIntf: ksSheetOptions); begin Disconnect; FIntf := svrIntf; end; procedure TSheetOptions.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSheetOptions.GetDefaultInterface: ksSheetOptions; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSheetOptions.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSheetOptionsProperties.Create(Self); {$ENDIF} end; destructor TSheetOptions.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSheetOptions.GetServerProperties: TSheetOptionsProperties; begin Result := FProps; end; {$ENDIF} function TSheetOptions.Get_shtType: Smallint; begin Result := DefaultInterface.shtType; end; procedure TSheetOptions.Set_shtType(Value: Smallint); begin DefaultInterface.shtType := Value; end; function TSheetOptions.Get_layoutName: WideString; begin Result := DefaultInterface.layoutName; end; procedure TSheetOptions.Set_layoutName(const Value: WideString); begin DefaultInterface.layoutName := Value; end; function TSheetOptions.Get_sheetType: WordBool; begin Result := DefaultInterface.sheetType; end; procedure TSheetOptions.Set_sheetType(Value: WordBool); begin DefaultInterface.sheetType := Value; end; function TSheetOptions.Init: WordBool; begin Result := DefaultInterface.Init; end; function TSheetOptions.GetSheetParam(type_: WordBool): IDispatch; begin Result := DefaultInterface.GetSheetParam(type_); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSheetOptionsProperties.Create(AServer: TSheetOptions); begin inherited Create; FServer := AServer; end; function TSheetOptionsProperties.GetDefaultInterface: ksSheetOptions; begin Result := FServer.DefaultInterface; end; function TSheetOptionsProperties.Get_shtType: Smallint; begin Result := DefaultInterface.shtType; end; procedure TSheetOptionsProperties.Set_shtType(Value: Smallint); begin DefaultInterface.shtType := Value; end; function TSheetOptionsProperties.Get_layoutName: WideString; begin Result := DefaultInterface.layoutName; end; procedure TSheetOptionsProperties.Set_layoutName(const Value: WideString); begin DefaultInterface.layoutName := Value; end; function TSheetOptionsProperties.Get_sheetType: WordBool; begin Result := DefaultInterface.sheetType; end; procedure TSheetOptionsProperties.Set_sheetType(Value: WordBool); begin DefaultInterface.sheetType := Value; end; {$ENDIF} class function CoCurvePatternEx.Create: ksCurvePatternEx; begin Result := CreateComObject(CLASS_CurvePatternEx) as ksCurvePatternEx; end; class function CoCurvePatternEx.CreateRemote(const MachineName: string): ksCurvePatternEx; begin Result := CreateRemoteComObject(MachineName, CLASS_CurvePatternEx) as ksCurvePatternEx; end; procedure TCurvePatternEx.InitServerData; const CServerData: TServerData = ( ClassID: '{910EC54B-958D-11D6-95CE-00C0262D30E3}'; IntfIID: '{910EC549-958D-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurvePatternEx.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurvePatternEx; end; end; procedure TCurvePatternEx.ConnectTo(svrIntf: ksCurvePatternEx); begin Disconnect; FIntf := svrIntf; end; procedure TCurvePatternEx.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurvePatternEx.GetDefaultInterface: ksCurvePatternEx; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurvePatternEx.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurvePatternExProperties.Create(Self); {$ENDIF} end; destructor TCurvePatternEx.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurvePatternEx.GetServerProperties: TCurvePatternExProperties; begin Result := FProps; end; {$ENDIF} function TCurvePatternEx.Get_visibleSeg: Double; begin Result := DefaultInterface.visibleSeg; end; procedure TCurvePatternEx.Set_visibleSeg(Value: Double); begin DefaultInterface.visibleSeg := Value; end; function TCurvePatternEx.Get_invisibleSeg: Double; begin Result := DefaultInterface.invisibleSeg; end; procedure TCurvePatternEx.Set_invisibleSeg(Value: Double); begin DefaultInterface.invisibleSeg := Value; end; function TCurvePatternEx.Get_dx: Double; begin Result := DefaultInterface.dx; end; procedure TCurvePatternEx.Set_dx(Value: Double); begin DefaultInterface.dx := Value; end; function TCurvePatternEx.Get_dy: Double; begin Result := DefaultInterface.dy; end; procedure TCurvePatternEx.Set_dy(Value: Double); begin DefaultInterface.dy := Value; end; function TCurvePatternEx.Get_pictureType: Smallint; begin Result := DefaultInterface.pictureType; end; procedure TCurvePatternEx.Set_pictureType(Value: Smallint); begin DefaultInterface.pictureType := Value; end; function TCurvePatternEx.Get_frwName: WideString; begin Result := DefaultInterface.frwName; end; procedure TCurvePatternEx.Set_frwName(const Value: WideString); begin DefaultInterface.frwName := Value; end; function TCurvePatternEx.Init: WordBool; begin Result := DefaultInterface.Init; end; function TCurvePatternEx.GetCurvePicture: IDispatch; begin Result := DefaultInterface.GetCurvePicture; end; function TCurvePatternEx.SetCurvePicture(const picture: IDispatch): WordBool; begin Result := DefaultInterface.SetCurvePicture(picture); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurvePatternExProperties.Create(AServer: TCurvePatternEx); begin inherited Create; FServer := AServer; end; function TCurvePatternExProperties.GetDefaultInterface: ksCurvePatternEx; begin Result := FServer.DefaultInterface; end; function TCurvePatternExProperties.Get_visibleSeg: Double; begin Result := DefaultInterface.visibleSeg; end; procedure TCurvePatternExProperties.Set_visibleSeg(Value: Double); begin DefaultInterface.visibleSeg := Value; end; function TCurvePatternExProperties.Get_invisibleSeg: Double; begin Result := DefaultInterface.invisibleSeg; end; procedure TCurvePatternExProperties.Set_invisibleSeg(Value: Double); begin DefaultInterface.invisibleSeg := Value; end; function TCurvePatternExProperties.Get_dx: Double; begin Result := DefaultInterface.dx; end; procedure TCurvePatternExProperties.Set_dx(Value: Double); begin DefaultInterface.dx := Value; end; function TCurvePatternExProperties.Get_dy: Double; begin Result := DefaultInterface.dy; end; procedure TCurvePatternExProperties.Set_dy(Value: Double); begin DefaultInterface.dy := Value; end; function TCurvePatternExProperties.Get_pictureType: Smallint; begin Result := DefaultInterface.pictureType; end; procedure TCurvePatternExProperties.Set_pictureType(Value: Smallint); begin DefaultInterface.pictureType := Value; end; function TCurvePatternExProperties.Get_frwName: WideString; begin Result := DefaultInterface.frwName; end; procedure TCurvePatternExProperties.Set_frwName(const Value: WideString); begin DefaultInterface.frwName := Value; end; {$ENDIF} class function CoCurveStyleParam.Create: ksCurveStyleParam; begin Result := CreateComObject(CLASS_CurveStyleParam) as ksCurveStyleParam; end; class function CoCurveStyleParam.CreateRemote(const MachineName: string): ksCurveStyleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CurveStyleParam) as ksCurveStyleParam; end; procedure TCurveStyleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{910EC54E-958D-11D6-95CE-00C0262D30E3}'; IntfIID: '{910EC54C-958D-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurveStyleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurveStyleParam; end; end; procedure TCurveStyleParam.ConnectTo(svrIntf: ksCurveStyleParam); begin Disconnect; FIntf := svrIntf; end; procedure TCurveStyleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurveStyleParam.GetDefaultInterface: ksCurveStyleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurveStyleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurveStyleParamProperties.Create(Self); {$ENDIF} end; destructor TCurveStyleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurveStyleParam.GetServerProperties: TCurveStyleParamProperties; begin Result := FProps; end; {$ENDIF} function TCurveStyleParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TCurveStyleParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TCurveStyleParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TCurveStyleParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TCurveStyleParam.Get_paperWidth: Double; begin Result := DefaultInterface.paperWidth; end; procedure TCurveStyleParam.Set_paperWidth(Value: Double); begin DefaultInterface.paperWidth := Value; end; function TCurveStyleParam.Get_screenWidth: Smallint; begin Result := DefaultInterface.screenWidth; end; procedure TCurveStyleParam.Set_screenWidth(Value: Smallint); begin DefaultInterface.screenWidth := Value; end; function TCurveStyleParam.Get_curveType: Smallint; begin Result := DefaultInterface.curveType; end; procedure TCurveStyleParam.Set_curveType(Value: Smallint); begin DefaultInterface.curveType := Value; end; function TCurveStyleParam.Get_even: Smallint; begin Result := DefaultInterface.even; end; procedure TCurveStyleParam.Set_even(Value: Smallint); begin DefaultInterface.even := Value; end; function TCurveStyleParam.GetPPattern(type_: Integer): IDispatch; begin Result := DefaultInterface.GetPPattern(type_); end; function TCurveStyleParam.SetPPattern(const pattern: IDispatch): WordBool; begin Result := DefaultInterface.SetPPattern(pattern); end; function TCurveStyleParam.SetPropertyCurve(val: Integer; state: WordBool): WordBool; begin Result := DefaultInterface.SetPropertyCurve(val, state); end; function TCurveStyleParam.GetPropertyCurve(val: Integer): WordBool; begin Result := DefaultInterface.GetPropertyCurve(val); end; function TCurveStyleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurveStyleParamProperties.Create(AServer: TCurveStyleParam); begin inherited Create; FServer := AServer; end; function TCurveStyleParamProperties.GetDefaultInterface: ksCurveStyleParam; begin Result := FServer.DefaultInterface; end; function TCurveStyleParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TCurveStyleParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TCurveStyleParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TCurveStyleParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TCurveStyleParamProperties.Get_paperWidth: Double; begin Result := DefaultInterface.paperWidth; end; procedure TCurveStyleParamProperties.Set_paperWidth(Value: Double); begin DefaultInterface.paperWidth := Value; end; function TCurveStyleParamProperties.Get_screenWidth: Smallint; begin Result := DefaultInterface.screenWidth; end; procedure TCurveStyleParamProperties.Set_screenWidth(Value: Smallint); begin DefaultInterface.screenWidth := Value; end; function TCurveStyleParamProperties.Get_curveType: Smallint; begin Result := DefaultInterface.curveType; end; procedure TCurveStyleParamProperties.Set_curveType(Value: Smallint); begin DefaultInterface.curveType := Value; end; function TCurveStyleParamProperties.Get_even: Smallint; begin Result := DefaultInterface.even; end; procedure TCurveStyleParamProperties.Set_even(Value: Smallint); begin DefaultInterface.even := Value; end; {$ENDIF} class function CoTextStyleParam.Create: ksTextStyleParam; begin Result := CreateComObject(CLASS_TextStyleParam) as ksTextStyleParam; end; class function CoTextStyleParam.CreateRemote(const MachineName: string): ksTextStyleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TextStyleParam) as ksTextStyleParam; end; procedure TTextStyleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E26-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E24-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTextStyleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTextStyleParam; end; end; procedure TTextStyleParam.ConnectTo(svrIntf: ksTextStyleParam); begin Disconnect; FIntf := svrIntf; end; procedure TTextStyleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTextStyleParam.GetDefaultInterface: ksTextStyleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTextStyleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTextStyleParamProperties.Create(Self); {$ENDIF} end; destructor TTextStyleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTextStyleParam.GetServerProperties: TTextStyleParamProperties; begin Result := FProps; end; {$ENDIF} function TTextStyleParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TTextStyleParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TTextStyleParam.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TTextStyleParam.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TTextStyleParam.Get_ksu: Double; begin Result := DefaultInterface.ksu; end; procedure TTextStyleParam.Set_ksu(Value: Double); begin DefaultInterface.ksu := Value; end; function TTextStyleParam.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TTextStyleParam.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TTextStyleParam.Get_fontName: WideString; begin Result := DefaultInterface.fontName; end; procedure TTextStyleParam.Set_fontName(const Value: WideString); begin DefaultInterface.fontName := Value; end; function TTextStyleParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TTextStyleParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TTextStyleParam.Get_align: Smallint; begin Result := DefaultInterface.align; end; procedure TTextStyleParam.Set_align(Value: Smallint); begin DefaultInterface.align := Value; end; function TTextStyleParam.Get_bold: Smallint; begin Result := DefaultInterface.bold; end; procedure TTextStyleParam.Set_bold(Value: Smallint); begin DefaultInterface.bold := Value; end; function TTextStyleParam.Get_italic: Smallint; begin Result := DefaultInterface.italic; end; procedure TTextStyleParam.Set_italic(Value: Smallint); begin DefaultInterface.italic := Value; end; function TTextStyleParam.Get_underline: Smallint; begin Result := DefaultInterface.underline; end; procedure TTextStyleParam.Set_underline(Value: Smallint); begin DefaultInterface.underline := Value; end; function TTextStyleParam.Get_posKS: Double; begin Result := DefaultInterface.posKS; end; procedure TTextStyleParam.Set_posKS(Value: Double); begin DefaultInterface.posKS := Value; end; function TTextStyleParam.Get_stepParPre: Double; begin Result := DefaultInterface.stepParPre; end; procedure TTextStyleParam.Set_stepParPre(Value: Double); begin DefaultInterface.stepParPre := Value; end; function TTextStyleParam.Get_stepParPst: Double; begin Result := DefaultInterface.stepParPst; end; procedure TTextStyleParam.Set_stepParPst(Value: Double); begin DefaultInterface.stepParPst := Value; end; function TTextStyleParam.Get_leftEdge: Double; begin Result := DefaultInterface.leftEdge; end; procedure TTextStyleParam.Set_leftEdge(Value: Double); begin DefaultInterface.leftEdge := Value; end; function TTextStyleParam.Get_rightEdge: Double; begin Result := DefaultInterface.rightEdge; end; procedure TTextStyleParam.Set_rightEdge(Value: Double); begin DefaultInterface.rightEdge := Value; end; function TTextStyleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTextStyleParamProperties.Create(AServer: TTextStyleParam); begin inherited Create; FServer := AServer; end; function TTextStyleParamProperties.GetDefaultInterface: ksTextStyleParam; begin Result := FServer.DefaultInterface; end; function TTextStyleParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TTextStyleParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TTextStyleParamProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TTextStyleParamProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TTextStyleParamProperties.Get_ksu: Double; begin Result := DefaultInterface.ksu; end; procedure TTextStyleParamProperties.Set_ksu(Value: Double); begin DefaultInterface.ksu := Value; end; function TTextStyleParamProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TTextStyleParamProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TTextStyleParamProperties.Get_fontName: WideString; begin Result := DefaultInterface.fontName; end; procedure TTextStyleParamProperties.Set_fontName(const Value: WideString); begin DefaultInterface.fontName := Value; end; function TTextStyleParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TTextStyleParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TTextStyleParamProperties.Get_align: Smallint; begin Result := DefaultInterface.align; end; procedure TTextStyleParamProperties.Set_align(Value: Smallint); begin DefaultInterface.align := Value; end; function TTextStyleParamProperties.Get_bold: Smallint; begin Result := DefaultInterface.bold; end; procedure TTextStyleParamProperties.Set_bold(Value: Smallint); begin DefaultInterface.bold := Value; end; function TTextStyleParamProperties.Get_italic: Smallint; begin Result := DefaultInterface.italic; end; procedure TTextStyleParamProperties.Set_italic(Value: Smallint); begin DefaultInterface.italic := Value; end; function TTextStyleParamProperties.Get_underline: Smallint; begin Result := DefaultInterface.underline; end; procedure TTextStyleParamProperties.Set_underline(Value: Smallint); begin DefaultInterface.underline := Value; end; function TTextStyleParamProperties.Get_posKS: Double; begin Result := DefaultInterface.posKS; end; procedure TTextStyleParamProperties.Set_posKS(Value: Double); begin DefaultInterface.posKS := Value; end; function TTextStyleParamProperties.Get_stepParPre: Double; begin Result := DefaultInterface.stepParPre; end; procedure TTextStyleParamProperties.Set_stepParPre(Value: Double); begin DefaultInterface.stepParPre := Value; end; function TTextStyleParamProperties.Get_stepParPst: Double; begin Result := DefaultInterface.stepParPst; end; procedure TTextStyleParamProperties.Set_stepParPst(Value: Double); begin DefaultInterface.stepParPst := Value; end; function TTextStyleParamProperties.Get_leftEdge: Double; begin Result := DefaultInterface.leftEdge; end; procedure TTextStyleParamProperties.Set_leftEdge(Value: Double); begin DefaultInterface.leftEdge := Value; end; function TTextStyleParamProperties.Get_rightEdge: Double; begin Result := DefaultInterface.rightEdge; end; procedure TTextStyleParamProperties.Set_rightEdge(Value: Double); begin DefaultInterface.rightEdge := Value; end; {$ENDIF} class function CoHatchLineParam.Create: ksHatchLineParam; begin Result := CreateComObject(CLASS_HatchLineParam) as ksHatchLineParam; end; class function CoHatchLineParam.CreateRemote(const MachineName: string): ksHatchLineParam; begin Result := CreateRemoteComObject(MachineName, CLASS_HatchLineParam) as ksHatchLineParam; end; procedure THatchLineParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E29-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E27-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure THatchLineParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksHatchLineParam; end; end; procedure THatchLineParam.ConnectTo(svrIntf: ksHatchLineParam); begin Disconnect; FIntf := svrIntf; end; procedure THatchLineParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function THatchLineParam.GetDefaultInterface: ksHatchLineParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor THatchLineParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := THatchLineParamProperties.Create(Self); {$ENDIF} end; destructor THatchLineParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function THatchLineParam.GetServerProperties: THatchLineParamProperties; begin Result := FProps; end; {$ENDIF} function THatchLineParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure THatchLineParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function THatchLineParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure THatchLineParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function THatchLineParam.Get_dx: Double; begin Result := DefaultInterface.dx; end; procedure THatchLineParam.Set_dx(Value: Double); begin DefaultInterface.dx := Value; end; function THatchLineParam.Get_dy: Double; begin Result := DefaultInterface.dy; end; procedure THatchLineParam.Set_dy(Value: Double); begin DefaultInterface.dy := Value; end; function THatchLineParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure THatchLineParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function THatchLineParam.Get_typeCurvStyle: Smallint; begin Result := DefaultInterface.typeCurvStyle; end; procedure THatchLineParam.Set_typeCurvStyle(Value: Smallint); begin DefaultInterface.typeCurvStyle := Value; end; function THatchLineParam.Get_style: Smallint; begin Result := DefaultInterface.style; end; procedure THatchLineParam.Set_style(Value: Smallint); begin DefaultInterface.style := Value; end; function THatchLineParam.GetCurPar: IDispatch; begin Result := DefaultInterface.GetCurPar; end; function THatchLineParam.SetCurPar(const curPar: IDispatch): WordBool; begin Result := DefaultInterface.SetCurPar(curPar); end; function THatchLineParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor THatchLineParamProperties.Create(AServer: THatchLineParam); begin inherited Create; FServer := AServer; end; function THatchLineParamProperties.GetDefaultInterface: ksHatchLineParam; begin Result := FServer.DefaultInterface; end; function THatchLineParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure THatchLineParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function THatchLineParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure THatchLineParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function THatchLineParamProperties.Get_dx: Double; begin Result := DefaultInterface.dx; end; procedure THatchLineParamProperties.Set_dx(Value: Double); begin DefaultInterface.dx := Value; end; function THatchLineParamProperties.Get_dy: Double; begin Result := DefaultInterface.dy; end; procedure THatchLineParamProperties.Set_dy(Value: Double); begin DefaultInterface.dy := Value; end; function THatchLineParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure THatchLineParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function THatchLineParamProperties.Get_typeCurvStyle: Smallint; begin Result := DefaultInterface.typeCurvStyle; end; procedure THatchLineParamProperties.Set_typeCurvStyle(Value: Smallint); begin DefaultInterface.typeCurvStyle := Value; end; function THatchLineParamProperties.Get_style: Smallint; begin Result := DefaultInterface.style; end; procedure THatchLineParamProperties.Set_style(Value: Smallint); begin DefaultInterface.style := Value; end; {$ENDIF} class function CoHatchStyleParam.Create: ksHatchStyleParam; begin Result := CreateComObject(CLASS_HatchStyleParam) as ksHatchStyleParam; end; class function CoHatchStyleParam.CreateRemote(const MachineName: string): ksHatchStyleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_HatchStyleParam) as ksHatchStyleParam; end; procedure THatchStyleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E2C-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E2A-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure THatchStyleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksHatchStyleParam; end; end; procedure THatchStyleParam.ConnectTo(svrIntf: ksHatchStyleParam); begin Disconnect; FIntf := svrIntf; end; procedure THatchStyleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function THatchStyleParam.GetDefaultInterface: ksHatchStyleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor THatchStyleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := THatchStyleParamProperties.Create(Self); {$ENDIF} end; destructor THatchStyleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function THatchStyleParam.GetServerProperties: THatchStyleParamProperties; begin Result := FProps; end; {$ENDIF} function THatchStyleParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure THatchStyleParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function THatchStyleParam.Get_step: Double; begin Result := DefaultInterface.step; end; procedure THatchStyleParam.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function THatchStyleParam.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure THatchStyleParam.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function THatchStyleParam.Get_width: Double; begin Result := DefaultInterface.width; end; procedure THatchStyleParam.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function THatchStyleParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure THatchStyleParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function THatchStyleParam.Get_mayChangeAngle: Smallint; begin Result := DefaultInterface.mayChangeAngle; end; procedure THatchStyleParam.Set_mayChangeAngle(Value: Smallint); begin DefaultInterface.mayChangeAngle := Value; end; function THatchStyleParam.Get_mayChangeWidth: Smallint; begin Result := DefaultInterface.mayChangeWidth; end; procedure THatchStyleParam.Set_mayChangeWidth(Value: Smallint); begin DefaultInterface.mayChangeWidth := Value; end; function THatchStyleParam.Get_mayChangeSpace: Smallint; begin Result := DefaultInterface.mayChangeSpace; end; procedure THatchStyleParam.Set_mayChangeSpace(Value: Smallint); begin DefaultInterface.mayChangeSpace := Value; end; function THatchStyleParam.Get_isScalable: Smallint; begin Result := DefaultInterface.isScalable; end; procedure THatchStyleParam.Set_isScalable(Value: Smallint); begin DefaultInterface.isScalable := Value; end; function THatchStyleParam.GetRefPoint: IDispatch; begin Result := DefaultInterface.GetRefPoint; end; function THatchStyleParam.SetRefPoint(const refPoint: IDispatch): WordBool; begin Result := DefaultInterface.SetRefPoint(refPoint); end; function THatchStyleParam.GetArrLineParam: IDispatch; begin Result := DefaultInterface.GetArrLineParam; end; function THatchStyleParam.SetArrLineParam(const arrLineParam: IDispatch): WordBool; begin Result := DefaultInterface.SetArrLineParam(arrLineParam); end; function THatchStyleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor THatchStyleParamProperties.Create(AServer: THatchStyleParam); begin inherited Create; FServer := AServer; end; function THatchStyleParamProperties.GetDefaultInterface: ksHatchStyleParam; begin Result := FServer.DefaultInterface; end; function THatchStyleParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure THatchStyleParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function THatchStyleParamProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure THatchStyleParamProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function THatchStyleParamProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure THatchStyleParamProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function THatchStyleParamProperties.Get_width: Double; begin Result := DefaultInterface.width; end; procedure THatchStyleParamProperties.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function THatchStyleParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure THatchStyleParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function THatchStyleParamProperties.Get_mayChangeAngle: Smallint; begin Result := DefaultInterface.mayChangeAngle; end; procedure THatchStyleParamProperties.Set_mayChangeAngle(Value: Smallint); begin DefaultInterface.mayChangeAngle := Value; end; function THatchStyleParamProperties.Get_mayChangeWidth: Smallint; begin Result := DefaultInterface.mayChangeWidth; end; procedure THatchStyleParamProperties.Set_mayChangeWidth(Value: Smallint); begin DefaultInterface.mayChangeWidth := Value; end; function THatchStyleParamProperties.Get_mayChangeSpace: Smallint; begin Result := DefaultInterface.mayChangeSpace; end; procedure THatchStyleParamProperties.Set_mayChangeSpace(Value: Smallint); begin DefaultInterface.mayChangeSpace := Value; end; function THatchStyleParamProperties.Get_isScalable: Smallint; begin Result := DefaultInterface.isScalable; end; procedure THatchStyleParamProperties.Set_isScalable(Value: Smallint); begin DefaultInterface.isScalable := Value; end; {$ENDIF} class function CoRectParam.Create: ksRectParam; begin Result := CreateComObject(CLASS_RectParam) as ksRectParam; end; class function CoRectParam.CreateRemote(const MachineName: string): ksRectParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RectParam) as ksRectParam; end; procedure TRectParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E2F-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E2D-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRectParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRectParam; end; end; procedure TRectParam.ConnectTo(svrIntf: ksRectParam); begin Disconnect; FIntf := svrIntf; end; procedure TRectParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRectParam.GetDefaultInterface: ksRectParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRectParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRectParamProperties.Create(Self); {$ENDIF} end; destructor TRectParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRectParam.GetServerProperties: TRectParamProperties; begin Result := FProps; end; {$ENDIF} function TRectParam.GetpBot: IDispatch; begin Result := DefaultInterface.GetpBot; end; function TRectParam.SetpBot(const pBot: IDispatch): WordBool; begin Result := DefaultInterface.SetpBot(pBot); end; function TRectParam.GetpTop: IDispatch; begin Result := DefaultInterface.GetpTop; end; function TRectParam.SetpTop(const pTop: IDispatch): WordBool; begin Result := DefaultInterface.SetpTop(pTop); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRectParamProperties.Create(AServer: TRectParam); begin inherited Create; FServer := AServer; end; function TRectParamProperties.GetDefaultInterface: ksRectParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoShelfPar.Create: ksShelfPar; begin Result := CreateComObject(CLASS_ShelfPar) as ksShelfPar; end; class function CoShelfPar.CreateRemote(const MachineName: string): ksShelfPar; begin Result := CreateRemoteComObject(MachineName, CLASS_ShelfPar) as ksShelfPar; end; procedure TShelfPar.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E32-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E30-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TShelfPar.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksShelfPar; end; end; procedure TShelfPar.ConnectTo(svrIntf: ksShelfPar); begin Disconnect; FIntf := svrIntf; end; procedure TShelfPar.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TShelfPar.GetDefaultInterface: ksShelfPar; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TShelfPar.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TShelfParProperties.Create(Self); {$ENDIF} end; destructor TShelfPar.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TShelfPar.GetServerProperties: TShelfParProperties; begin Result := FProps; end; {$ENDIF} function TShelfPar.Get_psh: Integer; begin Result := DefaultInterface.psh; end; procedure TShelfPar.Set_psh(Value: Integer); begin DefaultInterface.psh := Value; end; function TShelfPar.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TShelfPar.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TShelfPar.Get_length: Integer; begin Result := DefaultInterface.length; end; procedure TShelfPar.Set_length(Value: Integer); begin DefaultInterface.length := Value; end; function TShelfPar.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TShelfParProperties.Create(AServer: TShelfPar); begin inherited Create; FServer := AServer; end; function TShelfParProperties.GetDefaultInterface: ksShelfPar; begin Result := FServer.DefaultInterface; end; function TShelfParProperties.Get_psh: Integer; begin Result := DefaultInterface.psh; end; procedure TShelfParProperties.Set_psh(Value: Integer); begin DefaultInterface.psh := Value; end; function TShelfParProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TShelfParProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TShelfParProperties.Get_length: Integer; begin Result := DefaultInterface.length; end; procedure TShelfParProperties.Set_length(Value: Integer); begin DefaultInterface.length := Value; end; {$ENDIF} class function CoroughPar.Create: ksRoughPar; begin Result := CreateComObject(CLASS_roughPar) as ksRoughPar; end; class function CoroughPar.CreateRemote(const MachineName: string): ksRoughPar; begin Result := CreateRemoteComObject(MachineName, CLASS_roughPar) as ksRoughPar; end; procedure TroughPar.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E35-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E33-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TroughPar.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRoughPar; end; end; procedure TroughPar.ConnectTo(svrIntf: ksRoughPar); begin Disconnect; FIntf := svrIntf; end; procedure TroughPar.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TroughPar.GetDefaultInterface: ksRoughPar; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TroughPar.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TroughParProperties.Create(Self); {$ENDIF} end; destructor TroughPar.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TroughPar.GetServerProperties: TroughParProperties; begin Result := FProps; end; {$ENDIF} function TroughPar.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TroughPar.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TroughPar.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TroughPar.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TroughPar.Get_around: Smallint; begin Result := DefaultInterface.around; end; procedure TroughPar.Set_around(Value: Smallint); begin DefaultInterface.around := Value; end; function TroughPar.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TroughPar.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TroughPar.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TroughPar.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TroughPar.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TroughPar.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TroughPar.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TroughPar.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TroughPar.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TroughPar.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TroughPar.Get_cText2: Smallint; begin Result := DefaultInterface.cText2; end; procedure TroughPar.Set_cText2(Value: Smallint); begin DefaultInterface.cText2 := Value; end; function TroughPar.Get_cText3: Smallint; begin Result := DefaultInterface.cText3; end; procedure TroughPar.Set_cText3(Value: Smallint); begin DefaultInterface.cText3 := Value; end; function TroughPar.GetpText: IDispatch; begin Result := DefaultInterface.GetpText; end; function TroughPar.SetpText(const pText: IDispatch): WordBool; begin Result := DefaultInterface.SetpText(pText); end; function TroughPar.Init: WordBool; begin Result := DefaultInterface.Init; end; function TroughPar.InitEx(style: Integer): WordBool; begin Result := DefaultInterface.InitEx(style); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TroughParProperties.Create(AServer: TroughPar); begin inherited Create; FServer := AServer; end; function TroughParProperties.GetDefaultInterface: ksRoughPar; begin Result := FServer.DefaultInterface; end; function TroughParProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TroughParProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TroughParProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TroughParProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TroughParProperties.Get_around: Smallint; begin Result := DefaultInterface.around; end; procedure TroughParProperties.Set_around(Value: Smallint); begin DefaultInterface.around := Value; end; function TroughParProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TroughParProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TroughParProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TroughParProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TroughParProperties.Get_ang: Double; begin Result := DefaultInterface.ang; end; procedure TroughParProperties.Set_ang(Value: Double); begin DefaultInterface.ang := Value; end; function TroughParProperties.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TroughParProperties.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TroughParProperties.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TroughParProperties.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TroughParProperties.Get_cText2: Smallint; begin Result := DefaultInterface.cText2; end; procedure TroughParProperties.Set_cText2(Value: Smallint); begin DefaultInterface.cText2 := Value; end; function TroughParProperties.Get_cText3: Smallint; begin Result := DefaultInterface.cText3; end; procedure TroughParProperties.Set_cText3(Value: Smallint); begin DefaultInterface.cText3 := Value; end; {$ENDIF} class function CoRoughParam.Create: ksRoughParam; begin Result := CreateComObject(CLASS_RoughParam) as ksRoughParam; end; class function CoRoughParam.CreateRemote(const MachineName: string): ksRoughParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RoughParam) as ksRoughParam; end; procedure TRoughParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E38-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E36-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRoughParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRoughParam; end; end; procedure TRoughParam.ConnectTo(svrIntf: ksRoughParam); begin Disconnect; FIntf := svrIntf; end; procedure TRoughParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRoughParam.GetDefaultInterface: ksRoughParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRoughParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRoughParamProperties.Create(Self); {$ENDIF} end; destructor TRoughParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRoughParam.GetServerProperties: TRoughParamProperties; begin Result := FProps; end; {$ENDIF} function TRoughParam.GetrPar: IDispatch; begin Result := DefaultInterface.GetrPar; end; function TRoughParam.SetrPar(const par: IDispatch): WordBool; begin Result := DefaultInterface.SetrPar(par); end; function TRoughParam.GetshPar: IDispatch; begin Result := DefaultInterface.GetshPar; end; function TRoughParam.SetshPar(const shPar: IDispatch): WordBool; begin Result := DefaultInterface.SetshPar(shPar); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRoughParamProperties.Create(AServer: TRoughParam); begin inherited Create; FServer := AServer; end; function TRoughParamProperties.GetDefaultInterface: ksRoughParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoChar255.Create: ksChar255; begin Result := CreateComObject(CLASS_Char255) as ksChar255; end; class function CoChar255.CreateRemote(const MachineName: string): ksChar255; begin Result := CreateRemoteComObject(MachineName, CLASS_Char255) as ksChar255; end; procedure TChar255.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E3B-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E39-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TChar255.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksChar255; end; end; procedure TChar255.ConnectTo(svrIntf: ksChar255); begin Disconnect; FIntf := svrIntf; end; procedure TChar255.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TChar255.GetDefaultInterface: ksChar255; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TChar255.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TChar255Properties.Create(Self); {$ENDIF} end; destructor TChar255.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TChar255.GetServerProperties: TChar255Properties; begin Result := FProps; end; {$ENDIF} function TChar255.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TChar255.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; function TChar255.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TChar255Properties.Create(AServer: TChar255); begin inherited Create; FServer := AServer; end; function TChar255Properties.GetDefaultInterface: ksChar255; begin Result := FServer.DefaultInterface; end; function TChar255Properties.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TChar255Properties.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; {$ENDIF} class function CoLeaderParam.Create: ksLeaderParam; begin Result := CreateComObject(CLASS_LeaderParam) as ksLeaderParam; end; class function CoLeaderParam.CreateRemote(const MachineName: string): ksLeaderParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LeaderParam) as ksLeaderParam; end; procedure TLeaderParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E42-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E40-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLeaderParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLeaderParam; end; end; procedure TLeaderParam.ConnectTo(svrIntf: ksLeaderParam); begin Disconnect; FIntf := svrIntf; end; procedure TLeaderParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLeaderParam.GetDefaultInterface: ksLeaderParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLeaderParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLeaderParamProperties.Create(Self); {$ENDIF} end; destructor TLeaderParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLeaderParam.GetServerProperties: TLeaderParamProperties; begin Result := FProps; end; {$ENDIF} function TLeaderParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TLeaderParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TLeaderParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TLeaderParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TLeaderParam.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TLeaderParam.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TLeaderParam.Get_dirX: Integer; begin Result := DefaultInterface.dirX; end; procedure TLeaderParam.Set_dirX(Value: Integer); begin DefaultInterface.dirX := Value; end; function TLeaderParam.Get_signType: Smallint; begin Result := DefaultInterface.signType; end; procedure TLeaderParam.Set_signType(Value: Smallint); begin DefaultInterface.signType := Value; end; function TLeaderParam.Get_around: Smallint; begin Result := DefaultInterface.around; end; procedure TLeaderParam.Set_around(Value: Smallint); begin DefaultInterface.around := Value; end; function TLeaderParam.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TLeaderParam.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TLeaderParam.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TLeaderParam.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TLeaderParam.Get_cText2: Smallint; begin Result := DefaultInterface.cText2; end; procedure TLeaderParam.Set_cText2(Value: Smallint); begin DefaultInterface.cText2 := Value; end; function TLeaderParam.Get_cText3: Smallint; begin Result := DefaultInterface.cText3; end; procedure TLeaderParam.Set_cText3(Value: Smallint); begin DefaultInterface.cText3 := Value; end; function TLeaderParam.GetpTextline: IDispatch; begin Result := DefaultInterface.GetpTextline; end; function TLeaderParam.SetpTextline(const pTextLine: IDispatch): WordBool; begin Result := DefaultInterface.SetpTextline(pTextLine); end; function TLeaderParam.GetpPolyline: IDispatch; begin Result := DefaultInterface.GetpPolyline; end; function TLeaderParam.SetpPolyline(const pPolyline: IDispatch): WordBool; begin Result := DefaultInterface.SetpPolyline(pPolyline); end; function TLeaderParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLeaderParamProperties.Create(AServer: TLeaderParam); begin inherited Create; FServer := AServer; end; function TLeaderParamProperties.GetDefaultInterface: ksLeaderParam; begin Result := FServer.DefaultInterface; end; function TLeaderParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TLeaderParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TLeaderParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TLeaderParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TLeaderParamProperties.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TLeaderParamProperties.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TLeaderParamProperties.Get_dirX: Integer; begin Result := DefaultInterface.dirX; end; procedure TLeaderParamProperties.Set_dirX(Value: Integer); begin DefaultInterface.dirX := Value; end; function TLeaderParamProperties.Get_signType: Smallint; begin Result := DefaultInterface.signType; end; procedure TLeaderParamProperties.Set_signType(Value: Smallint); begin DefaultInterface.signType := Value; end; function TLeaderParamProperties.Get_around: Smallint; begin Result := DefaultInterface.around; end; procedure TLeaderParamProperties.Set_around(Value: Smallint); begin DefaultInterface.around := Value; end; function TLeaderParamProperties.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TLeaderParamProperties.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TLeaderParamProperties.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TLeaderParamProperties.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TLeaderParamProperties.Get_cText2: Smallint; begin Result := DefaultInterface.cText2; end; procedure TLeaderParamProperties.Set_cText2(Value: Smallint); begin DefaultInterface.cText2 := Value; end; function TLeaderParamProperties.Get_cText3: Smallint; begin Result := DefaultInterface.cText3; end; procedure TLeaderParamProperties.Set_cText3(Value: Smallint); begin DefaultInterface.cText3 := Value; end; {$ENDIF} class function CoposLeaderParam.Create: ksPosLeaderParam; begin Result := CreateComObject(CLASS_posLeaderParam) as ksPosLeaderParam; end; class function CoposLeaderParam.CreateRemote(const MachineName: string): ksPosLeaderParam; begin Result := CreateRemoteComObject(MachineName, CLASS_posLeaderParam) as ksPosLeaderParam; end; procedure TposLeaderParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E45-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E43-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TposLeaderParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPosLeaderParam; end; end; procedure TposLeaderParam.ConnectTo(svrIntf: ksPosLeaderParam); begin Disconnect; FIntf := svrIntf; end; procedure TposLeaderParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TposLeaderParam.GetDefaultInterface: ksPosLeaderParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TposLeaderParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TposLeaderParamProperties.Create(Self); {$ENDIF} end; destructor TposLeaderParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TposLeaderParam.GetServerProperties: TposLeaderParamProperties; begin Result := FProps; end; {$ENDIF} function TposLeaderParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TposLeaderParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TposLeaderParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TposLeaderParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TposLeaderParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TposLeaderParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TposLeaderParam.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TposLeaderParam.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TposLeaderParam.Get_dirX: Integer; begin Result := DefaultInterface.dirX; end; procedure TposLeaderParam.Set_dirX(Value: Integer); begin DefaultInterface.dirX := Value; end; function TposLeaderParam.Get_dirY: Integer; begin Result := DefaultInterface.dirY; end; procedure TposLeaderParam.Set_dirY(Value: Integer); begin DefaultInterface.dirY := Value; end; function TposLeaderParam.GetpTextline: IDispatch; begin Result := DefaultInterface.GetpTextline; end; function TposLeaderParam.SetpTextline(const textline: IDispatch): WordBool; begin Result := DefaultInterface.SetpTextline(textline); end; function TposLeaderParam.GetpPolyline: IDispatch; begin Result := DefaultInterface.GetpPolyline; end; function TposLeaderParam.SetpPolyline(const polyline: IDispatch): WordBool; begin Result := DefaultInterface.SetpPolyline(polyline); end; function TposLeaderParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TposLeaderParamProperties.Create(AServer: TposLeaderParam); begin inherited Create; FServer := AServer; end; function TposLeaderParamProperties.GetDefaultInterface: ksPosLeaderParam; begin Result := FServer.DefaultInterface; end; function TposLeaderParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TposLeaderParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TposLeaderParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TposLeaderParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TposLeaderParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TposLeaderParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TposLeaderParamProperties.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TposLeaderParamProperties.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TposLeaderParamProperties.Get_dirX: Integer; begin Result := DefaultInterface.dirX; end; procedure TposLeaderParamProperties.Set_dirX(Value: Integer); begin DefaultInterface.dirX := Value; end; function TposLeaderParamProperties.Get_dirY: Integer; begin Result := DefaultInterface.dirY; end; procedure TposLeaderParamProperties.Set_dirY(Value: Integer); begin DefaultInterface.dirY := Value; end; {$ENDIF} class function CobrandLeaderParam.Create: ksBrandLeaderParam; begin Result := CreateComObject(CLASS_brandLeaderParam) as ksBrandLeaderParam; end; class function CobrandLeaderParam.CreateRemote(const MachineName: string): ksBrandLeaderParam; begin Result := CreateRemoteComObject(MachineName, CLASS_brandLeaderParam) as ksBrandLeaderParam; end; procedure TbrandLeaderParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3F715E48-97D9-11D6-95CE-00C0262D30E3}'; IntfIID: '{3F715E46-97D9-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TbrandLeaderParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBrandLeaderParam; end; end; procedure TbrandLeaderParam.ConnectTo(svrIntf: ksBrandLeaderParam); begin Disconnect; FIntf := svrIntf; end; procedure TbrandLeaderParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TbrandLeaderParam.GetDefaultInterface: ksBrandLeaderParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TbrandLeaderParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TbrandLeaderParamProperties.Create(Self); {$ENDIF} end; destructor TbrandLeaderParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TbrandLeaderParam.GetServerProperties: TbrandLeaderParamProperties; begin Result := FProps; end; {$ENDIF} function TbrandLeaderParam.Get_dirX: Integer; begin Result := DefaultInterface.dirX; end; procedure TbrandLeaderParam.Set_dirX(Value: Integer); begin DefaultInterface.dirX := Value; end; function TbrandLeaderParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TbrandLeaderParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TbrandLeaderParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TbrandLeaderParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TbrandLeaderParam.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TbrandLeaderParam.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TbrandLeaderParam.Get_style1: Integer; begin Result := DefaultInterface.style1; end; procedure TbrandLeaderParam.Set_style1(Value: Integer); begin DefaultInterface.style1 := Value; end; function TbrandLeaderParam.Get_style2: Integer; begin Result := DefaultInterface.style2; end; procedure TbrandLeaderParam.Set_style2(Value: Integer); begin DefaultInterface.style2 := Value; end; function TbrandLeaderParam.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TbrandLeaderParam.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TbrandLeaderParam.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TbrandLeaderParam.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TbrandLeaderParam.Get_cText2: Integer; begin Result := DefaultInterface.cText2; end; procedure TbrandLeaderParam.Set_cText2(Value: Integer); begin DefaultInterface.cText2 := Value; end; function TbrandLeaderParam.GetpTextline: IDispatch; begin Result := DefaultInterface.GetpTextline; end; function TbrandLeaderParam.SetpTextline(const pTextLine: IDispatch): WordBool; begin Result := DefaultInterface.SetpTextline(pTextLine); end; function TbrandLeaderParam.GetpPolyline: IDispatch; begin Result := DefaultInterface.GetpPolyline; end; function TbrandLeaderParam.SetpPolyline(const pPolyline: IDispatch): WordBool; begin Result := DefaultInterface.SetpPolyline(pPolyline); end; function TbrandLeaderParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TbrandLeaderParamProperties.Create(AServer: TbrandLeaderParam); begin inherited Create; FServer := AServer; end; function TbrandLeaderParamProperties.GetDefaultInterface: ksBrandLeaderParam; begin Result := FServer.DefaultInterface; end; function TbrandLeaderParamProperties.Get_dirX: Integer; begin Result := DefaultInterface.dirX; end; procedure TbrandLeaderParamProperties.Set_dirX(Value: Integer); begin DefaultInterface.dirX := Value; end; function TbrandLeaderParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TbrandLeaderParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TbrandLeaderParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TbrandLeaderParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TbrandLeaderParamProperties.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TbrandLeaderParamProperties.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TbrandLeaderParamProperties.Get_style1: Integer; begin Result := DefaultInterface.style1; end; procedure TbrandLeaderParamProperties.Set_style1(Value: Integer); begin DefaultInterface.style1 := Value; end; function TbrandLeaderParamProperties.Get_style2: Integer; begin Result := DefaultInterface.style2; end; procedure TbrandLeaderParamProperties.Set_style2(Value: Integer); begin DefaultInterface.style2 := Value; end; function TbrandLeaderParamProperties.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TbrandLeaderParamProperties.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TbrandLeaderParamProperties.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TbrandLeaderParamProperties.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TbrandLeaderParamProperties.Get_cText2: Integer; begin Result := DefaultInterface.cText2; end; procedure TbrandLeaderParamProperties.Set_cText2(Value: Integer); begin DefaultInterface.cText2 := Value; end; {$ENDIF} class function ComarkerLeaderParam.Create: ksMarkerLeaderParam; begin Result := CreateComObject(CLASS_markerLeaderParam) as ksMarkerLeaderParam; end; class function ComarkerLeaderParam.CreateRemote(const MachineName: string): ksMarkerLeaderParam; begin Result := CreateRemoteComObject(MachineName, CLASS_markerLeaderParam) as ksMarkerLeaderParam; end; procedure TmarkerLeaderParam.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E343-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E341-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TmarkerLeaderParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMarkerLeaderParam; end; end; procedure TmarkerLeaderParam.ConnectTo(svrIntf: ksMarkerLeaderParam); begin Disconnect; FIntf := svrIntf; end; procedure TmarkerLeaderParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TmarkerLeaderParam.GetDefaultInterface: ksMarkerLeaderParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TmarkerLeaderParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TmarkerLeaderParamProperties.Create(Self); {$ENDIF} end; destructor TmarkerLeaderParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TmarkerLeaderParam.GetServerProperties: TmarkerLeaderParamProperties; begin Result := FProps; end; {$ENDIF} function TmarkerLeaderParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TmarkerLeaderParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TmarkerLeaderParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TmarkerLeaderParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TmarkerLeaderParam.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TmarkerLeaderParam.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TmarkerLeaderParam.Get_style1: Integer; begin Result := DefaultInterface.style1; end; procedure TmarkerLeaderParam.Set_style1(Value: Integer); begin DefaultInterface.style1 := Value; end; function TmarkerLeaderParam.Get_style2: Integer; begin Result := DefaultInterface.style2; end; procedure TmarkerLeaderParam.Set_style2(Value: Integer); begin DefaultInterface.style2 := Value; end; function TmarkerLeaderParam.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TmarkerLeaderParam.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TmarkerLeaderParam.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TmarkerLeaderParam.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TmarkerLeaderParam.Get_cText2: Smallint; begin Result := DefaultInterface.cText2; end; procedure TmarkerLeaderParam.Set_cText2(Value: Smallint); begin DefaultInterface.cText2 := Value; end; function TmarkerLeaderParam.GetpTextline: IDispatch; begin Result := DefaultInterface.GetpTextline; end; function TmarkerLeaderParam.SetpTextline(const pTextLine: IDispatch): WordBool; begin Result := DefaultInterface.SetpTextline(pTextLine); end; function TmarkerLeaderParam.GetpPolyline: IDispatch; begin Result := DefaultInterface.GetpPolyline; end; function TmarkerLeaderParam.SetpPolyline(const pPolyline: IDispatch): WordBool; begin Result := DefaultInterface.SetpPolyline(pPolyline); end; function TmarkerLeaderParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TmarkerLeaderParamProperties.Create(AServer: TmarkerLeaderParam); begin inherited Create; FServer := AServer; end; function TmarkerLeaderParamProperties.GetDefaultInterface: ksMarkerLeaderParam; begin Result := FServer.DefaultInterface; end; function TmarkerLeaderParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TmarkerLeaderParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TmarkerLeaderParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TmarkerLeaderParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TmarkerLeaderParamProperties.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TmarkerLeaderParamProperties.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TmarkerLeaderParamProperties.Get_style1: Integer; begin Result := DefaultInterface.style1; end; procedure TmarkerLeaderParamProperties.Set_style1(Value: Integer); begin DefaultInterface.style1 := Value; end; function TmarkerLeaderParamProperties.Get_style2: Integer; begin Result := DefaultInterface.style2; end; procedure TmarkerLeaderParamProperties.Set_style2(Value: Integer); begin DefaultInterface.style2 := Value; end; function TmarkerLeaderParamProperties.Get_cText0: Smallint; begin Result := DefaultInterface.cText0; end; procedure TmarkerLeaderParamProperties.Set_cText0(Value: Smallint); begin DefaultInterface.cText0 := Value; end; function TmarkerLeaderParamProperties.Get_cText1: Smallint; begin Result := DefaultInterface.cText1; end; procedure TmarkerLeaderParamProperties.Set_cText1(Value: Smallint); begin DefaultInterface.cText1 := Value; end; function TmarkerLeaderParamProperties.Get_cText2: Smallint; begin Result := DefaultInterface.cText2; end; procedure TmarkerLeaderParamProperties.Set_cText2(Value: Smallint); begin DefaultInterface.cText2 := Value; end; {$ENDIF} class function CoType1.Create: ksType1; begin Result := CreateComObject(CLASS_Type1) as ksType1; end; class function CoType1.CreateRemote(const MachineName: string): ksType1; begin Result := CreateRemoteComObject(MachineName, CLASS_Type1) as ksType1; end; procedure TType1.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E346-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E344-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TType1.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksType1; end; end; procedure TType1.ConnectTo(svrIntf: ksType1); begin Disconnect; FIntf := svrIntf; end; procedure TType1.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TType1.GetDefaultInterface: ksType1; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TType1.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TType1Properties.Create(Self); {$ENDIF} end; destructor TType1.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TType1.GetServerProperties: TType1Properties; begin Result := FProps; end; {$ENDIF} function TType1.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType1.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType1.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType1.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType1.Get_scale_: Double; begin Result := DefaultInterface.scale_; end; procedure TType1.Set_scale_(Value: Double); begin DefaultInterface.scale_ := Value; end; function TType1.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TType1.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TType1.Get_gr: Integer; begin Result := DefaultInterface.gr; end; procedure TType1.Set_gr(Value: Integer); begin DefaultInterface.gr := Value; end; function TType1.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TType1Properties.Create(AServer: TType1); begin inherited Create; FServer := AServer; end; function TType1Properties.GetDefaultInterface: ksType1; begin Result := FServer.DefaultInterface; end; function TType1Properties.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType1Properties.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType1Properties.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType1Properties.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType1Properties.Get_scale_: Double; begin Result := DefaultInterface.scale_; end; procedure TType1Properties.Set_scale_(Value: Double); begin DefaultInterface.scale_ := Value; end; function TType1Properties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TType1Properties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TType1Properties.Get_gr: Integer; begin Result := DefaultInterface.gr; end; procedure TType1Properties.Set_gr(Value: Integer); begin DefaultInterface.gr := Value; end; {$ENDIF} class function CoType2.Create: ksType2; begin Result := CreateComObject(CLASS_Type2) as ksType2; end; class function CoType2.CreateRemote(const MachineName: string): ksType2; begin Result := CreateRemoteComObject(MachineName, CLASS_Type2) as ksType2; end; procedure TType2.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E349-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E347-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TType2.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksType2; end; end; procedure TType2.ConnectTo(svrIntf: ksType2); begin Disconnect; FIntf := svrIntf; end; procedure TType2.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TType2.GetDefaultInterface: ksType2; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TType2.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TType2Properties.Create(Self); {$ENDIF} end; destructor TType2.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TType2.GetServerProperties: TType2Properties; begin Result := FProps; end; {$ENDIF} function TType2.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType2.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType2.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType2.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType2.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TType2Properties.Create(AServer: TType2); begin inherited Create; FServer := AServer; end; function TType2Properties.GetDefaultInterface: ksType2; begin Result := FServer.DefaultInterface; end; function TType2Properties.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType2Properties.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType2Properties.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType2Properties.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; {$ENDIF} class function CoType3.Create: ksType3; begin Result := CreateComObject(CLASS_Type3) as ksType3; end; class function CoType3.CreateRemote(const MachineName: string): ksType3; begin Result := CreateRemoteComObject(MachineName, CLASS_Type3) as ksType3; end; procedure TType3.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E34C-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E34A-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TType3.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksType3; end; end; procedure TType3.ConnectTo(svrIntf: ksType3); begin Disconnect; FIntf := svrIntf; end; procedure TType3.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TType3.GetDefaultInterface: ksType3; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TType3.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TType3Properties.Create(Self); {$ENDIF} end; destructor TType3.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TType3.GetServerProperties: TType3Properties; begin Result := FProps; end; {$ENDIF} function TType3.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType3.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType3.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType3.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType3.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TType3.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TType3.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TType3Properties.Create(AServer: TType3); begin inherited Create; FServer := AServer; end; function TType3Properties.GetDefaultInterface: ksType3; begin Result := FServer.DefaultInterface; end; function TType3Properties.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType3Properties.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType3Properties.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType3Properties.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType3Properties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TType3Properties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; {$ENDIF} class function CoType5.Create: ksType5; begin Result := CreateComObject(CLASS_Type5) as ksType5; end; class function CoType5.CreateRemote(const MachineName: string): ksType5; begin Result := CreateRemoteComObject(MachineName, CLASS_Type5) as ksType5; end; procedure TType5.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E34F-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E34D-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TType5.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksType5; end; end; procedure TType5.ConnectTo(svrIntf: ksType5); begin Disconnect; FIntf := svrIntf; end; procedure TType5.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TType5.GetDefaultInterface: ksType5; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TType5.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TType5Properties.Create(Self); {$ENDIF} end; destructor TType5.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TType5.GetServerProperties: TType5Properties; begin Result := FProps; end; {$ENDIF} function TType5.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType5.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType5.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType5.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType5.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TType5.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TType5.Get_horizon: WordBool; begin Result := DefaultInterface.horizon; end; procedure TType5.Set_horizon(Value: WordBool); begin DefaultInterface.horizon := Value; end; function TType5.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TType5Properties.Create(AServer: TType5); begin inherited Create; FServer := AServer; end; function TType5Properties.GetDefaultInterface: ksType5; begin Result := FServer.DefaultInterface; end; function TType5Properties.Get_xBase: Double; begin Result := DefaultInterface.xBase; end; procedure TType5Properties.Set_xBase(Value: Double); begin DefaultInterface.xBase := Value; end; function TType5Properties.Get_yBase: Double; begin Result := DefaultInterface.yBase; end; procedure TType5Properties.Set_yBase(Value: Double); begin DefaultInterface.yBase := Value; end; function TType5Properties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TType5Properties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TType5Properties.Get_horizon: WordBool; begin Result := DefaultInterface.horizon; end; procedure TType5Properties.Set_horizon(Value: WordBool); begin DefaultInterface.horizon := Value; end; {$ENDIF} class function CoType6.Create: ksType6; begin Result := CreateComObject(CLASS_Type6) as ksType6; end; class function CoType6.CreateRemote(const MachineName: string): ksType6; begin Result := CreateRemoteComObject(MachineName, CLASS_Type6) as ksType6; end; procedure TType6.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E352-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E350-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TType6.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksType6; end; end; procedure TType6.ConnectTo(svrIntf: ksType6); begin Disconnect; FIntf := svrIntf; end; procedure TType6.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TType6.GetDefaultInterface: ksType6; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TType6.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TType6Properties.Create(Self); {$ENDIF} end; destructor TType6.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TType6.GetServerProperties: TType6Properties; begin Result := FProps; end; {$ENDIF} function TType6.Get_gr: Integer; begin Result := DefaultInterface.gr; end; procedure TType6.Set_gr(Value: Integer); begin DefaultInterface.gr := Value; end; function TType6.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TType6Properties.Create(AServer: TType6); begin inherited Create; FServer := AServer; end; function TType6Properties.GetDefaultInterface: ksType6; begin Result := FServer.DefaultInterface; end; function TType6Properties.Get_gr: Integer; begin Result := DefaultInterface.gr; end; procedure TType6Properties.Set_gr(Value: Integer); begin DefaultInterface.gr := Value; end; {$ENDIF} class function Cophantom.Create: ksPhantom; begin Result := CreateComObject(CLASS_phantom) as ksPhantom; end; class function Cophantom.CreateRemote(const MachineName: string): ksPhantom; begin Result := CreateRemoteComObject(MachineName, CLASS_phantom) as ksPhantom; end; procedure Tphantom.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E355-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E353-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure Tphantom.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPhantom; end; end; procedure Tphantom.ConnectTo(svrIntf: ksPhantom); begin Disconnect; FIntf := svrIntf; end; procedure Tphantom.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function Tphantom.GetDefaultInterface: ksPhantom; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor Tphantom.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TphantomProperties.Create(Self); {$ENDIF} end; destructor Tphantom.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function Tphantom.GetServerProperties: TphantomProperties; begin Result := FProps; end; {$ENDIF} function Tphantom.Get_phantom: Smallint; begin Result := DefaultInterface.phantom; end; procedure Tphantom.Set_phantom(Value: Smallint); begin DefaultInterface.phantom := Value; end; function Tphantom.GetPhantomParam: IDispatch; begin Result := DefaultInterface.GetPhantomParam; end; function Tphantom.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TphantomProperties.Create(AServer: Tphantom); begin inherited Create; FServer := AServer; end; function TphantomProperties.GetDefaultInterface: ksPhantom; begin Result := FServer.DefaultInterface; end; function TphantomProperties.Get_phantom: Smallint; begin Result := DefaultInterface.phantom; end; procedure TphantomProperties.Set_phantom(Value: Smallint); begin DefaultInterface.phantom := Value; end; {$ENDIF} class function CoRequestInfo.Create: ksRequestInfo; begin Result := CreateComObject(CLASS_RequestInfo) as ksRequestInfo; end; class function CoRequestInfo.CreateRemote(const MachineName: string): ksRequestInfo; begin Result := CreateRemoteComObject(MachineName, CLASS_RequestInfo) as ksRequestInfo; end; procedure TRequestInfo.InitServerData; const CServerData: TServerData = ( ClassID: '{9AF8E358-98A0-11D6-95CE-00C0262D30E3}'; IntfIID: '{9AF8E356-98A0-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRequestInfo.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRequestInfo; end; end; procedure TRequestInfo.ConnectTo(svrIntf: ksRequestInfo); begin Disconnect; FIntf := svrIntf; end; procedure TRequestInfo.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRequestInfo.GetDefaultInterface: ksRequestInfo; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRequestInfo.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRequestInfoProperties.Create(Self); {$ENDIF} end; destructor TRequestInfo.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRequestInfo.GetServerProperties: TRequestInfoProperties; begin Result := FProps; end; {$ENDIF} function TRequestInfo.Get_prompt: WideString; begin Result := DefaultInterface.prompt; end; procedure TRequestInfo.Set_prompt(const Value: WideString); begin DefaultInterface.prompt := Value; end; function TRequestInfo.Get_title: WideString; begin Result := DefaultInterface.title; end; procedure TRequestInfo.Set_title(const Value: WideString); begin DefaultInterface.title := Value; end; function TRequestInfo.Get_commandsString: WideString; begin Result := DefaultInterface.commandsString; end; procedure TRequestInfo.Set_commandsString(const Value: WideString); begin DefaultInterface.commandsString := Value; end; function TRequestInfo.Get_cursor: WideString; begin Result := DefaultInterface.cursor; end; procedure TRequestInfo.Set_cursor(const Value: WideString); begin DefaultInterface.cursor := Value; end; function TRequestInfo.Get_dynamic: Integer; begin Result := DefaultInterface.dynamic; end; procedure TRequestInfo.Set_dynamic(Value: Integer); begin DefaultInterface.dynamic := Value; end; function TRequestInfo.Get_commInstance: Integer; begin Result := DefaultInterface.commInstance; end; procedure TRequestInfo.Set_commInstance(Value: Integer); begin DefaultInterface.commInstance := Value; end; function TRequestInfo.Get_menuId: Integer; begin Result := DefaultInterface.menuId; end; procedure TRequestInfo.Set_menuId(Value: Integer); begin DefaultInterface.menuId := Value; end; function TRequestInfo.Get_titleId: Integer; begin Result := DefaultInterface.titleId; end; procedure TRequestInfo.Set_titleId(Value: Integer); begin DefaultInterface.titleId := Value; end; function TRequestInfo.Get_promptId: Integer; begin Result := DefaultInterface.promptId; end; procedure TRequestInfo.Set_promptId(Value: Integer); begin DefaultInterface.promptId := Value; end; function TRequestInfo.Get_cursorId: Integer; begin Result := DefaultInterface.cursorId; end; procedure TRequestInfo.Set_cursorId(Value: Integer); begin DefaultInterface.cursorId := Value; end; function TRequestInfo.GetCallBackC: WideString; begin Result := DefaultInterface.GetCallBackC; end; function TRequestInfo.SetCallBackC(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; begin Result := DefaultInterface.SetCallBackC(methodName, hInst, dispatchOCX); end; function TRequestInfo.GetCallBackP: WideString; begin Result := DefaultInterface.GetCallBackP; end; function TRequestInfo.SetCallBackP(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; begin Result := DefaultInterface.SetCallBackP(methodName, hInst, dispatchOCX); end; function TRequestInfo.GetCallBackCm: WideString; begin Result := DefaultInterface.GetCallBackCm; end; function TRequestInfo.SetCallBackCm(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; begin Result := DefaultInterface.SetCallBackCm(methodName, hInst, dispatchOCX); end; function TRequestInfo.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRequestInfoProperties.Create(AServer: TRequestInfo); begin inherited Create; FServer := AServer; end; function TRequestInfoProperties.GetDefaultInterface: ksRequestInfo; begin Result := FServer.DefaultInterface; end; function TRequestInfoProperties.Get_prompt: WideString; begin Result := DefaultInterface.prompt; end; procedure TRequestInfoProperties.Set_prompt(const Value: WideString); begin DefaultInterface.prompt := Value; end; function TRequestInfoProperties.Get_title: WideString; begin Result := DefaultInterface.title; end; procedure TRequestInfoProperties.Set_title(const Value: WideString); begin DefaultInterface.title := Value; end; function TRequestInfoProperties.Get_commandsString: WideString; begin Result := DefaultInterface.commandsString; end; procedure TRequestInfoProperties.Set_commandsString(const Value: WideString); begin DefaultInterface.commandsString := Value; end; function TRequestInfoProperties.Get_cursor: WideString; begin Result := DefaultInterface.cursor; end; procedure TRequestInfoProperties.Set_cursor(const Value: WideString); begin DefaultInterface.cursor := Value; end; function TRequestInfoProperties.Get_dynamic: Integer; begin Result := DefaultInterface.dynamic; end; procedure TRequestInfoProperties.Set_dynamic(Value: Integer); begin DefaultInterface.dynamic := Value; end; function TRequestInfoProperties.Get_commInstance: Integer; begin Result := DefaultInterface.commInstance; end; procedure TRequestInfoProperties.Set_commInstance(Value: Integer); begin DefaultInterface.commInstance := Value; end; function TRequestInfoProperties.Get_menuId: Integer; begin Result := DefaultInterface.menuId; end; procedure TRequestInfoProperties.Set_menuId(Value: Integer); begin DefaultInterface.menuId := Value; end; function TRequestInfoProperties.Get_titleId: Integer; begin Result := DefaultInterface.titleId; end; procedure TRequestInfoProperties.Set_titleId(Value: Integer); begin DefaultInterface.titleId := Value; end; function TRequestInfoProperties.Get_promptId: Integer; begin Result := DefaultInterface.promptId; end; procedure TRequestInfoProperties.Set_promptId(Value: Integer); begin DefaultInterface.promptId := Value; end; function TRequestInfoProperties.Get_cursorId: Integer; begin Result := DefaultInterface.cursorId; end; procedure TRequestInfoProperties.Set_cursorId(Value: Integer); begin DefaultInterface.cursorId := Value; end; {$ENDIF} class function CoViewPointerParam.Create: ksViewPointerParam; begin Result := CreateComObject(CLASS_ViewPointerParam) as ksViewPointerParam; end; class function CoViewPointerParam.CreateRemote(const MachineName: string): ksViewPointerParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ViewPointerParam) as ksViewPointerParam; end; procedure TViewPointerParam.InitServerData; const CServerData: TServerData = ( ClassID: '{CD1C0146-98DC-11D6-95CE-00C0262D30E3}'; IntfIID: '{CD1C0144-98DC-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TViewPointerParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksViewPointerParam; end; end; procedure TViewPointerParam.ConnectTo(svrIntf: ksViewPointerParam); begin Disconnect; FIntf := svrIntf; end; procedure TViewPointerParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TViewPointerParam.GetDefaultInterface: ksViewPointerParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TViewPointerParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TViewPointerParamProperties.Create(Self); {$ENDIF} end; destructor TViewPointerParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TViewPointerParam.GetServerProperties: TViewPointerParamProperties; begin Result := FProps; end; {$ENDIF} function TViewPointerParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TViewPointerParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TViewPointerParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TViewPointerParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TViewPointerParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TViewPointerParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TViewPointerParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TViewPointerParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TViewPointerParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TViewPointerParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TViewPointerParam.Get_xt: Double; begin Result := DefaultInterface.xt; end; procedure TViewPointerParam.Set_xt(Value: Double); begin DefaultInterface.xt := Value; end; function TViewPointerParam.Get_yt: Double; begin Result := DefaultInterface.yt; end; procedure TViewPointerParam.Set_yt(Value: Double); begin DefaultInterface.yt := Value; end; function TViewPointerParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TViewPointerParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TViewPointerParam.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TViewPointerParam.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; function TViewPointerParam.GetpTextline: IDispatch; begin Result := DefaultInterface.GetpTextline; end; function TViewPointerParam.SetpTextline(const pTextLine: IDispatch): WordBool; begin Result := DefaultInterface.SetpTextline(pTextLine); end; function TViewPointerParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TViewPointerParamProperties.Create(AServer: TViewPointerParam); begin inherited Create; FServer := AServer; end; function TViewPointerParamProperties.GetDefaultInterface: ksViewPointerParam; begin Result := FServer.DefaultInterface; end; function TViewPointerParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TViewPointerParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TViewPointerParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TViewPointerParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TViewPointerParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TViewPointerParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TViewPointerParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TViewPointerParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TViewPointerParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TViewPointerParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TViewPointerParamProperties.Get_xt: Double; begin Result := DefaultInterface.xt; end; procedure TViewPointerParamProperties.Set_xt(Value: Double); begin DefaultInterface.xt := Value; end; function TViewPointerParamProperties.Get_yt: Double; begin Result := DefaultInterface.yt; end; procedure TViewPointerParamProperties.Set_yt(Value: Double); begin DefaultInterface.yt := Value; end; function TViewPointerParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TViewPointerParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TViewPointerParamProperties.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TViewPointerParamProperties.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; {$ENDIF} class function CoCutLineParam.Create: ksCutLineParam; begin Result := CreateComObject(CLASS_CutLineParam) as ksCutLineParam; end; class function CoCutLineParam.CreateRemote(const MachineName: string): ksCutLineParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CutLineParam) as ksCutLineParam; end; procedure TCutLineParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE83-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE81-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutLineParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutLineParam; end; end; procedure TCutLineParam.ConnectTo(svrIntf: ksCutLineParam); begin Disconnect; FIntf := svrIntf; end; procedure TCutLineParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutLineParam.GetDefaultInterface: ksCutLineParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutLineParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutLineParamProperties.Create(Self); {$ENDIF} end; destructor TCutLineParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutLineParam.GetServerProperties: TCutLineParamProperties; begin Result := FProps; end; {$ENDIF} function TCutLineParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TCutLineParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TCutLineParam.Get_right: Smallint; begin Result := DefaultInterface.right; end; procedure TCutLineParam.Set_right(Value: Smallint); begin DefaultInterface.right := Value; end; function TCutLineParam.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TCutLineParam.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TCutLineParam.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TCutLineParam.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TCutLineParam.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TCutLineParam.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TCutLineParam.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TCutLineParam.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TCutLineParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TCutLineParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TCutLineParam.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TCutLineParam.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; function TCutLineParam.GetpTextline: IDispatch; begin Result := DefaultInterface.GetpTextline; end; function TCutLineParam.SetpTextline(const pTextLine: IDispatch): WordBool; begin Result := DefaultInterface.SetpTextline(pTextLine); end; function TCutLineParam.GetpMathPoint: IDispatch; begin Result := DefaultInterface.GetpMathPoint; end; function TCutLineParam.SetpMathPoint(const pMathPoint: IDispatch): WordBool; begin Result := DefaultInterface.SetpMathPoint(pMathPoint); end; function TCutLineParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutLineParamProperties.Create(AServer: TCutLineParam); begin inherited Create; FServer := AServer; end; function TCutLineParamProperties.GetDefaultInterface: ksCutLineParam; begin Result := FServer.DefaultInterface; end; function TCutLineParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TCutLineParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TCutLineParamProperties.Get_right: Smallint; begin Result := DefaultInterface.right; end; procedure TCutLineParamProperties.Set_right(Value: Smallint); begin DefaultInterface.right := Value; end; function TCutLineParamProperties.Get_x1: Double; begin Result := DefaultInterface.x1; end; procedure TCutLineParamProperties.Set_x1(Value: Double); begin DefaultInterface.x1 := Value; end; function TCutLineParamProperties.Get_y1: Double; begin Result := DefaultInterface.y1; end; procedure TCutLineParamProperties.Set_y1(Value: Double); begin DefaultInterface.y1 := Value; end; function TCutLineParamProperties.Get_x2: Double; begin Result := DefaultInterface.x2; end; procedure TCutLineParamProperties.Set_x2(Value: Double); begin DefaultInterface.x2 := Value; end; function TCutLineParamProperties.Get_y2: Double; begin Result := DefaultInterface.y2; end; procedure TCutLineParamProperties.Set_y2(Value: Double); begin DefaultInterface.y2 := Value; end; function TCutLineParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TCutLineParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TCutLineParamProperties.Get_str: WideString; begin Result := DefaultInterface.str; end; procedure TCutLineParamProperties.Set_str(const Value: WideString); begin DefaultInterface.str := Value; end; {$ENDIF} class function CoToleranceBranch.Create: ksToleranceBranch; begin Result := CreateComObject(CLASS_ToleranceBranch) as ksToleranceBranch; end; class function CoToleranceBranch.CreateRemote(const MachineName: string): ksToleranceBranch; begin Result := CreateRemoteComObject(MachineName, CLASS_ToleranceBranch) as ksToleranceBranch; end; procedure TToleranceBranch.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE86-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE84-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TToleranceBranch.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksToleranceBranch; end; end; procedure TToleranceBranch.ConnectTo(svrIntf: ksToleranceBranch); begin Disconnect; FIntf := svrIntf; end; procedure TToleranceBranch.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TToleranceBranch.GetDefaultInterface: ksToleranceBranch; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TToleranceBranch.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TToleranceBranchProperties.Create(Self); {$ENDIF} end; destructor TToleranceBranch.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TToleranceBranch.GetServerProperties: TToleranceBranchProperties; begin Result := FProps; end; {$ENDIF} function TToleranceBranch.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TToleranceBranch.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TToleranceBranch.Get_tCorner: Smallint; begin Result := DefaultInterface.tCorner; end; procedure TToleranceBranch.Set_tCorner(Value: Smallint); begin DefaultInterface.tCorner := Value; end; function TToleranceBranch.GetpMathPoint: IDispatch; begin Result := DefaultInterface.GetpMathPoint; end; function TToleranceBranch.SetpMathPoint(const pMathPoint: IDispatch): WordBool; begin Result := DefaultInterface.SetpMathPoint(pMathPoint); end; function TToleranceBranch.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TToleranceBranchProperties.Create(AServer: TToleranceBranch); begin inherited Create; FServer := AServer; end; function TToleranceBranchProperties.GetDefaultInterface: ksToleranceBranch; begin Result := FServer.DefaultInterface; end; function TToleranceBranchProperties.Get_arrowType: Smallint; begin Result := DefaultInterface.arrowType; end; procedure TToleranceBranchProperties.Set_arrowType(Value: Smallint); begin DefaultInterface.arrowType := Value; end; function TToleranceBranchProperties.Get_tCorner: Smallint; begin Result := DefaultInterface.tCorner; end; procedure TToleranceBranchProperties.Set_tCorner(Value: Smallint); begin DefaultInterface.tCorner := Value; end; {$ENDIF} class function CoToleranceParam.Create: ksToleranceParam; begin Result := CreateComObject(CLASS_ToleranceParam) as ksToleranceParam; end; class function CoToleranceParam.CreateRemote(const MachineName: string): ksToleranceParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ToleranceParam) as ksToleranceParam; end; procedure TToleranceParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE89-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE87-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TToleranceParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksToleranceParam; end; end; procedure TToleranceParam.ConnectTo(svrIntf: ksToleranceParam); begin Disconnect; FIntf := svrIntf; end; procedure TToleranceParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TToleranceParam.GetDefaultInterface: ksToleranceParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TToleranceParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TToleranceParamProperties.Create(Self); {$ENDIF} end; destructor TToleranceParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TToleranceParam.GetServerProperties: TToleranceParamProperties; begin Result := FProps; end; {$ENDIF} function TToleranceParam.Get_tBase: Smallint; begin Result := DefaultInterface.tBase; end; procedure TToleranceParam.Set_tBase(Value: Smallint); begin DefaultInterface.tBase := Value; end; function TToleranceParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TToleranceParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TToleranceParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TToleranceParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TToleranceParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TToleranceParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TToleranceParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TToleranceParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TToleranceParam.GetBranchArr: IDispatch; begin Result := DefaultInterface.GetBranchArr; end; function TToleranceParam.SetBranchArr(const branchArr: IDispatch): WordBool; begin Result := DefaultInterface.SetBranchArr(branchArr); end; function TToleranceParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TToleranceParamProperties.Create(AServer: TToleranceParam); begin inherited Create; FServer := AServer; end; function TToleranceParamProperties.GetDefaultInterface: ksToleranceParam; begin Result := FServer.DefaultInterface; end; function TToleranceParamProperties.Get_tBase: Smallint; begin Result := DefaultInterface.tBase; end; procedure TToleranceParamProperties.Set_tBase(Value: Smallint); begin DefaultInterface.tBase := Value; end; function TToleranceParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TToleranceParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TToleranceParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TToleranceParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TToleranceParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TToleranceParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TToleranceParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TToleranceParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; {$ENDIF} class function CoSpcColumnParam.Create: ksSpcColumnParam; begin Result := CreateComObject(CLASS_SpcColumnParam) as ksSpcColumnParam; end; class function CoSpcColumnParam.CreateRemote(const MachineName: string): ksSpcColumnParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcColumnParam) as ksSpcColumnParam; end; procedure TSpcColumnParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE8C-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE8A-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcColumnParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcColumnParam; end; end; procedure TSpcColumnParam.ConnectTo(svrIntf: ksSpcColumnParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcColumnParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcColumnParam.GetDefaultInterface: ksSpcColumnParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcColumnParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcColumnParamProperties.Create(Self); {$ENDIF} end; destructor TSpcColumnParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcColumnParam.GetServerProperties: TSpcColumnParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcColumnParam.Get_columnType: Integer; begin Result := DefaultInterface.columnType; end; procedure TSpcColumnParam.Set_columnType(Value: Integer); begin DefaultInterface.columnType := Value; end; function TSpcColumnParam.Get_ispoln: Integer; begin Result := DefaultInterface.ispoln; end; procedure TSpcColumnParam.Set_ispoln(Value: Integer); begin DefaultInterface.ispoln := Value; end; function TSpcColumnParam.Get_block: Integer; begin Result := DefaultInterface.block; end; procedure TSpcColumnParam.Set_block(Value: Integer); begin DefaultInterface.block := Value; end; function TSpcColumnParam.Get_typeVal: Integer; begin Result := DefaultInterface.typeVal; end; procedure TSpcColumnParam.Set_typeVal(Value: Integer); begin DefaultInterface.typeVal := Value; end; function TSpcColumnParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TSpcColumnParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TSpcColumnParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcColumnParamProperties.Create(AServer: TSpcColumnParam); begin inherited Create; FServer := AServer; end; function TSpcColumnParamProperties.GetDefaultInterface: ksSpcColumnParam; begin Result := FServer.DefaultInterface; end; function TSpcColumnParamProperties.Get_columnType: Integer; begin Result := DefaultInterface.columnType; end; procedure TSpcColumnParamProperties.Set_columnType(Value: Integer); begin DefaultInterface.columnType := Value; end; function TSpcColumnParamProperties.Get_ispoln: Integer; begin Result := DefaultInterface.ispoln; end; procedure TSpcColumnParamProperties.Set_ispoln(Value: Integer); begin DefaultInterface.ispoln := Value; end; function TSpcColumnParamProperties.Get_block: Integer; begin Result := DefaultInterface.block; end; procedure TSpcColumnParamProperties.Set_block(Value: Integer); begin DefaultInterface.block := Value; end; function TSpcColumnParamProperties.Get_typeVal: Integer; begin Result := DefaultInterface.typeVal; end; procedure TSpcColumnParamProperties.Set_typeVal(Value: Integer); begin DefaultInterface.typeVal := Value; end; function TSpcColumnParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TSpcColumnParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; {$ENDIF} class function CoRecordTypeAttrParam.Create: ksRecordTypeAttrParam; begin Result := CreateComObject(CLASS_RecordTypeAttrParam) as ksRecordTypeAttrParam; end; class function CoRecordTypeAttrParam.CreateRemote(const MachineName: string): ksRecordTypeAttrParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RecordTypeAttrParam) as ksRecordTypeAttrParam; end; procedure TRecordTypeAttrParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE8F-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE8D-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRecordTypeAttrParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRecordTypeAttrParam; end; end; procedure TRecordTypeAttrParam.ConnectTo(svrIntf: ksRecordTypeAttrParam); begin Disconnect; FIntf := svrIntf; end; procedure TRecordTypeAttrParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRecordTypeAttrParam.GetDefaultInterface: ksRecordTypeAttrParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRecordTypeAttrParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRecordTypeAttrParamProperties.Create(Self); {$ENDIF} end; destructor TRecordTypeAttrParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRecordTypeAttrParam.GetServerProperties: TRecordTypeAttrParamProperties; begin Result := FProps; end; {$ENDIF} function TRecordTypeAttrParam.Get_attrLibName: WideString; begin Result := DefaultInterface.attrLibName; end; function TRecordTypeAttrParam.Get_key1: Integer; begin Result := DefaultInterface.key1; end; function TRecordTypeAttrParam.Get_key2: Integer; begin Result := DefaultInterface.key2; end; function TRecordTypeAttrParam.Get_key3: Integer; begin Result := DefaultInterface.key3; end; function TRecordTypeAttrParam.Get_key4: Integer; begin Result := DefaultInterface.key4; end; function TRecordTypeAttrParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRecordTypeAttrParamProperties.Create(AServer: TRecordTypeAttrParam); begin inherited Create; FServer := AServer; end; function TRecordTypeAttrParamProperties.GetDefaultInterface: ksRecordTypeAttrParam; begin Result := FServer.DefaultInterface; end; function TRecordTypeAttrParamProperties.Get_attrLibName: WideString; begin Result := DefaultInterface.attrLibName; end; function TRecordTypeAttrParamProperties.Get_key1: Integer; begin Result := DefaultInterface.key1; end; function TRecordTypeAttrParamProperties.Get_key2: Integer; begin Result := DefaultInterface.key2; end; function TRecordTypeAttrParamProperties.Get_key3: Integer; begin Result := DefaultInterface.key3; end; function TRecordTypeAttrParamProperties.Get_key4: Integer; begin Result := DefaultInterface.key4; end; {$ENDIF} class function CoNumberTypeAttrParam.Create: ksNumberTypeAttrParam; begin Result := CreateComObject(CLASS_NumberTypeAttrParam) as ksNumberTypeAttrParam; end; class function CoNumberTypeAttrParam.CreateRemote(const MachineName: string): ksNumberTypeAttrParam; begin Result := CreateRemoteComObject(MachineName, CLASS_NumberTypeAttrParam) as ksNumberTypeAttrParam; end; procedure TNumberTypeAttrParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE92-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE90-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNumberTypeAttrParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNumberTypeAttrParam; end; end; procedure TNumberTypeAttrParam.ConnectTo(svrIntf: ksNumberTypeAttrParam); begin Disconnect; FIntf := svrIntf; end; procedure TNumberTypeAttrParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNumberTypeAttrParam.GetDefaultInterface: ksNumberTypeAttrParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNumberTypeAttrParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNumberTypeAttrParamProperties.Create(Self); {$ENDIF} end; destructor TNumberTypeAttrParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNumberTypeAttrParam.GetServerProperties: TNumberTypeAttrParamProperties; begin Result := FProps; end; {$ENDIF} function TNumberTypeAttrParam.Get_minValue: Double; begin Result := DefaultInterface.minValue; end; function TNumberTypeAttrParam.Get_maxValue: Double; begin Result := DefaultInterface.maxValue; end; function TNumberTypeAttrParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNumberTypeAttrParamProperties.Create(AServer: TNumberTypeAttrParam); begin inherited Create; FServer := AServer; end; function TNumberTypeAttrParamProperties.GetDefaultInterface: ksNumberTypeAttrParam; begin Result := FServer.DefaultInterface; end; function TNumberTypeAttrParamProperties.Get_minValue: Double; begin Result := DefaultInterface.minValue; end; function TNumberTypeAttrParamProperties.Get_maxValue: Double; begin Result := DefaultInterface.maxValue; end; {$ENDIF} class function CoSpcStyleColumnParam.Create: ksSpcStyleColumnParam; begin Result := CreateComObject(CLASS_SpcStyleColumnParam) as ksSpcStyleColumnParam; end; class function CoSpcStyleColumnParam.CreateRemote(const MachineName: string): ksSpcStyleColumnParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcStyleColumnParam) as ksSpcStyleColumnParam; end; procedure TSpcStyleColumnParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE95-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE93-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcStyleColumnParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcStyleColumnParam; end; end; procedure TSpcStyleColumnParam.ConnectTo(svrIntf: ksSpcStyleColumnParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcStyleColumnParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcStyleColumnParam.GetDefaultInterface: ksSpcStyleColumnParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcStyleColumnParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcStyleColumnParamProperties.Create(Self); {$ENDIF} end; destructor TSpcStyleColumnParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcStyleColumnParam.GetServerProperties: TSpcStyleColumnParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcStyleColumnParam.Get_nameColumn: WideString; begin Result := DefaultInterface.nameColumn; end; function TSpcStyleColumnParam.Get_columnType: Integer; begin Result := DefaultInterface.columnType; end; function TSpcStyleColumnParam.Get_ispoln: Integer; begin Result := DefaultInterface.ispoln; end; function TSpcStyleColumnParam.Get_edit: Smallint; begin Result := DefaultInterface.edit; end; function TSpcStyleColumnParam.Get_createSum: Smallint; begin Result := DefaultInterface.createSum; end; function TSpcStyleColumnParam.Get_multiplyToCount: Smallint; begin Result := DefaultInterface.multiplyToCount; end; function TSpcStyleColumnParam.Get_useForSectionTitle: Smallint; begin Result := DefaultInterface.useForSectionTitle; end; function TSpcStyleColumnParam.Get_textDn: Smallint; begin Result := DefaultInterface.textDn; end; function TSpcStyleColumnParam.Get_linkId: Integer; begin Result := DefaultInterface.linkId; end; function TSpcStyleColumnParam.Get_typeVal: Integer; begin Result := DefaultInterface.typeVal; end; function TSpcStyleColumnParam.GetAdditionalParam: IDispatch; begin Result := DefaultInterface.GetAdditionalParam; end; function TSpcStyleColumnParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcStyleColumnParamProperties.Create(AServer: TSpcStyleColumnParam); begin inherited Create; FServer := AServer; end; function TSpcStyleColumnParamProperties.GetDefaultInterface: ksSpcStyleColumnParam; begin Result := FServer.DefaultInterface; end; function TSpcStyleColumnParamProperties.Get_nameColumn: WideString; begin Result := DefaultInterface.nameColumn; end; function TSpcStyleColumnParamProperties.Get_columnType: Integer; begin Result := DefaultInterface.columnType; end; function TSpcStyleColumnParamProperties.Get_ispoln: Integer; begin Result := DefaultInterface.ispoln; end; function TSpcStyleColumnParamProperties.Get_edit: Smallint; begin Result := DefaultInterface.edit; end; function TSpcStyleColumnParamProperties.Get_createSum: Smallint; begin Result := DefaultInterface.createSum; end; function TSpcStyleColumnParamProperties.Get_multiplyToCount: Smallint; begin Result := DefaultInterface.multiplyToCount; end; function TSpcStyleColumnParamProperties.Get_useForSectionTitle: Smallint; begin Result := DefaultInterface.useForSectionTitle; end; function TSpcStyleColumnParamProperties.Get_textDn: Smallint; begin Result := DefaultInterface.textDn; end; function TSpcStyleColumnParamProperties.Get_linkId: Integer; begin Result := DefaultInterface.linkId; end; function TSpcStyleColumnParamProperties.Get_typeVal: Integer; begin Result := DefaultInterface.typeVal; end; {$ENDIF} class function CoSpcStyleSectionParam.Create: ksSpcStyleSectionParam; begin Result := CreateComObject(CLASS_SpcStyleSectionParam) as ksSpcStyleSectionParam; end; class function CoSpcStyleSectionParam.CreateRemote(const MachineName: string): ksSpcStyleSectionParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcStyleSectionParam) as ksSpcStyleSectionParam; end; procedure TSpcStyleSectionParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE98-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE96-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcStyleSectionParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcStyleSectionParam; end; end; procedure TSpcStyleSectionParam.ConnectTo(svrIntf: ksSpcStyleSectionParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcStyleSectionParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcStyleSectionParam.GetDefaultInterface: ksSpcStyleSectionParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcStyleSectionParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcStyleSectionParamProperties.Create(Self); {$ENDIF} end; destructor TSpcStyleSectionParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcStyleSectionParam.GetServerProperties: TSpcStyleSectionParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcStyleSectionParam.Get_sectionName: WideString; begin Result := DefaultInterface.sectionName; end; function TSpcStyleSectionParam.Get_number: Integer; begin Result := DefaultInterface.number; end; function TSpcStyleSectionParam.Get_sortColumnType: Integer; begin Result := DefaultInterface.sortColumnType; end; function TSpcStyleSectionParam.Get_sortIspoln: Integer; begin Result := DefaultInterface.sortIspoln; end; function TSpcStyleSectionParam.Get_dataType: Smallint; begin Result := DefaultInterface.dataType; end; function TSpcStyleSectionParam.Get_sortType: Integer; begin Result := DefaultInterface.sortType; end; function TSpcStyleSectionParam.GetArrColumn: IDispatch; begin Result := DefaultInterface.GetArrColumn; end; function TSpcStyleSectionParam.GetArrAdditionalColumn: IDispatch; begin Result := DefaultInterface.GetArrAdditionalColumn; end; function TSpcStyleSectionParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcStyleSectionParamProperties.Create(AServer: TSpcStyleSectionParam); begin inherited Create; FServer := AServer; end; function TSpcStyleSectionParamProperties.GetDefaultInterface: ksSpcStyleSectionParam; begin Result := FServer.DefaultInterface; end; function TSpcStyleSectionParamProperties.Get_sectionName: WideString; begin Result := DefaultInterface.sectionName; end; function TSpcStyleSectionParamProperties.Get_number: Integer; begin Result := DefaultInterface.number; end; function TSpcStyleSectionParamProperties.Get_sortColumnType: Integer; begin Result := DefaultInterface.sortColumnType; end; function TSpcStyleSectionParamProperties.Get_sortIspoln: Integer; begin Result := DefaultInterface.sortIspoln; end; function TSpcStyleSectionParamProperties.Get_dataType: Smallint; begin Result := DefaultInterface.dataType; end; function TSpcStyleSectionParamProperties.Get_sortType: Integer; begin Result := DefaultInterface.sortType; end; {$ENDIF} class function CoSpcSubSectionParam.Create: ksSpcSubSectionParam; begin Result := CreateComObject(CLASS_SpcSubSectionParam) as ksSpcSubSectionParam; end; class function CoSpcSubSectionParam.CreateRemote(const MachineName: string): ksSpcSubSectionParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcSubSectionParam) as ksSpcSubSectionParam; end; procedure TSpcSubSectionParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE9B-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE99-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcSubSectionParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcSubSectionParam; end; end; procedure TSpcSubSectionParam.ConnectTo(svrIntf: ksSpcSubSectionParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcSubSectionParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcSubSectionParam.GetDefaultInterface: ksSpcSubSectionParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcSubSectionParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcSubSectionParamProperties.Create(Self); {$ENDIF} end; destructor TSpcSubSectionParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcSubSectionParam.GetServerProperties: TSpcSubSectionParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcSubSectionParam.Get_name: WideString; begin Result := DefaultInterface.name; end; function TSpcSubSectionParam.Get_number: Integer; begin Result := DefaultInterface.number; end; function TSpcSubSectionParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcSubSectionParamProperties.Create(AServer: TSpcSubSectionParam); begin inherited Create; FServer := AServer; end; function TSpcSubSectionParamProperties.GetDefaultInterface: ksSpcSubSectionParam; begin Result := FServer.DefaultInterface; end; function TSpcSubSectionParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; function TSpcSubSectionParamProperties.Get_number: Integer; begin Result := DefaultInterface.number; end; {$ENDIF} class function CoSpcTuningSectionParam.Create: ksSpcTuningSectionParam; begin Result := CreateComObject(CLASS_SpcTuningSectionParam) as ksSpcTuningSectionParam; end; class function CoSpcTuningSectionParam.CreateRemote(const MachineName: string): ksSpcTuningSectionParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcTuningSectionParam) as ksSpcTuningSectionParam; end; procedure TSpcTuningSectionParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CE9E-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE9C-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcTuningSectionParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcTuningSectionParam; end; end; procedure TSpcTuningSectionParam.ConnectTo(svrIntf: ksSpcTuningSectionParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcTuningSectionParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcTuningSectionParam.GetDefaultInterface: ksSpcTuningSectionParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcTuningSectionParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcTuningSectionParamProperties.Create(Self); {$ENDIF} end; destructor TSpcTuningSectionParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcTuningSectionParam.GetServerProperties: TSpcTuningSectionParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcTuningSectionParam.Get_subsectionOn: Smallint; begin Result := DefaultInterface.subsectionOn; end; function TSpcTuningSectionParam.Get_geometryOn: Smallint; begin Result := DefaultInterface.geometryOn; end; function TSpcTuningSectionParam.Get_positionOn: Smallint; begin Result := DefaultInterface.positionOn; end; function TSpcTuningSectionParam.Get_sortOn: Smallint; begin Result := DefaultInterface.sortOn; end; function TSpcTuningSectionParam.Get_firstOnSheet: Smallint; begin Result := DefaultInterface.firstOnSheet; end; function TSpcTuningSectionParam.Get_rezervCount: Integer; begin Result := DefaultInterface.rezervCount; end; function TSpcTuningSectionParam.Get_number: Integer; begin Result := DefaultInterface.number; end; function TSpcTuningSectionParam.GetArrSubSection: IDispatch; begin Result := DefaultInterface.GetArrSubSection; end; function TSpcTuningSectionParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcTuningSectionParamProperties.Create(AServer: TSpcTuningSectionParam); begin inherited Create; FServer := AServer; end; function TSpcTuningSectionParamProperties.GetDefaultInterface: ksSpcTuningSectionParam; begin Result := FServer.DefaultInterface; end; function TSpcTuningSectionParamProperties.Get_subsectionOn: Smallint; begin Result := DefaultInterface.subsectionOn; end; function TSpcTuningSectionParamProperties.Get_geometryOn: Smallint; begin Result := DefaultInterface.geometryOn; end; function TSpcTuningSectionParamProperties.Get_positionOn: Smallint; begin Result := DefaultInterface.positionOn; end; function TSpcTuningSectionParamProperties.Get_sortOn: Smallint; begin Result := DefaultInterface.sortOn; end; function TSpcTuningSectionParamProperties.Get_firstOnSheet: Smallint; begin Result := DefaultInterface.firstOnSheet; end; function TSpcTuningSectionParamProperties.Get_rezervCount: Integer; begin Result := DefaultInterface.rezervCount; end; function TSpcTuningSectionParamProperties.Get_number: Integer; begin Result := DefaultInterface.number; end; {$ENDIF} class function CoSpcTuningStyleParam.Create: ksSpcTuningStyleParam; begin Result := CreateComObject(CLASS_SpcTuningStyleParam) as ksSpcTuningStyleParam; end; class function CoSpcTuningStyleParam.CreateRemote(const MachineName: string): ksSpcTuningStyleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcTuningStyleParam) as ksSpcTuningStyleParam; end; procedure TSpcTuningStyleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CEA1-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CE9F-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcTuningStyleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcTuningStyleParam; end; end; procedure TSpcTuningStyleParam.ConnectTo(svrIntf: ksSpcTuningStyleParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcTuningStyleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcTuningStyleParam.GetDefaultInterface: ksSpcTuningStyleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcTuningStyleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcTuningStyleParamProperties.Create(Self); {$ENDIF} end; destructor TSpcTuningStyleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcTuningStyleParam.GetServerProperties: TSpcTuningStyleParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcTuningStyleParam.Get_grToSP: Smallint; begin Result := DefaultInterface.grToSP; end; procedure TSpcTuningStyleParam.Set_grToSP(Value: Smallint); begin DefaultInterface.grToSP := Value; end; function TSpcTuningStyleParam.Get_zoneCalc: Smallint; begin Result := DefaultInterface.zoneCalc; end; procedure TSpcTuningStyleParam.Set_zoneCalc(Value: Smallint); begin DefaultInterface.zoneCalc := Value; end; function TSpcTuningStyleParam.Get_showSectionName: Smallint; begin Result := DefaultInterface.showSectionName; end; procedure TSpcTuningStyleParam.Set_showSectionName(Value: Smallint); begin DefaultInterface.showSectionName := Value; end; function TSpcTuningStyleParam.Get_positionCalc: Smallint; begin Result := DefaultInterface.positionCalc; end; procedure TSpcTuningStyleParam.Set_positionCalc(Value: Smallint); begin DefaultInterface.positionCalc := Value; end; function TSpcTuningStyleParam.Get_geometryDel: Smallint; begin Result := DefaultInterface.geometryDel; end; procedure TSpcTuningStyleParam.Set_geometryDel(Value: Smallint); begin DefaultInterface.geometryDel := Value; end; function TSpcTuningStyleParam.Get_positionDel: Smallint; begin Result := DefaultInterface.positionDel; end; procedure TSpcTuningStyleParam.Set_positionDel(Value: Smallint); begin DefaultInterface.positionDel := Value; end; function TSpcTuningStyleParam.Get_massCalc: Smallint; begin Result := DefaultInterface.massCalc; end; procedure TSpcTuningStyleParam.Set_massCalc(Value: Smallint); begin DefaultInterface.massCalc := Value; end; function TSpcTuningStyleParam.Get_disableEmptyStr: Smallint; begin Result := DefaultInterface.disableEmptyStr; end; procedure TSpcTuningStyleParam.Set_disableEmptyStr(Value: Smallint); begin DefaultInterface.disableEmptyStr := Value; end; function TSpcTuningStyleParam.Get_insertNull: Smallint; begin Result := DefaultInterface.insertNull; end; procedure TSpcTuningStyleParam.Set_insertNull(Value: Smallint); begin DefaultInterface.insertNull := Value; end; function TSpcTuningStyleParam.Get_insertDash: Smallint; begin Result := DefaultInterface.insertDash; end; procedure TSpcTuningStyleParam.Set_insertDash(Value: Smallint); begin DefaultInterface.insertDash := Value; end; function TSpcTuningStyleParam.Get_disableEmptyBlockStr: Smallint; begin Result := DefaultInterface.disableEmptyBlockStr; end; procedure TSpcTuningStyleParam.Set_disableEmptyBlockStr(Value: Smallint); begin DefaultInterface.disableEmptyBlockStr := Value; end; function TSpcTuningStyleParam.Get_showInfoByDetBlock: Smallint; begin Result := DefaultInterface.showInfoByDetBlock; end; procedure TSpcTuningStyleParam.Set_showInfoByDetBlock(Value: Smallint); begin DefaultInterface.showInfoByDetBlock := Value; end; function TSpcTuningStyleParam.Get_ispolnOn: Smallint; begin Result := DefaultInterface.ispolnOn; end; procedure TSpcTuningStyleParam.Set_ispolnOn(Value: Smallint); begin DefaultInterface.ispolnOn := Value; end; function TSpcTuningStyleParam.Get_ispolnMarkFull: Smallint; begin Result := DefaultInterface.ispolnMarkFull; end; procedure TSpcTuningStyleParam.Set_ispolnMarkFull(Value: Smallint); begin DefaultInterface.ispolnMarkFull := Value; end; function TSpcTuningStyleParam.Get_blocOnNewPage: Smallint; begin Result := DefaultInterface.blocOnNewPage; end; procedure TSpcTuningStyleParam.Set_blocOnNewPage(Value: Smallint); begin DefaultInterface.blocOnNewPage := Value; end; function TSpcTuningStyleParam.Get_userTextStyle: Smallint; begin Result := DefaultInterface.userTextStyle; end; procedure TSpcTuningStyleParam.Set_userTextStyle(Value: Smallint); begin DefaultInterface.userTextStyle := Value; end; function TSpcTuningStyleParam.Get_countIspoln: Smallint; begin Result := DefaultInterface.countIspoln; end; procedure TSpcTuningStyleParam.Set_countIspoln(Value: Smallint); begin DefaultInterface.countIspoln := Value; end; function TSpcTuningStyleParam.Get_countBlock: Smallint; begin Result := DefaultInterface.countBlock; end; procedure TSpcTuningStyleParam.Set_countBlock(Value: Smallint); begin DefaultInterface.countBlock := Value; end; function TSpcTuningStyleParam.Get_predefinedTextFileName: WideString; begin Result := DefaultInterface.predefinedTextFileName; end; procedure TSpcTuningStyleParam.Set_predefinedTextFileName(const Value: WideString); begin DefaultInterface.predefinedTextFileName := Value; end; function TSpcTuningStyleParam.GetSectionTextStyleFirst: IDispatch; begin Result := DefaultInterface.GetSectionTextStyleFirst; end; function TSpcTuningStyleParam.GetSectionTextStyleNext: IDispatch; begin Result := DefaultInterface.GetSectionTextStyleNext; end; function TSpcTuningStyleParam.GetObjectTextStyle: IDispatch; begin Result := DefaultInterface.GetObjectTextStyle; end; function TSpcTuningStyleParam.GetArrSection: IDispatch; begin Result := DefaultInterface.GetArrSection; end; function TSpcTuningStyleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TSpcTuningStyleParam.SetSectionTextStyleFirst(const style: IDispatch): WordBool; begin Result := DefaultInterface.SetSectionTextStyleFirst(style); end; function TSpcTuningStyleParam.SetSectionTextStyleNext(const style: IDispatch): WordBool; begin Result := DefaultInterface.SetSectionTextStyleNext(style); end; function TSpcTuningStyleParam.SetObjectTextStyle(const style: IDispatch): WordBool; begin Result := DefaultInterface.SetObjectTextStyle(style); end; function TSpcTuningStyleParam.SetArrSection(const arr: IDispatch): WordBool; begin Result := DefaultInterface.SetArrSection(arr); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcTuningStyleParamProperties.Create(AServer: TSpcTuningStyleParam); begin inherited Create; FServer := AServer; end; function TSpcTuningStyleParamProperties.GetDefaultInterface: ksSpcTuningStyleParam; begin Result := FServer.DefaultInterface; end; function TSpcTuningStyleParamProperties.Get_grToSP: Smallint; begin Result := DefaultInterface.grToSP; end; procedure TSpcTuningStyleParamProperties.Set_grToSP(Value: Smallint); begin DefaultInterface.grToSP := Value; end; function TSpcTuningStyleParamProperties.Get_zoneCalc: Smallint; begin Result := DefaultInterface.zoneCalc; end; procedure TSpcTuningStyleParamProperties.Set_zoneCalc(Value: Smallint); begin DefaultInterface.zoneCalc := Value; end; function TSpcTuningStyleParamProperties.Get_showSectionName: Smallint; begin Result := DefaultInterface.showSectionName; end; procedure TSpcTuningStyleParamProperties.Set_showSectionName(Value: Smallint); begin DefaultInterface.showSectionName := Value; end; function TSpcTuningStyleParamProperties.Get_positionCalc: Smallint; begin Result := DefaultInterface.positionCalc; end; procedure TSpcTuningStyleParamProperties.Set_positionCalc(Value: Smallint); begin DefaultInterface.positionCalc := Value; end; function TSpcTuningStyleParamProperties.Get_geometryDel: Smallint; begin Result := DefaultInterface.geometryDel; end; procedure TSpcTuningStyleParamProperties.Set_geometryDel(Value: Smallint); begin DefaultInterface.geometryDel := Value; end; function TSpcTuningStyleParamProperties.Get_positionDel: Smallint; begin Result := DefaultInterface.positionDel; end; procedure TSpcTuningStyleParamProperties.Set_positionDel(Value: Smallint); begin DefaultInterface.positionDel := Value; end; function TSpcTuningStyleParamProperties.Get_massCalc: Smallint; begin Result := DefaultInterface.massCalc; end; procedure TSpcTuningStyleParamProperties.Set_massCalc(Value: Smallint); begin DefaultInterface.massCalc := Value; end; function TSpcTuningStyleParamProperties.Get_disableEmptyStr: Smallint; begin Result := DefaultInterface.disableEmptyStr; end; procedure TSpcTuningStyleParamProperties.Set_disableEmptyStr(Value: Smallint); begin DefaultInterface.disableEmptyStr := Value; end; function TSpcTuningStyleParamProperties.Get_insertNull: Smallint; begin Result := DefaultInterface.insertNull; end; procedure TSpcTuningStyleParamProperties.Set_insertNull(Value: Smallint); begin DefaultInterface.insertNull := Value; end; function TSpcTuningStyleParamProperties.Get_insertDash: Smallint; begin Result := DefaultInterface.insertDash; end; procedure TSpcTuningStyleParamProperties.Set_insertDash(Value: Smallint); begin DefaultInterface.insertDash := Value; end; function TSpcTuningStyleParamProperties.Get_disableEmptyBlockStr: Smallint; begin Result := DefaultInterface.disableEmptyBlockStr; end; procedure TSpcTuningStyleParamProperties.Set_disableEmptyBlockStr(Value: Smallint); begin DefaultInterface.disableEmptyBlockStr := Value; end; function TSpcTuningStyleParamProperties.Get_showInfoByDetBlock: Smallint; begin Result := DefaultInterface.showInfoByDetBlock; end; procedure TSpcTuningStyleParamProperties.Set_showInfoByDetBlock(Value: Smallint); begin DefaultInterface.showInfoByDetBlock := Value; end; function TSpcTuningStyleParamProperties.Get_ispolnOn: Smallint; begin Result := DefaultInterface.ispolnOn; end; procedure TSpcTuningStyleParamProperties.Set_ispolnOn(Value: Smallint); begin DefaultInterface.ispolnOn := Value; end; function TSpcTuningStyleParamProperties.Get_ispolnMarkFull: Smallint; begin Result := DefaultInterface.ispolnMarkFull; end; procedure TSpcTuningStyleParamProperties.Set_ispolnMarkFull(Value: Smallint); begin DefaultInterface.ispolnMarkFull := Value; end; function TSpcTuningStyleParamProperties.Get_blocOnNewPage: Smallint; begin Result := DefaultInterface.blocOnNewPage; end; procedure TSpcTuningStyleParamProperties.Set_blocOnNewPage(Value: Smallint); begin DefaultInterface.blocOnNewPage := Value; end; function TSpcTuningStyleParamProperties.Get_userTextStyle: Smallint; begin Result := DefaultInterface.userTextStyle; end; procedure TSpcTuningStyleParamProperties.Set_userTextStyle(Value: Smallint); begin DefaultInterface.userTextStyle := Value; end; function TSpcTuningStyleParamProperties.Get_countIspoln: Smallint; begin Result := DefaultInterface.countIspoln; end; procedure TSpcTuningStyleParamProperties.Set_countIspoln(Value: Smallint); begin DefaultInterface.countIspoln := Value; end; function TSpcTuningStyleParamProperties.Get_countBlock: Smallint; begin Result := DefaultInterface.countBlock; end; procedure TSpcTuningStyleParamProperties.Set_countBlock(Value: Smallint); begin DefaultInterface.countBlock := Value; end; function TSpcTuningStyleParamProperties.Get_predefinedTextFileName: WideString; begin Result := DefaultInterface.predefinedTextFileName; end; procedure TSpcTuningStyleParamProperties.Set_predefinedTextFileName(const Value: WideString); begin DefaultInterface.predefinedTextFileName := Value; end; {$ENDIF} class function CoSpcStyleParam.Create: ksSpcStyleParam; begin Result := CreateComObject(CLASS_SpcStyleParam) as ksSpcStyleParam; end; class function CoSpcStyleParam.CreateRemote(const MachineName: string): ksSpcStyleParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcStyleParam) as ksSpcStyleParam; end; procedure TSpcStyleParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CEA4-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CEA2-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcStyleParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcStyleParam; end; end; procedure TSpcStyleParam.ConnectTo(svrIntf: ksSpcStyleParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcStyleParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcStyleParam.GetDefaultInterface: ksSpcStyleParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcStyleParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcStyleParamProperties.Create(Self); {$ENDIF} end; destructor TSpcStyleParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcStyleParam.GetServerProperties: TSpcStyleParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcStyleParam.Get_layoutName1: WideString; begin Result := DefaultInterface.layoutName1; end; function TSpcStyleParam.Get_layoutName2: WideString; begin Result := DefaultInterface.layoutName2; end; function TSpcStyleParam.Get_shtType1: Integer; begin Result := DefaultInterface.shtType1; end; function TSpcStyleParam.Get_shtType2: Integer; begin Result := DefaultInterface.shtType2; end; function TSpcStyleParam.Get_variant: Smallint; begin Result := DefaultInterface.variant; end; function TSpcStyleParam.Get_sectionOn: Smallint; begin Result := DefaultInterface.sectionOn; end; function TSpcStyleParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; function TSpcStyleParam.GetTuning: IDispatch; begin Result := DefaultInterface.GetTuning; end; function TSpcStyleParam.GetArrColumn: IDispatch; begin Result := DefaultInterface.GetArrColumn; end; function TSpcStyleParam.GetArrAdditionalColumn: IDispatch; begin Result := DefaultInterface.GetArrAdditionalColumn; end; function TSpcStyleParam.GetArrSection: IDispatch; begin Result := DefaultInterface.GetArrSection; end; function TSpcStyleParam.GetSheetParam: IDispatch; begin Result := DefaultInterface.GetSheetParam; end; function TSpcStyleParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcStyleParamProperties.Create(AServer: TSpcStyleParam); begin inherited Create; FServer := AServer; end; function TSpcStyleParamProperties.GetDefaultInterface: ksSpcStyleParam; begin Result := FServer.DefaultInterface; end; function TSpcStyleParamProperties.Get_layoutName1: WideString; begin Result := DefaultInterface.layoutName1; end; function TSpcStyleParamProperties.Get_layoutName2: WideString; begin Result := DefaultInterface.layoutName2; end; function TSpcStyleParamProperties.Get_shtType1: Integer; begin Result := DefaultInterface.shtType1; end; function TSpcStyleParamProperties.Get_shtType2: Integer; begin Result := DefaultInterface.shtType2; end; function TSpcStyleParamProperties.Get_variant: Smallint; begin Result := DefaultInterface.variant; end; function TSpcStyleParamProperties.Get_sectionOn: Smallint; begin Result := DefaultInterface.sectionOn; end; function TSpcStyleParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; {$ENDIF} class function CoSpcDescrParam.Create: ksSpcDescrParam; begin Result := CreateComObject(CLASS_SpcDescrParam) as ksSpcDescrParam; end; class function CoSpcDescrParam.CreateRemote(const MachineName: string): ksSpcDescrParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcDescrParam) as ksSpcDescrParam; end; procedure TSpcDescrParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CEA7-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CEA5-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcDescrParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcDescrParam; end; end; procedure TSpcDescrParam.ConnectTo(svrIntf: ksSpcDescrParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcDescrParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcDescrParam.GetDefaultInterface: ksSpcDescrParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcDescrParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcDescrParamProperties.Create(Self); {$ENDIF} end; destructor TSpcDescrParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcDescrParam.GetServerProperties: TSpcDescrParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcDescrParam.Get_layoutName: WideString; begin Result := DefaultInterface.layoutName; end; procedure TSpcDescrParam.Set_layoutName(const Value: WideString); begin DefaultInterface.layoutName := Value; end; function TSpcDescrParam.Get_styleId: Integer; begin Result := DefaultInterface.styleId; end; procedure TSpcDescrParam.Set_styleId(Value: Integer); begin DefaultInterface.styleId := Value; end; function TSpcDescrParam.Get_spcName: WideString; begin Result := DefaultInterface.spcName; end; procedure TSpcDescrParam.Set_spcName(const Value: WideString); begin DefaultInterface.spcName := Value; end; function TSpcDescrParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcDescrParamProperties.Create(AServer: TSpcDescrParam); begin inherited Create; FServer := AServer; end; function TSpcDescrParamProperties.GetDefaultInterface: ksSpcDescrParam; begin Result := FServer.DefaultInterface; end; function TSpcDescrParamProperties.Get_layoutName: WideString; begin Result := DefaultInterface.layoutName; end; procedure TSpcDescrParamProperties.Set_layoutName(const Value: WideString); begin DefaultInterface.layoutName := Value; end; function TSpcDescrParamProperties.Get_styleId: Integer; begin Result := DefaultInterface.styleId; end; procedure TSpcDescrParamProperties.Set_styleId(Value: Integer); begin DefaultInterface.styleId := Value; end; function TSpcDescrParamProperties.Get_spcName: WideString; begin Result := DefaultInterface.spcName; end; procedure TSpcDescrParamProperties.Set_spcName(const Value: WideString); begin DefaultInterface.spcName := Value; end; {$ENDIF} class function CoDocAttachedSpcParam.Create: ksDocAttachedSpcParam; begin Result := CreateComObject(CLASS_DocAttachedSpcParam) as ksDocAttachedSpcParam; end; class function CoDocAttachedSpcParam.CreateRemote(const MachineName: string): ksDocAttachedSpcParam; begin Result := CreateRemoteComObject(MachineName, CLASS_DocAttachedSpcParam) as ksDocAttachedSpcParam; end; procedure TDocAttachedSpcParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CEAA-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CEA8-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDocAttachedSpcParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDocAttachedSpcParam; end; end; procedure TDocAttachedSpcParam.ConnectTo(svrIntf: ksDocAttachedSpcParam); begin Disconnect; FIntf := svrIntf; end; procedure TDocAttachedSpcParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDocAttachedSpcParam.GetDefaultInterface: ksDocAttachedSpcParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDocAttachedSpcParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDocAttachedSpcParamProperties.Create(Self); {$ENDIF} end; destructor TDocAttachedSpcParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDocAttachedSpcParam.GetServerProperties: TDocAttachedSpcParamProperties; begin Result := FProps; end; {$ENDIF} function TDocAttachedSpcParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TDocAttachedSpcParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TDocAttachedSpcParam.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TDocAttachedSpcParam.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TDocAttachedSpcParam.Get_transmit: Smallint; begin Result := DefaultInterface.transmit; end; procedure TDocAttachedSpcParam.Set_transmit(Value: Smallint); begin DefaultInterface.transmit := Value; end; function TDocAttachedSpcParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDocAttachedSpcParamProperties.Create(AServer: TDocAttachedSpcParam); begin inherited Create; FServer := AServer; end; function TDocAttachedSpcParamProperties.GetDefaultInterface: ksDocAttachedSpcParam; begin Result := FServer.DefaultInterface; end; function TDocAttachedSpcParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TDocAttachedSpcParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TDocAttachedSpcParamProperties.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TDocAttachedSpcParamProperties.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TDocAttachedSpcParamProperties.Get_transmit: Smallint; begin Result := DefaultInterface.transmit; end; procedure TDocAttachedSpcParamProperties.Set_transmit(Value: Smallint); begin DefaultInterface.transmit := Value; end; {$ENDIF} class function CoSpcObjParam.Create: ksSpcObjParam; begin Result := CreateComObject(CLASS_SpcObjParam) as ksSpcObjParam; end; class function CoSpcObjParam.CreateRemote(const MachineName: string): ksSpcObjParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcObjParam) as ksSpcObjParam; end; procedure TSpcObjParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CEAD-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CEAB-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcObjParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSpcObjParam; end; end; procedure TSpcObjParam.ConnectTo(svrIntf: ksSpcObjParam); begin Disconnect; FIntf := svrIntf; end; procedure TSpcObjParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSpcObjParam.GetDefaultInterface: ksSpcObjParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcObjParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcObjParamProperties.Create(Self); {$ENDIF} end; destructor TSpcObjParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcObjParam.GetServerProperties: TSpcObjParamProperties; begin Result := FProps; end; {$ENDIF} function TSpcObjParam.Get_blockNumber: Integer; begin Result := DefaultInterface.blockNumber; end; procedure TSpcObjParam.Set_blockNumber(Value: Integer); begin DefaultInterface.blockNumber := Value; end; function TSpcObjParam.Get_numbSubSection: Integer; begin Result := DefaultInterface.numbSubSection; end; procedure TSpcObjParam.Set_numbSubSection(Value: Integer); begin DefaultInterface.numbSubSection := Value; end; function TSpcObjParam.Get_firstOnSheet: Smallint; begin Result := DefaultInterface.firstOnSheet; end; procedure TSpcObjParam.Set_firstOnSheet(Value: Smallint); begin DefaultInterface.firstOnSheet := Value; end; function TSpcObjParam.Get_posInc: Smallint; begin Result := DefaultInterface.posInc; end; procedure TSpcObjParam.Set_posInc(Value: Smallint); begin DefaultInterface.posInc := Value; end; function TSpcObjParam.Get_draw: Smallint; begin Result := DefaultInterface.draw; end; procedure TSpcObjParam.Set_draw(Value: Smallint); begin DefaultInterface.draw := Value; end; function TSpcObjParam.Get_posNotDraw: Smallint; begin Result := DefaultInterface.posNotDraw; end; procedure TSpcObjParam.Set_posNotDraw(Value: Smallint); begin DefaultInterface.posNotDraw := Value; end; function TSpcObjParam.Get_ispoln: Smallint; begin Result := DefaultInterface.ispoln; end; procedure TSpcObjParam.Set_ispoln(Value: Smallint); begin DefaultInterface.ispoln := Value; end; function TSpcObjParam.Get_typeObj: Integer; begin Result := DefaultInterface.typeObj; end; function TSpcObjParam.Get_numbSection: Integer; begin Result := DefaultInterface.numbSection; end; function TSpcObjParam.Get_subSectionName: WideString; begin Result := DefaultInterface.subSectionName; end; function TSpcObjParam.Get_insFrgType: Smallint; begin Result := DefaultInterface.insFrgType; end; function TSpcObjParam.Get_First: Smallint; begin Result := DefaultInterface.First; end; function TSpcObjParam.GetDocArr: IDispatch; begin Result := DefaultInterface.GetDocArr; end; function TSpcObjParam.SetDocArr(const docArr: IDispatch): WordBool; begin Result := DefaultInterface.SetDocArr(docArr); end; function TSpcObjParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcObjParamProperties.Create(AServer: TSpcObjParam); begin inherited Create; FServer := AServer; end; function TSpcObjParamProperties.GetDefaultInterface: ksSpcObjParam; begin Result := FServer.DefaultInterface; end; function TSpcObjParamProperties.Get_blockNumber: Integer; begin Result := DefaultInterface.blockNumber; end; procedure TSpcObjParamProperties.Set_blockNumber(Value: Integer); begin DefaultInterface.blockNumber := Value; end; function TSpcObjParamProperties.Get_numbSubSection: Integer; begin Result := DefaultInterface.numbSubSection; end; procedure TSpcObjParamProperties.Set_numbSubSection(Value: Integer); begin DefaultInterface.numbSubSection := Value; end; function TSpcObjParamProperties.Get_firstOnSheet: Smallint; begin Result := DefaultInterface.firstOnSheet; end; procedure TSpcObjParamProperties.Set_firstOnSheet(Value: Smallint); begin DefaultInterface.firstOnSheet := Value; end; function TSpcObjParamProperties.Get_posInc: Smallint; begin Result := DefaultInterface.posInc; end; procedure TSpcObjParamProperties.Set_posInc(Value: Smallint); begin DefaultInterface.posInc := Value; end; function TSpcObjParamProperties.Get_draw: Smallint; begin Result := DefaultInterface.draw; end; procedure TSpcObjParamProperties.Set_draw(Value: Smallint); begin DefaultInterface.draw := Value; end; function TSpcObjParamProperties.Get_posNotDraw: Smallint; begin Result := DefaultInterface.posNotDraw; end; procedure TSpcObjParamProperties.Set_posNotDraw(Value: Smallint); begin DefaultInterface.posNotDraw := Value; end; function TSpcObjParamProperties.Get_ispoln: Smallint; begin Result := DefaultInterface.ispoln; end; procedure TSpcObjParamProperties.Set_ispoln(Value: Smallint); begin DefaultInterface.ispoln := Value; end; function TSpcObjParamProperties.Get_typeObj: Integer; begin Result := DefaultInterface.typeObj; end; function TSpcObjParamProperties.Get_numbSection: Integer; begin Result := DefaultInterface.numbSection; end; function TSpcObjParamProperties.Get_subSectionName: WideString; begin Result := DefaultInterface.subSectionName; end; function TSpcObjParamProperties.Get_insFrgType: Smallint; begin Result := DefaultInterface.insFrgType; end; function TSpcObjParamProperties.Get_First: Smallint; begin Result := DefaultInterface.First; end; {$ENDIF} class function CoLibStyle.Create: ksLibStyle; begin Result := CreateComObject(CLASS_LibStyle) as ksLibStyle; end; class function CoLibStyle.CreateRemote(const MachineName: string): ksLibStyle; begin Result := CreateRemoteComObject(MachineName, CLASS_LibStyle) as ksLibStyle; end; procedure TLibStyle.InitServerData; const CServerData: TServerData = ( ClassID: '{4FD7CEB0-9968-11D6-95CE-00C0262D30E3}'; IntfIID: '{4FD7CEAE-9968-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLibStyle.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLibStyle; end; end; procedure TLibStyle.ConnectTo(svrIntf: ksLibStyle); begin Disconnect; FIntf := svrIntf; end; procedure TLibStyle.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLibStyle.GetDefaultInterface: ksLibStyle; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLibStyle.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLibStyleProperties.Create(Self); {$ENDIF} end; destructor TLibStyle.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLibStyle.GetServerProperties: TLibStyleProperties; begin Result := FProps; end; {$ENDIF} function TLibStyle.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TLibStyle.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TLibStyle.Get_styleNumber: Integer; begin Result := DefaultInterface.styleNumber; end; procedure TLibStyle.Set_styleNumber(Value: Integer); begin DefaultInterface.styleNumber := Value; end; function TLibStyle.Get_typeAllocation: Smallint; begin Result := DefaultInterface.typeAllocation; end; procedure TLibStyle.Set_typeAllocation(Value: Smallint); begin DefaultInterface.typeAllocation := Value; end; function TLibStyle.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLibStyleProperties.Create(AServer: TLibStyle); begin inherited Create; FServer := AServer; end; function TLibStyleProperties.GetDefaultInterface: ksLibStyle; begin Result := FServer.DefaultInterface; end; function TLibStyleProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TLibStyleProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TLibStyleProperties.Get_styleNumber: Integer; begin Result := DefaultInterface.styleNumber; end; procedure TLibStyleProperties.Set_styleNumber(Value: Integer); begin DefaultInterface.styleNumber := Value; end; function TLibStyleProperties.Get_typeAllocation: Smallint; begin Result := DefaultInterface.typeAllocation; end; procedure TLibStyleProperties.Set_typeAllocation(Value: Smallint); begin DefaultInterface.typeAllocation := Value; end; {$ENDIF} class function CoDataBaseObject.Create: ksDataBaseObject; begin Result := CreateComObject(CLASS_DataBaseObject) as ksDataBaseObject; end; class function CoDataBaseObject.CreateRemote(const MachineName: string): ksDataBaseObject; begin Result := CreateRemoteComObject(MachineName, CLASS_DataBaseObject) as ksDataBaseObject; end; procedure TDataBaseObject.InitServerData; const CServerData: TServerData = ( ClassID: '{0981CD03-9A49-11D6-8732-00C0262CDD2C}'; IntfIID: '{0981CD01-9A49-11D6-8732-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDataBaseObject.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDataBaseObject; end; end; procedure TDataBaseObject.ConnectTo(svrIntf: ksDataBaseObject); begin Disconnect; FIntf := svrIntf; end; procedure TDataBaseObject.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDataBaseObject.GetDefaultInterface: ksDataBaseObject; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDataBaseObject.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDataBaseObjectProperties.Create(Self); {$ENDIF} end; destructor TDataBaseObject.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDataBaseObject.GetServerProperties: TDataBaseObjectProperties; begin Result := FProps; end; {$ENDIF} function TDataBaseObject.ksRelation(db: Integer): Integer; begin Result := DefaultInterface.ksRelation(db); end; function TDataBaseObject.ksEndRelation: WordBool; begin Result := DefaultInterface.ksEndRelation; end; function TDataBaseObject.ksCreateDB(const typeBD: WideString): Integer; begin Result := DefaultInterface.ksCreateDB(typeBD); end; function TDataBaseObject.ksDeleteDB(db: Integer): Integer; begin Result := DefaultInterface.ksDeleteDB(db); end; function TDataBaseObject.ksConnectDB(db: Integer; const DBName: WideString): Integer; begin Result := DefaultInterface.ksConnectDB(db, DBName); end; function TDataBaseObject.ksDisconnectDB(db: Integer): Integer; begin Result := DefaultInterface.ksDisconnectDB(db); end; function TDataBaseObject.ksFreeStatement(db: Integer; r: Integer; fOption: Integer): Integer; begin Result := DefaultInterface.ksFreeStatement(db, r, fOption); end; function TDataBaseObject.ksDoStatement(db: Integer; r: Integer; const stSQL: WideString): Integer; begin Result := DefaultInterface.ksDoStatement(db, r, stSQL); end; function TDataBaseObject.ksReadRecord(db: Integer; r: Integer; const userPars: IDispatch): Integer; begin Result := DefaultInterface.ksReadRecord(db, r, userPars); end; function TDataBaseObject.ksCondition(db: Integer; r: Integer; const stSQL: WideString): Integer; begin Result := DefaultInterface.ksCondition(db, r, stSQL); end; function TDataBaseObject.ksRDouble(const name: WideString): Integer; begin Result := DefaultInterface.ksRDouble(name); end; function TDataBaseObject.ksRFloat(const name: WideString): Integer; begin Result := DefaultInterface.ksRFloat(name); end; function TDataBaseObject.ksRInt(const name: WideString): Integer; begin Result := DefaultInterface.ksRInt(name); end; function TDataBaseObject.ksRLong(const name: WideString): Integer; begin Result := DefaultInterface.ksRLong(name); end; function TDataBaseObject.ksRChar(const name: WideString; size: Integer; type_: Integer): Integer; begin Result := DefaultInterface.ksRChar(name, size, type_); end; function TDataBaseObject.ksOpenTextFile(const fileName: WideString): Integer; begin Result := DefaultInterface.ksOpenTextFile(fileName); end; function TDataBaseObject.ksCloseTextFile(F: Integer): WordBool; begin Result := DefaultInterface.ksCloseTextFile(F); end; function TDataBaseObject.ksReadStrFrFile(F: Integer; var res: Integer; numb: Integer): WideString; begin Result := DefaultInterface.ksReadStrFrFile(F, res, numb); end; function TDataBaseObject.ksGetTableName(db: Integer; var res: Integer; const firstOrNext: WideString): WideString; begin Result := DefaultInterface.ksGetTableName(db, res, firstOrNext); end; function TDataBaseObject.ksGetColumnName(db: Integer; const tableName: WideString; var res: Integer; const firstOrNext: WideString): WideString; begin Result := DefaultInterface.ksGetColumnName(db, tableName, res, firstOrNext); end; function TDataBaseObject.ksIsODBCOkey: Integer; begin Result := DefaultInterface.ksIsODBCOkey; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDataBaseObjectProperties.Create(AServer: TDataBaseObject); begin inherited Create; FServer := AServer; end; function TDataBaseObjectProperties.GetDefaultInterface: ksDataBaseObject; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoSpcDocumentNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_SpcDocumentNotify) as IUnknown; end; class function CoSpcDocumentNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcDocumentNotify) as IUnknown; end; procedure TSpcDocumentNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{DC32EB43-4615-4717-8C67-48875A357B06}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{1BD030F4-4058-4A86-9F4F-1AEEF8BE8D23}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcDocumentNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TSpcDocumentNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSpcDocumentNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSpcDocumentNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcDocumentNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcDocumentNotifyProperties.Create(Self); {$ENDIF} end; destructor TSpcDocumentNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcDocumentNotify.GetServerProperties: TSpcDocumentNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TSpcDocumentNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnDocumentBeginAdd) then FOnDocumentBeginAdd(Self); 2: if Assigned(FOnDocumentAdd) then FOnDocumentAdd(Self, Params[0] {const WideString}); 3: if Assigned(FOnDocumentBeginRemove) then FOnDocumentBeginRemove(Self, Params[0] {const WideString}); 4: if Assigned(FOnDocumentRemove) then FOnDocumentRemove(Self, Params[0] {const WideString}); 5: if Assigned(FOnSpcStyleBeginChange) then FOnSpcStyleBeginChange(Self, Params[0] {const WideString}, Params[1] {Integer}); 6: if Assigned(FOnSpcStyleChange) then FOnSpcStyleChange(Self, Params[0] {const WideString}, Params[1] {Integer}); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcDocumentNotifyProperties.Create(AServer: TSpcDocumentNotify); begin inherited Create; FServer := AServer; end; function TSpcDocumentNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoSpcDocument.Create: ksSpcDocument; begin Result := CreateComObject(CLASS_SpcDocument) as ksSpcDocument; end; class function CoSpcDocument.CreateRemote(const MachineName: string): ksSpcDocument; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcDocument) as ksSpcDocument; end; procedure TSpcDocument.InitServerData; const CServerData: TServerData = ( ClassID: '{51E74523-9A3A-11D6-95CE-00C0262D30E3}'; IntfIID: '{51E74521-9A3A-11D6-95CE-00C0262D30E3}'; EventIID: '{324C1A45-67AD-41FB-BE57-624F930646F1}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcDocument.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as ksSpcDocument; end; end; procedure TSpcDocument.ConnectTo(svrIntf: ksSpcDocument); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSpcDocument.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSpcDocument.GetDefaultInterface: ksSpcDocument; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcDocument.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcDocumentProperties.Create(Self); {$ENDIF} end; destructor TSpcDocument.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcDocument.GetServerProperties: TSpcDocumentProperties; begin Result := FProps; end; {$ENDIF} procedure TSpcDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginCloseDocument) then FOnBeginCloseDocument(Self); 2: if Assigned(FOnCloseDocument) then FOnCloseDocument(Self); 3: if Assigned(FOnBeginSaveDocument) then FOnBeginSaveDocument(Self, Params[0] {const WideString}); 4: if Assigned(FOnSaveDocument) then FOnSaveDocument(Self); 5: if Assigned(FOnActivate) then FOnActivate(Self); 6: if Assigned(FOnDeactivate) then FOnDeactivate(Self); 7: if Assigned(FOnBeginSaveAsDocument) then FOnBeginSaveAsDocument(Self); end; {case DispID} end; function TSpcDocument.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TSpcDocument.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; function TSpcDocument.GetStamp: IDispatch; begin Result := DefaultInterface.GetStamp; end; function TSpcDocument.GetSpecification: IDispatch; begin Result := DefaultInterface.GetSpecification; end; function TSpcDocument.ksCloseDocument: WordBool; begin Result := DefaultInterface.ksCloseDocument; end; function TSpcDocument.ksGetSpcSheetSB: IDispatch; begin Result := DefaultInterface.ksGetSpcSheetSB; end; function TSpcDocument.ksGetSpcDocumentPagesCount: Integer; begin Result := DefaultInterface.ksGetSpcDocumentPagesCount; end; function TSpcDocument.ksSaveDocument(const fileName: WideString): WordBool; begin Result := DefaultInterface.ksSaveDocument(fileName); end; function TSpcDocument.ksCreateDocument(const par: IDispatch): WordBool; begin Result := DefaultInterface.ksCreateDocument(par); end; function TSpcDocument.ksDeleteObj(ref: Integer): Integer; begin Result := DefaultInterface.ksDeleteObj(ref); end; function TSpcDocument.ksSetSpcSheetSB(const arr: IDispatch): Integer; begin Result := DefaultInterface.ksSetSpcSheetSB(arr); end; function TSpcDocument.ksExistObj(ref: Integer): Integer; begin Result := DefaultInterface.ksExistObj(ref); end; function TSpcDocument.ksOpenDocument(const nameDoc: WideString; regim: Smallint): WordBool; begin Result := DefaultInterface.ksOpenDocument(nameDoc, regim); end; function TSpcDocument.ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; begin Result := DefaultInterface.ksGetObjParam(ref, param, parType); end; function TSpcDocument.ksSetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; begin Result := DefaultInterface.ksSetObjParam(ref, param, parType); end; function TSpcDocument.SaveAsToRasterFormat(const fileName: WideString; const par: IDispatch): WordBool; begin Result := DefaultInterface.SaveAsToRasterFormat(fileName, par); end; function TSpcDocument.RasterFormatParam: IDispatch; begin Result := DefaultInterface.RasterFormatParam; end; function TSpcDocument.SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; begin Result := DefaultInterface.SaveAsToUncompressedRasterFormat(fileName, rasterPar); end; function TSpcDocument.GetSpcDocumentNotify: SpcDocumentNotify; begin Result := DefaultInterface.GetSpcDocumentNotify; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcDocumentProperties.Create(AServer: TSpcDocument); begin inherited Create; FServer := AServer; end; function TSpcDocumentProperties.GetDefaultInterface: ksSpcDocument; begin Result := FServer.DefaultInterface; end; function TSpcDocumentProperties.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TSpcDocumentProperties.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; {$ENDIF} class function CoSpcObjectNotify.Create: IUnknown; begin Result := CreateComObject(CLASS_SpcObjectNotify) as IUnknown; end; class function CoSpcObjectNotify.CreateRemote(const MachineName: string): IUnknown; begin Result := CreateRemoteComObject(MachineName, CLASS_SpcObjectNotify) as IUnknown; end; procedure TSpcObjectNotify.InitServerData; const CServerData: TServerData = ( ClassID: '{02CBC423-BC8C-40DE-BE65-03A67DF1C834}'; IntfIID: '{00000000-0000-0000-C000-000000000046}'; EventIID: '{AC5004D1-C240-41FC-AB84-7EB5C793AE7F}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpcObjectNotify.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IUnknown; end; end; procedure TSpcObjectNotify.ConnectTo(svrIntf: IUnknown); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSpcObjectNotify.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSpcObjectNotify.GetDefaultInterface: IUnknown; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpcObjectNotify.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpcObjectNotifyProperties.Create(Self); {$ENDIF} end; destructor TSpcObjectNotify.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpcObjectNotify.GetServerProperties: TSpcObjectNotifyProperties; begin Result := FProps; end; {$ENDIF} procedure TSpcObjectNotify.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginDelete) then FOnBeginDelete(Self, Params[0] {Integer}); 2: if Assigned(FOnDelete) then FOnDelete(Self, Params[0] {Integer}); 3: if Assigned(FOnCellDblClick) then FOnCellDblClick(Self, Params[0] {Integer}, Params[1] {Integer}); 4: if Assigned(FOnCellBeginEdit) then FOnCellBeginEdit(Self, Params[0] {Integer}, Params[1] {Integer}); 5: if Assigned(FOnChangeCurrent) then FOnChangeCurrent(Self, Params[0] {Integer}); 6: if Assigned(FOnDocumentBeginAdd) then FOnDocumentBeginAdd(Self, Params[0] {Integer}); 7: if Assigned(FOnDocumentAdd) then FOnDocumentAdd(Self, Params[0] {Integer}, Params[1] {const WideString}); 8: if Assigned(FOnDocumentRemove) then FOnDocumentRemove(Self, Params[0] {Integer}, Params[1] {const WideString}); 9: if Assigned(FOnBeginGeomChange) then FOnBeginGeomChange(Self, Params[0] {Integer}); 10: if Assigned(FOnGeomChange) then FOnGeomChange(Self, Params[0] {Integer}); 11: if Assigned(FOnBeginProcess) then FOnBeginProcess(Self, Params[0] {Integer}, Params[1] {Integer}); 12: if Assigned(FOnEndProcess) then FOnEndProcess(Self, Params[0] {Integer}); 13: if Assigned(FOnCreateObject) then FOnCreateObject(Self, Params[0] {Integer}); 14: if Assigned(FOnUpdateObject) then FOnUpdateObject(Self, Params[0] {Integer}); end; {case DispID} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpcObjectNotifyProperties.Create(AServer: TSpcObjectNotify); begin inherited Create; FServer := AServer; end; function TSpcObjectNotifyProperties.GetDefaultInterface: IUnknown; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoSpecification.Create: ksSpecification; begin Result := CreateComObject(CLASS_Specification) as ksSpecification; end; class function CoSpecification.CreateRemote(const MachineName: string): ksSpecification; begin Result := CreateRemoteComObject(MachineName, CLASS_Specification) as ksSpecification; end; procedure TSpecification.InitServerData; const CServerData: TServerData = ( ClassID: '{51E74526-9A3A-11D6-95CE-00C0262D30E3}'; IntfIID: '{51E74524-9A3A-11D6-95CE-00C0262D30E3}'; EventIID: '{0331AB4B-F25B-4EB9-9C8A-BFEA414E3822}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSpecification.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as ksSpecification; end; end; procedure TSpecification.ConnectTo(svrIntf: ksSpecification); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSpecification.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSpecification.GetDefaultInterface: ksSpecification; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSpecification.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSpecificationProperties.Create(Self); {$ENDIF} end; destructor TSpecification.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSpecification.GetServerProperties: TSpecificationProperties; begin Result := FProps; end; {$ENDIF} procedure TSpecification.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnTuningSpcStyleBeginChange) then FOnTuningSpcStyleBeginChange(Self, Params[0] {const WideString}, Params[1] {Integer}); 2: if Assigned(FOnTuningSpcStyleChange) then FOnTuningSpcStyleChange(Self, Params[0] {const WideString}, Params[1] {Integer}, Params[2] {WordBool}); 3: if Assigned(FOnChangeCurrentSpcDescription) then FOnChangeCurrentSpcDescription(Self, Params[0] {const WideString}, Params[1] {Integer}); 4: if Assigned(FOnSpcDescriptionAdd) then FOnSpcDescriptionAdd(Self, Params[0] {const WideString}, Params[1] {Integer}); 5: if Assigned(FOnSpcDescriptionRemove) then FOnSpcDescriptionRemove(Self, Params[0] {const WideString}, Params[1] {Integer}); 6: if Assigned(FOnSpcDescriptionBeginEdit) then FOnSpcDescriptionBeginEdit(Self, Params[0] {const WideString}, Params[1] {Integer}); 7: if Assigned(FOnSpcDescriptionEdit) then FOnSpcDescriptionEdit(Self, Params[0] {const WideString}, Params[1] {Integer}, Params[2] {WordBool}); 8: if Assigned(FOnSynchronizationBegin) then FOnSynchronizationBegin(Self); 9: if Assigned(FOnSynchronization) then FOnSynchronization(Self); 10: if Assigned(FOnBeginCalcPositions) then FOnBeginCalcPositions(Self); 11: if Assigned(FOnCalcPositions) then FOnCalcPositions(Self); 12: if Assigned(FOnBeginCreateObject) then FOnBeginCreateObject(Self, Params[0] {Integer}); end; {case DispID} end; function TSpecification.ksSpcObjectEnd: Integer; begin Result := DefaultInterface.ksSpcObjectEnd; end; function TSpecification.ksSpcObjectEdit(spcObj: Integer): Integer; begin Result := DefaultInterface.ksSpcObjectEdit(spcObj); end; function TSpecification.ksSpcObjectCreate(const nameLib: WideString; styleNumb: Integer; secNumb: Integer; subSecNumb: Integer; numb: Double; typeObj: Smallint): Integer; begin Result := DefaultInterface.ksSpcObjectCreate(nameLib, styleNumb, secNumb, subSecNumb, numb, typeObj); end; function TSpecification.ksSpcChangeValue(colNumb: Integer; itemNumb: Integer; const userPars: IDispatch; typeVal: Smallint): Integer; begin Result := DefaultInterface.ksSpcChangeValue(colNumb, itemNumb, userPars, typeVal); end; function TSpecification.ksSpcVisible(colNumb: Integer; itemNumb: Integer; flagOn: Smallint): Integer; begin Result := DefaultInterface.ksSpcVisible(colNumb, itemNumb, flagOn); end; function TSpecification.ksSpcMassa(const sMassa: WideString): Integer; begin Result := DefaultInterface.ksSpcMassa(sMassa); end; function TSpecification.ksSpcCount(ispoln: Smallint; const sCount: WideString): Integer; begin Result := DefaultInterface.ksSpcCount(ispoln, sCount); end; function TSpecification.ksSpcPosition(pos: Integer): Integer; begin Result := DefaultInterface.ksSpcPosition(pos); end; function TSpecification.ksSpcIncludeReference(obj: Integer; Clear: Smallint): Integer; begin Result := DefaultInterface.ksSpcIncludeReference(obj, Clear); end; function TSpecification.ksGetSpcObjForGeom(const nameLib: WideString; numb: Integer; obj: Integer; equal: Smallint; First: Smallint): Integer; begin Result := DefaultInterface.ksGetSpcObjForGeom(nameLib, numb, obj, equal, First); end; function TSpecification.ksGetSpcObjForGeomWithLimit(const nameLib: WideString; numb: Integer; obj: Integer; equal: Smallint; First: Smallint; section: Integer; attrTypeNumb: Double): Integer; begin Result := DefaultInterface.ksGetSpcObjForGeomWithLimit(nameLib, numb, obj, equal, First, section, attrTypeNumb); end; function TSpecification.ksGetSpcSectionName(spcObj: Integer): WideString; begin Result := DefaultInterface.ksGetSpcSectionName(spcObj); end; function TSpecification.ksEditWindowSpcObject(obj: Integer): Integer; begin Result := DefaultInterface.ksEditWindowSpcObject(obj); end; function TSpecification.ksGetSpcObjectNumber(spcObj: Integer): Double; begin Result := DefaultInterface.ksGetSpcObjectNumber(spcObj); end; function TSpecification.ksGetSpcObject(objNumb: Double): Integer; begin Result := DefaultInterface.ksGetSpcObject(objNumb); end; function TSpecification.ksGetSpcObjectColumnText(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): WideString; begin Result := DefaultInterface.ksGetSpcObjectColumnText(spcObj, columnType, ispoln, block); end; function TSpecification.ksSetSpcObjectColumnText(columnType: Integer; ispoln: Integer; block: Integer; const str: WideString): Integer; begin Result := DefaultInterface.ksSetSpcObjectColumnText(columnType, ispoln, block, str); end; function TSpecification.ksGetSpcTableColumn(const nameLib: WideString; numb: Integer; additioanalCol: Smallint): Integer; begin Result := DefaultInterface.ksGetSpcTableColumn(nameLib, numb, additioanalCol); end; function TSpecification.ksGetSpcColumnType(spcObj: Integer; colNumb: Integer; const par: IDispatch): Integer; begin Result := DefaultInterface.ksGetSpcColumnType(spcObj, colNumb, par); end; function TSpecification.ksGetSpcColumnNumb(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): Integer; begin Result := DefaultInterface.ksGetSpcColumnNumb(spcObj, columnType, ispoln, block); end; function TSpecification.ksGetSpcStyleParam(const nameLib: WideString; numb: Integer; const par: IDispatch; tPar: Integer): Integer; begin Result := DefaultInterface.ksGetSpcStyleParam(nameLib, numb, par, tPar); end; function TSpecification.ksGetSpcDescription(index: Integer; const param: IDispatch; var state: WordBool): Integer; begin Result := DefaultInterface.ksGetSpcDescription(index, param, state); end; function TSpecification.ksSetSpcDescription(index: Integer; const param: IDispatch; state: Smallint): Integer; begin Result := DefaultInterface.ksSetSpcDescription(index, param, state); end; function TSpecification.ksAddSpcDescription(const param: IDispatch): Integer; begin Result := DefaultInterface.ksAddSpcDescription(param); end; function TSpecification.ksDeleteSpcDescription(index: Integer): Integer; begin Result := DefaultInterface.ksDeleteSpcDescription(index); end; function TSpecification.D3SpcIncludePart(const part: IDispatch; fillTexts: WordBool): WordBool; begin Result := DefaultInterface.D3SpcIncludePart(part, fillTexts); end; function TSpecification.D3GetSpcObjForGeomWithLimit(const nameLib: WideString; numb: Integer; const part: IDispatch; First: Smallint; section: Smallint; attrTypeNumb: Double): Integer; begin Result := DefaultInterface.D3GetSpcObjForGeomWithLimit(nameLib, numb, part, First, section, attrTypeNumb); end; function TSpecification.ksGetWidthColumnSpc(numColumn: Integer; cellOrText: WordBool): Double; begin Result := DefaultInterface.ksGetWidthColumnSpc(numColumn, cellOrText); end; function TSpecification.ksGetCurrentSpcObject: Integer; begin Result := DefaultInterface.ksGetCurrentSpcObject; end; function TSpecification.ksSetCurrentSpcObject(spcObj: Integer; index: Integer): Integer; begin Result := DefaultInterface.ksSetCurrentSpcObject(spcObj, index); end; function TSpecification.ksSetTuningSpcStyleParam(index: Integer; const par: IDispatch): Integer; begin Result := DefaultInterface.ksSetTuningSpcStyleParam(index, par); end; function TSpecification.ksGetTuningSpcStyleParam(index: Integer; const par: IDispatch): Integer; begin Result := DefaultInterface.ksGetTuningSpcStyleParam(index, par); end; function TSpecification.ksGetSpcObjGeometry(spcObj: Integer): Integer; begin Result := DefaultInterface.ksGetSpcObjGeometry(spcObj); end; function TSpecification.D3GetSpcObjGeometry(spcObj: Integer): IDispatch; begin Result := DefaultInterface.D3GetSpcObjGeometry(spcObj); end; function TSpecification.ksGetSpcObjectColumnTextEx(spcObj: Integer; columnType: Integer; ispoln: Integer; block: Integer): IDispatch; begin Result := DefaultInterface.ksGetSpcObjectColumnTextEx(spcObj, columnType, ispoln, block); end; function TSpecification.ksSetSpcObjectColumnTextEx(columnType: Integer; ispoln: Integer; block: Integer; const arr: IDispatch): Integer; begin Result := DefaultInterface.ksSetSpcObjectColumnTextEx(columnType, ispoln, block, arr); end; function TSpecification.GetSpcObjectNotify(objType: Integer): SpcObjectNotify; begin Result := DefaultInterface.GetSpcObjectNotify(objType); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSpecificationProperties.Create(AServer: TSpecification); begin inherited Create; FServer := AServer; end; function TSpecificationProperties.GetDefaultInterface: ksSpecification; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoDocumentTxt.Create: ksDocumentTxt; begin Result := CreateComObject(CLASS_DocumentTxt) as ksDocumentTxt; end; class function CoDocumentTxt.CreateRemote(const MachineName: string): ksDocumentTxt; begin Result := CreateRemoteComObject(MachineName, CLASS_DocumentTxt) as ksDocumentTxt; end; procedure TDocumentTxt.InitServerData; const CServerData: TServerData = ( ClassID: '{74D745F3-9A3A-11D6-95CE-00C0262D30E3}'; IntfIID: '{74D745F1-9A3A-11D6-95CE-00C0262D30E3}'; EventIID: '{324C1A45-67AD-41FB-BE57-624F930646F1}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDocumentTxt.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as ksDocumentTxt; end; end; procedure TDocumentTxt.ConnectTo(svrIntf: ksDocumentTxt); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDocumentTxt.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDocumentTxt.GetDefaultInterface: ksDocumentTxt; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDocumentTxt.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDocumentTxtProperties.Create(Self); {$ENDIF} end; destructor TDocumentTxt.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDocumentTxt.GetServerProperties: TDocumentTxtProperties; begin Result := FProps; end; {$ENDIF} procedure TDocumentTxt.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnBeginCloseDocument) then FOnBeginCloseDocument(Self); 2: if Assigned(FOnCloseDocument) then FOnCloseDocument(Self); 3: if Assigned(FOnBeginSaveDocument) then FOnBeginSaveDocument(Self, Params[0] {const WideString}); 4: if Assigned(FOnSaveDocument) then FOnSaveDocument(Self); 5: if Assigned(FOnActivate) then FOnActivate(Self); 6: if Assigned(FOnDeactivate) then FOnDeactivate(Self); 7: if Assigned(FOnBeginSaveAsDocument) then FOnBeginSaveAsDocument(Self); end; {case DispID} end; function TDocumentTxt.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TDocumentTxt.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; function TDocumentTxt.GetStamp: IDispatch; begin Result := DefaultInterface.GetStamp; end; function TDocumentTxt.ksCloseDocument: WordBool; begin Result := DefaultInterface.ksCloseDocument; end; function TDocumentTxt.ksGetTxtDocumentPagesCount: Integer; begin Result := DefaultInterface.ksGetTxtDocumentPagesCount; end; function TDocumentTxt.ksSaveDocument(const fileName: WideString): WordBool; begin Result := DefaultInterface.ksSaveDocument(fileName); end; function TDocumentTxt.ksCreateDocument(const par: IDispatch): WordBool; begin Result := DefaultInterface.ksCreateDocument(par); end; function TDocumentTxt.ksOpenDocument(const nameDoc: WideString; regim: Smallint): WordBool; begin Result := DefaultInterface.ksOpenDocument(nameDoc, regim); end; function TDocumentTxt.SaveAsToRasterFormat(const fileName: WideString; const par: IDispatch): WordBool; begin Result := DefaultInterface.SaveAsToRasterFormat(fileName, par); end; function TDocumentTxt.RasterFormatParam: IDispatch; begin Result := DefaultInterface.RasterFormatParam; end; function TDocumentTxt.SaveAsToUncompressedRasterFormat(const fileName: WideString; const rasterPar: IDispatch): WordBool; begin Result := DefaultInterface.SaveAsToUncompressedRasterFormat(fileName, rasterPar); end; function TDocumentTxt.ksGetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; begin Result := DefaultInterface.ksGetObjParam(ref, param, parType); end; function TDocumentTxt.ksSetObjParam(ref: Integer; const param: IDispatch; parType: Integer): Integer; begin Result := DefaultInterface.ksSetObjParam(ref, param, parType); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDocumentTxtProperties.Create(AServer: TDocumentTxt); begin inherited Create; FServer := AServer; end; function TDocumentTxtProperties.GetDefaultInterface: ksDocumentTxt; begin Result := FServer.DefaultInterface; end; function TDocumentTxtProperties.Get_reference: Integer; begin Result := DefaultInterface.reference; end; procedure TDocumentTxtProperties.Set_reference(Value: Integer); begin DefaultInterface.reference := Value; end; {$ENDIF} class function CoAttributeTypeParam.Create: ksAttributeTypeParam; begin Result := CreateComObject(CLASS_AttributeTypeParam) as ksAttributeTypeParam; end; class function CoAttributeTypeParam.CreateRemote(const MachineName: string): ksAttributeTypeParam; begin Result := CreateRemoteComObject(MachineName, CLASS_AttributeTypeParam) as ksAttributeTypeParam; end; procedure TAttributeTypeParam.InitServerData; const CServerData: TServerData = ( ClassID: '{CC26DA63-9B22-11D6-95CE-00C0262D30E3}'; IntfIID: '{CC26DA61-9B22-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttributeTypeParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAttributeTypeParam; end; end; procedure TAttributeTypeParam.ConnectTo(svrIntf: ksAttributeTypeParam); begin Disconnect; FIntf := svrIntf; end; procedure TAttributeTypeParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttributeTypeParam.GetDefaultInterface: ksAttributeTypeParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAttributeTypeParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAttributeTypeParamProperties.Create(Self); {$ENDIF} end; destructor TAttributeTypeParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAttributeTypeParam.GetServerProperties: TAttributeTypeParamProperties; begin Result := FProps; end; {$ENDIF} function TAttributeTypeParam.Get_key1: Integer; begin Result := DefaultInterface.key1; end; procedure TAttributeTypeParam.Set_key1(Value: Integer); begin DefaultInterface.key1 := Value; end; function TAttributeTypeParam.Get_key2: Integer; begin Result := DefaultInterface.key2; end; procedure TAttributeTypeParam.Set_key2(Value: Integer); begin DefaultInterface.key2 := Value; end; function TAttributeTypeParam.Get_key3: Integer; begin Result := DefaultInterface.key3; end; procedure TAttributeTypeParam.Set_key3(Value: Integer); begin DefaultInterface.key3 := Value; end; function TAttributeTypeParam.Get_key4: Integer; begin Result := DefaultInterface.key4; end; procedure TAttributeTypeParam.Set_key4(Value: Integer); begin DefaultInterface.key4 := Value; end; function TAttributeTypeParam.Get_rowsCount: Integer; begin Result := DefaultInterface.rowsCount; end; procedure TAttributeTypeParam.Set_rowsCount(Value: Integer); begin DefaultInterface.rowsCount := Value; end; function TAttributeTypeParam.Get_header: WideString; begin Result := DefaultInterface.header; end; procedure TAttributeTypeParam.Set_header(const Value: WideString); begin DefaultInterface.header := Value; end; function TAttributeTypeParam.Get_flagVisible: WordBool; begin Result := DefaultInterface.flagVisible; end; procedure TAttributeTypeParam.Set_flagVisible(Value: WordBool); begin DefaultInterface.flagVisible := Value; end; function TAttributeTypeParam.Get_password: WideString; begin Result := DefaultInterface.password; end; procedure TAttributeTypeParam.Set_password(const Value: WideString); begin DefaultInterface.password := Value; end; function TAttributeTypeParam.GetColumns: IDispatch; begin Result := DefaultInterface.GetColumns; end; function TAttributeTypeParam.SetColumns(const val: IDispatch): WordBool; begin Result := DefaultInterface.SetColumns(val); end; function TAttributeTypeParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAttributeTypeParamProperties.Create(AServer: TAttributeTypeParam); begin inherited Create; FServer := AServer; end; function TAttributeTypeParamProperties.GetDefaultInterface: ksAttributeTypeParam; begin Result := FServer.DefaultInterface; end; function TAttributeTypeParamProperties.Get_key1: Integer; begin Result := DefaultInterface.key1; end; procedure TAttributeTypeParamProperties.Set_key1(Value: Integer); begin DefaultInterface.key1 := Value; end; function TAttributeTypeParamProperties.Get_key2: Integer; begin Result := DefaultInterface.key2; end; procedure TAttributeTypeParamProperties.Set_key2(Value: Integer); begin DefaultInterface.key2 := Value; end; function TAttributeTypeParamProperties.Get_key3: Integer; begin Result := DefaultInterface.key3; end; procedure TAttributeTypeParamProperties.Set_key3(Value: Integer); begin DefaultInterface.key3 := Value; end; function TAttributeTypeParamProperties.Get_key4: Integer; begin Result := DefaultInterface.key4; end; procedure TAttributeTypeParamProperties.Set_key4(Value: Integer); begin DefaultInterface.key4 := Value; end; function TAttributeTypeParamProperties.Get_rowsCount: Integer; begin Result := DefaultInterface.rowsCount; end; procedure TAttributeTypeParamProperties.Set_rowsCount(Value: Integer); begin DefaultInterface.rowsCount := Value; end; function TAttributeTypeParamProperties.Get_header: WideString; begin Result := DefaultInterface.header; end; procedure TAttributeTypeParamProperties.Set_header(const Value: WideString); begin DefaultInterface.header := Value; end; function TAttributeTypeParamProperties.Get_flagVisible: WordBool; begin Result := DefaultInterface.flagVisible; end; procedure TAttributeTypeParamProperties.Set_flagVisible(Value: WordBool); begin DefaultInterface.flagVisible := Value; end; function TAttributeTypeParamProperties.Get_password: WideString; begin Result := DefaultInterface.password; end; procedure TAttributeTypeParamProperties.Set_password(const Value: WideString); begin DefaultInterface.password := Value; end; {$ENDIF} class function CoColumnInfoParam.Create: ksColumnInfoParam; begin Result := CreateComObject(CLASS_ColumnInfoParam) as ksColumnInfoParam; end; class function CoColumnInfoParam.CreateRemote(const MachineName: string): ksColumnInfoParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ColumnInfoParam) as ksColumnInfoParam; end; procedure TColumnInfoParam.InitServerData; const CServerData: TServerData = ( ClassID: '{CE0D05E3-9B2A-11D6-95CE-00C0262D30E3}'; IntfIID: '{CE0D05E1-9B2A-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TColumnInfoParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksColumnInfoParam; end; end; procedure TColumnInfoParam.ConnectTo(svrIntf: ksColumnInfoParam); begin Disconnect; FIntf := svrIntf; end; procedure TColumnInfoParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TColumnInfoParam.GetDefaultInterface: ksColumnInfoParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TColumnInfoParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TColumnInfoParamProperties.Create(Self); {$ENDIF} end; destructor TColumnInfoParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TColumnInfoParam.GetServerProperties: TColumnInfoParamProperties; begin Result := FProps; end; {$ENDIF} function TColumnInfoParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TColumnInfoParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TColumnInfoParam.Get_header: WideString; begin Result := DefaultInterface.header; end; procedure TColumnInfoParam.Set_header(const Value: WideString); begin DefaultInterface.header := Value; end; function TColumnInfoParam.Get_key: Smallint; begin Result := DefaultInterface.key; end; procedure TColumnInfoParam.Set_key(Value: Smallint); begin DefaultInterface.key := Value; end; function TColumnInfoParam.Get_def: WideString; begin Result := DefaultInterface.def; end; procedure TColumnInfoParam.Set_def(const Value: WideString); begin DefaultInterface.def := Value; end; function TColumnInfoParam.Get_flagEnum: WordBool; begin Result := DefaultInterface.flagEnum; end; procedure TColumnInfoParam.Set_flagEnum(Value: WordBool); begin DefaultInterface.flagEnum := Value; end; function TColumnInfoParam.GetFieldEnum: IDispatch; begin Result := DefaultInterface.GetFieldEnum; end; function TColumnInfoParam.SetFieldEnum(const fieldEnum: IDispatch): WordBool; begin Result := DefaultInterface.SetFieldEnum(fieldEnum); end; function TColumnInfoParam.GetColumns: IDispatch; begin Result := DefaultInterface.GetColumns; end; function TColumnInfoParam.SetColumns(const fieldEnum: IDispatch): WordBool; begin Result := DefaultInterface.SetColumns(fieldEnum); end; function TColumnInfoParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TColumnInfoParamProperties.Create(AServer: TColumnInfoParam); begin inherited Create; FServer := AServer; end; function TColumnInfoParamProperties.GetDefaultInterface: ksColumnInfoParam; begin Result := FServer.DefaultInterface; end; function TColumnInfoParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TColumnInfoParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TColumnInfoParamProperties.Get_header: WideString; begin Result := DefaultInterface.header; end; procedure TColumnInfoParamProperties.Set_header(const Value: WideString); begin DefaultInterface.header := Value; end; function TColumnInfoParamProperties.Get_key: Smallint; begin Result := DefaultInterface.key; end; procedure TColumnInfoParamProperties.Set_key(Value: Smallint); begin DefaultInterface.key := Value; end; function TColumnInfoParamProperties.Get_def: WideString; begin Result := DefaultInterface.def; end; procedure TColumnInfoParamProperties.Set_def(const Value: WideString); begin DefaultInterface.def := Value; end; function TColumnInfoParamProperties.Get_flagEnum: WordBool; begin Result := DefaultInterface.flagEnum; end; procedure TColumnInfoParamProperties.Set_flagEnum(Value: WordBool); begin DefaultInterface.flagEnum := Value; end; {$ENDIF} class function CoAttributeParam.Create: ksAttributeParam; begin Result := CreateComObject(CLASS_AttributeParam) as ksAttributeParam; end; class function CoAttributeParam.CreateRemote(const MachineName: string): ksAttributeParam; begin Result := CreateRemoteComObject(MachineName, CLASS_AttributeParam) as ksAttributeParam; end; procedure TAttributeParam.InitServerData; const CServerData: TServerData = ( ClassID: '{CE0D05E6-9B2A-11D6-95CE-00C0262D30E3}'; IntfIID: '{CE0D05E4-9B2A-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttributeParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAttributeParam; end; end; procedure TAttributeParam.ConnectTo(svrIntf: ksAttributeParam); begin Disconnect; FIntf := svrIntf; end; procedure TAttributeParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttributeParam.GetDefaultInterface: ksAttributeParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAttributeParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAttributeParamProperties.Create(Self); {$ENDIF} end; destructor TAttributeParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAttributeParam.GetServerProperties: TAttributeParamProperties; begin Result := FProps; end; {$ENDIF} function TAttributeParam.Get_key1: Integer; begin Result := DefaultInterface.key1; end; procedure TAttributeParam.Set_key1(Value: Integer); begin DefaultInterface.key1 := Value; end; function TAttributeParam.Get_key2: Integer; begin Result := DefaultInterface.key2; end; procedure TAttributeParam.Set_key2(Value: Integer); begin DefaultInterface.key2 := Value; end; function TAttributeParam.Get_key3: Integer; begin Result := DefaultInterface.key3; end; procedure TAttributeParam.Set_key3(Value: Integer); begin DefaultInterface.key3 := Value; end; function TAttributeParam.Get_key4: Integer; begin Result := DefaultInterface.key4; end; procedure TAttributeParam.Set_key4(Value: Integer); begin DefaultInterface.key4 := Value; end; function TAttributeParam.Get_password: WideString; begin Result := DefaultInterface.password; end; procedure TAttributeParam.Set_password(const Value: WideString); begin DefaultInterface.password := Value; end; function TAttributeParam.GetValues: IDispatch; begin Result := DefaultInterface.GetValues; end; function TAttributeParam.SetValues(const values: IDispatch): WordBool; begin Result := DefaultInterface.SetValues(values); end; function TAttributeParam.GetFlagVisible: IDispatch; begin Result := DefaultInterface.GetFlagVisible; end; function TAttributeParam.SetFlagVisible(const flagVisible: IDispatch): WordBool; begin Result := DefaultInterface.SetFlagVisible(flagVisible); end; function TAttributeParam.GetColumnKeys: IDispatch; begin Result := DefaultInterface.GetColumnKeys; end; function TAttributeParam.SetColumnKeys(const columnKeys: IDispatch): WordBool; begin Result := DefaultInterface.SetColumnKeys(columnKeys); end; function TAttributeParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAttributeParamProperties.Create(AServer: TAttributeParam); begin inherited Create; FServer := AServer; end; function TAttributeParamProperties.GetDefaultInterface: ksAttributeParam; begin Result := FServer.DefaultInterface; end; function TAttributeParamProperties.Get_key1: Integer; begin Result := DefaultInterface.key1; end; procedure TAttributeParamProperties.Set_key1(Value: Integer); begin DefaultInterface.key1 := Value; end; function TAttributeParamProperties.Get_key2: Integer; begin Result := DefaultInterface.key2; end; procedure TAttributeParamProperties.Set_key2(Value: Integer); begin DefaultInterface.key2 := Value; end; function TAttributeParamProperties.Get_key3: Integer; begin Result := DefaultInterface.key3; end; procedure TAttributeParamProperties.Set_key3(Value: Integer); begin DefaultInterface.key3 := Value; end; function TAttributeParamProperties.Get_key4: Integer; begin Result := DefaultInterface.key4; end; procedure TAttributeParamProperties.Set_key4(Value: Integer); begin DefaultInterface.key4 := Value; end; function TAttributeParamProperties.Get_password: WideString; begin Result := DefaultInterface.password; end; procedure TAttributeParamProperties.Set_password(const Value: WideString); begin DefaultInterface.password := Value; end; {$ENDIF} class function CoVariable.Create: ksVariable; begin Result := CreateComObject(CLASS_Variable) as ksVariable; end; class function CoVariable.CreateRemote(const MachineName: string): ksVariable; begin Result := CreateRemoteComObject(MachineName, CLASS_Variable) as ksVariable; end; procedure TVariable.InitServerData; const CServerData: TServerData = ( ClassID: '{508A0CC3-9D74-11D6-95CE-00C0262D30E3}'; IntfIID: '{508A0CC1-9D74-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TVariable.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksVariable; end; end; procedure TVariable.ConnectTo(svrIntf: ksVariable); begin Disconnect; FIntf := svrIntf; end; procedure TVariable.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TVariable.GetDefaultInterface: ksVariable; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TVariable.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TVariableProperties.Create(Self); {$ENDIF} end; destructor TVariable.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TVariable.GetServerProperties: TVariableProperties; begin Result := FProps; end; {$ENDIF} function TVariable.Get_value: Double; begin Result := DefaultInterface.value; end; procedure TVariable.Set_value(Value: Double); begin DefaultInterface.value := Value; end; function TVariable.Get_note: WideString; begin Result := DefaultInterface.note; end; procedure TVariable.Set_note(const Value: WideString); begin DefaultInterface.note := Value; end; function TVariable.Get_name: WideString; begin Result := DefaultInterface.name; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TVariableProperties.Create(AServer: TVariable); begin inherited Create; FServer := AServer; end; function TVariableProperties.GetDefaultInterface: ksVariable; begin Result := FServer.DefaultInterface; end; function TVariableProperties.Get_value: Double; begin Result := DefaultInterface.value; end; procedure TVariableProperties.Set_value(Value: Double); begin DefaultInterface.value := Value; end; function TVariableProperties.Get_note: WideString; begin Result := DefaultInterface.note; end; procedure TVariableProperties.Set_note(const Value: WideString); begin DefaultInterface.note := Value; end; function TVariableProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; {$ENDIF} class function CoLibraryAttrTypeParam.Create: ksLibraryAttrTypeParam; begin Result := CreateComObject(CLASS_LibraryAttrTypeParam) as ksLibraryAttrTypeParam; end; class function CoLibraryAttrTypeParam.CreateRemote(const MachineName: string): ksLibraryAttrTypeParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LibraryAttrTypeParam) as ksLibraryAttrTypeParam; end; procedure TLibraryAttrTypeParam.InitServerData; const CServerData: TServerData = ( ClassID: '{FA93AA23-9B3D-11D6-95CE-00C0262D30E3}'; IntfIID: '{FA93AA21-9B3D-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLibraryAttrTypeParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLibraryAttrTypeParam; end; end; procedure TLibraryAttrTypeParam.ConnectTo(svrIntf: ksLibraryAttrTypeParam); begin Disconnect; FIntf := svrIntf; end; procedure TLibraryAttrTypeParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLibraryAttrTypeParam.GetDefaultInterface: ksLibraryAttrTypeParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLibraryAttrTypeParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLibraryAttrTypeParamProperties.Create(Self); {$ENDIF} end; destructor TLibraryAttrTypeParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLibraryAttrTypeParam.GetServerProperties: TLibraryAttrTypeParamProperties; begin Result := FProps; end; {$ENDIF} function TLibraryAttrTypeParam.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TLibraryAttrTypeParam.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TLibraryAttrTypeParam.Get_typeId: Double; begin Result := DefaultInterface.typeId; end; procedure TLibraryAttrTypeParam.Set_typeId(Value: Double); begin DefaultInterface.typeId := Value; end; function TLibraryAttrTypeParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLibraryAttrTypeParamProperties.Create(AServer: TLibraryAttrTypeParam); begin inherited Create; FServer := AServer; end; function TLibraryAttrTypeParamProperties.GetDefaultInterface: ksLibraryAttrTypeParam; begin Result := FServer.DefaultInterface; end; function TLibraryAttrTypeParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TLibraryAttrTypeParamProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TLibraryAttrTypeParamProperties.Get_typeId: Double; begin Result := DefaultInterface.typeId; end; procedure TLibraryAttrTypeParamProperties.Set_typeId(Value: Double); begin DefaultInterface.typeId := Value; end; {$ENDIF} class function CoAttributeObject.Create: ksAttributeObject; begin Result := CreateComObject(CLASS_AttributeObject) as ksAttributeObject; end; class function CoAttributeObject.CreateRemote(const MachineName: string): ksAttributeObject; begin Result := CreateRemoteComObject(MachineName, CLASS_AttributeObject) as ksAttributeObject; end; procedure TAttributeObject.InitServerData; const CServerData: TServerData = ( ClassID: '{FA93AA26-9B3D-11D6-95CE-00C0262D30E3}'; IntfIID: '{FA93AA24-9B3D-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttributeObject.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAttributeObject; end; end; procedure TAttributeObject.ConnectTo(svrIntf: ksAttributeObject); begin Disconnect; FIntf := svrIntf; end; procedure TAttributeObject.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttributeObject.GetDefaultInterface: ksAttributeObject; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAttributeObject.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAttributeObjectProperties.Create(Self); {$ENDIF} end; destructor TAttributeObject.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAttributeObject.GetServerProperties: TAttributeObjectProperties; begin Result := FProps; end; {$ENDIF} function TAttributeObject.ksCreateAttrType(const attrType: IDispatch; const libName: WideString): Double; begin Result := DefaultInterface.ksCreateAttrType(attrType, libName); end; function TAttributeObject.ksDeleteAttrType(attrID: Double; const libName: WideString; const password: WideString): Integer; begin Result := DefaultInterface.ksDeleteAttrType(attrID, libName, password); end; function TAttributeObject.ksGetAttrType(attrID: Double; const libName: WideString; const attrType: IDispatch): Integer; begin Result := DefaultInterface.ksGetAttrType(attrID, libName, attrType); end; function TAttributeObject.ksSetAttrType(attrID: Double; const libName: WideString; const attrType: IDispatch; const password: WideString): Double; begin Result := DefaultInterface.ksSetAttrType(attrID, libName, attrType, password); end; function TAttributeObject.ksChoiceAttrTypes(const libName: WideString): Double; begin Result := DefaultInterface.ksChoiceAttrTypes(libName); end; function TAttributeObject.ksCreateAttr(pObj: Integer; const attr: IDispatch; attrID: Double; const libName: WideString): Integer; begin Result := DefaultInterface.ksCreateAttr(pObj, attr, attrID, libName); end; function TAttributeObject.ksDeleteAttr(pObj: Integer; pAttr: Integer; const password: WideString): Integer; begin Result := DefaultInterface.ksDeleteAttr(pObj, pAttr, password); end; function TAttributeObject.ksGetAttrValue(pAttr: Integer; rowNumb: Integer; columnNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch): Integer; begin Result := DefaultInterface.ksGetAttrValue(pAttr, rowNumb, columnNumb, flagVisible, columnKeys, value); end; function TAttributeObject.ksSetAttrValue(pAttr: Integer; rowNumb: Integer; columnNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch; const password: WideString): Integer; begin Result := DefaultInterface.ksSetAttrValue(pAttr, rowNumb, columnNumb, flagVisible, columnKeys, value, password); end; function TAttributeObject.ksGetAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch): Integer; begin Result := DefaultInterface.ksGetAttrRow(pAttr, rowNumb, flagVisible, columnKeys, value); end; function TAttributeObject.ksSetAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const columnKeys: IDispatch; const value: IDispatch; const password: WideString): Integer; begin Result := DefaultInterface.ksSetAttrRow(pAttr, rowNumb, flagVisible, columnKeys, value, password); end; function TAttributeObject.ksAddAttrRow(pAttr: Integer; rowNumb: Integer; const flagVisible: IDispatch; const value: IDispatch; const password: WideString): Integer; begin Result := DefaultInterface.ksAddAttrRow(pAttr, rowNumb, flagVisible, value, password); end; function TAttributeObject.ksDeleteAttrRow(pAttr: Integer; rowNumb: Integer; const password: WideString): Integer; begin Result := DefaultInterface.ksDeleteAttrRow(pAttr, rowNumb, password); end; function TAttributeObject.ksGetSizeAttrValue(pAttr: Integer; columnNumb: Integer; var count: Integer): Integer; begin Result := DefaultInterface.ksGetSizeAttrValue(pAttr, columnNumb, count); end; function TAttributeObject.ksGetSizeAttrRow(pAttr: Integer; var count: Integer): Integer; begin Result := DefaultInterface.ksGetSizeAttrRow(pAttr, count); end; function TAttributeObject.ksGetAttrKeysInfo(pAttr: Integer; var key1: Integer; var key2: Integer; var key3: Integer; var key4: Integer; var numb: Double): Integer; begin Result := DefaultInterface.ksGetAttrKeysInfo(pAttr, key1, key2, key3, key4, numb); end; function TAttributeObject.ksGetAttrColumnInfo(pAttr: Integer; columnNumb: Integer; const columnInfo: IDispatch): Integer; begin Result := DefaultInterface.ksGetAttrColumnInfo(pAttr, columnNumb, columnInfo); end; function TAttributeObject.ksGetAttrTabInfo(pAttr: Integer; var rowsCount: Integer; var columnsCount: Integer): Integer; begin Result := DefaultInterface.ksGetAttrTabInfo(pAttr, rowsCount, columnsCount); end; function TAttributeObject.ksViewEditAttr(pAttr: Integer; type_: Integer; const password: WideString): Integer; begin Result := DefaultInterface.ksViewEditAttr(pAttr, type_, password); end; function TAttributeObject.ksViewEditAttrType(const libName: WideString; type_: Integer; attrID: Double; const password: WideString): Integer; begin Result := DefaultInterface.ksViewEditAttrType(libName, type_, attrID, password); end; function TAttributeObject.ksChoiceAttr(pObj: Integer): Integer; begin Result := DefaultInterface.ksChoiceAttr(pObj); end; function TAttributeObject.ksGetLibraryAttrTypesArray(const libName: WideString): IDispatch; begin Result := DefaultInterface.ksGetLibraryAttrTypesArray(libName); end; function TAttributeObject.ksCreateAttr3D(const pObj: IDispatch; const attr: IDispatch; attrID: Double; const libName: WideString): ksAttribute3D; begin Result := DefaultInterface.ksCreateAttr3D(pObj, attr, attrID, libName); end; function TAttributeObject.ksDeleteAttr3D(const pObj: IDispatch; const pAttr: ksAttribute3D; const password: WideString): Integer; begin Result := DefaultInterface.ksDeleteAttr3D(pObj, pAttr, password); end; function TAttributeObject.ksChoiceAttr3D(const pObj: IDispatch): ksAttribute3D; begin Result := DefaultInterface.ksChoiceAttr3D(pObj); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAttributeObjectProperties.Create(AServer: TAttributeObject); begin inherited Create; FServer := AServer; end; function TAttributeObjectProperties.GetDefaultInterface: ksAttributeObject; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoRequestInfo3D.Create: ksRequestInfo3D; begin Result := CreateComObject(CLASS_RequestInfo3D) as ksRequestInfo3D; end; class function CoRequestInfo3D.CreateRemote(const MachineName: string): ksRequestInfo3D; begin Result := CreateRemoteComObject(MachineName, CLASS_RequestInfo3D) as ksRequestInfo3D; end; procedure TRequestInfo3D.InitServerData; const CServerData: TServerData = ( ClassID: '{E9807826-9D55-11D6-95CE-00C0262D30E3}'; IntfIID: '{E9807824-9D55-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRequestInfo3D.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRequestInfo3D; end; end; procedure TRequestInfo3D.ConnectTo(svrIntf: ksRequestInfo3D); begin Disconnect; FIntf := svrIntf; end; procedure TRequestInfo3D.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRequestInfo3D.GetDefaultInterface: ksRequestInfo3D; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRequestInfo3D.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRequestInfo3DProperties.Create(Self); {$ENDIF} end; destructor TRequestInfo3D.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRequestInfo3D.GetServerProperties: TRequestInfo3DProperties; begin Result := FProps; end; {$ENDIF} function TRequestInfo3D.Get_prompt: WideString; begin Result := DefaultInterface.prompt; end; procedure TRequestInfo3D.Set_prompt(const Value: WideString); begin DefaultInterface.prompt := Value; end; function TRequestInfo3D.Get_title: WideString; begin Result := DefaultInterface.title; end; procedure TRequestInfo3D.Set_title(const Value: WideString); begin DefaultInterface.title := Value; end; function TRequestInfo3D.Get_cursorName: WideString; begin Result := DefaultInterface.cursorName; end; procedure TRequestInfo3D.Set_cursorName(const Value: WideString); begin DefaultInterface.cursorName := Value; end; function TRequestInfo3D.Get_commandsString: WideString; begin Result := DefaultInterface.commandsString; end; procedure TRequestInfo3D.Set_commandsString(const Value: WideString); begin DefaultInterface.commandsString := Value; end; function TRequestInfo3D.Get_cursorId: Integer; begin Result := DefaultInterface.cursorId; end; procedure TRequestInfo3D.Set_cursorId(Value: Integer); begin DefaultInterface.cursorId := Value; end; function TRequestInfo3D.Get_menuId: Integer; begin Result := DefaultInterface.menuId; end; procedure TRequestInfo3D.Set_menuId(Value: Integer); begin DefaultInterface.menuId := Value; end; function TRequestInfo3D.GetFilterCallBack: WideString; begin Result := DefaultInterface.GetFilterCallBack; end; function TRequestInfo3D.GetCallBack: WideString; begin Result := DefaultInterface.GetCallBack; end; function TRequestInfo3D.SetFilterCallBack(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; begin Result := DefaultInterface.SetFilterCallBack(methodName, hInst, dispatchOCX); end; function TRequestInfo3D.SetCallBack(const methodName: WideString; hInst: Integer; const dispatchOCX: IDispatch): WordBool; begin Result := DefaultInterface.SetCallBack(methodName, hInst, dispatchOCX); end; function TRequestInfo3D.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; function TRequestInfo3D.GetEntityCollection: IDispatch; begin Result := DefaultInterface.GetEntityCollection; end; function TRequestInfo3D.GetCurrentCommand: Integer; begin Result := DefaultInterface.GetCurrentCommand; end; function TRequestInfo3D.GetMateConstraintCollection: IDispatch; begin Result := DefaultInterface.GetMateConstraintCollection; end; function TRequestInfo3D.GetIPhantom: IDispatch; begin Result := DefaultInterface.GetIPhantom; end; function TRequestInfo3D.CreatePhantom: WordBool; begin Result := DefaultInterface.CreatePhantom; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRequestInfo3DProperties.Create(AServer: TRequestInfo3D); begin inherited Create; FServer := AServer; end; function TRequestInfo3DProperties.GetDefaultInterface: ksRequestInfo3D; begin Result := FServer.DefaultInterface; end; function TRequestInfo3DProperties.Get_prompt: WideString; begin Result := DefaultInterface.prompt; end; procedure TRequestInfo3DProperties.Set_prompt(const Value: WideString); begin DefaultInterface.prompt := Value; end; function TRequestInfo3DProperties.Get_title: WideString; begin Result := DefaultInterface.title; end; procedure TRequestInfo3DProperties.Set_title(const Value: WideString); begin DefaultInterface.title := Value; end; function TRequestInfo3DProperties.Get_cursorName: WideString; begin Result := DefaultInterface.cursorName; end; procedure TRequestInfo3DProperties.Set_cursorName(const Value: WideString); begin DefaultInterface.cursorName := Value; end; function TRequestInfo3DProperties.Get_commandsString: WideString; begin Result := DefaultInterface.commandsString; end; procedure TRequestInfo3DProperties.Set_commandsString(const Value: WideString); begin DefaultInterface.commandsString := Value; end; function TRequestInfo3DProperties.Get_cursorId: Integer; begin Result := DefaultInterface.cursorId; end; procedure TRequestInfo3DProperties.Set_cursorId(Value: Integer); begin DefaultInterface.cursorId := Value; end; function TRequestInfo3DProperties.Get_menuId: Integer; begin Result := DefaultInterface.menuId; end; procedure TRequestInfo3DProperties.Set_menuId(Value: Integer); begin DefaultInterface.menuId := Value; end; {$ENDIF} class function CoMateConstraint.Create: ksMateConstraint; begin Result := CreateComObject(CLASS_MateConstraint) as ksMateConstraint; end; class function CoMateConstraint.CreateRemote(const MachineName: string): ksMateConstraint; begin Result := CreateRemoteComObject(MachineName, CLASS_MateConstraint) as ksMateConstraint; end; procedure TMateConstraint.InitServerData; const CServerData: TServerData = ( ClassID: '{508A0CC6-9D74-11D6-95CE-00C0262D30E3}'; IntfIID: '{508A0CC4-9D74-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMateConstraint.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMateConstraint; end; end; procedure TMateConstraint.ConnectTo(svrIntf: ksMateConstraint); begin Disconnect; FIntf := svrIntf; end; procedure TMateConstraint.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMateConstraint.GetDefaultInterface: ksMateConstraint; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMateConstraint.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMateConstraintProperties.Create(Self); {$ENDIF} end; destructor TMateConstraint.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMateConstraint.GetServerProperties: TMateConstraintProperties; begin Result := FProps; end; {$ENDIF} function TMateConstraint.Get_constraintType: Smallint; begin Result := DefaultInterface.constraintType; end; procedure TMateConstraint.Set_constraintType(Value: Smallint); begin DefaultInterface.constraintType := Value; end; function TMateConstraint.Get_direction: Smallint; begin Result := DefaultInterface.direction; end; procedure TMateConstraint.Set_direction(Value: Smallint); begin DefaultInterface.direction := Value; end; function TMateConstraint.Get_fixed: Smallint; begin Result := DefaultInterface.fixed; end; procedure TMateConstraint.Set_fixed(Value: Smallint); begin DefaultInterface.fixed := Value; end; function TMateConstraint.Get_distance: Double; begin Result := DefaultInterface.distance; end; procedure TMateConstraint.Set_distance(Value: Double); begin DefaultInterface.distance := Value; end; function TMateConstraint.Create1: WordBool; begin Result := DefaultInterface.Create; end; function TMateConstraint.GetBaseObj(number: Smallint): IDispatch; begin Result := DefaultInterface.GetBaseObj(number); end; function TMateConstraint.SetBaseObj(number: Smallint; const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetBaseObj(number, obj); end; function TMateConstraint.GetFeature: IDispatch; begin Result := DefaultInterface.GetFeature; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMateConstraintProperties.Create(AServer: TMateConstraint); begin inherited Create; FServer := AServer; end; function TMateConstraintProperties.GetDefaultInterface: ksMateConstraint; begin Result := FServer.DefaultInterface; end; function TMateConstraintProperties.Get_constraintType: Smallint; begin Result := DefaultInterface.constraintType; end; procedure TMateConstraintProperties.Set_constraintType(Value: Smallint); begin DefaultInterface.constraintType := Value; end; function TMateConstraintProperties.Get_direction: Smallint; begin Result := DefaultInterface.direction; end; procedure TMateConstraintProperties.Set_direction(Value: Smallint); begin DefaultInterface.direction := Value; end; function TMateConstraintProperties.Get_fixed: Smallint; begin Result := DefaultInterface.fixed; end; procedure TMateConstraintProperties.Set_fixed(Value: Smallint); begin DefaultInterface.fixed := Value; end; function TMateConstraintProperties.Get_distance: Double; begin Result := DefaultInterface.distance; end; procedure TMateConstraintProperties.Set_distance(Value: Double); begin DefaultInterface.distance := Value; end; {$ENDIF} class function CoDefaultObject.Create: ksDefaultObject; begin Result := CreateComObject(CLASS_DefaultObject) as ksDefaultObject; end; class function CoDefaultObject.CreateRemote(const MachineName: string): ksDefaultObject; begin Result := CreateRemoteComObject(MachineName, CLASS_DefaultObject) as ksDefaultObject; end; procedure TDefaultObject.InitServerData; const CServerData: TServerData = ( ClassID: '{508A0CC9-9D74-11D6-95CE-00C0262D30E3}'; IntfIID: '{508A0CC7-9D74-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDefaultObject.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDefaultObject; end; end; procedure TDefaultObject.ConnectTo(svrIntf: ksDefaultObject); begin Disconnect; FIntf := svrIntf; end; procedure TDefaultObject.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDefaultObject.GetDefaultInterface: ksDefaultObject; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDefaultObject.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDefaultObjectProperties.Create(Self); {$ENDIF} end; destructor TDefaultObject.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDefaultObject.GetServerProperties: TDefaultObjectProperties; begin Result := FProps; end; {$ENDIF} {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDefaultObjectProperties.Create(AServer: TDefaultObject); begin inherited Create; FServer := AServer; end; function TDefaultObjectProperties.GetDefaultInterface: ksDefaultObject; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function Coentity.Create: ksEntity; begin Result := CreateComObject(CLASS_entity) as ksEntity; end; class function Coentity.CreateRemote(const MachineName: string): ksEntity; begin Result := CreateRemoteComObject(MachineName, CLASS_entity) as ksEntity; end; procedure Tentity.InitServerData; const CServerData: TServerData = ( ClassID: '{508A0CCC-9D74-11D6-95CE-00C0262D30E3}'; IntfIID: '{508A0CCA-9D74-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure Tentity.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEntity; end; end; procedure Tentity.ConnectTo(svrIntf: ksEntity); begin Disconnect; FIntf := svrIntf; end; procedure Tentity.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function Tentity.GetDefaultInterface: ksEntity; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor Tentity.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TentityProperties.Create(Self); {$ENDIF} end; destructor Tentity.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function Tentity.GetServerProperties: TentityProperties; begin Result := FProps; end; {$ENDIF} function Tentity.Get_hidden: WordBool; begin Result := DefaultInterface.hidden; end; procedure Tentity.Set_hidden(Value: WordBool); begin DefaultInterface.hidden := Value; end; function Tentity.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure Tentity.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function Tentity.Get_excluded: WordBool; begin Result := DefaultInterface.excluded; end; procedure Tentity.Set_excluded(Value: WordBool); begin DefaultInterface.excluded := Value; end; function Tentity.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; function Tentity.GetDefinition: IDispatch; begin Result := DefaultInterface.GetDefinition; end; function Tentity.GetParent: IDispatch; begin Result := DefaultInterface.GetParent; end; function Tentity.IsCreated: WordBool; begin Result := DefaultInterface.IsCreated; end; function Tentity.IsIt(objType: Integer): WordBool; begin Result := DefaultInterface.IsIt(objType); end; function Tentity.Create1: WordBool; begin Result := DefaultInterface.Create; end; function Tentity.Update: WordBool; begin Result := DefaultInterface.Update; end; function Tentity.ColorParam: IDispatch; begin Result := DefaultInterface.ColorParam; end; function Tentity.GetAdvancedColor(var GetAdvancedColor: Integer; var ambient: Double; var diffuse: Double; var specularity: Double; var shininess: Double; var transparency: Double; var emission: Double): WordBool; begin Result := DefaultInterface.GetAdvancedColor(GetAdvancedColor, ambient, diffuse, specularity, shininess, transparency, emission); end; function Tentity.SetAdvancedColor(color: Integer; ambient: Double; diffuse: Double; specularity: Double; shininess: Double; transparency: Double; emission: Double): WordBool; begin Result := DefaultInterface.SetAdvancedColor(color, ambient, diffuse, specularity, shininess, transparency, emission); end; function Tentity.GetFeature: IDispatch; begin Result := DefaultInterface.GetFeature; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TentityProperties.Create(AServer: Tentity); begin inherited Create; FServer := AServer; end; function TentityProperties.GetDefaultInterface: ksEntity; begin Result := FServer.DefaultInterface; end; function TentityProperties.Get_hidden: WordBool; begin Result := DefaultInterface.hidden; end; procedure TentityProperties.Set_hidden(Value: WordBool); begin DefaultInterface.hidden := Value; end; function TentityProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TentityProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TentityProperties.Get_excluded: WordBool; begin Result := DefaultInterface.excluded; end; procedure TentityProperties.Set_excluded(Value: WordBool); begin DefaultInterface.excluded := Value; end; function TentityProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; {$ENDIF} class function Copart.Create: ksPart; begin Result := CreateComObject(CLASS_part) as ksPart; end; class function Copart.CreateRemote(const MachineName: string): ksPart; begin Result := CreateRemoteComObject(MachineName, CLASS_part) as ksPart; end; procedure Tpart.InitServerData; const CServerData: TServerData = ( ClassID: '{508A0CCF-9D74-11D6-95CE-00C0262D30E3}'; IntfIID: '{508A0CCD-9D74-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure Tpart.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPart; end; end; procedure Tpart.ConnectTo(svrIntf: ksPart); begin Disconnect; FIntf := svrIntf; end; procedure Tpart.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function Tpart.GetDefaultInterface: ksPart; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor Tpart.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TpartProperties.Create(Self); {$ENDIF} end; destructor Tpart.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function Tpart.GetServerProperties: TpartProperties; begin Result := FProps; end; {$ENDIF} function Tpart.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure Tpart.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function Tpart.Get_marking: WideString; begin Result := DefaultInterface.marking; end; procedure Tpart.Set_marking(const Value: WideString); begin DefaultInterface.marking := Value; end; function Tpart.Get_fixedComponent: WordBool; begin Result := DefaultInterface.fixedComponent; end; procedure Tpart.Set_fixedComponent(Value: WordBool); begin DefaultInterface.fixedComponent := Value; end; function Tpart.Get_standardComponent: WordBool; begin Result := DefaultInterface.standardComponent; end; procedure Tpart.Set_standardComponent(Value: WordBool); begin DefaultInterface.standardComponent := Value; end; function Tpart.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure Tpart.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function Tpart.Get_excluded: WordBool; begin Result := DefaultInterface.excluded; end; procedure Tpart.Set_excluded(Value: WordBool); begin DefaultInterface.excluded := Value; end; function Tpart.Get_useColor: Integer; begin Result := DefaultInterface.useColor; end; procedure Tpart.Set_useColor(Value: Integer); begin DefaultInterface.useColor := Value; end; function Tpart.Get_material: WideString; begin Result := DefaultInterface.material; end; function Tpart.Get_density: Double; begin Result := DefaultInterface.density; end; function Tpart.SetPlacement(const placement: IDispatch): WordBool; begin Result := DefaultInterface.SetPlacement(placement); end; function Tpart.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; function Tpart.ColorParam: IDispatch; begin Result := DefaultInterface.ColorParam; end; function Tpart.VariableCollection: IDispatch; begin Result := DefaultInterface.VariableCollection; end; function Tpart.Update: WordBool; begin Result := DefaultInterface.Update; end; function Tpart.GetUserParamSize: Integer; begin Result := DefaultInterface.GetUserParamSize; end; function Tpart.UpdatePlacement: WordBool; begin Result := DefaultInterface.UpdatePlacement; end; function Tpart.RebuildModel: WordBool; begin Result := DefaultInterface.RebuildModel; end; function Tpart.GetDefaultEntity(objType: Smallint): IDispatch; begin Result := DefaultInterface.GetDefaultEntity(objType); end; function Tpart.NewEntity(objType: Smallint): IDispatch; begin Result := DefaultInterface.NewEntity(objType); end; function Tpart.EntityCollection(objType: Smallint): IDispatch; begin Result := DefaultInterface.EntityCollection(objType); end; function Tpart.GetAdvancedColor(var color: Integer; var ambient: Double; var diffuse: Double; var specularity: Double; var shininess: Double; var transparency: Double; var emission: Double): WordBool; begin Result := DefaultInterface.GetAdvancedColor(color, ambient, diffuse, specularity, shininess, transparency, emission); end; function Tpart.SetAdvancedColor(color: Integer; ambient: Double; diffuse: Double; specularity: Double; shininess: Double; transparency: Double; emission: Double): WordBool; begin Result := DefaultInterface.SetAdvancedColor(color, ambient, diffuse, specularity, shininess, transparency, emission); end; function Tpart.SetUserParam(const userPars: IDispatch): WordBool; begin Result := DefaultInterface.SetUserParam(userPars); end; function Tpart.IsDetail: WordBool; begin Result := DefaultInterface.IsDetail; end; function Tpart.BeginEdit: IDispatch; begin Result := DefaultInterface.BeginEdit; end; function Tpart.EndEdit(Rebuild: WordBool): WordBool; begin Result := DefaultInterface.EndEdit(Rebuild); end; function Tpart.GetPart(type_: Smallint): IDispatch; begin Result := DefaultInterface.GetPart(type_); end; function Tpart.GetMass: Double; begin Result := DefaultInterface.GetMass; end; function Tpart.PutStorage(const fileName: WideString; type_: Integer; mirror: WordBool): WordBool; begin Result := DefaultInterface.PutStorage(fileName, type_, mirror); end; function Tpart.SetMateConstraintObjects(const collection: IDispatch): WordBool; begin Result := DefaultInterface.SetMateConstraintObjects(collection); end; function Tpart.GetMateConstraintObjects: IDispatch; begin Result := DefaultInterface.GetMateConstraintObjects; end; function Tpart.GetUserParam(const userPars: IDispatch): WordBool; begin Result := DefaultInterface.GetUserParam(userPars); end; function Tpart.SetMaterial(const material: WideString; density: Double): WordBool; begin Result := DefaultInterface.SetMaterial(material, density); end; function Tpart.BodyCollection: IDispatch; begin Result := DefaultInterface.BodyCollection; end; function Tpart.GetFeature: IDispatch; begin Result := DefaultInterface.GetFeature; end; function Tpart.CalcMassInertiaProperties(bitVector: LongWord): IDispatch; begin Result := DefaultInterface.CalcMassInertiaProperties(bitVector); end; function Tpart.GetMeasurer: IDispatch; begin Result := DefaultInterface.GetMeasurer; end; function Tpart.GetMainBody: IDispatch; begin Result := DefaultInterface.GetMainBody; end; function Tpart.GetObject3DNotify(objType: Integer; const obj: IDispatch): Object3DNotify; begin Result := DefaultInterface.GetObject3DNotify(objType, obj); end; function Tpart.GetObject3DNotifyResult: ksObject3DNotifyResult; begin Result := DefaultInterface.GetObject3DNotifyResult; end; function Tpart.UpdatePlacementEx(redraw: WordBool): WordBool; begin Result := DefaultInterface.UpdatePlacementEx(redraw); end; function Tpart.RebuildModelEx(redraw: WordBool): WordBool; begin Result := DefaultInterface.RebuildModelEx(redraw); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TpartProperties.Create(AServer: Tpart); begin inherited Create; FServer := AServer; end; function TpartProperties.GetDefaultInterface: ksPart; begin Result := FServer.DefaultInterface; end; function TpartProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TpartProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TpartProperties.Get_marking: WideString; begin Result := DefaultInterface.marking; end; procedure TpartProperties.Set_marking(const Value: WideString); begin DefaultInterface.marking := Value; end; function TpartProperties.Get_fixedComponent: WordBool; begin Result := DefaultInterface.fixedComponent; end; procedure TpartProperties.Set_fixedComponent(Value: WordBool); begin DefaultInterface.fixedComponent := Value; end; function TpartProperties.Get_standardComponent: WordBool; begin Result := DefaultInterface.standardComponent; end; procedure TpartProperties.Set_standardComponent(Value: WordBool); begin DefaultInterface.standardComponent := Value; end; function TpartProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TpartProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TpartProperties.Get_excluded: WordBool; begin Result := DefaultInterface.excluded; end; procedure TpartProperties.Set_excluded(Value: WordBool); begin DefaultInterface.excluded := Value; end; function TpartProperties.Get_useColor: Integer; begin Result := DefaultInterface.useColor; end; procedure TpartProperties.Set_useColor(Value: Integer); begin DefaultInterface.useColor := Value; end; function TpartProperties.Get_material: WideString; begin Result := DefaultInterface.material; end; function TpartProperties.Get_density: Double; begin Result := DefaultInterface.density; end; {$ENDIF} class function CoDocument3D.Create: ksDocument3D; begin Result := CreateComObject(CLASS_Document3D) as ksDocument3D; end; class function CoDocument3D.CreateRemote(const MachineName: string): ksDocument3D; begin Result := CreateRemoteComObject(MachineName, CLASS_Document3D) as ksDocument3D; end; class function CoModelLibrary.Create: ksModelLibrary; begin Result := CreateComObject(CLASS_ModelLibrary) as ksModelLibrary; end; class function CoModelLibrary.CreateRemote(const MachineName: string): ksModelLibrary; begin Result := CreateRemoteComObject(MachineName, CLASS_ModelLibrary) as ksModelLibrary; end; procedure TModelLibrary.InitServerData; const CServerData: TServerData = ( ClassID: '{111CEFE6-A0A7-11D6-95CE-00C0262D30E3}'; IntfIID: '{111CEFE4-A0A7-11D6-95CE-00C0262D30E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TModelLibrary.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksModelLibrary; end; end; procedure TModelLibrary.ConnectTo(svrIntf: ksModelLibrary); begin Disconnect; FIntf := svrIntf; end; procedure TModelLibrary.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TModelLibrary.GetDefaultInterface: ksModelLibrary; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TModelLibrary.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TModelLibraryProperties.Create(Self); {$ENDIF} end; destructor TModelLibrary.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TModelLibrary.GetServerProperties: TModelLibraryProperties; begin Result := FProps; end; {$ENDIF} function TModelLibrary.ModelLibraryOperation(const libName: WideString; type_: Integer): Integer; begin Result := DefaultInterface.ModelLibraryOperation(libName, type_); end; function TModelLibrary.ChoiceModelFromLib(const libFile: WideString; var type_: Integer): WideString; begin Result := DefaultInterface.ChoiceModelFromLib(libFile, type_); end; function TModelLibrary.ExistModelInLibrary(const name: WideString): Integer; begin Result := DefaultInterface.ExistModelInLibrary(name); end; function TModelLibrary.AddD3DocumentToLibrary(const libName: WideString; const fileName: WideString): Integer; begin Result := DefaultInterface.AddD3DocumentToLibrary(libName, fileName); end; function TModelLibrary.CheckModelLibrary(const libName: WideString; possibleMessage: WordBool): Integer; begin Result := DefaultInterface.CheckModelLibrary(libName, possibleMessage); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TModelLibraryProperties.Create(AServer: TModelLibrary); begin inherited Create; FServer := AServer; end; function TModelLibraryProperties.GetDefaultInterface: ksModelLibrary; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoEntityCollection.Create: ksEntityCollection; begin Result := CreateComObject(CLASS_EntityCollection) as ksEntityCollection; end; class function CoEntityCollection.CreateRemote(const MachineName: string): ksEntityCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_EntityCollection) as ksEntityCollection; end; procedure TEntityCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{B0170143-C02C-11D6-8734-00C0262CDD2C}'; IntfIID: '{B0170141-C02C-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEntityCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEntityCollection; end; end; procedure TEntityCollection.ConnectTo(svrIntf: ksEntityCollection); begin Disconnect; FIntf := svrIntf; end; procedure TEntityCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEntityCollection.GetDefaultInterface: ksEntityCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEntityCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEntityCollectionProperties.Create(Self); {$ENDIF} end; destructor TEntityCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEntityCollection.GetServerProperties: TEntityCollectionProperties; begin Result := FProps; end; {$ENDIF} function TEntityCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TEntityCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TEntityCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TEntityCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TEntityCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TEntityCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TEntityCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TEntityCollection.SelectByPoint(x: Double; y: Double; z: Double): WordBool; begin Result := DefaultInterface.SelectByPoint(x, y, z); end; function TEntityCollection.GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; begin Result := DefaultInterface.GetByName(name, testFullName, testIgnoreCase); end; function TEntityCollection.Add(const entity: IDispatch): WordBool; begin Result := DefaultInterface.Add(entity); end; function TEntityCollection.AddAt(const entity: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(entity, index); end; function TEntityCollection.AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; begin Result := DefaultInterface.AddBefore(entity, base); end; function TEntityCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TEntityCollection.DetachByBody(const entity: IDispatch): WordBool; begin Result := DefaultInterface.DetachByBody(entity); end; function TEntityCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TEntityCollection.SetByIndex(const entity: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(entity, index); end; function TEntityCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEntityCollectionProperties.Create(AServer: TEntityCollection); begin inherited Create; FServer := AServer; end; function TEntityCollectionProperties.GetDefaultInterface: ksEntityCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoVariableCollection.Create: ksVariableCollection; begin Result := CreateComObject(CLASS_VariableCollection) as ksVariableCollection; end; class function CoVariableCollection.CreateRemote(const MachineName: string): ksVariableCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_VariableCollection) as ksVariableCollection; end; procedure TVariableCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{03CEAC83-C0B8-11D6-8734-00C0262CDD2C}'; IntfIID: '{03CEAC81-C0B8-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TVariableCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksVariableCollection; end; end; procedure TVariableCollection.ConnectTo(svrIntf: ksVariableCollection); begin Disconnect; FIntf := svrIntf; end; procedure TVariableCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TVariableCollection.GetDefaultInterface: ksVariableCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TVariableCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TVariableCollectionProperties.Create(Self); {$ENDIF} end; destructor TVariableCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TVariableCollection.GetServerProperties: TVariableCollectionProperties; begin Result := FProps; end; {$ENDIF} function TVariableCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TVariableCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TVariableCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TVariableCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TVariableCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TVariableCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TVariableCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TVariableCollection.GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; begin Result := DefaultInterface.GetByName(name, testFullName, testIgnoreCase); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TVariableCollectionProperties.Create(AServer: TVariableCollection); begin inherited Create; FServer := AServer; end; function TVariableCollectionProperties.GetDefaultInterface: ksVariableCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoMateConstraintCollection.Create: ksMateConstraintCollection; begin Result := CreateComObject(CLASS_MateConstraintCollection) as ksMateConstraintCollection; end; class function CoMateConstraintCollection.CreateRemote(const MachineName: string): ksMateConstraintCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_MateConstraintCollection) as ksMateConstraintCollection; end; procedure TMateConstraintCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{03CEAC86-C0B8-11D6-8734-00C0262CDD2C}'; IntfIID: '{03CEAC84-C0B8-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMateConstraintCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMateConstraintCollection; end; end; procedure TMateConstraintCollection.ConnectTo(svrIntf: ksMateConstraintCollection); begin Disconnect; FIntf := svrIntf; end; procedure TMateConstraintCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMateConstraintCollection.GetDefaultInterface: ksMateConstraintCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMateConstraintCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMateConstraintCollectionProperties.Create(Self); {$ENDIF} end; destructor TMateConstraintCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMateConstraintCollection.GetServerProperties: TMateConstraintCollectionProperties; begin Result := FProps; end; {$ENDIF} function TMateConstraintCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TMateConstraintCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TMateConstraintCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TMateConstraintCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TMateConstraintCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TMateConstraintCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TMateConstraintCollection.AddMateConstraint(const mate: IDispatch): WordBool; begin Result := DefaultInterface.AddMateConstraint(mate); end; function TMateConstraintCollection.RemoveMateConstraint(const mate: IDispatch): WordBool; begin Result := DefaultInterface.RemoveMateConstraint(mate); end; function TMateConstraintCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TMateConstraintCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TMateConstraintCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMateConstraintCollectionProperties.Create(AServer: TMateConstraintCollection); begin inherited Create; FServer := AServer; end; function TMateConstraintCollectionProperties.GetDefaultInterface: ksMateConstraintCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoPartCollection.Create: ksPartCollection; begin Result := CreateComObject(CLASS_PartCollection) as ksPartCollection; end; class function CoPartCollection.CreateRemote(const MachineName: string): ksPartCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_PartCollection) as ksPartCollection; end; procedure TPartCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{03CEAC89-C0B8-11D6-8734-00C0262CDD2C}'; IntfIID: '{03CEAC87-C0B8-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPartCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPartCollection; end; end; procedure TPartCollection.ConnectTo(svrIntf: ksPartCollection); begin Disconnect; FIntf := svrIntf; end; procedure TPartCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPartCollection.GetDefaultInterface: ksPartCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPartCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPartCollectionProperties.Create(Self); {$ENDIF} end; destructor TPartCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPartCollection.GetServerProperties: TPartCollectionProperties; begin Result := FProps; end; {$ENDIF} function TPartCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TPartCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TPartCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TPartCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TPartCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TPartCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TPartCollection.GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; begin Result := DefaultInterface.GetByName(name, testFullName, testIgnoreCase); end; function TPartCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TPartCollection.Add(const part: IDispatch): WordBool; begin Result := DefaultInterface.Add(part); end; function TPartCollection.AddAt(const part: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(part, index); end; function TPartCollection.AddBefore(const part: IDispatch; const base: IDispatch): WordBool; begin Result := DefaultInterface.AddBefore(part, base); end; function TPartCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TPartCollection.DetachByBody(const part: IDispatch): WordBool; begin Result := DefaultInterface.DetachByBody(part); end; function TPartCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TPartCollection.SetByIndex(const part: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(part, index); end; function TPartCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPartCollectionProperties.Create(AServer: TPartCollection); begin inherited Create; FServer := AServer; end; function TPartCollectionProperties.GetDefaultInterface: ksPartCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoMeshPartArrayDefinition.Create: ksMeshPartArrayDefinition; begin Result := CreateComObject(CLASS_MeshPartArrayDefinition) as ksMeshPartArrayDefinition; end; class function CoMeshPartArrayDefinition.CreateRemote(const MachineName: string): ksMeshPartArrayDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_MeshPartArrayDefinition) as ksMeshPartArrayDefinition; end; procedure TMeshPartArrayDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{E6E78D63-C0FA-11D6-8734-00C0262CDD2C}'; IntfIID: '{E6E78D61-C0FA-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMeshPartArrayDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMeshPartArrayDefinition; end; end; procedure TMeshPartArrayDefinition.ConnectTo(svrIntf: ksMeshPartArrayDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TMeshPartArrayDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMeshPartArrayDefinition.GetDefaultInterface: ksMeshPartArrayDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMeshPartArrayDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMeshPartArrayDefinitionProperties.Create(Self); {$ENDIF} end; destructor TMeshPartArrayDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMeshPartArrayDefinition.GetServerProperties: TMeshPartArrayDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TMeshPartArrayDefinition.Get_angle1: Double; begin Result := DefaultInterface.angle1; end; procedure TMeshPartArrayDefinition.Set_angle1(Value: Double); begin DefaultInterface.angle1 := Value; end; function TMeshPartArrayDefinition.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TMeshPartArrayDefinition.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TMeshPartArrayDefinition.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TMeshPartArrayDefinition.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TMeshPartArrayDefinition.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TMeshPartArrayDefinition.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TMeshPartArrayDefinition.Get_angle2: Double; begin Result := DefaultInterface.angle2; end; procedure TMeshPartArrayDefinition.Set_angle2(Value: Double); begin DefaultInterface.angle2 := Value; end; function TMeshPartArrayDefinition.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TMeshPartArrayDefinition.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TMeshPartArrayDefinition.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TMeshPartArrayDefinition.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TMeshPartArrayDefinition.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TMeshPartArrayDefinition.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TMeshPartArrayDefinition.Get_insideFlag: WordBool; begin Result := DefaultInterface.insideFlag; end; procedure TMeshPartArrayDefinition.Set_insideFlag(Value: WordBool); begin DefaultInterface.insideFlag := Value; end; function TMeshPartArrayDefinition.GetAxis1: IDispatch; begin Result := DefaultInterface.GetAxis1; end; function TMeshPartArrayDefinition.SetAxis1(const axis: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis1(axis); end; function TMeshPartArrayDefinition.GetAxis2: IDispatch; begin Result := DefaultInterface.GetAxis2; end; function TMeshPartArrayDefinition.SetAxis2(const axis: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis2(axis); end; function TMeshPartArrayDefinition.PartArray: IDispatch; begin Result := DefaultInterface.PartArray; end; function TMeshPartArrayDefinition.GetCopyParamAlongAxis(firstAxis: WordBool; var angle: Double; var count: Integer; var step: Double; var factor: WordBool): WordBool; begin Result := DefaultInterface.GetCopyParamAlongAxis(firstAxis, angle, count, step, factor); end; function TMeshPartArrayDefinition.SetCopyParamAlongAxis(firstAxis: WordBool; angle: Double; count: Integer; step: Double; factor: WordBool): WordBool; begin Result := DefaultInterface.SetCopyParamAlongAxis(firstAxis, angle, count, step, factor); end; function TMeshPartArrayDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMeshPartArrayDefinitionProperties.Create(AServer: TMeshPartArrayDefinition); begin inherited Create; FServer := AServer; end; function TMeshPartArrayDefinitionProperties.GetDefaultInterface: ksMeshPartArrayDefinition; begin Result := FServer.DefaultInterface; end; function TMeshPartArrayDefinitionProperties.Get_angle1: Double; begin Result := DefaultInterface.angle1; end; procedure TMeshPartArrayDefinitionProperties.Set_angle1(Value: Double); begin DefaultInterface.angle1 := Value; end; function TMeshPartArrayDefinitionProperties.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TMeshPartArrayDefinitionProperties.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TMeshPartArrayDefinitionProperties.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TMeshPartArrayDefinitionProperties.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TMeshPartArrayDefinitionProperties.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TMeshPartArrayDefinitionProperties.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TMeshPartArrayDefinitionProperties.Get_angle2: Double; begin Result := DefaultInterface.angle2; end; procedure TMeshPartArrayDefinitionProperties.Set_angle2(Value: Double); begin DefaultInterface.angle2 := Value; end; function TMeshPartArrayDefinitionProperties.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TMeshPartArrayDefinitionProperties.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TMeshPartArrayDefinitionProperties.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TMeshPartArrayDefinitionProperties.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TMeshPartArrayDefinitionProperties.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TMeshPartArrayDefinitionProperties.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TMeshPartArrayDefinitionProperties.Get_insideFlag: WordBool; begin Result := DefaultInterface.insideFlag; end; procedure TMeshPartArrayDefinitionProperties.Set_insideFlag(Value: WordBool); begin DefaultInterface.insideFlag := Value; end; {$ENDIF} class function CoCircularPartArrayDefinition.Create: ksCircularPartArrayDefinition; begin Result := CreateComObject(CLASS_CircularPartArrayDefinition) as ksCircularPartArrayDefinition; end; class function CoCircularPartArrayDefinition.CreateRemote(const MachineName: string): ksCircularPartArrayDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CircularPartArrayDefinition) as ksCircularPartArrayDefinition; end; procedure TCircularPartArrayDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DDD05145-C180-11D6-8734-00C0262CDD2C}'; IntfIID: '{DDD05143-C180-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCircularPartArrayDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCircularPartArrayDefinition; end; end; procedure TCircularPartArrayDefinition.ConnectTo(svrIntf: ksCircularPartArrayDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCircularPartArrayDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCircularPartArrayDefinition.GetDefaultInterface: ksCircularPartArrayDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCircularPartArrayDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCircularPartArrayDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCircularPartArrayDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCircularPartArrayDefinition.GetServerProperties: TCircularPartArrayDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCircularPartArrayDefinition.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TCircularPartArrayDefinition.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TCircularPartArrayDefinition.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TCircularPartArrayDefinition.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TCircularPartArrayDefinition.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TCircularPartArrayDefinition.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TCircularPartArrayDefinition.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TCircularPartArrayDefinition.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TCircularPartArrayDefinition.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TCircularPartArrayDefinition.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TCircularPartArrayDefinition.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TCircularPartArrayDefinition.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TCircularPartArrayDefinition.Get_inverce: WordBool; begin Result := DefaultInterface.inverce; end; procedure TCircularPartArrayDefinition.Set_inverce(Value: WordBool); begin DefaultInterface.inverce := Value; end; function TCircularPartArrayDefinition.Get_keepAngle: WordBool; begin Result := DefaultInterface.keepAngle; end; procedure TCircularPartArrayDefinition.Set_keepAngle(Value: WordBool); begin DefaultInterface.keepAngle := Value; end; function TCircularPartArrayDefinition.PartArray: IDispatch; begin Result := DefaultInterface.PartArray; end; function TCircularPartArrayDefinition.GetAxis: IDispatch; begin Result := DefaultInterface.GetAxis; end; function TCircularPartArrayDefinition.SetAxis(const axis: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis(axis); end; function TCircularPartArrayDefinition.GetCopyParamAlongDir(var count: Integer; var step: Double; var factor: WordBool; dir: WordBool): WordBool; begin Result := DefaultInterface.GetCopyParamAlongDir(count, step, factor, dir); end; function TCircularPartArrayDefinition.SetCopyParamAlongDir(count: Integer; step: Double; factor: WordBool; dir: WordBool): WordBool; begin Result := DefaultInterface.SetCopyParamAlongDir(count, step, factor, dir); end; function TCircularPartArrayDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCircularPartArrayDefinitionProperties.Create(AServer: TCircularPartArrayDefinition); begin inherited Create; FServer := AServer; end; function TCircularPartArrayDefinitionProperties.GetDefaultInterface: ksCircularPartArrayDefinition; begin Result := FServer.DefaultInterface; end; function TCircularPartArrayDefinitionProperties.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TCircularPartArrayDefinitionProperties.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TCircularPartArrayDefinitionProperties.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TCircularPartArrayDefinitionProperties.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TCircularPartArrayDefinitionProperties.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TCircularPartArrayDefinitionProperties.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TCircularPartArrayDefinitionProperties.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TCircularPartArrayDefinitionProperties.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TCircularPartArrayDefinitionProperties.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TCircularPartArrayDefinitionProperties.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TCircularPartArrayDefinitionProperties.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TCircularPartArrayDefinitionProperties.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TCircularPartArrayDefinitionProperties.Get_inverce: WordBool; begin Result := DefaultInterface.inverce; end; procedure TCircularPartArrayDefinitionProperties.Set_inverce(Value: WordBool); begin DefaultInterface.inverce := Value; end; function TCircularPartArrayDefinitionProperties.Get_keepAngle: WordBool; begin Result := DefaultInterface.keepAngle; end; procedure TCircularPartArrayDefinitionProperties.Set_keepAngle(Value: WordBool); begin DefaultInterface.keepAngle := Value; end; {$ENDIF} class function CoCurvePartArrayDefinition.Create: ksCurvePartArrayDefinition; begin Result := CreateComObject(CLASS_CurvePartArrayDefinition) as ksCurvePartArrayDefinition; end; class function CoCurvePartArrayDefinition.CreateRemote(const MachineName: string): ksCurvePartArrayDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CurvePartArrayDefinition) as ksCurvePartArrayDefinition; end; procedure TCurvePartArrayDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DDD05148-C180-11D6-8734-00C0262CDD2C}'; IntfIID: '{DDD05146-C180-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurvePartArrayDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurvePartArrayDefinition; end; end; procedure TCurvePartArrayDefinition.ConnectTo(svrIntf: ksCurvePartArrayDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCurvePartArrayDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurvePartArrayDefinition.GetDefaultInterface: ksCurvePartArrayDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurvePartArrayDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurvePartArrayDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCurvePartArrayDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurvePartArrayDefinition.GetServerProperties: TCurvePartArrayDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCurvePartArrayDefinition.Get_count: Integer; begin Result := DefaultInterface.count; end; procedure TCurvePartArrayDefinition.Set_count(Value: Integer); begin DefaultInterface.count := Value; end; function TCurvePartArrayDefinition.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TCurvePartArrayDefinition.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TCurvePartArrayDefinition.Get_factor: WordBool; begin Result := DefaultInterface.factor; end; procedure TCurvePartArrayDefinition.Set_factor(Value: WordBool); begin DefaultInterface.factor := Value; end; function TCurvePartArrayDefinition.Get_keepAngle: WordBool; begin Result := DefaultInterface.keepAngle; end; procedure TCurvePartArrayDefinition.Set_keepAngle(Value: WordBool); begin DefaultInterface.keepAngle := Value; end; function TCurvePartArrayDefinition.Get_fullCurve: WordBool; begin Result := DefaultInterface.fullCurve; end; procedure TCurvePartArrayDefinition.Set_fullCurve(Value: WordBool); begin DefaultInterface.fullCurve := Value; end; function TCurvePartArrayDefinition.Get_sence: WordBool; begin Result := DefaultInterface.sence; end; procedure TCurvePartArrayDefinition.Set_sence(Value: WordBool); begin DefaultInterface.sence := Value; end; function TCurvePartArrayDefinition.PartArray: IDispatch; begin Result := DefaultInterface.PartArray; end; function TCurvePartArrayDefinition.CurveArray: IDispatch; begin Result := DefaultInterface.CurveArray; end; function TCurvePartArrayDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurvePartArrayDefinitionProperties.Create(AServer: TCurvePartArrayDefinition); begin inherited Create; FServer := AServer; end; function TCurvePartArrayDefinitionProperties.GetDefaultInterface: ksCurvePartArrayDefinition; begin Result := FServer.DefaultInterface; end; function TCurvePartArrayDefinitionProperties.Get_count: Integer; begin Result := DefaultInterface.count; end; procedure TCurvePartArrayDefinitionProperties.Set_count(Value: Integer); begin DefaultInterface.count := Value; end; function TCurvePartArrayDefinitionProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TCurvePartArrayDefinitionProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TCurvePartArrayDefinitionProperties.Get_factor: WordBool; begin Result := DefaultInterface.factor; end; procedure TCurvePartArrayDefinitionProperties.Set_factor(Value: WordBool); begin DefaultInterface.factor := Value; end; function TCurvePartArrayDefinitionProperties.Get_keepAngle: WordBool; begin Result := DefaultInterface.keepAngle; end; procedure TCurvePartArrayDefinitionProperties.Set_keepAngle(Value: WordBool); begin DefaultInterface.keepAngle := Value; end; function TCurvePartArrayDefinitionProperties.Get_fullCurve: WordBool; begin Result := DefaultInterface.fullCurve; end; procedure TCurvePartArrayDefinitionProperties.Set_fullCurve(Value: WordBool); begin DefaultInterface.fullCurve := Value; end; function TCurvePartArrayDefinitionProperties.Get_sence: WordBool; begin Result := DefaultInterface.sence; end; procedure TCurvePartArrayDefinitionProperties.Set_sence(Value: WordBool); begin DefaultInterface.sence := Value; end; {$ENDIF} class function CoDerivativePartArrayDefinition.Create: ksDerivativePartArrayDefinition; begin Result := CreateComObject(CLASS_DerivativePartArrayDefinition) as ksDerivativePartArrayDefinition; end; class function CoDerivativePartArrayDefinition.CreateRemote(const MachineName: string): ksDerivativePartArrayDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_DerivativePartArrayDefinition) as ksDerivativePartArrayDefinition; end; procedure TDerivativePartArrayDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DDD0514B-C180-11D6-8734-00C0262CDD2C}'; IntfIID: '{DDD05149-C180-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDerivativePartArrayDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDerivativePartArrayDefinition; end; end; procedure TDerivativePartArrayDefinition.ConnectTo(svrIntf: ksDerivativePartArrayDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TDerivativePartArrayDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDerivativePartArrayDefinition.GetDefaultInterface: ksDerivativePartArrayDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDerivativePartArrayDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDerivativePartArrayDefinitionProperties.Create(Self); {$ENDIF} end; destructor TDerivativePartArrayDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDerivativePartArrayDefinition.GetServerProperties: TDerivativePartArrayDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TDerivativePartArrayDefinition.PartArray: IDispatch; begin Result := DefaultInterface.PartArray; end; function TDerivativePartArrayDefinition.GetDeriv: IDispatch; begin Result := DefaultInterface.GetDeriv; end; function TDerivativePartArrayDefinition.SetDeriv(const deriv: IDispatch): WordBool; begin Result := DefaultInterface.SetDeriv(deriv); end; function TDerivativePartArrayDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDerivativePartArrayDefinitionProperties.Create(AServer: TDerivativePartArrayDefinition); begin inherited Create; FServer := AServer; end; function TDerivativePartArrayDefinitionProperties.GetDefaultInterface: ksDerivativePartArrayDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoAxis2PlanesDefinition.Create: ksAxis2PlanesDefinition; begin Result := CreateComObject(CLASS_Axis2PlanesDefinition) as ksAxis2PlanesDefinition; end; class function CoAxis2PlanesDefinition.CreateRemote(const MachineName: string): ksAxis2PlanesDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_Axis2PlanesDefinition) as ksAxis2PlanesDefinition; end; procedure TAxis2PlanesDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB83-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB81-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAxis2PlanesDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAxis2PlanesDefinition; end; end; procedure TAxis2PlanesDefinition.ConnectTo(svrIntf: ksAxis2PlanesDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TAxis2PlanesDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAxis2PlanesDefinition.GetDefaultInterface: ksAxis2PlanesDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAxis2PlanesDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAxis2PlanesDefinitionProperties.Create(Self); {$ENDIF} end; destructor TAxis2PlanesDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAxis2PlanesDefinition.GetServerProperties: TAxis2PlanesDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TAxis2PlanesDefinition.SetPlane(number: Integer; const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(number, plane); end; function TAxis2PlanesDefinition.GetPlane(number: Integer): IDispatch; begin Result := DefaultInterface.GetPlane(number); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAxis2PlanesDefinitionProperties.Create(AServer: TAxis2PlanesDefinition); begin inherited Create; FServer := AServer; end; function TAxis2PlanesDefinitionProperties.GetDefaultInterface: ksAxis2PlanesDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoAxisOperationsDefinition.Create: ksAxisOperationsDefinition; begin Result := CreateComObject(CLASS_AxisOperationsDefinition) as ksAxisOperationsDefinition; end; class function CoAxisOperationsDefinition.CreateRemote(const MachineName: string): ksAxisOperationsDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_AxisOperationsDefinition) as ksAxisOperationsDefinition; end; procedure TAxisOperationsDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB86-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB84-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAxisOperationsDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAxisOperationsDefinition; end; end; procedure TAxisOperationsDefinition.ConnectTo(svrIntf: ksAxisOperationsDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TAxisOperationsDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAxisOperationsDefinition.GetDefaultInterface: ksAxisOperationsDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAxisOperationsDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAxisOperationsDefinitionProperties.Create(Self); {$ENDIF} end; destructor TAxisOperationsDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAxisOperationsDefinition.GetServerProperties: TAxisOperationsDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TAxisOperationsDefinition.SetOperation(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetOperation(plane); end; function TAxisOperationsDefinition.GetOperation: IDispatch; begin Result := DefaultInterface.GetOperation; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAxisOperationsDefinitionProperties.Create(AServer: TAxisOperationsDefinition); begin inherited Create; FServer := AServer; end; function TAxisOperationsDefinitionProperties.GetDefaultInterface: ksAxisOperationsDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoAxis2PointsDefinition.Create: ksAxis2PointsDefinition; begin Result := CreateComObject(CLASS_Axis2PointsDefinition) as ksAxis2PointsDefinition; end; class function CoAxis2PointsDefinition.CreateRemote(const MachineName: string): ksAxis2PointsDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_Axis2PointsDefinition) as ksAxis2PointsDefinition; end; procedure TAxis2PointsDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB89-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB87-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAxis2PointsDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAxis2PointsDefinition; end; end; procedure TAxis2PointsDefinition.ConnectTo(svrIntf: ksAxis2PointsDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TAxis2PointsDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAxis2PointsDefinition.GetDefaultInterface: ksAxis2PointsDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAxis2PointsDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAxis2PointsDefinitionProperties.Create(Self); {$ENDIF} end; destructor TAxis2PointsDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAxis2PointsDefinition.GetServerProperties: TAxis2PointsDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TAxis2PointsDefinition.SetPoint(number: Integer; const point: IDispatch): WordBool; begin Result := DefaultInterface.SetPoint(number, point); end; function TAxis2PointsDefinition.GetPoint(number: Integer): IDispatch; begin Result := DefaultInterface.GetPoint(number); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAxis2PointsDefinitionProperties.Create(AServer: TAxis2PointsDefinition); begin inherited Create; FServer := AServer; end; function TAxis2PointsDefinitionProperties.GetDefaultInterface: ksAxis2PointsDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoAxisEdgeDefinition.Create: ksAxisEdgeDefinition; begin Result := CreateComObject(CLASS_AxisEdgeDefinition) as ksAxisEdgeDefinition; end; class function CoAxisEdgeDefinition.CreateRemote(const MachineName: string): ksAxisEdgeDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_AxisEdgeDefinition) as ksAxisEdgeDefinition; end; procedure TAxisEdgeDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB8C-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB8A-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAxisEdgeDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAxisEdgeDefinition; end; end; procedure TAxisEdgeDefinition.ConnectTo(svrIntf: ksAxisEdgeDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TAxisEdgeDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAxisEdgeDefinition.GetDefaultInterface: ksAxisEdgeDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAxisEdgeDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAxisEdgeDefinitionProperties.Create(Self); {$ENDIF} end; destructor TAxisEdgeDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAxisEdgeDefinition.GetServerProperties: TAxisEdgeDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TAxisEdgeDefinition.SetEdge(const edge: IDispatch): WordBool; begin Result := DefaultInterface.SetEdge(edge); end; function TAxisEdgeDefinition.GetEdge: IDispatch; begin Result := DefaultInterface.GetEdge; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAxisEdgeDefinitionProperties.Create(AServer: TAxisEdgeDefinition); begin inherited Create; FServer := AServer; end; function TAxisEdgeDefinitionProperties.GetDefaultInterface: ksAxisEdgeDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoMeshCopyDefinition.Create: ksMeshCopyDefinition; begin Result := CreateComObject(CLASS_MeshCopyDefinition) as ksMeshCopyDefinition; end; class function CoMeshCopyDefinition.CreateRemote(const MachineName: string): ksMeshCopyDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_MeshCopyDefinition) as ksMeshCopyDefinition; end; procedure TMeshCopyDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB8F-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB8D-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMeshCopyDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMeshCopyDefinition; end; end; procedure TMeshCopyDefinition.ConnectTo(svrIntf: ksMeshCopyDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TMeshCopyDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMeshCopyDefinition.GetDefaultInterface: ksMeshCopyDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMeshCopyDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMeshCopyDefinitionProperties.Create(Self); {$ENDIF} end; destructor TMeshCopyDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMeshCopyDefinition.GetServerProperties: TMeshCopyDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TMeshCopyDefinition.Get_angle1: Double; begin Result := DefaultInterface.angle1; end; procedure TMeshCopyDefinition.Set_angle1(Value: Double); begin DefaultInterface.angle1 := Value; end; function TMeshCopyDefinition.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TMeshCopyDefinition.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TMeshCopyDefinition.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TMeshCopyDefinition.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TMeshCopyDefinition.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TMeshCopyDefinition.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TMeshCopyDefinition.Get_angle2: Double; begin Result := DefaultInterface.angle2; end; procedure TMeshCopyDefinition.Set_angle2(Value: Double); begin DefaultInterface.angle2 := Value; end; function TMeshCopyDefinition.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TMeshCopyDefinition.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TMeshCopyDefinition.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TMeshCopyDefinition.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TMeshCopyDefinition.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TMeshCopyDefinition.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TMeshCopyDefinition.Get_insideFlag: WordBool; begin Result := DefaultInterface.insideFlag; end; procedure TMeshCopyDefinition.Set_insideFlag(Value: WordBool); begin DefaultInterface.insideFlag := Value; end; function TMeshCopyDefinition.Get_geomArray: WordBool; begin Result := DefaultInterface.geomArray; end; procedure TMeshCopyDefinition.Set_geomArray(Value: WordBool); begin DefaultInterface.geomArray := Value; end; function TMeshCopyDefinition.OperationArray: IDispatch; begin Result := DefaultInterface.OperationArray; end; function TMeshCopyDefinition.GetCopyParamAlongAxis(firstAxis: WordBool; var angle: Double; var count: Integer; var step: Double; var factor: WordBool): WordBool; begin Result := DefaultInterface.GetCopyParamAlongAxis(firstAxis, angle, count, step, factor); end; function TMeshCopyDefinition.SetCopyParamAlongAxis(firstAxis: WordBool; angle: Double; count: Integer; step: Double; factor: WordBool): WordBool; begin Result := DefaultInterface.SetCopyParamAlongAxis(firstAxis, angle, count, step, factor); end; function TMeshCopyDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; function TMeshCopyDefinition.GetAxis1: IDispatch; begin Result := DefaultInterface.GetAxis1; end; function TMeshCopyDefinition.SetAxis1(const __MIDL_0014: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis1(__MIDL_0014); end; function TMeshCopyDefinition.GetAxis2: IDispatch; begin Result := DefaultInterface.GetAxis2; end; function TMeshCopyDefinition.SetAxis2(const __MIDL_0015: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis2(__MIDL_0015); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMeshCopyDefinitionProperties.Create(AServer: TMeshCopyDefinition); begin inherited Create; FServer := AServer; end; function TMeshCopyDefinitionProperties.GetDefaultInterface: ksMeshCopyDefinition; begin Result := FServer.DefaultInterface; end; function TMeshCopyDefinitionProperties.Get_angle1: Double; begin Result := DefaultInterface.angle1; end; procedure TMeshCopyDefinitionProperties.Set_angle1(Value: Double); begin DefaultInterface.angle1 := Value; end; function TMeshCopyDefinitionProperties.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TMeshCopyDefinitionProperties.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TMeshCopyDefinitionProperties.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TMeshCopyDefinitionProperties.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TMeshCopyDefinitionProperties.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TMeshCopyDefinitionProperties.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TMeshCopyDefinitionProperties.Get_angle2: Double; begin Result := DefaultInterface.angle2; end; procedure TMeshCopyDefinitionProperties.Set_angle2(Value: Double); begin DefaultInterface.angle2 := Value; end; function TMeshCopyDefinitionProperties.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TMeshCopyDefinitionProperties.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TMeshCopyDefinitionProperties.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TMeshCopyDefinitionProperties.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TMeshCopyDefinitionProperties.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TMeshCopyDefinitionProperties.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TMeshCopyDefinitionProperties.Get_insideFlag: WordBool; begin Result := DefaultInterface.insideFlag; end; procedure TMeshCopyDefinitionProperties.Set_insideFlag(Value: WordBool); begin DefaultInterface.insideFlag := Value; end; function TMeshCopyDefinitionProperties.Get_geomArray: WordBool; begin Result := DefaultInterface.geomArray; end; procedure TMeshCopyDefinitionProperties.Set_geomArray(Value: WordBool); begin DefaultInterface.geomArray := Value; end; {$ENDIF} class function CoCircularCopyDefinition.Create: ksCircularCopyDefinition; begin Result := CreateComObject(CLASS_CircularCopyDefinition) as ksCircularCopyDefinition; end; class function CoCircularCopyDefinition.CreateRemote(const MachineName: string): ksCircularCopyDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CircularCopyDefinition) as ksCircularCopyDefinition; end; procedure TCircularCopyDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB92-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB90-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCircularCopyDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCircularCopyDefinition; end; end; procedure TCircularCopyDefinition.ConnectTo(svrIntf: ksCircularCopyDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCircularCopyDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCircularCopyDefinition.GetDefaultInterface: ksCircularCopyDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCircularCopyDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCircularCopyDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCircularCopyDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCircularCopyDefinition.GetServerProperties: TCircularCopyDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCircularCopyDefinition.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TCircularCopyDefinition.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TCircularCopyDefinition.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TCircularCopyDefinition.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TCircularCopyDefinition.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TCircularCopyDefinition.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TCircularCopyDefinition.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TCircularCopyDefinition.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TCircularCopyDefinition.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TCircularCopyDefinition.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TCircularCopyDefinition.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TCircularCopyDefinition.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TCircularCopyDefinition.Get_inverce: WordBool; begin Result := DefaultInterface.inverce; end; procedure TCircularCopyDefinition.Set_inverce(Value: WordBool); begin DefaultInterface.inverce := Value; end; function TCircularCopyDefinition.Get_geomArray: WordBool; begin Result := DefaultInterface.geomArray; end; procedure TCircularCopyDefinition.Set_geomArray(Value: WordBool); begin DefaultInterface.geomArray := Value; end; function TCircularCopyDefinition.GetOperationArray: IDispatch; begin Result := DefaultInterface.GetOperationArray; end; function TCircularCopyDefinition.GetAxis: IDispatch; begin Result := DefaultInterface.GetAxis; end; function TCircularCopyDefinition.SetAxis(const axis: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis(axis); end; function TCircularCopyDefinition.GetCopyParamAlongDir(var count: Integer; var step: Double; var factor: WordBool; dir: WordBool): WordBool; begin Result := DefaultInterface.GetCopyParamAlongDir(count, step, factor, dir); end; function TCircularCopyDefinition.SetCopyParamAlongDir(count: Integer; step: Double; factor: WordBool; dir: WordBool): WordBool; begin Result := DefaultInterface.SetCopyParamAlongDir(count, step, factor, dir); end; function TCircularCopyDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCircularCopyDefinitionProperties.Create(AServer: TCircularCopyDefinition); begin inherited Create; FServer := AServer; end; function TCircularCopyDefinitionProperties.GetDefaultInterface: ksCircularCopyDefinition; begin Result := FServer.DefaultInterface; end; function TCircularCopyDefinitionProperties.Get_count1: Integer; begin Result := DefaultInterface.count1; end; procedure TCircularCopyDefinitionProperties.Set_count1(Value: Integer); begin DefaultInterface.count1 := Value; end; function TCircularCopyDefinitionProperties.Get_step1: Double; begin Result := DefaultInterface.step1; end; procedure TCircularCopyDefinitionProperties.Set_step1(Value: Double); begin DefaultInterface.step1 := Value; end; function TCircularCopyDefinitionProperties.Get_factor1: WordBool; begin Result := DefaultInterface.factor1; end; procedure TCircularCopyDefinitionProperties.Set_factor1(Value: WordBool); begin DefaultInterface.factor1 := Value; end; function TCircularCopyDefinitionProperties.Get_count2: Integer; begin Result := DefaultInterface.count2; end; procedure TCircularCopyDefinitionProperties.Set_count2(Value: Integer); begin DefaultInterface.count2 := Value; end; function TCircularCopyDefinitionProperties.Get_step2: Double; begin Result := DefaultInterface.step2; end; procedure TCircularCopyDefinitionProperties.Set_step2(Value: Double); begin DefaultInterface.step2 := Value; end; function TCircularCopyDefinitionProperties.Get_factor2: WordBool; begin Result := DefaultInterface.factor2; end; procedure TCircularCopyDefinitionProperties.Set_factor2(Value: WordBool); begin DefaultInterface.factor2 := Value; end; function TCircularCopyDefinitionProperties.Get_inverce: WordBool; begin Result := DefaultInterface.inverce; end; procedure TCircularCopyDefinitionProperties.Set_inverce(Value: WordBool); begin DefaultInterface.inverce := Value; end; function TCircularCopyDefinitionProperties.Get_geomArray: WordBool; begin Result := DefaultInterface.geomArray; end; procedure TCircularCopyDefinitionProperties.Set_geomArray(Value: WordBool); begin DefaultInterface.geomArray := Value; end; {$ENDIF} class function CoCurveCopyDefinition.Create: ksCurveCopyDefinition; begin Result := CreateComObject(CLASS_CurveCopyDefinition) as ksCurveCopyDefinition; end; class function CoCurveCopyDefinition.CreateRemote(const MachineName: string): ksCurveCopyDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CurveCopyDefinition) as ksCurveCopyDefinition; end; procedure TCurveCopyDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB95-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB93-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurveCopyDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurveCopyDefinition; end; end; procedure TCurveCopyDefinition.ConnectTo(svrIntf: ksCurveCopyDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCurveCopyDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurveCopyDefinition.GetDefaultInterface: ksCurveCopyDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurveCopyDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurveCopyDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCurveCopyDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurveCopyDefinition.GetServerProperties: TCurveCopyDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCurveCopyDefinition.Get_count: Integer; begin Result := DefaultInterface.count; end; procedure TCurveCopyDefinition.Set_count(Value: Integer); begin DefaultInterface.count := Value; end; function TCurveCopyDefinition.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TCurveCopyDefinition.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TCurveCopyDefinition.Get_factor: WordBool; begin Result := DefaultInterface.factor; end; procedure TCurveCopyDefinition.Set_factor(Value: WordBool); begin DefaultInterface.factor := Value; end; function TCurveCopyDefinition.Get_keepAngle: WordBool; begin Result := DefaultInterface.keepAngle; end; procedure TCurveCopyDefinition.Set_keepAngle(Value: WordBool); begin DefaultInterface.keepAngle := Value; end; function TCurveCopyDefinition.Get_fullCurve: WordBool; begin Result := DefaultInterface.fullCurve; end; procedure TCurveCopyDefinition.Set_fullCurve(Value: WordBool); begin DefaultInterface.fullCurve := Value; end; function TCurveCopyDefinition.Get_sence: WordBool; begin Result := DefaultInterface.sence; end; procedure TCurveCopyDefinition.Set_sence(Value: WordBool); begin DefaultInterface.sence := Value; end; function TCurveCopyDefinition.Get_geomArray: WordBool; begin Result := DefaultInterface.geomArray; end; procedure TCurveCopyDefinition.Set_geomArray(Value: WordBool); begin DefaultInterface.geomArray := Value; end; function TCurveCopyDefinition.OperationArray: IDispatch; begin Result := DefaultInterface.OperationArray; end; function TCurveCopyDefinition.CurveArray: IDispatch; begin Result := DefaultInterface.CurveArray; end; function TCurveCopyDefinition.DeletedCollection: IDispatch; begin Result := DefaultInterface.DeletedCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurveCopyDefinitionProperties.Create(AServer: TCurveCopyDefinition); begin inherited Create; FServer := AServer; end; function TCurveCopyDefinitionProperties.GetDefaultInterface: ksCurveCopyDefinition; begin Result := FServer.DefaultInterface; end; function TCurveCopyDefinitionProperties.Get_count: Integer; begin Result := DefaultInterface.count; end; procedure TCurveCopyDefinitionProperties.Set_count(Value: Integer); begin DefaultInterface.count := Value; end; function TCurveCopyDefinitionProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TCurveCopyDefinitionProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TCurveCopyDefinitionProperties.Get_factor: WordBool; begin Result := DefaultInterface.factor; end; procedure TCurveCopyDefinitionProperties.Set_factor(Value: WordBool); begin DefaultInterface.factor := Value; end; function TCurveCopyDefinitionProperties.Get_keepAngle: WordBool; begin Result := DefaultInterface.keepAngle; end; procedure TCurveCopyDefinitionProperties.Set_keepAngle(Value: WordBool); begin DefaultInterface.keepAngle := Value; end; function TCurveCopyDefinitionProperties.Get_fullCurve: WordBool; begin Result := DefaultInterface.fullCurve; end; procedure TCurveCopyDefinitionProperties.Set_fullCurve(Value: WordBool); begin DefaultInterface.fullCurve := Value; end; function TCurveCopyDefinitionProperties.Get_sence: WordBool; begin Result := DefaultInterface.sence; end; procedure TCurveCopyDefinitionProperties.Set_sence(Value: WordBool); begin DefaultInterface.sence := Value; end; function TCurveCopyDefinitionProperties.Get_geomArray: WordBool; begin Result := DefaultInterface.geomArray; end; procedure TCurveCopyDefinitionProperties.Set_geomArray(Value: WordBool); begin DefaultInterface.geomArray := Value; end; {$ENDIF} class function CoMirrorCopyDefinition.Create: ksMirrorCopyDefinition; begin Result := CreateComObject(CLASS_MirrorCopyDefinition) as ksMirrorCopyDefinition; end; class function CoMirrorCopyDefinition.CreateRemote(const MachineName: string): ksMirrorCopyDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_MirrorCopyDefinition) as ksMirrorCopyDefinition; end; procedure TMirrorCopyDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB98-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB96-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMirrorCopyDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMirrorCopyDefinition; end; end; procedure TMirrorCopyDefinition.ConnectTo(svrIntf: ksMirrorCopyDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TMirrorCopyDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMirrorCopyDefinition.GetDefaultInterface: ksMirrorCopyDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMirrorCopyDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMirrorCopyDefinitionProperties.Create(Self); {$ENDIF} end; destructor TMirrorCopyDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMirrorCopyDefinition.GetServerProperties: TMirrorCopyDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TMirrorCopyDefinition.GetOperationArray: IDispatch; begin Result := DefaultInterface.GetOperationArray; end; function TMirrorCopyDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TMirrorCopyDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMirrorCopyDefinitionProperties.Create(AServer: TMirrorCopyDefinition); begin inherited Create; FServer := AServer; end; function TMirrorCopyDefinitionProperties.GetDefaultInterface: ksMirrorCopyDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoMirrorCopyAllDefinition.Create: ksMirrorCopyAllDefinition; begin Result := CreateComObject(CLASS_MirrorCopyAllDefinition) as ksMirrorCopyAllDefinition; end; class function CoMirrorCopyAllDefinition.CreateRemote(const MachineName: string): ksMirrorCopyAllDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_MirrorCopyAllDefinition) as ksMirrorCopyAllDefinition; end; procedure TMirrorCopyAllDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB9B-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB99-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMirrorCopyAllDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMirrorCopyAllDefinition; end; end; procedure TMirrorCopyAllDefinition.ConnectTo(svrIntf: ksMirrorCopyAllDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TMirrorCopyAllDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMirrorCopyAllDefinition.GetDefaultInterface: ksMirrorCopyAllDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMirrorCopyAllDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMirrorCopyAllDefinitionProperties.Create(Self); {$ENDIF} end; destructor TMirrorCopyAllDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMirrorCopyAllDefinition.GetServerProperties: TMirrorCopyAllDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TMirrorCopyAllDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TMirrorCopyAllDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMirrorCopyAllDefinitionProperties.Create(AServer: TMirrorCopyAllDefinition); begin inherited Create; FServer := AServer; end; function TMirrorCopyAllDefinitionProperties.GetDefaultInterface: ksMirrorCopyAllDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoConicSpiralDefinition.Create: ksConicSpiralDefinition; begin Result := CreateComObject(CLASS_ConicSpiralDefinition) as ksConicSpiralDefinition; end; class function CoConicSpiralDefinition.CreateRemote(const MachineName: string): ksConicSpiralDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_ConicSpiralDefinition) as ksConicSpiralDefinition; end; procedure TConicSpiralDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BB9E-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB9C-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TConicSpiralDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksConicSpiralDefinition; end; end; procedure TConicSpiralDefinition.ConnectTo(svrIntf: ksConicSpiralDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TConicSpiralDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TConicSpiralDefinition.GetDefaultInterface: ksConicSpiralDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TConicSpiralDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TConicSpiralDefinitionProperties.Create(Self); {$ENDIF} end; destructor TConicSpiralDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TConicSpiralDefinition.GetServerProperties: TConicSpiralDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TConicSpiralDefinition.Get_turn: Double; begin Result := DefaultInterface.turn; end; procedure TConicSpiralDefinition.Set_turn(Value: Double); begin DefaultInterface.turn := Value; end; function TConicSpiralDefinition.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TConicSpiralDefinition.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TConicSpiralDefinition.Get_turnDir: WordBool; begin Result := DefaultInterface.turnDir; end; procedure TConicSpiralDefinition.Set_turnDir(Value: WordBool); begin DefaultInterface.turnDir := Value; end; function TConicSpiralDefinition.Get_buildMode: Smallint; begin Result := DefaultInterface.buildMode; end; procedure TConicSpiralDefinition.Set_buildMode(Value: Smallint); begin DefaultInterface.buildMode := Value; end; function TConicSpiralDefinition.Get_buildDir: WordBool; begin Result := DefaultInterface.buildDir; end; procedure TConicSpiralDefinition.Set_buildDir(Value: WordBool); begin DefaultInterface.buildDir := Value; end; function TConicSpiralDefinition.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TConicSpiralDefinition.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TConicSpiralDefinition.Get_heightType: Smallint; begin Result := DefaultInterface.heightType; end; procedure TConicSpiralDefinition.Set_heightType(Value: Smallint); begin DefaultInterface.heightType := Value; end; function TConicSpiralDefinition.Get_heightAdd: Double; begin Result := DefaultInterface.heightAdd; end; procedure TConicSpiralDefinition.Set_heightAdd(Value: Double); begin DefaultInterface.heightAdd := Value; end; function TConicSpiralDefinition.Get_heightAddHow: WordBool; begin Result := DefaultInterface.heightAddHow; end; procedure TConicSpiralDefinition.Set_heightAddHow(Value: WordBool); begin DefaultInterface.heightAddHow := Value; end; function TConicSpiralDefinition.Get_initialDiam: Double; begin Result := DefaultInterface.initialDiam; end; procedure TConicSpiralDefinition.Set_initialDiam(Value: Double); begin DefaultInterface.initialDiam := Value; end; function TConicSpiralDefinition.Get_initialDiamType: Smallint; begin Result := DefaultInterface.initialDiamType; end; procedure TConicSpiralDefinition.Set_initialDiamType(Value: Smallint); begin DefaultInterface.initialDiamType := Value; end; function TConicSpiralDefinition.Get_terminalDiam: Double; begin Result := DefaultInterface.terminalDiam; end; procedure TConicSpiralDefinition.Set_terminalDiam(Value: Double); begin DefaultInterface.terminalDiam := Value; end; function TConicSpiralDefinition.Get_terminalDiamType: Smallint; begin Result := DefaultInterface.terminalDiamType; end; procedure TConicSpiralDefinition.Set_terminalDiamType(Value: Smallint); begin DefaultInterface.terminalDiamType := Value; end; function TConicSpiralDefinition.Get_tiltAngleHow: WordBool; begin Result := DefaultInterface.tiltAngleHow; end; procedure TConicSpiralDefinition.Set_tiltAngleHow(Value: WordBool); begin DefaultInterface.tiltAngleHow := Value; end; function TConicSpiralDefinition.Get_firstAngle: Double; begin Result := DefaultInterface.firstAngle; end; procedure TConicSpiralDefinition.Set_firstAngle(Value: Double); begin DefaultInterface.firstAngle := Value; end; function TConicSpiralDefinition.Get_tiltAngle: Double; begin Result := DefaultInterface.tiltAngle; end; procedure TConicSpiralDefinition.Set_tiltAngle(Value: Double); begin DefaultInterface.tiltAngle := Value; end; function TConicSpiralDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TConicSpiralDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TConicSpiralDefinition.GetLocation(var x: Double; var y: Double): WordBool; begin Result := DefaultInterface.GetLocation(x, y); end; function TConicSpiralDefinition.SetLocation(x: Double; y: Double): WordBool; begin Result := DefaultInterface.SetLocation(x, y); end; function TConicSpiralDefinition.GetHeightObject: IDispatch; begin Result := DefaultInterface.GetHeightObject; end; function TConicSpiralDefinition.SetHeightObject(const heightObject: IDispatch): WordBool; begin Result := DefaultInterface.SetHeightObject(heightObject); end; function TConicSpiralDefinition.GetInitialDiamObject: IDispatch; begin Result := DefaultInterface.GetInitialDiamObject; end; function TConicSpiralDefinition.SetInitialDiamObject(const initialDiamObject: IDispatch): WordBool; begin Result := DefaultInterface.SetInitialDiamObject(initialDiamObject); end; function TConicSpiralDefinition.GetTerminalDiamObject: IDispatch; begin Result := DefaultInterface.GetTerminalDiamObject; end; function TConicSpiralDefinition.SetTerminalDiamObject(const terminalDiamObject: IDispatch): WordBool; begin Result := DefaultInterface.SetTerminalDiamObject(terminalDiamObject); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TConicSpiralDefinitionProperties.Create(AServer: TConicSpiralDefinition); begin inherited Create; FServer := AServer; end; function TConicSpiralDefinitionProperties.GetDefaultInterface: ksConicSpiralDefinition; begin Result := FServer.DefaultInterface; end; function TConicSpiralDefinitionProperties.Get_turn: Double; begin Result := DefaultInterface.turn; end; procedure TConicSpiralDefinitionProperties.Set_turn(Value: Double); begin DefaultInterface.turn := Value; end; function TConicSpiralDefinitionProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TConicSpiralDefinitionProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TConicSpiralDefinitionProperties.Get_turnDir: WordBool; begin Result := DefaultInterface.turnDir; end; procedure TConicSpiralDefinitionProperties.Set_turnDir(Value: WordBool); begin DefaultInterface.turnDir := Value; end; function TConicSpiralDefinitionProperties.Get_buildMode: Smallint; begin Result := DefaultInterface.buildMode; end; procedure TConicSpiralDefinitionProperties.Set_buildMode(Value: Smallint); begin DefaultInterface.buildMode := Value; end; function TConicSpiralDefinitionProperties.Get_buildDir: WordBool; begin Result := DefaultInterface.buildDir; end; procedure TConicSpiralDefinitionProperties.Set_buildDir(Value: WordBool); begin DefaultInterface.buildDir := Value; end; function TConicSpiralDefinitionProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TConicSpiralDefinitionProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TConicSpiralDefinitionProperties.Get_heightType: Smallint; begin Result := DefaultInterface.heightType; end; procedure TConicSpiralDefinitionProperties.Set_heightType(Value: Smallint); begin DefaultInterface.heightType := Value; end; function TConicSpiralDefinitionProperties.Get_heightAdd: Double; begin Result := DefaultInterface.heightAdd; end; procedure TConicSpiralDefinitionProperties.Set_heightAdd(Value: Double); begin DefaultInterface.heightAdd := Value; end; function TConicSpiralDefinitionProperties.Get_heightAddHow: WordBool; begin Result := DefaultInterface.heightAddHow; end; procedure TConicSpiralDefinitionProperties.Set_heightAddHow(Value: WordBool); begin DefaultInterface.heightAddHow := Value; end; function TConicSpiralDefinitionProperties.Get_initialDiam: Double; begin Result := DefaultInterface.initialDiam; end; procedure TConicSpiralDefinitionProperties.Set_initialDiam(Value: Double); begin DefaultInterface.initialDiam := Value; end; function TConicSpiralDefinitionProperties.Get_initialDiamType: Smallint; begin Result := DefaultInterface.initialDiamType; end; procedure TConicSpiralDefinitionProperties.Set_initialDiamType(Value: Smallint); begin DefaultInterface.initialDiamType := Value; end; function TConicSpiralDefinitionProperties.Get_terminalDiam: Double; begin Result := DefaultInterface.terminalDiam; end; procedure TConicSpiralDefinitionProperties.Set_terminalDiam(Value: Double); begin DefaultInterface.terminalDiam := Value; end; function TConicSpiralDefinitionProperties.Get_terminalDiamType: Smallint; begin Result := DefaultInterface.terminalDiamType; end; procedure TConicSpiralDefinitionProperties.Set_terminalDiamType(Value: Smallint); begin DefaultInterface.terminalDiamType := Value; end; function TConicSpiralDefinitionProperties.Get_tiltAngleHow: WordBool; begin Result := DefaultInterface.tiltAngleHow; end; procedure TConicSpiralDefinitionProperties.Set_tiltAngleHow(Value: WordBool); begin DefaultInterface.tiltAngleHow := Value; end; function TConicSpiralDefinitionProperties.Get_firstAngle: Double; begin Result := DefaultInterface.firstAngle; end; procedure TConicSpiralDefinitionProperties.Set_firstAngle(Value: Double); begin DefaultInterface.firstAngle := Value; end; function TConicSpiralDefinitionProperties.Get_tiltAngle: Double; begin Result := DefaultInterface.tiltAngle; end; procedure TConicSpiralDefinitionProperties.Set_tiltAngle(Value: Double); begin DefaultInterface.tiltAngle := Value; end; {$ENDIF} class function CoCylindricSpiralDefinition.Create: ksCylindricSpiralDefinition; begin Result := CreateComObject(CLASS_CylindricSpiralDefinition) as ksCylindricSpiralDefinition; end; class function CoCylindricSpiralDefinition.CreateRemote(const MachineName: string): ksCylindricSpiralDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CylindricSpiralDefinition) as ksCylindricSpiralDefinition; end; procedure TCylindricSpiralDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBA1-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BB9F-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCylindricSpiralDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCylindricSpiralDefinition; end; end; procedure TCylindricSpiralDefinition.ConnectTo(svrIntf: ksCylindricSpiralDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCylindricSpiralDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCylindricSpiralDefinition.GetDefaultInterface: ksCylindricSpiralDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCylindricSpiralDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCylindricSpiralDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCylindricSpiralDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCylindricSpiralDefinition.GetServerProperties: TCylindricSpiralDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCylindricSpiralDefinition.Get_turn: Double; begin Result := DefaultInterface.turn; end; procedure TCylindricSpiralDefinition.Set_turn(Value: Double); begin DefaultInterface.turn := Value; end; function TCylindricSpiralDefinition.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TCylindricSpiralDefinition.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TCylindricSpiralDefinition.Get_turnDir: WordBool; begin Result := DefaultInterface.turnDir; end; procedure TCylindricSpiralDefinition.Set_turnDir(Value: WordBool); begin DefaultInterface.turnDir := Value; end; function TCylindricSpiralDefinition.Get_buildMode: Smallint; begin Result := DefaultInterface.buildMode; end; procedure TCylindricSpiralDefinition.Set_buildMode(Value: Smallint); begin DefaultInterface.buildMode := Value; end; function TCylindricSpiralDefinition.Get_buildDir: WordBool; begin Result := DefaultInterface.buildDir; end; procedure TCylindricSpiralDefinition.Set_buildDir(Value: WordBool); begin DefaultInterface.buildDir := Value; end; function TCylindricSpiralDefinition.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TCylindricSpiralDefinition.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TCylindricSpiralDefinition.Get_heightType: Smallint; begin Result := DefaultInterface.heightType; end; procedure TCylindricSpiralDefinition.Set_heightType(Value: Smallint); begin DefaultInterface.heightType := Value; end; function TCylindricSpiralDefinition.Get_heightAdd: Double; begin Result := DefaultInterface.heightAdd; end; procedure TCylindricSpiralDefinition.Set_heightAdd(Value: Double); begin DefaultInterface.heightAdd := Value; end; function TCylindricSpiralDefinition.Get_heightAddHow: WordBool; begin Result := DefaultInterface.heightAddHow; end; procedure TCylindricSpiralDefinition.Set_heightAddHow(Value: WordBool); begin DefaultInterface.heightAddHow := Value; end; function TCylindricSpiralDefinition.Get_diam: Double; begin Result := DefaultInterface.diam; end; procedure TCylindricSpiralDefinition.Set_diam(Value: Double); begin DefaultInterface.diam := Value; end; function TCylindricSpiralDefinition.Get_diamType: Smallint; begin Result := DefaultInterface.diamType; end; procedure TCylindricSpiralDefinition.Set_diamType(Value: Smallint); begin DefaultInterface.diamType := Value; end; function TCylindricSpiralDefinition.Get_firstAngle: Double; begin Result := DefaultInterface.firstAngle; end; procedure TCylindricSpiralDefinition.Set_firstAngle(Value: Double); begin DefaultInterface.firstAngle := Value; end; function TCylindricSpiralDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TCylindricSpiralDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TCylindricSpiralDefinition.GetLocation(var x: Double; var y: Double): WordBool; begin Result := DefaultInterface.GetLocation(x, y); end; function TCylindricSpiralDefinition.SetLocation(x: Double; y: Double): WordBool; begin Result := DefaultInterface.SetLocation(x, y); end; function TCylindricSpiralDefinition.GetHeightObject: IDispatch; begin Result := DefaultInterface.GetHeightObject; end; function TCylindricSpiralDefinition.SetHeightObject(const heightObject: IDispatch): WordBool; begin Result := DefaultInterface.SetHeightObject(heightObject); end; function TCylindricSpiralDefinition.GetDiamObject: IDispatch; begin Result := DefaultInterface.GetDiamObject; end; function TCylindricSpiralDefinition.SetDiamObject(const diamObject: IDispatch): WordBool; begin Result := DefaultInterface.SetDiamObject(diamObject); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCylindricSpiralDefinitionProperties.Create(AServer: TCylindricSpiralDefinition); begin inherited Create; FServer := AServer; end; function TCylindricSpiralDefinitionProperties.GetDefaultInterface: ksCylindricSpiralDefinition; begin Result := FServer.DefaultInterface; end; function TCylindricSpiralDefinitionProperties.Get_turn: Double; begin Result := DefaultInterface.turn; end; procedure TCylindricSpiralDefinitionProperties.Set_turn(Value: Double); begin DefaultInterface.turn := Value; end; function TCylindricSpiralDefinitionProperties.Get_step: Double; begin Result := DefaultInterface.step; end; procedure TCylindricSpiralDefinitionProperties.Set_step(Value: Double); begin DefaultInterface.step := Value; end; function TCylindricSpiralDefinitionProperties.Get_turnDir: WordBool; begin Result := DefaultInterface.turnDir; end; procedure TCylindricSpiralDefinitionProperties.Set_turnDir(Value: WordBool); begin DefaultInterface.turnDir := Value; end; function TCylindricSpiralDefinitionProperties.Get_buildMode: Smallint; begin Result := DefaultInterface.buildMode; end; procedure TCylindricSpiralDefinitionProperties.Set_buildMode(Value: Smallint); begin DefaultInterface.buildMode := Value; end; function TCylindricSpiralDefinitionProperties.Get_buildDir: WordBool; begin Result := DefaultInterface.buildDir; end; procedure TCylindricSpiralDefinitionProperties.Set_buildDir(Value: WordBool); begin DefaultInterface.buildDir := Value; end; function TCylindricSpiralDefinitionProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TCylindricSpiralDefinitionProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TCylindricSpiralDefinitionProperties.Get_heightType: Smallint; begin Result := DefaultInterface.heightType; end; procedure TCylindricSpiralDefinitionProperties.Set_heightType(Value: Smallint); begin DefaultInterface.heightType := Value; end; function TCylindricSpiralDefinitionProperties.Get_heightAdd: Double; begin Result := DefaultInterface.heightAdd; end; procedure TCylindricSpiralDefinitionProperties.Set_heightAdd(Value: Double); begin DefaultInterface.heightAdd := Value; end; function TCylindricSpiralDefinitionProperties.Get_heightAddHow: WordBool; begin Result := DefaultInterface.heightAddHow; end; procedure TCylindricSpiralDefinitionProperties.Set_heightAddHow(Value: WordBool); begin DefaultInterface.heightAddHow := Value; end; function TCylindricSpiralDefinitionProperties.Get_diam: Double; begin Result := DefaultInterface.diam; end; procedure TCylindricSpiralDefinitionProperties.Set_diam(Value: Double); begin DefaultInterface.diam := Value; end; function TCylindricSpiralDefinitionProperties.Get_diamType: Smallint; begin Result := DefaultInterface.diamType; end; procedure TCylindricSpiralDefinitionProperties.Set_diamType(Value: Smallint); begin DefaultInterface.diamType := Value; end; function TCylindricSpiralDefinitionProperties.Get_firstAngle: Double; begin Result := DefaultInterface.firstAngle; end; procedure TCylindricSpiralDefinitionProperties.Set_firstAngle(Value: Double); begin DefaultInterface.firstAngle := Value; end; {$ENDIF} class function CoPolyLineDefinition.Create: ksPolyLineDefinition; begin Result := CreateComObject(CLASS_PolyLineDefinition) as ksPolyLineDefinition; end; class function CoPolyLineDefinition.CreateRemote(const MachineName: string): ksPolyLineDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PolyLineDefinition) as ksPolyLineDefinition; end; procedure TPolyLineDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBA4-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BBA2-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPolyLineDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPolyLineDefinition; end; end; procedure TPolyLineDefinition.ConnectTo(svrIntf: ksPolyLineDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPolyLineDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPolyLineDefinition.GetDefaultInterface: ksPolyLineDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPolyLineDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPolyLineDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPolyLineDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPolyLineDefinition.GetServerProperties: TPolyLineDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPolyLineDefinition.Get_closed: WordBool; begin Result := DefaultInterface.closed; end; procedure TPolyLineDefinition.Set_closed(Value: WordBool); begin DefaultInterface.closed := Value; end; function TPolyLineDefinition.GetCountVertex: Integer; begin Result := DefaultInterface.GetCountVertex; end; function TPolyLineDefinition.AddVertex(x: Double; y: Double; z: Double; radius: Double): WordBool; begin Result := DefaultInterface.AddVertex(x, y, z, radius); end; function TPolyLineDefinition.InsertVertex(index: Integer; x: Double; y: Double; z: Double; radius: Double): WordBool; begin Result := DefaultInterface.InsertVertex(index, x, y, z, radius); end; function TPolyLineDefinition.DeleteVertex(index: Integer): WordBool; begin Result := DefaultInterface.DeleteVertex(index); end; function TPolyLineDefinition.GetParamVertex(index: Integer; var x: Double; var y: Double; var z: Double; var radius: Double): WordBool; begin Result := DefaultInterface.GetParamVertex(index, x, y, z, radius); end; function TPolyLineDefinition.Flush: WordBool; begin Result := DefaultInterface.Flush; end; function TPolyLineDefinition.ReadFromFile(const fileName: WideString): WordBool; begin Result := DefaultInterface.ReadFromFile(fileName); end; function TPolyLineDefinition.WriteToFile(const fileName: WideString): WordBool; begin Result := DefaultInterface.WriteToFile(fileName); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPolyLineDefinitionProperties.Create(AServer: TPolyLineDefinition); begin inherited Create; FServer := AServer; end; function TPolyLineDefinitionProperties.GetDefaultInterface: ksPolyLineDefinition; begin Result := FServer.DefaultInterface; end; function TPolyLineDefinitionProperties.Get_closed: WordBool; begin Result := DefaultInterface.closed; end; procedure TPolyLineDefinitionProperties.Set_closed(Value: WordBool); begin DefaultInterface.closed := Value; end; {$ENDIF} class function CoSplineDefinition.Create: ksSplineDefinition; begin Result := CreateComObject(CLASS_SplineDefinition) as ksSplineDefinition; end; class function CoSplineDefinition.CreateRemote(const MachineName: string): ksSplineDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_SplineDefinition) as ksSplineDefinition; end; procedure TSplineDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBA7-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BBA5-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSplineDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSplineDefinition; end; end; procedure TSplineDefinition.ConnectTo(svrIntf: ksSplineDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TSplineDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSplineDefinition.GetDefaultInterface: ksSplineDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSplineDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSplineDefinitionProperties.Create(Self); {$ENDIF} end; destructor TSplineDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSplineDefinition.GetServerProperties: TSplineDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TSplineDefinition.Get_closed: WordBool; begin Result := DefaultInterface.closed; end; procedure TSplineDefinition.Set_closed(Value: WordBool); begin DefaultInterface.closed := Value; end; function TSplineDefinition.Get_splineOnPoles: WordBool; begin Result := DefaultInterface.splineOnPoles; end; procedure TSplineDefinition.Set_splineOnPoles(Value: WordBool); begin DefaultInterface.splineOnPoles := Value; end; function TSplineDefinition.Get_degree: Integer; begin Result := DefaultInterface.degree; end; procedure TSplineDefinition.Set_degree(Value: Integer); begin DefaultInterface.degree := Value; end; function TSplineDefinition.GetCountVertex: Integer; begin Result := DefaultInterface.GetCountVertex; end; function TSplineDefinition.AddVertex(x: Double; y: Double; z: Double; radius: Double): WordBool; begin Result := DefaultInterface.AddVertex(x, y, z, radius); end; function TSplineDefinition.InsertVertex(index: Integer; x: Double; y: Double; z: Double; weight: Double): WordBool; begin Result := DefaultInterface.InsertVertex(index, x, y, z, weight); end; function TSplineDefinition.DeleteVertex(index: Integer): WordBool; begin Result := DefaultInterface.DeleteVertex(index); end; function TSplineDefinition.GetParamVertex(index: Integer; var x: Double; var y: Double; var z: Double; var weight: Double): WordBool; begin Result := DefaultInterface.GetParamVertex(index, x, y, z, weight); end; function TSplineDefinition.Flush: WordBool; begin Result := DefaultInterface.Flush; end; function TSplineDefinition.ReadFromFile(const fileName: WideString): WordBool; begin Result := DefaultInterface.ReadFromFile(fileName); end; function TSplineDefinition.WriteToFile(const fileName: WideString): WordBool; begin Result := DefaultInterface.WriteToFile(fileName); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSplineDefinitionProperties.Create(AServer: TSplineDefinition); begin inherited Create; FServer := AServer; end; function TSplineDefinitionProperties.GetDefaultInterface: ksSplineDefinition; begin Result := FServer.DefaultInterface; end; function TSplineDefinitionProperties.Get_closed: WordBool; begin Result := DefaultInterface.closed; end; procedure TSplineDefinitionProperties.Set_closed(Value: WordBool); begin DefaultInterface.closed := Value; end; function TSplineDefinitionProperties.Get_splineOnPoles: WordBool; begin Result := DefaultInterface.splineOnPoles; end; procedure TSplineDefinitionProperties.Set_splineOnPoles(Value: WordBool); begin DefaultInterface.splineOnPoles := Value; end; function TSplineDefinitionProperties.Get_degree: Integer; begin Result := DefaultInterface.degree; end; procedure TSplineDefinitionProperties.Set_degree(Value: Integer); begin DefaultInterface.degree := Value; end; {$ENDIF} class function CofaceDefinition.Create: ksFaceDefinition; begin Result := CreateComObject(CLASS_faceDefinition) as ksFaceDefinition; end; class function CofaceDefinition.CreateRemote(const MachineName: string): ksFaceDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_faceDefinition) as ksFaceDefinition; end; procedure TfaceDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBAA-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BBA8-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TfaceDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFaceDefinition; end; end; procedure TfaceDefinition.ConnectTo(svrIntf: ksFaceDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TfaceDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TfaceDefinition.GetDefaultInterface: ksFaceDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TfaceDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TfaceDefinitionProperties.Create(Self); {$ENDIF} end; destructor TfaceDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TfaceDefinition.GetServerProperties: TfaceDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TfaceDefinition.Get_normalOrientation: WordBool; begin Result := DefaultInterface.normalOrientation; end; function TfaceDefinition.IsPlanar: WordBool; begin Result := DefaultInterface.IsPlanar; end; function TfaceDefinition.IsCone: WordBool; begin Result := DefaultInterface.IsCone; end; function TfaceDefinition.IsCylinder: WordBool; begin Result := DefaultInterface.IsCylinder; end; function TfaceDefinition.GetCylinderParam(var h: Double; var r: Double): WordBool; begin Result := DefaultInterface.GetCylinderParam(h, r); end; function TfaceDefinition.GetOwnerEntity: IDispatch; begin Result := DefaultInterface.GetOwnerEntity; end; function TfaceDefinition.GetSurface: IDispatch; begin Result := DefaultInterface.GetSurface; end; function TfaceDefinition.LoopCollection: IDispatch; begin Result := DefaultInterface.LoopCollection; end; function TfaceDefinition.IsConnectedWith(const faceDefinition: IDispatch): WordBool; begin Result := DefaultInterface.IsConnectedWith(faceDefinition); end; function TfaceDefinition.ConnectedFaceCollection: IDispatch; begin Result := DefaultInterface.ConnectedFaceCollection; end; function TfaceDefinition.EdgeCollection: IDispatch; begin Result := DefaultInterface.EdgeCollection; end; function TfaceDefinition.GetNextFace: IDispatch; begin Result := DefaultInterface.GetNextFace; end; function TfaceDefinition.IsTorus: WordBool; begin Result := DefaultInterface.IsTorus; end; function TfaceDefinition.IsSphere: WordBool; begin Result := DefaultInterface.IsSphere; end; function TfaceDefinition.IsNurbsSurface: WordBool; begin Result := DefaultInterface.IsNurbsSurface; end; function TfaceDefinition.IsRevolved: WordBool; begin Result := DefaultInterface.IsRevolved; end; function TfaceDefinition.IsSwept: WordBool; begin Result := DefaultInterface.IsSwept; end; function TfaceDefinition.GetTessellation: IDispatch; begin Result := DefaultInterface.GetTessellation; end; function TfaceDefinition.GetArea(bitVector: LongWord): Double; begin Result := DefaultInterface.GetArea(bitVector); end; function TfaceDefinition.GetEntity: IDispatch; begin Result := DefaultInterface.GetEntity; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TfaceDefinitionProperties.Create(AServer: TfaceDefinition); begin inherited Create; FServer := AServer; end; function TfaceDefinitionProperties.GetDefaultInterface: ksFaceDefinition; begin Result := FServer.DefaultInterface; end; function TfaceDefinitionProperties.Get_normalOrientation: WordBool; begin Result := DefaultInterface.normalOrientation; end; {$ENDIF} class function CoEdgeDefinition.Create: ksEdgeDefinition; begin Result := CreateComObject(CLASS_EdgeDefinition) as ksEdgeDefinition; end; class function CoEdgeDefinition.CreateRemote(const MachineName: string): ksEdgeDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_EdgeDefinition) as ksEdgeDefinition; end; procedure TEdgeDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBAD-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BBAB-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEdgeDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEdgeDefinition; end; end; procedure TEdgeDefinition.ConnectTo(svrIntf: ksEdgeDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TEdgeDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEdgeDefinition.GetDefaultInterface: ksEdgeDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEdgeDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEdgeDefinitionProperties.Create(Self); {$ENDIF} end; destructor TEdgeDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEdgeDefinition.GetServerProperties: TEdgeDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TEdgeDefinition.IsStraight: WordBool; begin Result := DefaultInterface.IsStraight; end; function TEdgeDefinition.GetOwnerEntity: IDispatch; begin Result := DefaultInterface.GetOwnerEntity; end; function TEdgeDefinition.GetCurve3D: IDispatch; begin Result := DefaultInterface.GetCurve3D; end; function TEdgeDefinition.GetAdjacentFace(facePlus: WordBool): IDispatch; begin Result := DefaultInterface.GetAdjacentFace(facePlus); end; function TEdgeDefinition.GetVertex(start: WordBool): IDispatch; begin Result := DefaultInterface.GetVertex(start); end; function TEdgeDefinition.EdgeCollection(begin_: WordBool): IDispatch; begin Result := DefaultInterface.EdgeCollection(begin_); end; function TEdgeDefinition.OrientedEdgeCollection: IDispatch; begin Result := DefaultInterface.OrientedEdgeCollection; end; function TEdgeDefinition.IsArc: WordBool; begin Result := DefaultInterface.IsArc; end; function TEdgeDefinition.IsCircle: WordBool; begin Result := DefaultInterface.IsCircle; end; function TEdgeDefinition.IsEllipse: WordBool; begin Result := DefaultInterface.IsEllipse; end; function TEdgeDefinition.IsNurbs: WordBool; begin Result := DefaultInterface.IsNurbs; end; function TEdgeDefinition.IsPeriodic: WordBool; begin Result := DefaultInterface.IsPeriodic; end; function TEdgeDefinition.GetLength(bitVector: LongWord): Double; begin Result := DefaultInterface.GetLength(bitVector); end; function TEdgeDefinition.GetEntity: IDispatch; begin Result := DefaultInterface.GetEntity; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEdgeDefinitionProperties.Create(AServer: TEdgeDefinition); begin inherited Create; FServer := AServer; end; function TEdgeDefinitionProperties.GetDefaultInterface: ksEdgeDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoChamferDefinition.Create: ksChamferDefinition; begin Result := CreateComObject(CLASS_ChamferDefinition) as ksChamferDefinition; end; class function CoChamferDefinition.CreateRemote(const MachineName: string): ksChamferDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_ChamferDefinition) as ksChamferDefinition; end; procedure TChamferDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBB0-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BBAE-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TChamferDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksChamferDefinition; end; end; procedure TChamferDefinition.ConnectTo(svrIntf: ksChamferDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TChamferDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TChamferDefinition.GetDefaultInterface: ksChamferDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TChamferDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TChamferDefinitionProperties.Create(Self); {$ENDIF} end; destructor TChamferDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TChamferDefinition.GetServerProperties: TChamferDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TChamferDefinition.Get_tangent: WordBool; begin Result := DefaultInterface.tangent; end; procedure TChamferDefinition.Set_tangent(Value: WordBool); begin DefaultInterface.tangent := Value; end; function TChamferDefinition.GetChamferParam(var transfer: WordBool; var distance1: Double; var distance2: Double): WordBool; begin Result := DefaultInterface.GetChamferParam(transfer, distance1, distance2); end; function TChamferDefinition.SetChamferParam(transfer: WordBool; distance1: Double; distance2: Double): WordBool; begin Result := DefaultInterface.SetChamferParam(transfer, distance1, distance2); end; function TChamferDefinition.array_: IDispatch; begin Result := DefaultInterface.array_; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TChamferDefinitionProperties.Create(AServer: TChamferDefinition); begin inherited Create; FServer := AServer; end; function TChamferDefinitionProperties.GetDefaultInterface: ksChamferDefinition; begin Result := FServer.DefaultInterface; end; function TChamferDefinitionProperties.Get_tangent: WordBool; begin Result := DefaultInterface.tangent; end; procedure TChamferDefinitionProperties.Set_tangent(Value: WordBool); begin DefaultInterface.tangent := Value; end; {$ENDIF} class function CoFilletDefinition.Create: ksFilletDefinition; begin Result := CreateComObject(CLASS_FilletDefinition) as ksFilletDefinition; end; class function CoFilletDefinition.CreateRemote(const MachineName: string): ksFilletDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_FilletDefinition) as ksFilletDefinition; end; procedure TFilletDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{0307BBB3-C193-11D6-8734-00C0262CDD2C}'; IntfIID: '{0307BBB1-C193-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFilletDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFilletDefinition; end; end; procedure TFilletDefinition.ConnectTo(svrIntf: ksFilletDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TFilletDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TFilletDefinition.GetDefaultInterface: ksFilletDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFilletDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFilletDefinitionProperties.Create(Self); {$ENDIF} end; destructor TFilletDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFilletDefinition.GetServerProperties: TFilletDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TFilletDefinition.Get_radius: Double; begin Result := DefaultInterface.radius; end; procedure TFilletDefinition.Set_radius(Value: Double); begin DefaultInterface.radius := Value; end; function TFilletDefinition.Get_tangent: WordBool; begin Result := DefaultInterface.tangent; end; procedure TFilletDefinition.Set_tangent(Value: WordBool); begin DefaultInterface.tangent := Value; end; function TFilletDefinition.array_: IDispatch; begin Result := DefaultInterface.array_; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFilletDefinitionProperties.Create(AServer: TFilletDefinition); begin inherited Create; FServer := AServer; end; function TFilletDefinitionProperties.GetDefaultInterface: ksFilletDefinition; begin Result := FServer.DefaultInterface; end; function TFilletDefinitionProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; procedure TFilletDefinitionProperties.Set_radius(Value: Double); begin DefaultInterface.radius := Value; end; function TFilletDefinitionProperties.Get_tangent: WordBool; begin Result := DefaultInterface.tangent; end; procedure TFilletDefinitionProperties.Set_tangent(Value: WordBool); begin DefaultInterface.tangent := Value; end; {$ENDIF} class function CoBaseExtrusionDefinition.Create: ksBaseExtrusionDefinition; begin Result := CreateComObject(CLASS_BaseExtrusionDefinition) as ksBaseExtrusionDefinition; end; class function CoBaseExtrusionDefinition.CreateRemote(const MachineName: string): ksBaseExtrusionDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BaseExtrusionDefinition) as ksBaseExtrusionDefinition; end; procedure TBaseExtrusionDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFE3-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFE1-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBaseExtrusionDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBaseExtrusionDefinition; end; end; procedure TBaseExtrusionDefinition.ConnectTo(svrIntf: ksBaseExtrusionDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBaseExtrusionDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBaseExtrusionDefinition.GetDefaultInterface: ksBaseExtrusionDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBaseExtrusionDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBaseExtrusionDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBaseExtrusionDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBaseExtrusionDefinition.GetServerProperties: TBaseExtrusionDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBaseExtrusionDefinition.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBaseExtrusionDefinition.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TBaseExtrusionDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TBaseExtrusionDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TBaseExtrusionDefinition.GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; begin Result := DefaultInterface.GetSideParam(side1, type_, depth, draftValue, draftOutward); end; function TBaseExtrusionDefinition.SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; begin Result := DefaultInterface.SetSideParam(side1, type_, depth, draftValue, draftOutward); end; function TBaseExtrusionDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBaseExtrusionDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBaseExtrusionDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TBaseExtrusionDefinition.ExtrusionParam: IDispatch; begin Result := DefaultInterface.ExtrusionParam; end; function TBaseExtrusionDefinition.GetDepthObject(normal: WordBool): IDispatch; begin Result := DefaultInterface.GetDepthObject(normal); end; function TBaseExtrusionDefinition.SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetDepthObject(normal, obj); end; function TBaseExtrusionDefinition.ResetDepthObject(normal: WordBool): WordBool; begin Result := DefaultInterface.ResetDepthObject(normal); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBaseExtrusionDefinitionProperties.Create(AServer: TBaseExtrusionDefinition); begin inherited Create; FServer := AServer; end; function TBaseExtrusionDefinitionProperties.GetDefaultInterface: ksBaseExtrusionDefinition; begin Result := FServer.DefaultInterface; end; function TBaseExtrusionDefinitionProperties.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBaseExtrusionDefinitionProperties.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; {$ENDIF} class function CoBossExtrusionDefinition.Create: ksBossExtrusionDefinition; begin Result := CreateComObject(CLASS_BossExtrusionDefinition) as ksBossExtrusionDefinition; end; class function CoBossExtrusionDefinition.CreateRemote(const MachineName: string): ksBossExtrusionDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BossExtrusionDefinition) as ksBossExtrusionDefinition; end; procedure TBossExtrusionDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFE6-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFE4-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBossExtrusionDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBossExtrusionDefinition; end; end; procedure TBossExtrusionDefinition.ConnectTo(svrIntf: ksBossExtrusionDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBossExtrusionDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBossExtrusionDefinition.GetDefaultInterface: ksBossExtrusionDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBossExtrusionDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBossExtrusionDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBossExtrusionDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBossExtrusionDefinition.GetServerProperties: TBossExtrusionDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBossExtrusionDefinition.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBossExtrusionDefinition.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TBossExtrusionDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TBossExtrusionDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TBossExtrusionDefinition.GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; begin Result := DefaultInterface.GetSideParam(side1, type_, depth, draftValue, draftOutward); end; function TBossExtrusionDefinition.SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; begin Result := DefaultInterface.SetSideParam(side1, type_, depth, draftValue, draftOutward); end; function TBossExtrusionDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBossExtrusionDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBossExtrusionDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TBossExtrusionDefinition.ExtrusionParam: IDispatch; begin Result := DefaultInterface.ExtrusionParam; end; function TBossExtrusionDefinition.GetDepthObject(normal: WordBool): IDispatch; begin Result := DefaultInterface.GetDepthObject(normal); end; function TBossExtrusionDefinition.SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetDepthObject(normal, obj); end; function TBossExtrusionDefinition.ResetDepthObject(normal: WordBool): WordBool; begin Result := DefaultInterface.ResetDepthObject(normal); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBossExtrusionDefinitionProperties.Create(AServer: TBossExtrusionDefinition); begin inherited Create; FServer := AServer; end; function TBossExtrusionDefinitionProperties.GetDefaultInterface: ksBossExtrusionDefinition; begin Result := FServer.DefaultInterface; end; function TBossExtrusionDefinitionProperties.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBossExtrusionDefinitionProperties.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; {$ENDIF} class function CoCutExtrusionDefinition.Create: ksCutExtrusionDefinition; begin Result := CreateComObject(CLASS_CutExtrusionDefinition) as ksCutExtrusionDefinition; end; class function CoCutExtrusionDefinition.CreateRemote(const MachineName: string): ksCutExtrusionDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CutExtrusionDefinition) as ksCutExtrusionDefinition; end; procedure TCutExtrusionDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFE9-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFE7-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutExtrusionDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutExtrusionDefinition; end; end; procedure TCutExtrusionDefinition.ConnectTo(svrIntf: ksCutExtrusionDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCutExtrusionDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutExtrusionDefinition.GetDefaultInterface: ksCutExtrusionDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutExtrusionDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutExtrusionDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCutExtrusionDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutExtrusionDefinition.GetServerProperties: TCutExtrusionDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCutExtrusionDefinition.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TCutExtrusionDefinition.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TCutExtrusionDefinition.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutExtrusionDefinition.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; function TCutExtrusionDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TCutExtrusionDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TCutExtrusionDefinition.GetSideParam(side1: WordBool; var type_: Smallint; var depth: Double; var draftValue: Double; var draftOutward: WordBool): WordBool; begin Result := DefaultInterface.GetSideParam(side1, type_, depth, draftValue, draftOutward); end; function TCutExtrusionDefinition.SetSideParam(side1: WordBool; type_: Smallint; depth: Double; draftValue: Double; draftOutward: WordBool): WordBool; begin Result := DefaultInterface.SetSideParam(side1, type_, depth, draftValue, draftOutward); end; function TCutExtrusionDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TCutExtrusionDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TCutExtrusionDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TCutExtrusionDefinition.ExtrusionParam: IDispatch; begin Result := DefaultInterface.ExtrusionParam; end; function TCutExtrusionDefinition.GetDepthObject(normal: WordBool): IDispatch; begin Result := DefaultInterface.GetDepthObject(normal); end; function TCutExtrusionDefinition.SetDepthObject(normal: WordBool; const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetDepthObject(normal, obj); end; function TCutExtrusionDefinition.ResetDepthObject(normal: WordBool): WordBool; begin Result := DefaultInterface.ResetDepthObject(normal); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutExtrusionDefinitionProperties.Create(AServer: TCutExtrusionDefinition); begin inherited Create; FServer := AServer; end; function TCutExtrusionDefinitionProperties.GetDefaultInterface: ksCutExtrusionDefinition; begin Result := FServer.DefaultInterface; end; function TCutExtrusionDefinitionProperties.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TCutExtrusionDefinitionProperties.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TCutExtrusionDefinitionProperties.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutExtrusionDefinitionProperties.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; {$ENDIF} class function CoBaseLoftDefinition.Create: ksBaseLoftDefinition; begin Result := CreateComObject(CLASS_BaseLoftDefinition) as ksBaseLoftDefinition; end; class function CoBaseLoftDefinition.CreateRemote(const MachineName: string): ksBaseLoftDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BaseLoftDefinition) as ksBaseLoftDefinition; end; procedure TBaseLoftDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFEC-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFEA-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBaseLoftDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBaseLoftDefinition; end; end; procedure TBaseLoftDefinition.ConnectTo(svrIntf: ksBaseLoftDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBaseLoftDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBaseLoftDefinition.GetDefaultInterface: ksBaseLoftDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBaseLoftDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBaseLoftDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBaseLoftDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBaseLoftDefinition.GetServerProperties: TBaseLoftDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBaseLoftDefinition.GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; begin Result := DefaultInterface.GetLoftParam(closed, flipVertex, autoPath); end; function TBaseLoftDefinition.SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; begin Result := DefaultInterface.SetLoftParam(closed, flipVertex, autoPath); end; function TBaseLoftDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBaseLoftDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBaseLoftDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TBaseLoftDefinition.Sketchs: IDispatch; begin Result := DefaultInterface.Sketchs; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBaseLoftDefinitionProperties.Create(AServer: TBaseLoftDefinition); begin inherited Create; FServer := AServer; end; function TBaseLoftDefinitionProperties.GetDefaultInterface: ksBaseLoftDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoBossLoftDefinition.Create: ksBossLoftDefinition; begin Result := CreateComObject(CLASS_BossLoftDefinition) as ksBossLoftDefinition; end; class function CoBossLoftDefinition.CreateRemote(const MachineName: string): ksBossLoftDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BossLoftDefinition) as ksBossLoftDefinition; end; procedure TBossLoftDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFEF-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFED-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBossLoftDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBossLoftDefinition; end; end; procedure TBossLoftDefinition.ConnectTo(svrIntf: ksBossLoftDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBossLoftDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBossLoftDefinition.GetDefaultInterface: ksBossLoftDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBossLoftDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBossLoftDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBossLoftDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBossLoftDefinition.GetServerProperties: TBossLoftDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBossLoftDefinition.GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; begin Result := DefaultInterface.GetLoftParam(closed, flipVertex, autoPath); end; function TBossLoftDefinition.SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; begin Result := DefaultInterface.SetLoftParam(closed, flipVertex, autoPath); end; function TBossLoftDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBossLoftDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBossLoftDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TBossLoftDefinition.Sketchs: IDispatch; begin Result := DefaultInterface.Sketchs; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBossLoftDefinitionProperties.Create(AServer: TBossLoftDefinition); begin inherited Create; FServer := AServer; end; function TBossLoftDefinitionProperties.GetDefaultInterface: ksBossLoftDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoCutLoftDefinition.Create: ksCutLoftDefinition; begin Result := CreateComObject(CLASS_CutLoftDefinition) as ksCutLoftDefinition; end; class function CoCutLoftDefinition.CreateRemote(const MachineName: string): ksCutLoftDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CutLoftDefinition) as ksCutLoftDefinition; end; procedure TCutLoftDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFF2-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFF0-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutLoftDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutLoftDefinition; end; end; procedure TCutLoftDefinition.ConnectTo(svrIntf: ksCutLoftDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCutLoftDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutLoftDefinition.GetDefaultInterface: ksCutLoftDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutLoftDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutLoftDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCutLoftDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutLoftDefinition.GetServerProperties: TCutLoftDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCutLoftDefinition.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutLoftDefinition.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; function TCutLoftDefinition.GetLoftParam(var closed: WordBool; var flipVertex: WordBool; var autoPath: WordBool): WordBool; begin Result := DefaultInterface.GetLoftParam(closed, flipVertex, autoPath); end; function TCutLoftDefinition.SetLoftParam(closed: WordBool; flipVertex: WordBool; autoPath: WordBool): WordBool; begin Result := DefaultInterface.SetLoftParam(closed, flipVertex, autoPath); end; function TCutLoftDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TCutLoftDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TCutLoftDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TCutLoftDefinition.Sketchs: IDispatch; begin Result := DefaultInterface.Sketchs; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutLoftDefinitionProperties.Create(AServer: TCutLoftDefinition); begin inherited Create; FServer := AServer; end; function TCutLoftDefinitionProperties.GetDefaultInterface: ksCutLoftDefinition; begin Result := FServer.DefaultInterface; end; function TCutLoftDefinitionProperties.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutLoftDefinitionProperties.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; {$ENDIF} class function CoInclineDefinition.Create: ksInclineDefinition; begin Result := CreateComObject(CLASS_InclineDefinition) as ksInclineDefinition; end; class function CoInclineDefinition.CreateRemote(const MachineName: string): ksInclineDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_InclineDefinition) as ksInclineDefinition; end; procedure TInclineDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFF5-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFF3-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TInclineDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksInclineDefinition; end; end; procedure TInclineDefinition.ConnectTo(svrIntf: ksInclineDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TInclineDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TInclineDefinition.GetDefaultInterface: ksInclineDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TInclineDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TInclineDefinitionProperties.Create(Self); {$ENDIF} end; destructor TInclineDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TInclineDefinition.GetServerProperties: TInclineDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TInclineDefinition.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TInclineDefinition.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TInclineDefinition.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TInclineDefinition.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; function TInclineDefinition.FaceArray: IDispatch; begin Result := DefaultInterface.FaceArray; end; function TInclineDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TInclineDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TInclineDefinitionProperties.Create(AServer: TInclineDefinition); begin inherited Create; FServer := AServer; end; function TInclineDefinitionProperties.GetDefaultInterface: ksInclineDefinition; begin Result := FServer.DefaultInterface; end; function TInclineDefinitionProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TInclineDefinitionProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TInclineDefinitionProperties.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TInclineDefinitionProperties.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; {$ENDIF} class function CoShellDefinition.Create: ksShellDefinition; begin Result := CreateComObject(CLASS_ShellDefinition) as ksShellDefinition; end; class function CoShellDefinition.CreateRemote(const MachineName: string): ksShellDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_ShellDefinition) as ksShellDefinition; end; procedure TShellDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFF8-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFF6-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TShellDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksShellDefinition; end; end; procedure TShellDefinition.ConnectTo(svrIntf: ksShellDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TShellDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TShellDefinition.GetDefaultInterface: ksShellDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TShellDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TShellDefinitionProperties.Create(Self); {$ENDIF} end; destructor TShellDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TShellDefinition.GetServerProperties: TShellDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TShellDefinition.Get_thickness: Double; begin Result := DefaultInterface.thickness; end; procedure TShellDefinition.Set_thickness(Value: Double); begin DefaultInterface.thickness := Value; end; function TShellDefinition.Get_thinType: WordBool; begin Result := DefaultInterface.thinType; end; procedure TShellDefinition.Set_thinType(Value: WordBool); begin DefaultInterface.thinType := Value; end; function TShellDefinition.FaceArray: IDispatch; begin Result := DefaultInterface.FaceArray; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TShellDefinitionProperties.Create(AServer: TShellDefinition); begin inherited Create; FServer := AServer; end; function TShellDefinitionProperties.GetDefaultInterface: ksShellDefinition; begin Result := FServer.DefaultInterface; end; function TShellDefinitionProperties.Get_thickness: Double; begin Result := DefaultInterface.thickness; end; procedure TShellDefinitionProperties.Set_thickness(Value: Double); begin DefaultInterface.thickness := Value; end; function TShellDefinitionProperties.Get_thinType: WordBool; begin Result := DefaultInterface.thinType; end; procedure TShellDefinitionProperties.Set_thinType(Value: WordBool); begin DefaultInterface.thinType := Value; end; {$ENDIF} class function CoBaseEvolutionDefinition.Create: ksBaseEvolutionDefinition; begin Result := CreateComObject(CLASS_BaseEvolutionDefinition) as ksBaseEvolutionDefinition; end; class function CoBaseEvolutionDefinition.CreateRemote(const MachineName: string): ksBaseEvolutionDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BaseEvolutionDefinition) as ksBaseEvolutionDefinition; end; procedure TBaseEvolutionDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFFB-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFF9-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBaseEvolutionDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBaseEvolutionDefinition; end; end; procedure TBaseEvolutionDefinition.ConnectTo(svrIntf: ksBaseEvolutionDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBaseEvolutionDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBaseEvolutionDefinition.GetDefaultInterface: ksBaseEvolutionDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBaseEvolutionDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBaseEvolutionDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBaseEvolutionDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBaseEvolutionDefinition.GetServerProperties: TBaseEvolutionDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBaseEvolutionDefinition.Get_sketchShiftType: Smallint; begin Result := DefaultInterface.sketchShiftType; end; procedure TBaseEvolutionDefinition.Set_sketchShiftType(Value: Smallint); begin DefaultInterface.sketchShiftType := Value; end; function TBaseEvolutionDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TBaseEvolutionDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TBaseEvolutionDefinition.PathPartArray: IDispatch; begin Result := DefaultInterface.PathPartArray; end; function TBaseEvolutionDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBaseEvolutionDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBaseEvolutionDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBaseEvolutionDefinitionProperties.Create(AServer: TBaseEvolutionDefinition); begin inherited Create; FServer := AServer; end; function TBaseEvolutionDefinitionProperties.GetDefaultInterface: ksBaseEvolutionDefinition; begin Result := FServer.DefaultInterface; end; function TBaseEvolutionDefinitionProperties.Get_sketchShiftType: Smallint; begin Result := DefaultInterface.sketchShiftType; end; procedure TBaseEvolutionDefinitionProperties.Set_sketchShiftType(Value: Smallint); begin DefaultInterface.sketchShiftType := Value; end; {$ENDIF} class function CoBossEvolutionDefinition.Create: ksBossEvolutionDefinition; begin Result := CreateComObject(CLASS_BossEvolutionDefinition) as ksBossEvolutionDefinition; end; class function CoBossEvolutionDefinition.CreateRemote(const MachineName: string): ksBossEvolutionDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BossEvolutionDefinition) as ksBossEvolutionDefinition; end; procedure TBossEvolutionDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFEFFE-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFFC-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBossEvolutionDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBossEvolutionDefinition; end; end; procedure TBossEvolutionDefinition.ConnectTo(svrIntf: ksBossEvolutionDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBossEvolutionDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBossEvolutionDefinition.GetDefaultInterface: ksBossEvolutionDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBossEvolutionDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBossEvolutionDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBossEvolutionDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBossEvolutionDefinition.GetServerProperties: TBossEvolutionDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBossEvolutionDefinition.Get_sketchShiftType: Smallint; begin Result := DefaultInterface.sketchShiftType; end; procedure TBossEvolutionDefinition.Set_sketchShiftType(Value: Smallint); begin DefaultInterface.sketchShiftType := Value; end; function TBossEvolutionDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TBossEvolutionDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TBossEvolutionDefinition.PathPartArray: IDispatch; begin Result := DefaultInterface.PathPartArray; end; function TBossEvolutionDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBossEvolutionDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBossEvolutionDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBossEvolutionDefinitionProperties.Create(AServer: TBossEvolutionDefinition); begin inherited Create; FServer := AServer; end; function TBossEvolutionDefinitionProperties.GetDefaultInterface: ksBossEvolutionDefinition; begin Result := FServer.DefaultInterface; end; function TBossEvolutionDefinitionProperties.Get_sketchShiftType: Smallint; begin Result := DefaultInterface.sketchShiftType; end; procedure TBossEvolutionDefinitionProperties.Set_sketchShiftType(Value: Smallint); begin DefaultInterface.sketchShiftType := Value; end; {$ENDIF} class function CoCutEvolutionDefinition.Create: ksCutEvolutionDefinition; begin Result := CreateComObject(CLASS_CutEvolutionDefinition) as ksCutEvolutionDefinition; end; class function CoCutEvolutionDefinition.CreateRemote(const MachineName: string): ksCutEvolutionDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CutEvolutionDefinition) as ksCutEvolutionDefinition; end; procedure TCutEvolutionDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF001-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFEFFF-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutEvolutionDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutEvolutionDefinition; end; end; procedure TCutEvolutionDefinition.ConnectTo(svrIntf: ksCutEvolutionDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCutEvolutionDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutEvolutionDefinition.GetDefaultInterface: ksCutEvolutionDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutEvolutionDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutEvolutionDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCutEvolutionDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutEvolutionDefinition.GetServerProperties: TCutEvolutionDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCutEvolutionDefinition.Get_sketchShiftType: Smallint; begin Result := DefaultInterface.sketchShiftType; end; procedure TCutEvolutionDefinition.Set_sketchShiftType(Value: Smallint); begin DefaultInterface.sketchShiftType := Value; end; function TCutEvolutionDefinition.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutEvolutionDefinition.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; function TCutEvolutionDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TCutEvolutionDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TCutEvolutionDefinition.PathPartArray: IDispatch; begin Result := DefaultInterface.PathPartArray; end; function TCutEvolutionDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TCutEvolutionDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TCutEvolutionDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutEvolutionDefinitionProperties.Create(AServer: TCutEvolutionDefinition); begin inherited Create; FServer := AServer; end; function TCutEvolutionDefinitionProperties.GetDefaultInterface: ksCutEvolutionDefinition; begin Result := FServer.DefaultInterface; end; function TCutEvolutionDefinitionProperties.Get_sketchShiftType: Smallint; begin Result := DefaultInterface.sketchShiftType; end; procedure TCutEvolutionDefinitionProperties.Set_sketchShiftType(Value: Smallint); begin DefaultInterface.sketchShiftType := Value; end; function TCutEvolutionDefinitionProperties.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutEvolutionDefinitionProperties.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; {$ENDIF} class function CoRibDefinition.Create: ksRibDefinition; begin Result := CreateComObject(CLASS_RibDefinition) as ksRibDefinition; end; class function CoRibDefinition.CreateRemote(const MachineName: string): ksRibDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_RibDefinition) as ksRibDefinition; end; procedure TRibDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF004-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF002-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRibDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRibDefinition; end; end; procedure TRibDefinition.ConnectTo(svrIntf: ksRibDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TRibDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRibDefinition.GetDefaultInterface: ksRibDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRibDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRibDefinitionProperties.Create(Self); {$ENDIF} end; destructor TRibDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRibDefinition.GetServerProperties: TRibDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TRibDefinition.Get_index: Integer; begin Result := DefaultInterface.index; end; procedure TRibDefinition.Set_index(Value: Integer); begin DefaultInterface.index := Value; end; function TRibDefinition.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TRibDefinition.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TRibDefinition.Get_side: Integer; begin Result := DefaultInterface.side; end; procedure TRibDefinition.Set_side(Value: Integer); begin DefaultInterface.side := Value; end; function TRibDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TRibDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TRibDefinition.GetThinParam(var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thinType, normalThickness, reverseTthickness); end; function TRibDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TRibDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRibDefinitionProperties.Create(AServer: TRibDefinition); begin inherited Create; FServer := AServer; end; function TRibDefinitionProperties.GetDefaultInterface: ksRibDefinition; begin Result := FServer.DefaultInterface; end; function TRibDefinitionProperties.Get_index: Integer; begin Result := DefaultInterface.index; end; procedure TRibDefinitionProperties.Set_index(Value: Integer); begin DefaultInterface.index := Value; end; function TRibDefinitionProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TRibDefinitionProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TRibDefinitionProperties.Get_side: Integer; begin Result := DefaultInterface.side; end; procedure TRibDefinitionProperties.Set_side(Value: Integer); begin DefaultInterface.side := Value; end; {$ENDIF} class function CoCutByPlaneDefinition.Create: ksCutByPlaneDefinition; begin Result := CreateComObject(CLASS_CutByPlaneDefinition) as ksCutByPlaneDefinition; end; class function CoCutByPlaneDefinition.CreateRemote(const MachineName: string): ksCutByPlaneDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CutByPlaneDefinition) as ksCutByPlaneDefinition; end; procedure TCutByPlaneDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF007-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF005-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutByPlaneDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutByPlaneDefinition; end; end; procedure TCutByPlaneDefinition.ConnectTo(svrIntf: ksCutByPlaneDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCutByPlaneDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutByPlaneDefinition.GetDefaultInterface: ksCutByPlaneDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutByPlaneDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutByPlaneDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCutByPlaneDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutByPlaneDefinition.GetServerProperties: TCutByPlaneDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCutByPlaneDefinition.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TCutByPlaneDefinition.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; function TCutByPlaneDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TCutByPlaneDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutByPlaneDefinitionProperties.Create(AServer: TCutByPlaneDefinition); begin inherited Create; FServer := AServer; end; function TCutByPlaneDefinitionProperties.GetDefaultInterface: ksCutByPlaneDefinition; begin Result := FServer.DefaultInterface; end; function TCutByPlaneDefinitionProperties.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TCutByPlaneDefinitionProperties.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; {$ENDIF} class function CoCutBySketchDefinition.Create: ksCutBySketchDefinition; begin Result := CreateComObject(CLASS_CutBySketchDefinition) as ksCutBySketchDefinition; end; class function CoCutBySketchDefinition.CreateRemote(const MachineName: string): ksCutBySketchDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CutBySketchDefinition) as ksCutBySketchDefinition; end; procedure TCutBySketchDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF00A-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF008-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutBySketchDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutBySketchDefinition; end; end; procedure TCutBySketchDefinition.ConnectTo(svrIntf: ksCutBySketchDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCutBySketchDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutBySketchDefinition.GetDefaultInterface: ksCutBySketchDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutBySketchDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutBySketchDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCutBySketchDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutBySketchDefinition.GetServerProperties: TCutBySketchDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCutBySketchDefinition.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TCutBySketchDefinition.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; function TCutBySketchDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TCutBySketchDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutBySketchDefinitionProperties.Create(AServer: TCutBySketchDefinition); begin inherited Create; FServer := AServer; end; function TCutBySketchDefinitionProperties.GetDefaultInterface: ksCutBySketchDefinition; begin Result := FServer.DefaultInterface; end; function TCutBySketchDefinitionProperties.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TCutBySketchDefinitionProperties.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; {$ENDIF} class function CoPlaneOffsetDefinition.Create: ksPlaneOffsetDefinition; begin Result := CreateComObject(CLASS_PlaneOffsetDefinition) as ksPlaneOffsetDefinition; end; class function CoPlaneOffsetDefinition.CreateRemote(const MachineName: string): ksPlaneOffsetDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneOffsetDefinition) as ksPlaneOffsetDefinition; end; procedure TPlaneOffsetDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF00D-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF00B-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneOffsetDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneOffsetDefinition; end; end; procedure TPlaneOffsetDefinition.ConnectTo(svrIntf: ksPlaneOffsetDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneOffsetDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneOffsetDefinition.GetDefaultInterface: ksPlaneOffsetDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneOffsetDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneOffsetDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneOffsetDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneOffsetDefinition.GetServerProperties: TPlaneOffsetDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneOffsetDefinition.Get_offset: Double; begin Result := DefaultInterface.offset; end; procedure TPlaneOffsetDefinition.Set_offset(Value: Double); begin DefaultInterface.offset := Value; end; function TPlaneOffsetDefinition.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TPlaneOffsetDefinition.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; function TPlaneOffsetDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TPlaneOffsetDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneOffsetDefinitionProperties.Create(AServer: TPlaneOffsetDefinition); begin inherited Create; FServer := AServer; end; function TPlaneOffsetDefinitionProperties.GetDefaultInterface: ksPlaneOffsetDefinition; begin Result := FServer.DefaultInterface; end; function TPlaneOffsetDefinitionProperties.Get_offset: Double; begin Result := DefaultInterface.offset; end; procedure TPlaneOffsetDefinitionProperties.Set_offset(Value: Double); begin DefaultInterface.offset := Value; end; function TPlaneOffsetDefinitionProperties.Get_direction: WordBool; begin Result := DefaultInterface.direction; end; procedure TPlaneOffsetDefinitionProperties.Set_direction(Value: WordBool); begin DefaultInterface.direction := Value; end; {$ENDIF} class function CoPlaneAngleDefinition.Create: ksPlaneAngleDefinition; begin Result := CreateComObject(CLASS_PlaneAngleDefinition) as ksPlaneAngleDefinition; end; class function CoPlaneAngleDefinition.CreateRemote(const MachineName: string): ksPlaneAngleDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneAngleDefinition) as ksPlaneAngleDefinition; end; procedure TPlaneAngleDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF010-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF00E-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneAngleDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneAngleDefinition; end; end; procedure TPlaneAngleDefinition.ConnectTo(svrIntf: ksPlaneAngleDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneAngleDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneAngleDefinition.GetDefaultInterface: ksPlaneAngleDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneAngleDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneAngleDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneAngleDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneAngleDefinition.GetServerProperties: TPlaneAngleDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneAngleDefinition.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TPlaneAngleDefinition.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TPlaneAngleDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TPlaneAngleDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TPlaneAngleDefinition.SetAxis(const axis: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis(axis); end; function TPlaneAngleDefinition.GetAxis: IDispatch; begin Result := DefaultInterface.GetAxis; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneAngleDefinitionProperties.Create(AServer: TPlaneAngleDefinition); begin inherited Create; FServer := AServer; end; function TPlaneAngleDefinitionProperties.GetDefaultInterface: ksPlaneAngleDefinition; begin Result := FServer.DefaultInterface; end; function TPlaneAngleDefinitionProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TPlaneAngleDefinitionProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; {$ENDIF} class function CoPlane3PointsDefinition.Create: ksPlane3PointsDefinition; begin Result := CreateComObject(CLASS_Plane3PointsDefinition) as ksPlane3PointsDefinition; end; class function CoPlane3PointsDefinition.CreateRemote(const MachineName: string): ksPlane3PointsDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_Plane3PointsDefinition) as ksPlane3PointsDefinition; end; procedure TPlane3PointsDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF013-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF011-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlane3PointsDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlane3PointsDefinition; end; end; procedure TPlane3PointsDefinition.ConnectTo(svrIntf: ksPlane3PointsDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlane3PointsDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlane3PointsDefinition.GetDefaultInterface: ksPlane3PointsDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlane3PointsDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlane3PointsDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlane3PointsDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlane3PointsDefinition.GetServerProperties: TPlane3PointsDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlane3PointsDefinition.SetPoint(number: Integer; const point: IDispatch): WordBool; begin Result := DefaultInterface.SetPoint(number, point); end; function TPlane3PointsDefinition.GetPoint(number: Integer): IDispatch; begin Result := DefaultInterface.GetPoint(number); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlane3PointsDefinitionProperties.Create(AServer: TPlane3PointsDefinition); begin inherited Create; FServer := AServer; end; function TPlane3PointsDefinitionProperties.GetDefaultInterface: ksPlane3PointsDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoPlaneNormalToSurfaceDefinition.Create: ksPlaneNormalToSurfaceDefinition; begin Result := CreateComObject(CLASS_PlaneNormalToSurfaceDefinition) as ksPlaneNormalToSurfaceDefinition; end; class function CoPlaneNormalToSurfaceDefinition.CreateRemote(const MachineName: string): ksPlaneNormalToSurfaceDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneNormalToSurfaceDefinition) as ksPlaneNormalToSurfaceDefinition; end; procedure TPlaneNormalToSurfaceDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF016-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF014-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneNormalToSurfaceDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneNormalToSurfaceDefinition; end; end; procedure TPlaneNormalToSurfaceDefinition.ConnectTo(svrIntf: ksPlaneNormalToSurfaceDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneNormalToSurfaceDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneNormalToSurfaceDefinition.GetDefaultInterface: ksPlaneNormalToSurfaceDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneNormalToSurfaceDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneNormalToSurfaceDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneNormalToSurfaceDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneNormalToSurfaceDefinition.GetServerProperties: TPlaneNormalToSurfaceDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneNormalToSurfaceDefinition.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TPlaneNormalToSurfaceDefinition.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TPlaneNormalToSurfaceDefinition.SetFace(const face: IDispatch): WordBool; begin Result := DefaultInterface.SetFace(face); end; function TPlaneNormalToSurfaceDefinition.GetFace: IDispatch; begin Result := DefaultInterface.GetFace; end; function TPlaneNormalToSurfaceDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TPlaneNormalToSurfaceDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneNormalToSurfaceDefinitionProperties.Create(AServer: TPlaneNormalToSurfaceDefinition); begin inherited Create; FServer := AServer; end; function TPlaneNormalToSurfaceDefinitionProperties.GetDefaultInterface: ksPlaneNormalToSurfaceDefinition; begin Result := FServer.DefaultInterface; end; function TPlaneNormalToSurfaceDefinitionProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TPlaneNormalToSurfaceDefinitionProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; {$ENDIF} class function CoPlaneTangentToSurfaceDefinition.Create: ksPlaneTangentToSurfaceDefinition; begin Result := CreateComObject(CLASS_PlaneTangentToSurfaceDefinition) as ksPlaneTangentToSurfaceDefinition; end; class function CoPlaneTangentToSurfaceDefinition.CreateRemote(const MachineName: string): ksPlaneTangentToSurfaceDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneTangentToSurfaceDefinition) as ksPlaneTangentToSurfaceDefinition; end; procedure TPlaneTangentToSurfaceDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF019-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF017-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneTangentToSurfaceDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneTangentToSurfaceDefinition; end; end; procedure TPlaneTangentToSurfaceDefinition.ConnectTo(svrIntf: ksPlaneTangentToSurfaceDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneTangentToSurfaceDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneTangentToSurfaceDefinition.GetDefaultInterface: ksPlaneTangentToSurfaceDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneTangentToSurfaceDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneTangentToSurfaceDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneTangentToSurfaceDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneTangentToSurfaceDefinition.GetServerProperties: TPlaneTangentToSurfaceDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneTangentToSurfaceDefinition.Get_choosePlane: Smallint; begin Result := DefaultInterface.choosePlane; end; procedure TPlaneTangentToSurfaceDefinition.Set_choosePlane(Value: Smallint); begin DefaultInterface.choosePlane := Value; end; function TPlaneTangentToSurfaceDefinition.SetFace(const face: IDispatch): WordBool; begin Result := DefaultInterface.SetFace(face); end; function TPlaneTangentToSurfaceDefinition.GetFace: IDispatch; begin Result := DefaultInterface.GetFace; end; function TPlaneTangentToSurfaceDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TPlaneTangentToSurfaceDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneTangentToSurfaceDefinitionProperties.Create(AServer: TPlaneTangentToSurfaceDefinition); begin inherited Create; FServer := AServer; end; function TPlaneTangentToSurfaceDefinitionProperties.GetDefaultInterface: ksPlaneTangentToSurfaceDefinition; begin Result := FServer.DefaultInterface; end; function TPlaneTangentToSurfaceDefinitionProperties.Get_choosePlane: Smallint; begin Result := DefaultInterface.choosePlane; end; procedure TPlaneTangentToSurfaceDefinitionProperties.Set_choosePlane(Value: Smallint); begin DefaultInterface.choosePlane := Value; end; {$ENDIF} class function CoPlaneEdgePointDefinition.Create: ksPlaneEdgePointDefinition; begin Result := CreateComObject(CLASS_PlaneEdgePointDefinition) as ksPlaneEdgePointDefinition; end; class function CoPlaneEdgePointDefinition.CreateRemote(const MachineName: string): ksPlaneEdgePointDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneEdgePointDefinition) as ksPlaneEdgePointDefinition; end; procedure TPlaneEdgePointDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF01C-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF01A-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneEdgePointDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneEdgePointDefinition; end; end; procedure TPlaneEdgePointDefinition.ConnectTo(svrIntf: ksPlaneEdgePointDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneEdgePointDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneEdgePointDefinition.GetDefaultInterface: ksPlaneEdgePointDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneEdgePointDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneEdgePointDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneEdgePointDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneEdgePointDefinition.GetServerProperties: TPlaneEdgePointDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneEdgePointDefinition.SetEdge(const edge: IDispatch): WordBool; begin Result := DefaultInterface.SetEdge(edge); end; function TPlaneEdgePointDefinition.GetEdge: IDispatch; begin Result := DefaultInterface.GetEdge; end; function TPlaneEdgePointDefinition.SetPoint(const point: IDispatch): WordBool; begin Result := DefaultInterface.SetPoint(point); end; function TPlaneEdgePointDefinition.GetPoint: IDispatch; begin Result := DefaultInterface.GetPoint; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneEdgePointDefinitionProperties.Create(AServer: TPlaneEdgePointDefinition); begin inherited Create; FServer := AServer; end; function TPlaneEdgePointDefinitionProperties.GetDefaultInterface: ksPlaneEdgePointDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoPlaneParallelDefinition.Create: ksPlaneParallelDefinition; begin Result := CreateComObject(CLASS_PlaneParallelDefinition) as ksPlaneParallelDefinition; end; class function CoPlaneParallelDefinition.CreateRemote(const MachineName: string): ksPlaneParallelDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneParallelDefinition) as ksPlaneParallelDefinition; end; procedure TPlaneParallelDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF01F-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF01D-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneParallelDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneParallelDefinition; end; end; procedure TPlaneParallelDefinition.ConnectTo(svrIntf: ksPlaneParallelDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneParallelDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneParallelDefinition.GetDefaultInterface: ksPlaneParallelDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneParallelDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneParallelDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneParallelDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneParallelDefinition.GetServerProperties: TPlaneParallelDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneParallelDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TPlaneParallelDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TPlaneParallelDefinition.SetPoint(const point: IDispatch): WordBool; begin Result := DefaultInterface.SetPoint(point); end; function TPlaneParallelDefinition.GetPoint: IDispatch; begin Result := DefaultInterface.GetPoint; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneParallelDefinitionProperties.Create(AServer: TPlaneParallelDefinition); begin inherited Create; FServer := AServer; end; function TPlaneParallelDefinitionProperties.GetDefaultInterface: ksPlaneParallelDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoPlanePerpendicularDefinition.Create: ksPlanePerpendicularDefinition; begin Result := CreateComObject(CLASS_PlanePerpendicularDefinition) as ksPlanePerpendicularDefinition; end; class function CoPlanePerpendicularDefinition.CreateRemote(const MachineName: string): ksPlanePerpendicularDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlanePerpendicularDefinition) as ksPlanePerpendicularDefinition; end; procedure TPlanePerpendicularDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF022-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF020-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlanePerpendicularDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlanePerpendicularDefinition; end; end; procedure TPlanePerpendicularDefinition.ConnectTo(svrIntf: ksPlanePerpendicularDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlanePerpendicularDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlanePerpendicularDefinition.GetDefaultInterface: ksPlanePerpendicularDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlanePerpendicularDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlanePerpendicularDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlanePerpendicularDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlanePerpendicularDefinition.GetServerProperties: TPlanePerpendicularDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlanePerpendicularDefinition.SetEdge(const edge: IDispatch): WordBool; begin Result := DefaultInterface.SetEdge(edge); end; function TPlanePerpendicularDefinition.GetEdge: IDispatch; begin Result := DefaultInterface.GetEdge; end; function TPlanePerpendicularDefinition.SetPoint(const point: IDispatch): WordBool; begin Result := DefaultInterface.SetPoint(point); end; function TPlanePerpendicularDefinition.GetPoint: IDispatch; begin Result := DefaultInterface.GetPoint; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlanePerpendicularDefinitionProperties.Create(AServer: TPlanePerpendicularDefinition); begin inherited Create; FServer := AServer; end; function TPlanePerpendicularDefinitionProperties.GetDefaultInterface: ksPlanePerpendicularDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoPlaneLineToEdgeDefinition.Create: ksPlaneLineToEdgeDefinition; begin Result := CreateComObject(CLASS_PlaneLineToEdgeDefinition) as ksPlaneLineToEdgeDefinition; end; class function CoPlaneLineToEdgeDefinition.CreateRemote(const MachineName: string): ksPlaneLineToEdgeDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneLineToEdgeDefinition) as ksPlaneLineToEdgeDefinition; end; procedure TPlaneLineToEdgeDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF025-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF023-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneLineToEdgeDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneLineToEdgeDefinition; end; end; procedure TPlaneLineToEdgeDefinition.ConnectTo(svrIntf: ksPlaneLineToEdgeDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneLineToEdgeDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneLineToEdgeDefinition.GetDefaultInterface: ksPlaneLineToEdgeDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneLineToEdgeDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneLineToEdgeDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneLineToEdgeDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneLineToEdgeDefinition.GetServerProperties: TPlaneLineToEdgeDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneLineToEdgeDefinition.Get_parallel: WordBool; begin Result := DefaultInterface.parallel; end; procedure TPlaneLineToEdgeDefinition.Set_parallel(Value: WordBool); begin DefaultInterface.parallel := Value; end; function TPlaneLineToEdgeDefinition.SetEdgeFirst(const edge1: IDispatch): WordBool; begin Result := DefaultInterface.SetEdgeFirst(edge1); end; function TPlaneLineToEdgeDefinition.GetEdgeFirst: IDispatch; begin Result := DefaultInterface.GetEdgeFirst; end; function TPlaneLineToEdgeDefinition.SetEdgeSecond(const edge2: IDispatch): WordBool; begin Result := DefaultInterface.SetEdgeSecond(edge2); end; function TPlaneLineToEdgeDefinition.GetEdgeSecond: IDispatch; begin Result := DefaultInterface.GetEdgeSecond; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneLineToEdgeDefinitionProperties.Create(AServer: TPlaneLineToEdgeDefinition); begin inherited Create; FServer := AServer; end; function TPlaneLineToEdgeDefinitionProperties.GetDefaultInterface: ksPlaneLineToEdgeDefinition; begin Result := FServer.DefaultInterface; end; function TPlaneLineToEdgeDefinitionProperties.Get_parallel: WordBool; begin Result := DefaultInterface.parallel; end; procedure TPlaneLineToEdgeDefinitionProperties.Set_parallel(Value: WordBool); begin DefaultInterface.parallel := Value; end; {$ENDIF} class function CoPlaneLineToPlaneDefinition.Create: ksPlaneLineToPlaneDefinition; begin Result := CreateComObject(CLASS_PlaneLineToPlaneDefinition) as ksPlaneLineToPlaneDefinition; end; class function CoPlaneLineToPlaneDefinition.CreateRemote(const MachineName: string): ksPlaneLineToPlaneDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneLineToPlaneDefinition) as ksPlaneLineToPlaneDefinition; end; procedure TPlaneLineToPlaneDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF028-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF026-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneLineToPlaneDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneLineToPlaneDefinition; end; end; procedure TPlaneLineToPlaneDefinition.ConnectTo(svrIntf: ksPlaneLineToPlaneDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneLineToPlaneDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneLineToPlaneDefinition.GetDefaultInterface: ksPlaneLineToPlaneDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneLineToPlaneDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneLineToPlaneDefinitionProperties.Create(Self); {$ENDIF} end; destructor TPlaneLineToPlaneDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneLineToPlaneDefinition.GetServerProperties: TPlaneLineToPlaneDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TPlaneLineToPlaneDefinition.Get_parallel: WordBool; begin Result := DefaultInterface.parallel; end; procedure TPlaneLineToPlaneDefinition.Set_parallel(Value: WordBool); begin DefaultInterface.parallel := Value; end; function TPlaneLineToPlaneDefinition.SetEdge(const edge: IDispatch): WordBool; begin Result := DefaultInterface.SetEdge(edge); end; function TPlaneLineToPlaneDefinition.GetEdge: IDispatch; begin Result := DefaultInterface.GetEdge; end; function TPlaneLineToPlaneDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TPlaneLineToPlaneDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneLineToPlaneDefinitionProperties.Create(AServer: TPlaneLineToPlaneDefinition); begin inherited Create; FServer := AServer; end; function TPlaneLineToPlaneDefinitionProperties.GetDefaultInterface: ksPlaneLineToPlaneDefinition; begin Result := FServer.DefaultInterface; end; function TPlaneLineToPlaneDefinitionProperties.Get_parallel: WordBool; begin Result := DefaultInterface.parallel; end; procedure TPlaneLineToPlaneDefinitionProperties.Set_parallel(Value: WordBool); begin DefaultInterface.parallel := Value; end; {$ENDIF} class function CoThinParam.Create: ksThinParam; begin Result := CreateComObject(CLASS_ThinParam) as ksThinParam; end; class function CoThinParam.CreateRemote(const MachineName: string): ksThinParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ThinParam) as ksThinParam; end; procedure TThinParam.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF02B-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF029-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TThinParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksThinParam; end; end; procedure TThinParam.ConnectTo(svrIntf: ksThinParam); begin Disconnect; FIntf := svrIntf; end; procedure TThinParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TThinParam.GetDefaultInterface: ksThinParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TThinParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TThinParamProperties.Create(Self); {$ENDIF} end; destructor TThinParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TThinParam.GetServerProperties: TThinParamProperties; begin Result := FProps; end; {$ENDIF} function TThinParam.Get_thin: WordBool; begin Result := DefaultInterface.thin; end; procedure TThinParam.Set_thin(Value: WordBool); begin DefaultInterface.thin := Value; end; function TThinParam.Get_thinType: Smallint; begin Result := DefaultInterface.thinType; end; procedure TThinParam.Set_thinType(Value: Smallint); begin DefaultInterface.thinType := Value; end; function TThinParam.Get_normalThickness: Double; begin Result := DefaultInterface.normalThickness; end; procedure TThinParam.Set_normalThickness(Value: Double); begin DefaultInterface.normalThickness := Value; end; function TThinParam.Get_reverseThickness: Double; begin Result := DefaultInterface.reverseThickness; end; procedure TThinParam.Set_reverseThickness(Value: Double); begin DefaultInterface.reverseThickness := Value; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TThinParamProperties.Create(AServer: TThinParam); begin inherited Create; FServer := AServer; end; function TThinParamProperties.GetDefaultInterface: ksThinParam; begin Result := FServer.DefaultInterface; end; function TThinParamProperties.Get_thin: WordBool; begin Result := DefaultInterface.thin; end; procedure TThinParamProperties.Set_thin(Value: WordBool); begin DefaultInterface.thin := Value; end; function TThinParamProperties.Get_thinType: Smallint; begin Result := DefaultInterface.thinType; end; procedure TThinParamProperties.Set_thinType(Value: Smallint); begin DefaultInterface.thinType := Value; end; function TThinParamProperties.Get_normalThickness: Double; begin Result := DefaultInterface.normalThickness; end; procedure TThinParamProperties.Set_normalThickness(Value: Double); begin DefaultInterface.normalThickness := Value; end; function TThinParamProperties.Get_reverseThickness: Double; begin Result := DefaultInterface.reverseThickness; end; procedure TThinParamProperties.Set_reverseThickness(Value: Double); begin DefaultInterface.reverseThickness := Value; end; {$ENDIF} class function CoExtrusionParam.Create: ksExtrusionParam; begin Result := CreateComObject(CLASS_ExtrusionParam) as ksExtrusionParam; end; class function CoExtrusionParam.CreateRemote(const MachineName: string): ksExtrusionParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ExtrusionParam) as ksExtrusionParam; end; procedure TExtrusionParam.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF02E-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF02C-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExtrusionParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksExtrusionParam; end; end; procedure TExtrusionParam.ConnectTo(svrIntf: ksExtrusionParam); begin Disconnect; FIntf := svrIntf; end; procedure TExtrusionParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TExtrusionParam.GetDefaultInterface: ksExtrusionParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TExtrusionParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TExtrusionParamProperties.Create(Self); {$ENDIF} end; destructor TExtrusionParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TExtrusionParam.GetServerProperties: TExtrusionParamProperties; begin Result := FProps; end; {$ENDIF} function TExtrusionParam.Get_typeNormal: Smallint; begin Result := DefaultInterface.typeNormal; end; procedure TExtrusionParam.Set_typeNormal(Value: Smallint); begin DefaultInterface.typeNormal := Value; end; function TExtrusionParam.Get_depthNormal: Double; begin Result := DefaultInterface.depthNormal; end; procedure TExtrusionParam.Set_depthNormal(Value: Double); begin DefaultInterface.depthNormal := Value; end; function TExtrusionParam.Get_draftValueNormal: Double; begin Result := DefaultInterface.draftValueNormal; end; procedure TExtrusionParam.Set_draftValueNormal(Value: Double); begin DefaultInterface.draftValueNormal := Value; end; function TExtrusionParam.Get_draftOutwardNormal: WordBool; begin Result := DefaultInterface.draftOutwardNormal; end; procedure TExtrusionParam.Set_draftOutwardNormal(Value: WordBool); begin DefaultInterface.draftOutwardNormal := Value; end; function TExtrusionParam.Get_typeReverse: Smallint; begin Result := DefaultInterface.typeReverse; end; procedure TExtrusionParam.Set_typeReverse(Value: Smallint); begin DefaultInterface.typeReverse := Value; end; function TExtrusionParam.Get_depthReverse: Double; begin Result := DefaultInterface.depthReverse; end; procedure TExtrusionParam.Set_depthReverse(Value: Double); begin DefaultInterface.depthReverse := Value; end; function TExtrusionParam.Get_draftValueReverse: Double; begin Result := DefaultInterface.draftValueReverse; end; procedure TExtrusionParam.Set_draftValueReverse(Value: Double); begin DefaultInterface.draftValueReverse := Value; end; function TExtrusionParam.Get_draftOutwardReverse: WordBool; begin Result := DefaultInterface.draftOutwardReverse; end; procedure TExtrusionParam.Set_draftOutwardReverse(Value: WordBool); begin DefaultInterface.draftOutwardReverse := Value; end; function TExtrusionParam.Get_direction: Integer; begin Result := DefaultInterface.direction; end; procedure TExtrusionParam.Set_direction(Value: Integer); begin DefaultInterface.direction := Value; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TExtrusionParamProperties.Create(AServer: TExtrusionParam); begin inherited Create; FServer := AServer; end; function TExtrusionParamProperties.GetDefaultInterface: ksExtrusionParam; begin Result := FServer.DefaultInterface; end; function TExtrusionParamProperties.Get_typeNormal: Smallint; begin Result := DefaultInterface.typeNormal; end; procedure TExtrusionParamProperties.Set_typeNormal(Value: Smallint); begin DefaultInterface.typeNormal := Value; end; function TExtrusionParamProperties.Get_depthNormal: Double; begin Result := DefaultInterface.depthNormal; end; procedure TExtrusionParamProperties.Set_depthNormal(Value: Double); begin DefaultInterface.depthNormal := Value; end; function TExtrusionParamProperties.Get_draftValueNormal: Double; begin Result := DefaultInterface.draftValueNormal; end; procedure TExtrusionParamProperties.Set_draftValueNormal(Value: Double); begin DefaultInterface.draftValueNormal := Value; end; function TExtrusionParamProperties.Get_draftOutwardNormal: WordBool; begin Result := DefaultInterface.draftOutwardNormal; end; procedure TExtrusionParamProperties.Set_draftOutwardNormal(Value: WordBool); begin DefaultInterface.draftOutwardNormal := Value; end; function TExtrusionParamProperties.Get_typeReverse: Smallint; begin Result := DefaultInterface.typeReverse; end; procedure TExtrusionParamProperties.Set_typeReverse(Value: Smallint); begin DefaultInterface.typeReverse := Value; end; function TExtrusionParamProperties.Get_depthReverse: Double; begin Result := DefaultInterface.depthReverse; end; procedure TExtrusionParamProperties.Set_depthReverse(Value: Double); begin DefaultInterface.depthReverse := Value; end; function TExtrusionParamProperties.Get_draftValueReverse: Double; begin Result := DefaultInterface.draftValueReverse; end; procedure TExtrusionParamProperties.Set_draftValueReverse(Value: Double); begin DefaultInterface.draftValueReverse := Value; end; function TExtrusionParamProperties.Get_draftOutwardReverse: WordBool; begin Result := DefaultInterface.draftOutwardReverse; end; procedure TExtrusionParamProperties.Set_draftOutwardReverse(Value: WordBool); begin DefaultInterface.draftOutwardReverse := Value; end; function TExtrusionParamProperties.Get_direction: Integer; begin Result := DefaultInterface.direction; end; procedure TExtrusionParamProperties.Set_direction(Value: Integer); begin DefaultInterface.direction := Value; end; {$ENDIF} class function CoRotatedParam.Create: ksRotatedParam; begin Result := CreateComObject(CLASS_RotatedParam) as ksRotatedParam; end; class function CoRotatedParam.CreateRemote(const MachineName: string): ksRotatedParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RotatedParam) as ksRotatedParam; end; procedure TRotatedParam.InitServerData; const CServerData: TServerData = ( ClassID: '{DEEFF031-C3E2-11D6-8734-00C0262CDD2C}'; IntfIID: '{DEEFF02F-C3E2-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRotatedParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRotatedParam; end; end; procedure TRotatedParam.ConnectTo(svrIntf: ksRotatedParam); begin Disconnect; FIntf := svrIntf; end; procedure TRotatedParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRotatedParam.GetDefaultInterface: ksRotatedParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRotatedParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRotatedParamProperties.Create(Self); {$ENDIF} end; destructor TRotatedParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRotatedParam.GetServerProperties: TRotatedParamProperties; begin Result := FProps; end; {$ENDIF} function TRotatedParam.Get_angleNormal: Double; begin Result := DefaultInterface.angleNormal; end; procedure TRotatedParam.Set_angleNormal(Value: Double); begin DefaultInterface.angleNormal := Value; end; function TRotatedParam.Get_angleReverse: Double; begin Result := DefaultInterface.angleReverse; end; procedure TRotatedParam.Set_angleReverse(Value: Double); begin DefaultInterface.angleReverse := Value; end; function TRotatedParam.Get_toroidShape: WordBool; begin Result := DefaultInterface.toroidShape; end; procedure TRotatedParam.Set_toroidShape(Value: WordBool); begin DefaultInterface.toroidShape := Value; end; function TRotatedParam.Get_direction: Integer; begin Result := DefaultInterface.direction; end; procedure TRotatedParam.Set_direction(Value: Integer); begin DefaultInterface.direction := Value; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRotatedParamProperties.Create(AServer: TRotatedParam); begin inherited Create; FServer := AServer; end; function TRotatedParamProperties.GetDefaultInterface: ksRotatedParam; begin Result := FServer.DefaultInterface; end; function TRotatedParamProperties.Get_angleNormal: Double; begin Result := DefaultInterface.angleNormal; end; procedure TRotatedParamProperties.Set_angleNormal(Value: Double); begin DefaultInterface.angleNormal := Value; end; function TRotatedParamProperties.Get_angleReverse: Double; begin Result := DefaultInterface.angleReverse; end; procedure TRotatedParamProperties.Set_angleReverse(Value: Double); begin DefaultInterface.angleReverse := Value; end; function TRotatedParamProperties.Get_toroidShape: WordBool; begin Result := DefaultInterface.toroidShape; end; procedure TRotatedParamProperties.Set_toroidShape(Value: WordBool); begin DefaultInterface.toroidShape := Value; end; function TRotatedParamProperties.Get_direction: Integer; begin Result := DefaultInterface.direction; end; procedure TRotatedParamProperties.Set_direction(Value: Integer); begin DefaultInterface.direction := Value; end; {$ENDIF} class function CoColorParam.Create: ksColorParam; begin Result := CreateComObject(CLASS_ColorParam) as ksColorParam; end; class function CoColorParam.CreateRemote(const MachineName: string): ksColorParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ColorParam) as ksColorParam; end; procedure TColorParam.InitServerData; const CServerData: TServerData = ( ClassID: '{2DFACC63-C4A4-11D6-8734-00C0262CDD2C}'; IntfIID: '{2DFACC61-C4A4-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TColorParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksColorParam; end; end; procedure TColorParam.ConnectTo(svrIntf: ksColorParam); begin Disconnect; FIntf := svrIntf; end; procedure TColorParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TColorParam.GetDefaultInterface: ksColorParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TColorParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TColorParamProperties.Create(Self); {$ENDIF} end; destructor TColorParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TColorParam.GetServerProperties: TColorParamProperties; begin Result := FProps; end; {$ENDIF} function TColorParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TColorParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TColorParam.Get_ambient: Double; begin Result := DefaultInterface.ambient; end; procedure TColorParam.Set_ambient(Value: Double); begin DefaultInterface.ambient := Value; end; function TColorParam.Get_diffuse: Double; begin Result := DefaultInterface.diffuse; end; procedure TColorParam.Set_diffuse(Value: Double); begin DefaultInterface.diffuse := Value; end; function TColorParam.Get_specularity: Double; begin Result := DefaultInterface.specularity; end; procedure TColorParam.Set_specularity(Value: Double); begin DefaultInterface.specularity := Value; end; function TColorParam.Get_shininess: Double; begin Result := DefaultInterface.shininess; end; procedure TColorParam.Set_shininess(Value: Double); begin DefaultInterface.shininess := Value; end; function TColorParam.Get_transparency: Double; begin Result := DefaultInterface.transparency; end; procedure TColorParam.Set_transparency(Value: Double); begin DefaultInterface.transparency := Value; end; function TColorParam.Get_emission: Double; begin Result := DefaultInterface.emission; end; procedure TColorParam.Set_emission(Value: Double); begin DefaultInterface.emission := Value; end; function TColorParam.Clear: WordBool; begin Result := DefaultInterface.Clear; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TColorParamProperties.Create(AServer: TColorParam); begin inherited Create; FServer := AServer; end; function TColorParamProperties.GetDefaultInterface: ksColorParam; begin Result := FServer.DefaultInterface; end; function TColorParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TColorParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TColorParamProperties.Get_ambient: Double; begin Result := DefaultInterface.ambient; end; procedure TColorParamProperties.Set_ambient(Value: Double); begin DefaultInterface.ambient := Value; end; function TColorParamProperties.Get_diffuse: Double; begin Result := DefaultInterface.diffuse; end; procedure TColorParamProperties.Set_diffuse(Value: Double); begin DefaultInterface.diffuse := Value; end; function TColorParamProperties.Get_specularity: Double; begin Result := DefaultInterface.specularity; end; procedure TColorParamProperties.Set_specularity(Value: Double); begin DefaultInterface.specularity := Value; end; function TColorParamProperties.Get_shininess: Double; begin Result := DefaultInterface.shininess; end; procedure TColorParamProperties.Set_shininess(Value: Double); begin DefaultInterface.shininess := Value; end; function TColorParamProperties.Get_transparency: Double; begin Result := DefaultInterface.transparency; end; procedure TColorParamProperties.Set_transparency(Value: Double); begin DefaultInterface.transparency := Value; end; function TColorParamProperties.Get_emission: Double; begin Result := DefaultInterface.emission; end; procedure TColorParamProperties.Set_emission(Value: Double); begin DefaultInterface.emission := Value; end; {$ENDIF} class function CoBaseRotatedDefinition.Create: ksBaseRotatedDefinition; begin Result := CreateComObject(CLASS_BaseRotatedDefinition) as ksBaseRotatedDefinition; end; class function CoBaseRotatedDefinition.CreateRemote(const MachineName: string): ksBaseRotatedDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BaseRotatedDefinition) as ksBaseRotatedDefinition; end; procedure TBaseRotatedDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{2DFACC69-C4A4-11D6-8734-00C0262CDD2C}'; IntfIID: '{2DFACC67-C4A4-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBaseRotatedDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBaseRotatedDefinition; end; end; procedure TBaseRotatedDefinition.ConnectTo(svrIntf: ksBaseRotatedDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBaseRotatedDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBaseRotatedDefinition.GetDefaultInterface: ksBaseRotatedDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBaseRotatedDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBaseRotatedDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBaseRotatedDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBaseRotatedDefinition.GetServerProperties: TBaseRotatedDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBaseRotatedDefinition.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBaseRotatedDefinition.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TBaseRotatedDefinition.Get_toroidShapeType: WordBool; begin Result := DefaultInterface.toroidShapeType; end; procedure TBaseRotatedDefinition.Set_toroidShapeType(Value: WordBool); begin DefaultInterface.toroidShapeType := Value; end; function TBaseRotatedDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TBaseRotatedDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TBaseRotatedDefinition.GetSideParam(side1: WordBool; var angle: Double): WordBool; begin Result := DefaultInterface.GetSideParam(side1, angle); end; function TBaseRotatedDefinition.SetSideParam(side1: WordBool; angle: Double): WordBool; begin Result := DefaultInterface.SetSideParam(side1, angle); end; function TBaseRotatedDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBaseRotatedDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBaseRotatedDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TBaseRotatedDefinition.RotatedParam: IDispatch; begin Result := DefaultInterface.RotatedParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBaseRotatedDefinitionProperties.Create(AServer: TBaseRotatedDefinition); begin inherited Create; FServer := AServer; end; function TBaseRotatedDefinitionProperties.GetDefaultInterface: ksBaseRotatedDefinition; begin Result := FServer.DefaultInterface; end; function TBaseRotatedDefinitionProperties.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBaseRotatedDefinitionProperties.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TBaseRotatedDefinitionProperties.Get_toroidShapeType: WordBool; begin Result := DefaultInterface.toroidShapeType; end; procedure TBaseRotatedDefinitionProperties.Set_toroidShapeType(Value: WordBool); begin DefaultInterface.toroidShapeType := Value; end; {$ENDIF} class function CoBossRotatedDefinition.Create: ksBossRotatedDefinition; begin Result := CreateComObject(CLASS_BossRotatedDefinition) as ksBossRotatedDefinition; end; class function CoBossRotatedDefinition.CreateRemote(const MachineName: string): ksBossRotatedDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_BossRotatedDefinition) as ksBossRotatedDefinition; end; procedure TBossRotatedDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{2DFACC6C-C4A4-11D6-8734-00C0262CDD2C}'; IntfIID: '{2DFACC6A-C4A4-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBossRotatedDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBossRotatedDefinition; end; end; procedure TBossRotatedDefinition.ConnectTo(svrIntf: ksBossRotatedDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TBossRotatedDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBossRotatedDefinition.GetDefaultInterface: ksBossRotatedDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBossRotatedDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBossRotatedDefinitionProperties.Create(Self); {$ENDIF} end; destructor TBossRotatedDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBossRotatedDefinition.GetServerProperties: TBossRotatedDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TBossRotatedDefinition.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBossRotatedDefinition.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TBossRotatedDefinition.Get_toroidShapeType: WordBool; begin Result := DefaultInterface.toroidShapeType; end; procedure TBossRotatedDefinition.Set_toroidShapeType(Value: WordBool); begin DefaultInterface.toroidShapeType := Value; end; function TBossRotatedDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TBossRotatedDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TBossRotatedDefinition.GetSideParam(side1: WordBool; var angle: Double): WordBool; begin Result := DefaultInterface.GetSideParam(side1, angle); end; function TBossRotatedDefinition.SetSideParam(side1: WordBool; angle: Double): WordBool; begin Result := DefaultInterface.SetSideParam(side1, angle); end; function TBossRotatedDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TBossRotatedDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TBossRotatedDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TBossRotatedDefinition.RotatedParam: IDispatch; begin Result := DefaultInterface.RotatedParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBossRotatedDefinitionProperties.Create(AServer: TBossRotatedDefinition); begin inherited Create; FServer := AServer; end; function TBossRotatedDefinitionProperties.GetDefaultInterface: ksBossRotatedDefinition; begin Result := FServer.DefaultInterface; end; function TBossRotatedDefinitionProperties.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TBossRotatedDefinitionProperties.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TBossRotatedDefinitionProperties.Get_toroidShapeType: WordBool; begin Result := DefaultInterface.toroidShapeType; end; procedure TBossRotatedDefinitionProperties.Set_toroidShapeType(Value: WordBool); begin DefaultInterface.toroidShapeType := Value; end; {$ENDIF} class function CoCutRotatedDefinition.Create: ksCutRotatedDefinition; begin Result := CreateComObject(CLASS_CutRotatedDefinition) as ksCutRotatedDefinition; end; class function CoCutRotatedDefinition.CreateRemote(const MachineName: string): ksCutRotatedDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_CutRotatedDefinition) as ksCutRotatedDefinition; end; procedure TCutRotatedDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{2DFACC6F-C4A4-11D6-8734-00C0262CDD2C}'; IntfIID: '{2DFACC6D-C4A4-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCutRotatedDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCutRotatedDefinition; end; end; procedure TCutRotatedDefinition.ConnectTo(svrIntf: ksCutRotatedDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TCutRotatedDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCutRotatedDefinition.GetDefaultInterface: ksCutRotatedDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCutRotatedDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCutRotatedDefinitionProperties.Create(Self); {$ENDIF} end; destructor TCutRotatedDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCutRotatedDefinition.GetServerProperties: TCutRotatedDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TCutRotatedDefinition.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TCutRotatedDefinition.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TCutRotatedDefinition.Get_toroidShapeType: WordBool; begin Result := DefaultInterface.toroidShapeType; end; procedure TCutRotatedDefinition.Set_toroidShapeType(Value: WordBool); begin DefaultInterface.toroidShapeType := Value; end; function TCutRotatedDefinition.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutRotatedDefinition.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; function TCutRotatedDefinition.SetSketch(const sketch: IDispatch): WordBool; begin Result := DefaultInterface.SetSketch(sketch); end; function TCutRotatedDefinition.GetSketch: IDispatch; begin Result := DefaultInterface.GetSketch; end; function TCutRotatedDefinition.GetSideParam(side1: WordBool; var angle: Double): WordBool; begin Result := DefaultInterface.GetSideParam(side1, angle); end; function TCutRotatedDefinition.SetSideParam(side1: WordBool; angle: Double): WordBool; begin Result := DefaultInterface.SetSideParam(side1, angle); end; function TCutRotatedDefinition.GetThinParam(var thin: WordBool; var thinType: Smallint; var normalThickness: Double; var reverseTthickness: Double): WordBool; begin Result := DefaultInterface.GetThinParam(thin, thinType, normalThickness, reverseTthickness); end; function TCutRotatedDefinition.SetThinParam(thin: WordBool; thinType: Smallint; normalThickness: Double; reverseThickness: Double): WordBool; begin Result := DefaultInterface.SetThinParam(thin, thinType, normalThickness, reverseThickness); end; function TCutRotatedDefinition.ThinParam: IDispatch; begin Result := DefaultInterface.ThinParam; end; function TCutRotatedDefinition.RotatedParam: IDispatch; begin Result := DefaultInterface.RotatedParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCutRotatedDefinitionProperties.Create(AServer: TCutRotatedDefinition); begin inherited Create; FServer := AServer; end; function TCutRotatedDefinitionProperties.GetDefaultInterface: ksCutRotatedDefinition; begin Result := FServer.DefaultInterface; end; function TCutRotatedDefinitionProperties.Get_directionType: Smallint; begin Result := DefaultInterface.directionType; end; procedure TCutRotatedDefinitionProperties.Set_directionType(Value: Smallint); begin DefaultInterface.directionType := Value; end; function TCutRotatedDefinitionProperties.Get_toroidShapeType: WordBool; begin Result := DefaultInterface.toroidShapeType; end; procedure TCutRotatedDefinitionProperties.Set_toroidShapeType(Value: WordBool); begin DefaultInterface.toroidShapeType := Value; end; function TCutRotatedDefinitionProperties.Get_cut: WordBool; begin Result := DefaultInterface.cut; end; procedure TCutRotatedDefinitionProperties.Set_cut(Value: WordBool); begin DefaultInterface.cut := Value; end; {$ENDIF} class function CoSketchDefinition.Create: ksSketchDefinition; begin Result := CreateComObject(CLASS_SketchDefinition) as ksSketchDefinition; end; class function CoSketchDefinition.CreateRemote(const MachineName: string): ksSketchDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_SketchDefinition) as ksSketchDefinition; end; procedure TSketchDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{2DFACC72-C4A4-11D6-8734-00C0262CDD2C}'; IntfIID: '{2DFACC70-C4A4-11D6-8734-00C0262CDD2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSketchDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSketchDefinition; end; end; procedure TSketchDefinition.ConnectTo(svrIntf: ksSketchDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TSketchDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSketchDefinition.GetDefaultInterface: ksSketchDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSketchDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSketchDefinitionProperties.Create(Self); {$ENDIF} end; destructor TSketchDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSketchDefinition.GetServerProperties: TSketchDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TSketchDefinition.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TSketchDefinition.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TSketchDefinition.EndEdit: WordBool; begin Result := DefaultInterface.EndEdit; end; function TSketchDefinition.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TSketchDefinition.GetPlane: IDispatch; begin Result := DefaultInterface.GetPlane; end; function TSketchDefinition.GetLocation(var x: Double; var y: Double): WordBool; begin Result := DefaultInterface.GetLocation(x, y); end; function TSketchDefinition.SetLocation(x: Double; y: Double): WordBool; begin Result := DefaultInterface.SetLocation(x, y); end; function TSketchDefinition.GetLoftPoint(var x: Double; var y: Double): WordBool; begin Result := DefaultInterface.GetLoftPoint(x, y); end; function TSketchDefinition.UserSetPlacement(const prompt: WideString): WordBool; begin Result := DefaultInterface.UserSetPlacement(prompt); end; function TSketchDefinition.BeginEdit: IDispatch; begin Result := DefaultInterface.BeginEdit; end; function TSketchDefinition.AddProjectionOf(const entity: IDispatch): Integer; begin Result := DefaultInterface.AddProjectionOf(entity); end; function TSketchDefinition.SetLoftPoint(x: Double; y: Double): WordBool; begin Result := DefaultInterface.SetLoftPoint(x, y); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSketchDefinitionProperties.Create(AServer: TSketchDefinition); begin inherited Create; FServer := AServer; end; function TSketchDefinitionProperties.GetDefaultInterface: ksSketchDefinition; begin Result := FServer.DefaultInterface; end; function TSketchDefinitionProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TSketchDefinitionProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; {$ENDIF} class function CoRasterFormatParam.Create: ksRasterFormatParam; begin Result := CreateComObject(CLASS_RasterFormatParam) as ksRasterFormatParam; end; class function CoRasterFormatParam.CreateRemote(const MachineName: string): ksRasterFormatParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RasterFormatParam) as ksRasterFormatParam; end; procedure TRasterFormatParam.InitServerData; const CServerData: TServerData = ( ClassID: '{CD6054FC-D754-4139-8CD9-381F7488A6C7}'; IntfIID: '{1A91A8AB-AF8C-4EE3-86D4-0A9C00123195}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRasterFormatParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRasterFormatParam; end; end; procedure TRasterFormatParam.ConnectTo(svrIntf: ksRasterFormatParam); begin Disconnect; FIntf := svrIntf; end; procedure TRasterFormatParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRasterFormatParam.GetDefaultInterface: ksRasterFormatParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRasterFormatParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRasterFormatParamProperties.Create(Self); {$ENDIF} end; destructor TRasterFormatParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRasterFormatParam.GetServerProperties: TRasterFormatParamProperties; begin Result := FProps; end; {$ENDIF} function TRasterFormatParam.Get_format: Smallint; begin Result := DefaultInterface.format; end; procedure TRasterFormatParam.Set_format(Value: Smallint); begin DefaultInterface.format := Value; end; function TRasterFormatParam.Get_colorBPP: Smallint; begin Result := DefaultInterface.colorBPP; end; procedure TRasterFormatParam.Set_colorBPP(Value: Smallint); begin DefaultInterface.colorBPP := Value; end; function TRasterFormatParam.Get_greyScale: WordBool; begin Result := DefaultInterface.greyScale; end; procedure TRasterFormatParam.Set_greyScale(Value: WordBool); begin DefaultInterface.greyScale := Value; end; function TRasterFormatParam.Get_extResolution: Integer; begin Result := DefaultInterface.extResolution; end; procedure TRasterFormatParam.Set_extResolution(Value: Integer); begin DefaultInterface.extResolution := Value; end; function TRasterFormatParam.Get_extScale: Double; begin Result := DefaultInterface.extScale; end; procedure TRasterFormatParam.Set_extScale(Value: Double); begin DefaultInterface.extScale := Value; end; function TRasterFormatParam.Get_colorType: Smallint; begin Result := DefaultInterface.colorType; end; procedure TRasterFormatParam.Set_colorType(Value: Smallint); begin DefaultInterface.colorType := Value; end; function TRasterFormatParam.Get_onlyThinLine: WordBool; begin Result := DefaultInterface.onlyThinLine; end; procedure TRasterFormatParam.Set_onlyThinLine(Value: WordBool); begin DefaultInterface.onlyThinLine := Value; end; function TRasterFormatParam.Get_pages: WideString; begin Result := DefaultInterface.pages; end; procedure TRasterFormatParam.Set_pages(const Value: WideString); begin DefaultInterface.pages := Value; end; function TRasterFormatParam.Get_rangeIndex: Smallint; begin Result := DefaultInterface.rangeIndex; end; procedure TRasterFormatParam.Set_rangeIndex(Value: Smallint); begin DefaultInterface.rangeIndex := Value; end; function TRasterFormatParam.Get_multiPageOutput: WordBool; begin Result := DefaultInterface.multiPageOutput; end; procedure TRasterFormatParam.Set_multiPageOutput(Value: WordBool); begin DefaultInterface.multiPageOutput := Value; end; function TRasterFormatParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRasterFormatParamProperties.Create(AServer: TRasterFormatParam); begin inherited Create; FServer := AServer; end; function TRasterFormatParamProperties.GetDefaultInterface: ksRasterFormatParam; begin Result := FServer.DefaultInterface; end; function TRasterFormatParamProperties.Get_format: Smallint; begin Result := DefaultInterface.format; end; procedure TRasterFormatParamProperties.Set_format(Value: Smallint); begin DefaultInterface.format := Value; end; function TRasterFormatParamProperties.Get_colorBPP: Smallint; begin Result := DefaultInterface.colorBPP; end; procedure TRasterFormatParamProperties.Set_colorBPP(Value: Smallint); begin DefaultInterface.colorBPP := Value; end; function TRasterFormatParamProperties.Get_greyScale: WordBool; begin Result := DefaultInterface.greyScale; end; procedure TRasterFormatParamProperties.Set_greyScale(Value: WordBool); begin DefaultInterface.greyScale := Value; end; function TRasterFormatParamProperties.Get_extResolution: Integer; begin Result := DefaultInterface.extResolution; end; procedure TRasterFormatParamProperties.Set_extResolution(Value: Integer); begin DefaultInterface.extResolution := Value; end; function TRasterFormatParamProperties.Get_extScale: Double; begin Result := DefaultInterface.extScale; end; procedure TRasterFormatParamProperties.Set_extScale(Value: Double); begin DefaultInterface.extScale := Value; end; function TRasterFormatParamProperties.Get_colorType: Smallint; begin Result := DefaultInterface.colorType; end; procedure TRasterFormatParamProperties.Set_colorType(Value: Smallint); begin DefaultInterface.colorType := Value; end; function TRasterFormatParamProperties.Get_onlyThinLine: WordBool; begin Result := DefaultInterface.onlyThinLine; end; procedure TRasterFormatParamProperties.Set_onlyThinLine(Value: WordBool); begin DefaultInterface.onlyThinLine := Value; end; function TRasterFormatParamProperties.Get_pages: WideString; begin Result := DefaultInterface.pages; end; procedure TRasterFormatParamProperties.Set_pages(const Value: WideString); begin DefaultInterface.pages := Value; end; function TRasterFormatParamProperties.Get_rangeIndex: Smallint; begin Result := DefaultInterface.rangeIndex; end; procedure TRasterFormatParamProperties.Set_rangeIndex(Value: Smallint); begin DefaultInterface.rangeIndex := Value; end; function TRasterFormatParamProperties.Get_multiPageOutput: WordBool; begin Result := DefaultInterface.multiPageOutput; end; procedure TRasterFormatParamProperties.Set_multiPageOutput(Value: WordBool); begin DefaultInterface.multiPageOutput := Value; end; {$ENDIF} class function CoAdditionFormatParam.Create: ksAdditionFormatParam; begin Result := CreateComObject(CLASS_AdditionFormatParam) as ksAdditionFormatParam; end; class function CoAdditionFormatParam.CreateRemote(const MachineName: string): ksAdditionFormatParam; begin Result := CreateRemoteComObject(MachineName, CLASS_AdditionFormatParam) as ksAdditionFormatParam; end; procedure TAdditionFormatParam.InitServerData; const CServerData: TServerData = ( ClassID: '{13DF9CCA-122C-4CEC-87FA-CF16818E013A}'; IntfIID: '{0FD25FF9-AB0A-48F3-BAD4-F193116C0887}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAdditionFormatParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAdditionFormatParam; end; end; procedure TAdditionFormatParam.ConnectTo(svrIntf: ksAdditionFormatParam); begin Disconnect; FIntf := svrIntf; end; procedure TAdditionFormatParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAdditionFormatParam.GetDefaultInterface: ksAdditionFormatParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAdditionFormatParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAdditionFormatParamProperties.Create(Self); {$ENDIF} end; destructor TAdditionFormatParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAdditionFormatParam.GetServerProperties: TAdditionFormatParamProperties; begin Result := FProps; end; {$ENDIF} function TAdditionFormatParam.Get_format: Smallint; begin Result := DefaultInterface.format; end; procedure TAdditionFormatParam.Set_format(Value: Smallint); begin DefaultInterface.format := Value; end; function TAdditionFormatParam.Get_formatBinary: WordBool; begin Result := DefaultInterface.formatBinary; end; procedure TAdditionFormatParam.Set_formatBinary(Value: WordBool); begin DefaultInterface.formatBinary := Value; end; function TAdditionFormatParam.Get_topolgyIncluded: WordBool; begin Result := DefaultInterface.topolgyIncluded; end; procedure TAdditionFormatParam.Set_topolgyIncluded(Value: WordBool); begin DefaultInterface.topolgyIncluded := Value; end; function TAdditionFormatParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAdditionFormatParamProperties.Create(AServer: TAdditionFormatParam); begin inherited Create; FServer := AServer; end; function TAdditionFormatParamProperties.GetDefaultInterface: ksAdditionFormatParam; begin Result := FServer.DefaultInterface; end; function TAdditionFormatParamProperties.Get_format: Smallint; begin Result := DefaultInterface.format; end; procedure TAdditionFormatParamProperties.Set_format(Value: Smallint); begin DefaultInterface.format := Value; end; function TAdditionFormatParamProperties.Get_formatBinary: WordBool; begin Result := DefaultInterface.formatBinary; end; procedure TAdditionFormatParamProperties.Set_formatBinary(Value: WordBool); begin DefaultInterface.formatBinary := Value; end; function TAdditionFormatParamProperties.Get_topolgyIncluded: WordBool; begin Result := DefaultInterface.topolgyIncluded; end; procedure TAdditionFormatParamProperties.Set_topolgyIncluded(Value: WordBool); begin DefaultInterface.topolgyIncluded := Value; end; {$ENDIF} class function CoConstraintParam.Create: ksConstraintParam; begin Result := CreateComObject(CLASS_ConstraintParam) as ksConstraintParam; end; class function CoConstraintParam.CreateRemote(const MachineName: string): ksConstraintParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ConstraintParam) as ksConstraintParam; end; procedure TConstraintParam.InitServerData; const CServerData: TServerData = ( ClassID: '{77C095F7-3ABC-4292-B9E1-C112620AFC56}'; IntfIID: '{862E250D-9DB1-47E8-8EE2-9BE2D2453D5A}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TConstraintParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksConstraintParam; end; end; procedure TConstraintParam.ConnectTo(svrIntf: ksConstraintParam); begin Disconnect; FIntf := svrIntf; end; procedure TConstraintParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TConstraintParam.GetDefaultInterface: ksConstraintParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TConstraintParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TConstraintParamProperties.Create(Self); {$ENDIF} end; destructor TConstraintParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TConstraintParam.GetServerProperties: TConstraintParamProperties; begin Result := FProps; end; {$ENDIF} function TConstraintParam.Get_constrType: Smallint; begin Result := DefaultInterface.constrType; end; procedure TConstraintParam.Set_constrType(Value: Smallint); begin DefaultInterface.constrType := Value; end; function TConstraintParam.Get_index: SYSINT; begin Result := DefaultInterface.index; end; procedure TConstraintParam.Set_index(Value: SYSINT); begin DefaultInterface.index := Value; end; function TConstraintParam.Get_partner: Integer; begin Result := DefaultInterface.partner; end; procedure TConstraintParam.Set_partner(Value: Integer); begin DefaultInterface.partner := Value; end; function TConstraintParam.Get_partnerIndex: SYSINT; begin Result := DefaultInterface.partnerIndex; end; procedure TConstraintParam.Set_partnerIndex(Value: SYSINT); begin DefaultInterface.partnerIndex := Value; end; function TConstraintParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TConstraintParamProperties.Create(AServer: TConstraintParam); begin inherited Create; FServer := AServer; end; function TConstraintParamProperties.GetDefaultInterface: ksConstraintParam; begin Result := FServer.DefaultInterface; end; function TConstraintParamProperties.Get_constrType: Smallint; begin Result := DefaultInterface.constrType; end; procedure TConstraintParamProperties.Set_constrType(Value: Smallint); begin DefaultInterface.constrType := Value; end; function TConstraintParamProperties.Get_index: SYSINT; begin Result := DefaultInterface.index; end; procedure TConstraintParamProperties.Set_index(Value: SYSINT); begin DefaultInterface.index := Value; end; function TConstraintParamProperties.Get_partner: Integer; begin Result := DefaultInterface.partner; end; procedure TConstraintParamProperties.Set_partner(Value: Integer); begin DefaultInterface.partner := Value; end; function TConstraintParamProperties.Get_partnerIndex: SYSINT; begin Result := DefaultInterface.partnerIndex; end; procedure TConstraintParamProperties.Set_partnerIndex(Value: SYSINT); begin DefaultInterface.partnerIndex := Value; end; {$ENDIF} class function CoImportedSurfaceDefinition.Create: ksImportedSurfaceDefinition; begin Result := CreateComObject(CLASS_ImportedSurfaceDefinition) as ksImportedSurfaceDefinition; end; class function CoImportedSurfaceDefinition.CreateRemote(const MachineName: string): ksImportedSurfaceDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_ImportedSurfaceDefinition) as ksImportedSurfaceDefinition; end; procedure TImportedSurfaceDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{102FA83C-E0D6-4DB5-937A-FC149526899A}'; IntfIID: '{78A2C35E-A7DA-414E-B90A-F19998EC7BD1}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TImportedSurfaceDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksImportedSurfaceDefinition; end; end; procedure TImportedSurfaceDefinition.ConnectTo(svrIntf: ksImportedSurfaceDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TImportedSurfaceDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TImportedSurfaceDefinition.GetDefaultInterface: ksImportedSurfaceDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TImportedSurfaceDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TImportedSurfaceDefinitionProperties.Create(Self); {$ENDIF} end; destructor TImportedSurfaceDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TImportedSurfaceDefinition.GetServerProperties: TImportedSurfaceDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TImportedSurfaceDefinition.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TImportedSurfaceDefinition.BeginCurve: WordBool; begin Result := DefaultInterface.BeginCurve; end; function TImportedSurfaceDefinition.AddPoint(x: Double; y: Double; z: Double): WordBool; begin Result := DefaultInterface.AddPoint(x, y, z); end; function TImportedSurfaceDefinition.EndCurve: WordBool; begin Result := DefaultInterface.EndCurve; end; function TImportedSurfaceDefinition.AddCurve(arr: OleVariant): WordBool; begin Result := DefaultInterface.AddCurve(arr); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TImportedSurfaceDefinitionProperties.Create(AServer: TImportedSurfaceDefinition); begin inherited Create; FServer := AServer; end; function TImportedSurfaceDefinitionProperties.GetDefaultInterface: ksImportedSurfaceDefinition; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoFaceCollection.Create: ksFaceCollection; begin Result := CreateComObject(CLASS_FaceCollection) as ksFaceCollection; end; class function CoFaceCollection.CreateRemote(const MachineName: string): ksFaceCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_FaceCollection) as ksFaceCollection; end; procedure TFaceCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{CB7B9677-9F62-473E-9663-AD516B5F37B5}'; IntfIID: '{0E95ACE0-0E73-406F-AE94-E8A0592E298D}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFaceCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFaceCollection; end; end; procedure TFaceCollection.ConnectTo(svrIntf: ksFaceCollection); begin Disconnect; FIntf := svrIntf; end; procedure TFaceCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TFaceCollection.GetDefaultInterface: ksFaceCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFaceCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFaceCollectionProperties.Create(Self); {$ENDIF} end; destructor TFaceCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFaceCollection.GetServerProperties: TFaceCollectionProperties; begin Result := FProps; end; {$ENDIF} function TFaceCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TFaceCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TFaceCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TFaceCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TFaceCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TFaceCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TFaceCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TFaceCollection.GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; begin Result := DefaultInterface.GetByName(name, testFullName, testIgnoreCase); end; function TFaceCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFaceCollectionProperties.Create(AServer: TFaceCollection); begin inherited Create; FServer := AServer; end; function TFaceCollectionProperties.GetDefaultInterface: ksFaceCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoVertexDefinition.Create: ksVertexDefinition; begin Result := CreateComObject(CLASS_VertexDefinition) as ksVertexDefinition; end; class function CoVertexDefinition.CreateRemote(const MachineName: string): ksVertexDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_VertexDefinition) as ksVertexDefinition; end; procedure TVertexDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{5CE6E053-3EC8-427B-BCB5-82B01D4BCBF3}'; IntfIID: '{A7257E73-EB61-4602-BC8B-2D00EA4AA062}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TVertexDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksVertexDefinition; end; end; procedure TVertexDefinition.ConnectTo(svrIntf: ksVertexDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TVertexDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TVertexDefinition.GetDefaultInterface: ksVertexDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TVertexDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TVertexDefinitionProperties.Create(Self); {$ENDIF} end; destructor TVertexDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TVertexDefinition.GetServerProperties: TVertexDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TVertexDefinition.Get_topologyVertex: WordBool; begin Result := DefaultInterface.topologyVertex; end; function TVertexDefinition.Get_freeVertex: WordBool; begin Result := DefaultInterface.freeVertex; end; function TVertexDefinition.GetPoint(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPoint(x, y, z); end; function TVertexDefinition.GetOwnerEntity: IDispatch; begin Result := DefaultInterface.GetOwnerEntity; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TVertexDefinitionProperties.Create(AServer: TVertexDefinition); begin inherited Create; FServer := AServer; end; function TVertexDefinitionProperties.GetDefaultInterface: ksVertexDefinition; begin Result := FServer.DefaultInterface; end; function TVertexDefinitionProperties.Get_topologyVertex: WordBool; begin Result := DefaultInterface.topologyVertex; end; function TVertexDefinitionProperties.Get_freeVertex: WordBool; begin Result := DefaultInterface.freeVertex; end; {$ENDIF} class function CoFeature.Create: ksFeature; begin Result := CreateComObject(CLASS_Feature) as ksFeature; end; class function CoFeature.CreateRemote(const MachineName: string): ksFeature; begin Result := CreateRemoteComObject(MachineName, CLASS_Feature) as ksFeature; end; procedure TFeature.InitServerData; const CServerData: TServerData = ( ClassID: '{1978BA1C-EE2F-48ED-86D7-B15065B36E4A}'; IntfIID: '{088BF9A8-37D3-4B15-A7CA-8C52FF1DBC41}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFeature.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFeature; end; end; procedure TFeature.ConnectTo(svrIntf: ksFeature); begin Disconnect; FIntf := svrIntf; end; procedure TFeature.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TFeature.GetDefaultInterface: ksFeature; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFeature.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFeatureProperties.Create(Self); {$ENDIF} end; destructor TFeature.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFeature.GetServerProperties: TFeatureProperties; begin Result := FProps; end; {$ENDIF} function TFeature.Get_excluded: WordBool; begin Result := DefaultInterface.excluded; end; procedure TFeature.Set_excluded(Value: WordBool); begin DefaultInterface.excluded := Value; end; function TFeature.Get_name: WideString; begin Result := DefaultInterface.name; end; function TFeature.Get_updateStamp: LongWord; begin Result := DefaultInterface.updateStamp; end; function TFeature.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; function TFeature.IsModified(recursive: WordBool): WordBool; begin Result := DefaultInterface.IsModified(recursive); end; function TFeature.SubFeatureCollection(through: WordBool; libObject: WordBool): IDispatch; begin Result := DefaultInterface.SubFeatureCollection(through, libObject); end; function TFeature.GetOwnerFeature: IDispatch; begin Result := DefaultInterface.GetOwnerFeature; end; function TFeature.IsValid: WordBool; begin Result := DefaultInterface.IsValid; end; function TFeature.GetObject: IDispatch; begin Result := DefaultInterface.GetObject; end; function TFeature.AttributeCollection(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double): ksAttribute3DCollection; begin Result := DefaultInterface.AttributeCollection(key1, key2, key3, key4, numb); end; function TFeature.EntityCollection(objType: Smallint): ksEntityCollection; begin Result := DefaultInterface.EntityCollection(objType); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFeatureProperties.Create(AServer: TFeature); begin inherited Create; FServer := AServer; end; function TFeatureProperties.GetDefaultInterface: ksFeature; begin Result := FServer.DefaultInterface; end; function TFeatureProperties.Get_excluded: WordBool; begin Result := DefaultInterface.excluded; end; procedure TFeatureProperties.Set_excluded(Value: WordBool); begin DefaultInterface.excluded := Value; end; function TFeatureProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; function TFeatureProperties.Get_updateStamp: LongWord; begin Result := DefaultInterface.updateStamp; end; function TFeatureProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; {$ENDIF} class function CoTessellation.Create: ksTessellation; begin Result := CreateComObject(CLASS_Tessellation) as ksTessellation; end; class function CoTessellation.CreateRemote(const MachineName: string): ksTessellation; begin Result := CreateRemoteComObject(MachineName, CLASS_Tessellation) as ksTessellation; end; procedure TTessellation.InitServerData; const CServerData: TServerData = ( ClassID: '{923A48A1-C159-4959-B13E-E8C558534C89}'; IntfIID: '{B810650E-7819-485C-90D2-ADEB647AE5E2}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTessellation.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTessellation; end; end; procedure TTessellation.ConnectTo(svrIntf: ksTessellation); begin Disconnect; FIntf := svrIntf; end; procedure TTessellation.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTessellation.GetDefaultInterface: ksTessellation; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTessellation.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTessellationProperties.Create(Self); {$ENDIF} end; destructor TTessellation.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTessellation.GetServerProperties: TTessellationProperties; begin Result := FProps; end; {$ENDIF} function TTessellation.GetFacetsCount: Integer; begin Result := DefaultInterface.GetFacetsCount; end; function TTessellation.GetFacetData(index: SYSINT; const facet: IDispatch): WordBool; begin Result := DefaultInterface.GetFacetData(index, facet); end; function TTessellation.GetPointsCount: Integer; begin Result := DefaultInterface.GetPointsCount; end; function TTessellation.GetPoint(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; begin Result := DefaultInterface.GetPoint(index, x, y, z); end; function TTessellation.GetNormal(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; begin Result := DefaultInterface.GetNormal(index, x, y, z); end; function TTessellation.SetFacetSize(sag: Double): WordBool; begin Result := DefaultInterface.SetFacetSize(sag); end; function TTessellation.GetFacetSize: Double; begin Result := DefaultInterface.GetFacetSize; end; function TTessellation.GetFacet: IDispatch; begin Result := DefaultInterface.GetFacet; end; function TTessellation.refresh: WordBool; begin Result := DefaultInterface.refresh; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTessellationProperties.Create(AServer: TTessellation); begin inherited Create; FServer := AServer; end; function TTessellationProperties.GetDefaultInterface: ksTessellation; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function Cofacet.Create: ksFacet; begin Result := CreateComObject(CLASS_facet) as ksFacet; end; class function Cofacet.CreateRemote(const MachineName: string): ksFacet; begin Result := CreateRemoteComObject(MachineName, CLASS_facet) as ksFacet; end; procedure Tfacet.InitServerData; const CServerData: TServerData = ( ClassID: '{F7F45063-0B37-40B1-B3AD-BB0A545EC2C8}'; IntfIID: '{EB6AFBC0-C387-4E07-B24E-DDF2B7926A26}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure Tfacet.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksFacet; end; end; procedure Tfacet.ConnectTo(svrIntf: ksFacet); begin Disconnect; FIntf := svrIntf; end; procedure Tfacet.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function Tfacet.GetDefaultInterface: ksFacet; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor Tfacet.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TfacetProperties.Create(Self); {$ENDIF} end; destructor Tfacet.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function Tfacet.GetServerProperties: TfacetProperties; begin Result := FProps; end; {$ENDIF} function Tfacet.GetPointsCount: SYSINT; begin Result := DefaultInterface.GetPointsCount; end; function Tfacet.GetPoint(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; begin Result := DefaultInterface.GetPoint(index, x, y, z); end; function Tfacet.GetNormal(index: SYSINT; var x: Single; var y: Single; var z: Single): WordBool; begin Result := DefaultInterface.GetNormal(index, x, y, z); end; function Tfacet.GetTessellationIndex(index: SYSINT): SYSINT; begin Result := DefaultInterface.GetTessellationIndex(index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TfacetProperties.Create(AServer: Tfacet); begin inherited Create; FServer := AServer; end; function TfacetProperties.GetDefaultInterface: ksFacet; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoMeasurer.Create: ksMeasurer; begin Result := CreateComObject(CLASS_Measurer) as ksMeasurer; end; class function CoMeasurer.CreateRemote(const MachineName: string): ksMeasurer; begin Result := CreateRemoteComObject(MachineName, CLASS_Measurer) as ksMeasurer; end; procedure TMeasurer.InitServerData; const CServerData: TServerData = ( ClassID: '{E07C6920-E361-4A4D-9140-95969C26A9ED}'; IntfIID: '{ABC84FE5-3945-4A0B-820A-719BF4B79224}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMeasurer.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksMeasurer; end; end; procedure TMeasurer.ConnectTo(svrIntf: ksMeasurer); begin Disconnect; FIntf := svrIntf; end; procedure TMeasurer.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TMeasurer.GetDefaultInterface: ksMeasurer; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMeasurer.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMeasurerProperties.Create(Self); {$ENDIF} end; destructor TMeasurer.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMeasurer.GetServerProperties: TMeasurerProperties; begin Result := FProps; end; {$ENDIF} function TMeasurer.Get_unit_: LongWord; begin Result := DefaultInterface.unit_; end; procedure TMeasurer.Set_unit_(Value: LongWord); begin DefaultInterface.unit_ := Value; end; function TMeasurer.Get_extendObject1: WordBool; begin Result := DefaultInterface.extendObject1; end; procedure TMeasurer.Set_extendObject1(Value: WordBool); begin DefaultInterface.extendObject1 := Value; end; function TMeasurer.Get_extendObject2: WordBool; begin Result := DefaultInterface.extendObject2; end; procedure TMeasurer.Set_extendObject2(Value: WordBool); begin DefaultInterface.extendObject2 := Value; end; function TMeasurer.Get_angle: Double; begin Result := DefaultInterface.angle; end; function TMeasurer.Get_distance: Double; begin Result := DefaultInterface.distance; end; function TMeasurer.SetObject1(const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetObject1(obj); end; function TMeasurer.SetObject2(const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetObject2(obj); end; function TMeasurer.GetObject1: IDispatch; begin Result := DefaultInterface.GetObject1; end; function TMeasurer.GetObject2: IDispatch; begin Result := DefaultInterface.GetObject2; end; function TMeasurer.Calc: WordBool; begin Result := DefaultInterface.Calc; end; function TMeasurer.IsAngleValid: WordBool; begin Result := DefaultInterface.IsAngleValid; end; function TMeasurer.GetPoint1(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPoint1(x, y, z); end; function TMeasurer.GetPoint2(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPoint2(x, y, z); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMeasurerProperties.Create(AServer: TMeasurer); begin inherited Create; FServer := AServer; end; function TMeasurerProperties.GetDefaultInterface: ksMeasurer; begin Result := FServer.DefaultInterface; end; function TMeasurerProperties.Get_unit_: LongWord; begin Result := DefaultInterface.unit_; end; procedure TMeasurerProperties.Set_unit_(Value: LongWord); begin DefaultInterface.unit_ := Value; end; function TMeasurerProperties.Get_extendObject1: WordBool; begin Result := DefaultInterface.extendObject1; end; procedure TMeasurerProperties.Set_extendObject1(Value: WordBool); begin DefaultInterface.extendObject1 := Value; end; function TMeasurerProperties.Get_extendObject2: WordBool; begin Result := DefaultInterface.extendObject2; end; procedure TMeasurerProperties.Set_extendObject2(Value: WordBool); begin DefaultInterface.extendObject2 := Value; end; function TMeasurerProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; function TMeasurerProperties.Get_distance: Double; begin Result := DefaultInterface.distance; end; {$ENDIF} class function CoBodyCollection.Create: ksBodyCollection; begin Result := CreateComObject(CLASS_BodyCollection) as ksBodyCollection; end; class function CoBodyCollection.CreateRemote(const MachineName: string): ksBodyCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_BodyCollection) as ksBodyCollection; end; procedure TBodyCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{EEEAB203-43D8-4F04-A7CE-010D9BA419C2}'; IntfIID: '{CFC49C01-7653-4845-93FD-13428F5D58EC}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBodyCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBodyCollection; end; end; procedure TBodyCollection.ConnectTo(svrIntf: ksBodyCollection); begin Disconnect; FIntf := svrIntf; end; procedure TBodyCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBodyCollection.GetDefaultInterface: ksBodyCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBodyCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBodyCollectionProperties.Create(Self); {$ENDIF} end; destructor TBodyCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBodyCollection.GetServerProperties: TBodyCollectionProperties; begin Result := FProps; end; {$ENDIF} function TBodyCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TBodyCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TBodyCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TBodyCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TBodyCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TBodyCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TBodyCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TBodyCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBodyCollectionProperties.Create(AServer: TBodyCollection); begin inherited Create; FServer := AServer; end; function TBodyCollectionProperties.GetDefaultInterface: ksBodyCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoBody.Create: ksBody; begin Result := CreateComObject(CLASS_Body) as ksBody; end; class function CoBody.CreateRemote(const MachineName: string): ksBody; begin Result := CreateRemoteComObject(MachineName, CLASS_Body) as ksBody; end; procedure TBody.InitServerData; const CServerData: TServerData = ( ClassID: '{A99FFD41-AA46-4BFC-B6F2-32E1A956E0B1}'; IntfIID: '{03EFC9DD-E05A-4277-BC7C-4FD499A252DE}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBody.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksBody; end; end; procedure TBody.ConnectTo(svrIntf: ksBody); begin Disconnect; FIntf := svrIntf; end; procedure TBody.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBody.GetDefaultInterface: ksBody; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TBody.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TBodyProperties.Create(Self); {$ENDIF} end; destructor TBody.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TBody.GetServerProperties: TBodyProperties; begin Result := FProps; end; {$ENDIF} function TBody.GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; begin Result := DefaultInterface.GetGabarit(x1, y1, z1, x2, y2, z2); end; function TBody.FaceCollection: IDispatch; begin Result := DefaultInterface.FaceCollection; end; function TBody.IsSolid: WordBool; begin Result := DefaultInterface.IsSolid; end; function TBody.CalcMassInertiaProperties(bitVector: LongWord): IDispatch; begin Result := DefaultInterface.CalcMassInertiaProperties(bitVector); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TBodyProperties.Create(AServer: TBody); begin inherited Create; FServer := AServer; end; function TBodyProperties.GetDefaultInterface: ksBody; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoSurface.Create: ksSurface; begin Result := CreateComObject(CLASS_Surface) as ksSurface; end; class function CoSurface.CreateRemote(const MachineName: string): ksSurface; begin Result := CreateRemoteComObject(MachineName, CLASS_Surface) as ksSurface; end; procedure TSurface.InitServerData; const CServerData: TServerData = ( ClassID: '{B1C40242-CD49-4207-B728-B67057BEC339}'; IntfIID: '{963CB6E1-B9BF-4234-964A-13BFE6C0282A}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSurface.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSurface; end; end; procedure TSurface.ConnectTo(svrIntf: ksSurface); begin Disconnect; FIntf := svrIntf; end; procedure TSurface.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSurface.GetDefaultInterface: ksSurface; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSurface.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSurfaceProperties.Create(Self); {$ENDIF} end; destructor TSurface.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSurface.GetServerProperties: TSurfaceProperties; begin Result := FProps; end; {$ENDIF} function TSurface.GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; begin Result := DefaultInterface.GetGabarit(x1, y1, z1, x2, y2, z2); end; function TSurface.GetPoint(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPoint(paramU, paramV, x, y, z); end; function TSurface.GetNormal(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetNormal(paramU, paramV, x, y, z); end; function TSurface.GetTangentVectorU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetTangentVectorU(paramU, paramV, x, y, z); end; function TSurface.GetTangentVectorV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetTangentVectorV(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeU(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeV(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeUU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeUU(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeVV(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeUV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeUV(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeUUU(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeUUU(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeVVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeVVV(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeUVV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeUVV(paramU, paramV, x, y, z); end; function TSurface.GetDerivativeUUV(paramU: Double; paramV: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeUUV(paramU, paramV, x, y, z); end; function TSurface.GetParamUMin: Double; begin Result := DefaultInterface.GetParamUMin; end; function TSurface.GetParamUMax: Double; begin Result := DefaultInterface.GetParamUMax; end; function TSurface.GetParamVMin: Double; begin Result := DefaultInterface.GetParamVMin; end; function TSurface.GetParamVMax: Double; begin Result := DefaultInterface.GetParamVMax; end; function TSurface.IsClosedU: WordBool; begin Result := DefaultInterface.IsClosedU; end; function TSurface.IsClosedV: WordBool; begin Result := DefaultInterface.IsClosedV; end; function TSurface.IsPlane: WordBool; begin Result := DefaultInterface.IsPlane; end; function TSurface.IsCone: WordBool; begin Result := DefaultInterface.IsCone; end; function TSurface.IsCylinder: WordBool; begin Result := DefaultInterface.IsCylinder; end; function TSurface.IsTorus: WordBool; begin Result := DefaultInterface.IsTorus; end; function TSurface.IsSphere: WordBool; begin Result := DefaultInterface.IsSphere; end; function TSurface.IsNurbsSurface: WordBool; begin Result := DefaultInterface.IsNurbsSurface; end; function TSurface.IsRevolved: WordBool; begin Result := DefaultInterface.IsRevolved; end; function TSurface.IsSwept: WordBool; begin Result := DefaultInterface.IsSwept; end; function TSurface.GetSurfaceParam: IDispatch; begin Result := DefaultInterface.GetSurfaceParam; end; function TSurface.GetArea(bitVector: LongWord): Double; begin Result := DefaultInterface.GetArea(bitVector); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSurfaceProperties.Create(AServer: TSurface); begin inherited Create; FServer := AServer; end; function TSurfaceProperties.GetDefaultInterface: ksSurface; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoEdgeCollection.Create: ksEdgeCollection; begin Result := CreateComObject(CLASS_EdgeCollection) as ksEdgeCollection; end; class function CoEdgeCollection.CreateRemote(const MachineName: string): ksEdgeCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_EdgeCollection) as ksEdgeCollection; end; procedure TEdgeCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{7519BF63-27B3-415F-AC25-904910CB27B5}'; IntfIID: '{6096A4FD-970B-468C-815E-37CA1970A203}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEdgeCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEdgeCollection; end; end; procedure TEdgeCollection.ConnectTo(svrIntf: ksEdgeCollection); begin Disconnect; FIntf := svrIntf; end; procedure TEdgeCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEdgeCollection.GetDefaultInterface: ksEdgeCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEdgeCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEdgeCollectionProperties.Create(Self); {$ENDIF} end; destructor TEdgeCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEdgeCollection.GetServerProperties: TEdgeCollectionProperties; begin Result := FProps; end; {$ENDIF} function TEdgeCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TEdgeCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TEdgeCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TEdgeCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TEdgeCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TEdgeCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TEdgeCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TEdgeCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEdgeCollectionProperties.Create(AServer: TEdgeCollection); begin inherited Create; FServer := AServer; end; function TEdgeCollectionProperties.GetDefaultInterface: ksEdgeCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoOrientedEdge.Create: ksOrientedEdge; begin Result := CreateComObject(CLASS_OrientedEdge) as ksOrientedEdge; end; class function CoOrientedEdge.CreateRemote(const MachineName: string): ksOrientedEdge; begin Result := CreateRemoteComObject(MachineName, CLASS_OrientedEdge) as ksOrientedEdge; end; procedure TOrientedEdge.InitServerData; const CServerData: TServerData = ( ClassID: '{C66FB80F-97BE-4437-A8A0-AEDCFCBCF982}'; IntfIID: '{88C32A80-3735-4E18-A02E-9B2A8F0A90E3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOrientedEdge.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksOrientedEdge; end; end; procedure TOrientedEdge.ConnectTo(svrIntf: ksOrientedEdge); begin Disconnect; FIntf := svrIntf; end; procedure TOrientedEdge.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOrientedEdge.GetDefaultInterface: ksOrientedEdge; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOrientedEdge.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOrientedEdgeProperties.Create(Self); {$ENDIF} end; destructor TOrientedEdge.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOrientedEdge.GetServerProperties: TOrientedEdgeProperties; begin Result := FProps; end; {$ENDIF} function TOrientedEdge.GetEdge: IDispatch; begin Result := DefaultInterface.GetEdge; end; function TOrientedEdge.GetOrientation: WordBool; begin Result := DefaultInterface.GetOrientation; end; function TOrientedEdge.GetOwnerEntity: IDispatch; begin Result := DefaultInterface.GetOwnerEntity; end; function TOrientedEdge.GetNext: IDispatch; begin Result := DefaultInterface.GetNext; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOrientedEdgeProperties.Create(AServer: TOrientedEdge); begin inherited Create; FServer := AServer; end; function TOrientedEdgeProperties.GetDefaultInterface: ksOrientedEdge; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoOrientedEdgeCollection.Create: ksOrientedEdgeCollection; begin Result := CreateComObject(CLASS_OrientedEdgeCollection) as ksOrientedEdgeCollection; end; class function CoOrientedEdgeCollection.CreateRemote(const MachineName: string): ksOrientedEdgeCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_OrientedEdgeCollection) as ksOrientedEdgeCollection; end; procedure TOrientedEdgeCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{6EF08DCB-A1D4-43A2-ACAF-AF32FDE5F338}'; IntfIID: '{5CE8909D-CF3D-418F-A9B9-0A12B23916C0}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOrientedEdgeCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksOrientedEdgeCollection; end; end; procedure TOrientedEdgeCollection.ConnectTo(svrIntf: ksOrientedEdgeCollection); begin Disconnect; FIntf := svrIntf; end; procedure TOrientedEdgeCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOrientedEdgeCollection.GetDefaultInterface: ksOrientedEdgeCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOrientedEdgeCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOrientedEdgeCollectionProperties.Create(Self); {$ENDIF} end; destructor TOrientedEdgeCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOrientedEdgeCollection.GetServerProperties: TOrientedEdgeCollectionProperties; begin Result := FProps; end; {$ENDIF} function TOrientedEdgeCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TOrientedEdgeCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TOrientedEdgeCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TOrientedEdgeCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TOrientedEdgeCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TOrientedEdgeCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TOrientedEdgeCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TOrientedEdgeCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOrientedEdgeCollectionProperties.Create(AServer: TOrientedEdgeCollection); begin inherited Create; FServer := AServer; end; function TOrientedEdgeCollectionProperties.GetDefaultInterface: ksOrientedEdgeCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoLoop.Create: ksLoop; begin Result := CreateComObject(CLASS_Loop) as ksLoop; end; class function CoLoop.CreateRemote(const MachineName: string): ksLoop; begin Result := CreateRemoteComObject(MachineName, CLASS_Loop) as ksLoop; end; procedure TLoop.InitServerData; const CServerData: TServerData = ( ClassID: '{38386E28-C404-431E-9F30-5BE44B0F283F}'; IntfIID: '{22BC5C86-CF58-45E4-AA46-5E8D5A825798}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLoop.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLoop; end; end; procedure TLoop.ConnectTo(svrIntf: ksLoop); begin Disconnect; FIntf := svrIntf; end; procedure TLoop.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLoop.GetDefaultInterface: ksLoop; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLoop.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLoopProperties.Create(Self); {$ENDIF} end; destructor TLoop.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLoop.GetServerProperties: TLoopProperties; begin Result := FProps; end; {$ENDIF} function TLoop.OrientedEdgeCollection(const edge: IDispatch): IDispatch; begin Result := DefaultInterface.OrientedEdgeCollection(edge); end; function TLoop.EdgeCollection: IDispatch; begin Result := DefaultInterface.EdgeCollection; end; function TLoop.IsOuter: WordBool; begin Result := DefaultInterface.IsOuter; end; function TLoop.GetLength(bitVector: LongWord): Double; begin Result := DefaultInterface.GetLength(bitVector); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLoopProperties.Create(AServer: TLoop); begin inherited Create; FServer := AServer; end; function TLoopProperties.GetDefaultInterface: ksLoop; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoLoopCollection.Create: ksLoopCollection; begin Result := CreateComObject(CLASS_LoopCollection) as ksLoopCollection; end; class function CoLoopCollection.CreateRemote(const MachineName: string): ksLoopCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_LoopCollection) as ksLoopCollection; end; procedure TLoopCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{3EA3B143-96A5-408A-897E-27D852E6EE9B}'; IntfIID: '{1BD7207E-36AA-47DF-913E-AD26DE6C16E8}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLoopCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLoopCollection; end; end; procedure TLoopCollection.ConnectTo(svrIntf: ksLoopCollection); begin Disconnect; FIntf := svrIntf; end; procedure TLoopCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLoopCollection.GetDefaultInterface: ksLoopCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLoopCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLoopCollectionProperties.Create(Self); {$ENDIF} end; destructor TLoopCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLoopCollection.GetServerProperties: TLoopCollectionProperties; begin Result := FProps; end; {$ENDIF} function TLoopCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TLoopCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TLoopCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TLoopCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TLoopCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TLoopCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TLoopCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLoopCollectionProperties.Create(AServer: TLoopCollection); begin inherited Create; FServer := AServer; end; function TLoopCollectionProperties.GetDefaultInterface: ksLoopCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoCurve3D.Create: ksCurve3D; begin Result := CreateComObject(CLASS_Curve3D) as ksCurve3D; end; class function CoCurve3D.CreateRemote(const MachineName: string): ksCurve3D; begin Result := CreateRemoteComObject(MachineName, CLASS_Curve3D) as ksCurve3D; end; procedure TCurve3D.InitServerData; const CServerData: TServerData = ( ClassID: '{54152184-0B08-4DFB-8249-4579A7368BF4}'; IntfIID: '{7572648A-D4EE-41FE-8D74-EC7D1F91BDE2}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCurve3D.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCurve3D; end; end; procedure TCurve3D.ConnectTo(svrIntf: ksCurve3D); begin Disconnect; FIntf := svrIntf; end; procedure TCurve3D.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCurve3D.GetDefaultInterface: ksCurve3D; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCurve3D.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCurve3DProperties.Create(Self); {$ENDIF} end; destructor TCurve3D.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCurve3D.GetServerProperties: TCurve3DProperties; begin Result := FProps; end; {$ENDIF} function TCurve3D.GetPoint(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPoint(paramT, x, y, z); end; function TCurve3D.GetTangentVector(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetTangentVector(paramT, x, y, z); end; function TCurve3D.GetNormal(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetNormal(paramT, x, y, z); end; function TCurve3D.GetDerivativeT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeT(paramT, x, y, z); end; function TCurve3D.GetDerivativeTT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeTT(paramT, x, y, z); end; function TCurve3D.GetDerivativeTTT(paramT: Double; var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetDerivativeTTT(paramT, x, y, z); end; function TCurve3D.GetParamMin: Double; begin Result := DefaultInterface.GetParamMin; end; function TCurve3D.GetParamMax: Double; begin Result := DefaultInterface.GetParamMax; end; function TCurve3D.IsClosed: WordBool; begin Result := DefaultInterface.IsClosed; end; function TCurve3D.IsPeriodic: WordBool; begin Result := DefaultInterface.IsPeriodic; end; function TCurve3D.GetMetricLength(startParam: Double; endParam: Double): Double; begin Result := DefaultInterface.GetMetricLength(startParam, endParam); end; function TCurve3D.GetGabarit(var x1: Double; var y1: Double; var z1: Double; var x2: Double; var y2: Double; var z2: Double): WordBool; begin Result := DefaultInterface.GetGabarit(x1, y1, z1, x2, y2, z2); end; function TCurve3D.IsDegenerate: WordBool; begin Result := DefaultInterface.IsDegenerate; end; function TCurve3D.IsPlanar: WordBool; begin Result := DefaultInterface.IsPlanar; end; function TCurve3D.IsLineSeg: WordBool; begin Result := DefaultInterface.IsLineSeg; end; function TCurve3D.IsArc: WordBool; begin Result := DefaultInterface.IsArc; end; function TCurve3D.IsCircle: WordBool; begin Result := DefaultInterface.IsCircle; end; function TCurve3D.IsEllipse: WordBool; begin Result := DefaultInterface.IsEllipse; end; function TCurve3D.IsNurbs: WordBool; begin Result := DefaultInterface.IsNurbs; end; function TCurve3D.GetCurveParam: IDispatch; begin Result := DefaultInterface.GetCurveParam; end; function TCurve3D.GetLength(bitVector: LongWord): Double; begin Result := DefaultInterface.GetLength(bitVector); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCurve3DProperties.Create(AServer: TCurve3D); begin inherited Create; FServer := AServer; end; function TCurve3DProperties.GetDefaultInterface: ksCurve3D; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoLineSeg3dParam.Create: ksLineSeg3dParam; begin Result := CreateComObject(CLASS_LineSeg3dParam) as ksLineSeg3dParam; end; class function CoLineSeg3dParam.CreateRemote(const MachineName: string): ksLineSeg3dParam; begin Result := CreateRemoteComObject(MachineName, CLASS_LineSeg3dParam) as ksLineSeg3dParam; end; procedure TLineSeg3dParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4D295A34-4F20-4231-8806-78E40213FA72}'; IntfIID: '{DC8F6A7B-FF16-46FF-986D-2F7E1F6B25C4}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TLineSeg3dParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksLineSeg3dParam; end; end; procedure TLineSeg3dParam.ConnectTo(svrIntf: ksLineSeg3dParam); begin Disconnect; FIntf := svrIntf; end; procedure TLineSeg3dParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TLineSeg3dParam.GetDefaultInterface: ksLineSeg3dParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TLineSeg3dParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TLineSeg3dParamProperties.Create(Self); {$ENDIF} end; destructor TLineSeg3dParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TLineSeg3dParam.GetServerProperties: TLineSeg3dParamProperties; begin Result := FProps; end; {$ENDIF} function TLineSeg3dParam.GetPointFirst(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPointFirst(x, y, z); end; function TLineSeg3dParam.GetPointLast(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPointLast(x, y, z); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TLineSeg3dParamProperties.Create(AServer: TLineSeg3dParam); begin inherited Create; FServer := AServer; end; function TLineSeg3dParamProperties.GetDefaultInterface: ksLineSeg3dParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoCircle3dParam.Create: ksCircle3dParam; begin Result := CreateComObject(CLASS_Circle3dParam) as ksCircle3dParam; end; class function CoCircle3dParam.CreateRemote(const MachineName: string): ksCircle3dParam; begin Result := CreateRemoteComObject(MachineName, CLASS_Circle3dParam) as ksCircle3dParam; end; procedure TCircle3dParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4E96B6C2-BF75-4B32-A4E7-7267F60A2593}'; IntfIID: '{82758442-C9EB-48F7-B304-083C5E64D4E0}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCircle3dParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCircle3dParam; end; end; procedure TCircle3dParam.ConnectTo(svrIntf: ksCircle3dParam); begin Disconnect; FIntf := svrIntf; end; procedure TCircle3dParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCircle3dParam.GetDefaultInterface: ksCircle3dParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCircle3dParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCircle3dParamProperties.Create(Self); {$ENDIF} end; destructor TCircle3dParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCircle3dParam.GetServerProperties: TCircle3dParamProperties; begin Result := FProps; end; {$ENDIF} function TCircle3dParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TCircle3dParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCircle3dParamProperties.Create(AServer: TCircle3dParam); begin inherited Create; FServer := AServer; end; function TCircle3dParamProperties.GetDefaultInterface: ksCircle3dParam; begin Result := FServer.DefaultInterface; end; function TCircle3dParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; {$ENDIF} class function CoEllipse3dParam.Create: ksEllipse3dParam; begin Result := CreateComObject(CLASS_Ellipse3dParam) as ksEllipse3dParam; end; class function CoEllipse3dParam.CreateRemote(const MachineName: string): ksEllipse3dParam; begin Result := CreateRemoteComObject(MachineName, CLASS_Ellipse3dParam) as ksEllipse3dParam; end; procedure TEllipse3dParam.InitServerData; const CServerData: TServerData = ( ClassID: '{33583282-14FB-4975-B040-9267A639E340}'; IntfIID: '{5B8082B8-6AD3-4509-826D-D23B7F613213}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEllipse3dParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksEllipse3dParam; end; end; procedure TEllipse3dParam.ConnectTo(svrIntf: ksEllipse3dParam); begin Disconnect; FIntf := svrIntf; end; procedure TEllipse3dParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEllipse3dParam.GetDefaultInterface: ksEllipse3dParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TEllipse3dParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TEllipse3dParamProperties.Create(Self); {$ENDIF} end; destructor TEllipse3dParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TEllipse3dParam.GetServerProperties: TEllipse3dParamProperties; begin Result := FProps; end; {$ENDIF} function TEllipse3dParam.Get_majorRadius: Double; begin Result := DefaultInterface.majorRadius; end; function TEllipse3dParam.Get_minorRadius: Double; begin Result := DefaultInterface.minorRadius; end; function TEllipse3dParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TEllipse3dParamProperties.Create(AServer: TEllipse3dParam); begin inherited Create; FServer := AServer; end; function TEllipse3dParamProperties.GetDefaultInterface: ksEllipse3dParam; begin Result := FServer.DefaultInterface; end; function TEllipse3dParamProperties.Get_majorRadius: Double; begin Result := DefaultInterface.majorRadius; end; function TEllipse3dParamProperties.Get_minorRadius: Double; begin Result := DefaultInterface.minorRadius; end; {$ENDIF} class function CoPlaneParam.Create: ksPlaneParam; begin Result := CreateComObject(CLASS_PlaneParam) as ksPlaneParam; end; class function CoPlaneParam.CreateRemote(const MachineName: string): ksPlaneParam; begin Result := CreateRemoteComObject(MachineName, CLASS_PlaneParam) as ksPlaneParam; end; procedure TPlaneParam.InitServerData; const CServerData: TServerData = ( ClassID: '{94A91D78-30AE-4B04-AEE2-B098D3270602}'; IntfIID: '{6A6F6B95-D100-4D54-A430-70A42D342917}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPlaneParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksPlaneParam; end; end; procedure TPlaneParam.ConnectTo(svrIntf: ksPlaneParam); begin Disconnect; FIntf := svrIntf; end; procedure TPlaneParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPlaneParam.GetDefaultInterface: ksPlaneParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPlaneParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPlaneParamProperties.Create(Self); {$ENDIF} end; destructor TPlaneParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPlaneParam.GetServerProperties: TPlaneParamProperties; begin Result := FProps; end; {$ENDIF} function TPlaneParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPlaneParamProperties.Create(AServer: TPlaneParam); begin inherited Create; FServer := AServer; end; function TPlaneParamProperties.GetDefaultInterface: ksPlaneParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoConeParam.Create: ksConeParam; begin Result := CreateComObject(CLASS_ConeParam) as ksConeParam; end; class function CoConeParam.CreateRemote(const MachineName: string): ksConeParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ConeParam) as ksConeParam; end; procedure TConeParam.InitServerData; const CServerData: TServerData = ( ClassID: '{3940C963-446D-4701-883C-A93BBDAC5469}'; IntfIID: '{CCFA0D95-0834-4F92-988B-6E477AD67589}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TConeParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksConeParam; end; end; procedure TConeParam.ConnectTo(svrIntf: ksConeParam); begin Disconnect; FIntf := svrIntf; end; procedure TConeParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TConeParam.GetDefaultInterface: ksConeParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TConeParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TConeParamProperties.Create(Self); {$ENDIF} end; destructor TConeParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TConeParam.GetServerProperties: TConeParamProperties; begin Result := FProps; end; {$ENDIF} function TConeParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TConeParam.Get_height: Double; begin Result := DefaultInterface.height; end; function TConeParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; function TConeParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TConeParamProperties.Create(AServer: TConeParam); begin inherited Create; FServer := AServer; end; function TConeParamProperties.GetDefaultInterface: ksConeParam; begin Result := FServer.DefaultInterface; end; function TConeParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TConeParamProperties.Get_height: Double; begin Result := DefaultInterface.height; end; function TConeParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; {$ENDIF} class function CoCylinderParam.Create: ksCylinderParam; begin Result := CreateComObject(CLASS_CylinderParam) as ksCylinderParam; end; class function CoCylinderParam.CreateRemote(const MachineName: string): ksCylinderParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CylinderParam) as ksCylinderParam; end; procedure TCylinderParam.InitServerData; const CServerData: TServerData = ( ClassID: '{379D658E-47BB-414F-A952-FB41037F17AC}'; IntfIID: '{5D462836-CF69-4995-AB78-8C7A83D09BD7}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCylinderParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCylinderParam; end; end; procedure TCylinderParam.ConnectTo(svrIntf: ksCylinderParam); begin Disconnect; FIntf := svrIntf; end; procedure TCylinderParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCylinderParam.GetDefaultInterface: ksCylinderParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCylinderParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCylinderParamProperties.Create(Self); {$ENDIF} end; destructor TCylinderParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCylinderParam.GetServerProperties: TCylinderParamProperties; begin Result := FProps; end; {$ENDIF} function TCylinderParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TCylinderParam.Get_height: Double; begin Result := DefaultInterface.height; end; function TCylinderParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCylinderParamProperties.Create(AServer: TCylinderParam); begin inherited Create; FServer := AServer; end; function TCylinderParamProperties.GetDefaultInterface: ksCylinderParam; begin Result := FServer.DefaultInterface; end; function TCylinderParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TCylinderParamProperties.Get_height: Double; begin Result := DefaultInterface.height; end; {$ENDIF} class function CoSphereParam.Create: ksSphereParam; begin Result := CreateComObject(CLASS_SphereParam) as ksSphereParam; end; class function CoSphereParam.CreateRemote(const MachineName: string): ksSphereParam; begin Result := CreateRemoteComObject(MachineName, CLASS_SphereParam) as ksSphereParam; end; procedure TSphereParam.InitServerData; const CServerData: TServerData = ( ClassID: '{C82A3D03-4BEE-467F-9240-C1C58FDB144E}'; IntfIID: '{C32977F3-3CA7-4D56-8AE7-4963E6851B75}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSphereParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksSphereParam; end; end; procedure TSphereParam.ConnectTo(svrIntf: ksSphereParam); begin Disconnect; FIntf := svrIntf; end; procedure TSphereParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSphereParam.GetDefaultInterface: ksSphereParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSphereParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSphereParamProperties.Create(Self); {$ENDIF} end; destructor TSphereParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSphereParam.GetServerProperties: TSphereParamProperties; begin Result := FProps; end; {$ENDIF} function TSphereParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TSphereParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSphereParamProperties.Create(AServer: TSphereParam); begin inherited Create; FServer := AServer; end; function TSphereParamProperties.GetDefaultInterface: ksSphereParam; begin Result := FServer.DefaultInterface; end; function TSphereParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; {$ENDIF} class function CoTorusParam.Create: ksTorusParam; begin Result := CreateComObject(CLASS_TorusParam) as ksTorusParam; end; class function CoTorusParam.CreateRemote(const MachineName: string): ksTorusParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TorusParam) as ksTorusParam; end; procedure TTorusParam.InitServerData; const CServerData: TServerData = ( ClassID: '{B7833CCA-936D-4689-BD90-90B5209D94E8}'; IntfIID: '{FDA3B147-BAF1-4F75-99AA-39D11323EA97}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTorusParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTorusParam; end; end; procedure TTorusParam.ConnectTo(svrIntf: ksTorusParam); begin Disconnect; FIntf := svrIntf; end; procedure TTorusParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTorusParam.GetDefaultInterface: ksTorusParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTorusParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTorusParamProperties.Create(Self); {$ENDIF} end; destructor TTorusParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTorusParam.GetServerProperties: TTorusParamProperties; begin Result := FProps; end; {$ENDIF} function TTorusParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TTorusParam.Get_generatrixRadius: Double; begin Result := DefaultInterface.generatrixRadius; end; function TTorusParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTorusParamProperties.Create(AServer: TTorusParam); begin inherited Create; FServer := AServer; end; function TTorusParamProperties.GetDefaultInterface: ksTorusParam; begin Result := FServer.DefaultInterface; end; function TTorusParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TTorusParamProperties.Get_generatrixRadius: Double; begin Result := DefaultInterface.generatrixRadius; end; {$ENDIF} class function CoNurbsPoint3dParam.Create: ksNurbsPoint3dParam; begin Result := CreateComObject(CLASS_NurbsPoint3dParam) as ksNurbsPoint3dParam; end; class function CoNurbsPoint3dParam.CreateRemote(const MachineName: string): ksNurbsPoint3dParam; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsPoint3dParam) as ksNurbsPoint3dParam; end; procedure TNurbsPoint3dParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4F3C6D95-FBDC-4C53-AE82-9AF9C05093FF}'; IntfIID: '{F1CD604D-1D26-4F6B-8F94-F112133E6162}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsPoint3dParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsPoint3dParam; end; end; procedure TNurbsPoint3dParam.ConnectTo(svrIntf: ksNurbsPoint3dParam); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsPoint3dParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsPoint3dParam.GetDefaultInterface: ksNurbsPoint3dParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsPoint3dParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsPoint3dParamProperties.Create(Self); {$ENDIF} end; destructor TNurbsPoint3dParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsPoint3dParam.GetServerProperties: TNurbsPoint3dParamProperties; begin Result := FProps; end; {$ENDIF} function TNurbsPoint3dParam.Get_weight: Double; begin Result := DefaultInterface.weight; end; function TNurbsPoint3dParam.GetPoint(var x: Double; var y: Double; var z: Double): WordBool; begin Result := DefaultInterface.GetPoint(x, y, z); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsPoint3dParamProperties.Create(AServer: TNurbsPoint3dParam); begin inherited Create; FServer := AServer; end; function TNurbsPoint3dParamProperties.GetDefaultInterface: ksNurbsPoint3dParam; begin Result := FServer.DefaultInterface; end; function TNurbsPoint3dParamProperties.Get_weight: Double; begin Result := DefaultInterface.weight; end; {$ENDIF} class function CoNurbsSurfaceParam.Create: ksNurbsSurfaceParam; begin Result := CreateComObject(CLASS_NurbsSurfaceParam) as ksNurbsSurfaceParam; end; class function CoNurbsSurfaceParam.CreateRemote(const MachineName: string): ksNurbsSurfaceParam; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsSurfaceParam) as ksNurbsSurfaceParam; end; procedure TNurbsSurfaceParam.InitServerData; const CServerData: TServerData = ( ClassID: '{BA13BE42-059B-4EEB-9C39-673732763EE3}'; IntfIID: '{A12B63E8-9E0A-4854-B724-E18275B9FF20}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsSurfaceParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsSurfaceParam; end; end; procedure TNurbsSurfaceParam.ConnectTo(svrIntf: ksNurbsSurfaceParam); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsSurfaceParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsSurfaceParam.GetDefaultInterface: ksNurbsSurfaceParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsSurfaceParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsSurfaceParamProperties.Create(Self); {$ENDIF} end; destructor TNurbsSurfaceParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsSurfaceParam.GetServerProperties: TNurbsSurfaceParamProperties; begin Result := FProps; end; {$ENDIF} function TNurbsSurfaceParam.GetDegree(paramU: WordBool): Smallint; begin Result := DefaultInterface.GetDegree(paramU); end; function TNurbsSurfaceParam.GetClose(paramU: WordBool): WordBool; begin Result := DefaultInterface.GetClose(paramU); end; function TNurbsSurfaceParam.GetPointCollection: IDispatch; begin Result := DefaultInterface.GetPointCollection; end; function TNurbsSurfaceParam.GetKnotCollection(paramU: WordBool): IDispatch; begin Result := DefaultInterface.GetKnotCollection(paramU); end; function TNurbsSurfaceParam.GetPeriodic(paramU: WordBool): WordBool; begin Result := DefaultInterface.GetPeriodic(paramU); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsSurfaceParamProperties.Create(AServer: TNurbsSurfaceParam); begin inherited Create; FServer := AServer; end; function TNurbsSurfaceParamProperties.GetDefaultInterface: ksNurbsSurfaceParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoNurbs3dParam.Create: ksNurbs3dParam; begin Result := CreateComObject(CLASS_Nurbs3dParam) as ksNurbs3dParam; end; class function CoNurbs3dParam.CreateRemote(const MachineName: string): ksNurbs3dParam; begin Result := CreateRemoteComObject(MachineName, CLASS_Nurbs3dParam) as ksNurbs3dParam; end; procedure TNurbs3dParam.InitServerData; const CServerData: TServerData = ( ClassID: '{F829344F-B49F-43A3-AC93-E817EF8D3319}'; IntfIID: '{4DDDAEDB-2819-42D9-BDBB-4CCBC98D76DF}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbs3dParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbs3dParam; end; end; procedure TNurbs3dParam.ConnectTo(svrIntf: ksNurbs3dParam); begin Disconnect; FIntf := svrIntf; end; procedure TNurbs3dParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbs3dParam.GetDefaultInterface: ksNurbs3dParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbs3dParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbs3dParamProperties.Create(Self); {$ENDIF} end; destructor TNurbs3dParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbs3dParam.GetServerProperties: TNurbs3dParamProperties; begin Result := FProps; end; {$ENDIF} function TNurbs3dParam.Get_degree: Smallint; begin Result := DefaultInterface.degree; end; function TNurbs3dParam.Get_close: WordBool; begin Result := DefaultInterface.close; end; function TNurbs3dParam.Get_periodic: WordBool; begin Result := DefaultInterface.periodic; end; function TNurbs3dParam.GetPointCollection: IDispatch; begin Result := DefaultInterface.GetPointCollection; end; function TNurbs3dParam.GetKnotCollection: IDispatch; begin Result := DefaultInterface.GetKnotCollection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbs3dParamProperties.Create(AServer: TNurbs3dParam); begin inherited Create; FServer := AServer; end; function TNurbs3dParamProperties.GetDefaultInterface: ksNurbs3dParam; begin Result := FServer.DefaultInterface; end; function TNurbs3dParamProperties.Get_degree: Smallint; begin Result := DefaultInterface.degree; end; function TNurbs3dParamProperties.Get_close: WordBool; begin Result := DefaultInterface.close; end; function TNurbs3dParamProperties.Get_periodic: WordBool; begin Result := DefaultInterface.periodic; end; {$ENDIF} class function CoNurbsKnotCollection.Create: ksNurbsKnotCollection; begin Result := CreateComObject(CLASS_NurbsKnotCollection) as ksNurbsKnotCollection; end; class function CoNurbsKnotCollection.CreateRemote(const MachineName: string): ksNurbsKnotCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsKnotCollection) as ksNurbsKnotCollection; end; procedure TNurbsKnotCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{81317653-9BBA-46FE-9877-AEEE62BD8AA4}'; IntfIID: '{483E9889-E1CA-4CA5-BE4E-ECB3D5CF0126}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsKnotCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsKnotCollection; end; end; procedure TNurbsKnotCollection.ConnectTo(svrIntf: ksNurbsKnotCollection); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsKnotCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsKnotCollection.GetDefaultInterface: ksNurbsKnotCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsKnotCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsKnotCollectionProperties.Create(Self); {$ENDIF} end; destructor TNurbsKnotCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsKnotCollection.GetServerProperties: TNurbsKnotCollectionProperties; begin Result := FProps; end; {$ENDIF} function TNurbsKnotCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TNurbsKnotCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TNurbsKnotCollection.First: Double; begin Result := DefaultInterface.First; end; function TNurbsKnotCollection.Last: Double; begin Result := DefaultInterface.Last; end; function TNurbsKnotCollection.Next: Double; begin Result := DefaultInterface.Next; end; function TNurbsKnotCollection.Prev: Double; begin Result := DefaultInterface.Prev; end; function TNurbsKnotCollection.GetByIndex(index: Integer): Double; begin Result := DefaultInterface.GetByIndex(index); end; function TNurbsKnotCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TNurbsKnotCollection.Add(entity: Double): WordBool; begin Result := DefaultInterface.Add(entity); end; function TNurbsKnotCollection.AddAt(entity: Double; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(entity, index); end; function TNurbsKnotCollection.AddBefore(entity: Double; base: Double): WordBool; begin Result := DefaultInterface.AddBefore(entity, base); end; function TNurbsKnotCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TNurbsKnotCollection.DetachByBody(entity: Double): WordBool; begin Result := DefaultInterface.DetachByBody(entity); end; function TNurbsKnotCollection.SetByIndex(entity: Double; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(entity, index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsKnotCollectionProperties.Create(AServer: TNurbsKnotCollection); begin inherited Create; FServer := AServer; end; function TNurbsKnotCollectionProperties.GetDefaultInterface: ksNurbsKnotCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoNurbsPoint3dCollCollection.Create: ksNurbsPoint3dCollCollection; begin Result := CreateComObject(CLASS_NurbsPoint3dCollCollection) as ksNurbsPoint3dCollCollection; end; class function CoNurbsPoint3dCollCollection.CreateRemote(const MachineName: string): ksNurbsPoint3dCollCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsPoint3dCollCollection) as ksNurbsPoint3dCollCollection; end; procedure TNurbsPoint3dCollCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{A2BD36E2-C99B-40FE-A6A7-E5A9CCDCF63D}'; IntfIID: '{84AF9C81-1795-4631-B58A-101732262E75}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsPoint3dCollCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsPoint3dCollCollection; end; end; procedure TNurbsPoint3dCollCollection.ConnectTo(svrIntf: ksNurbsPoint3dCollCollection); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsPoint3dCollCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsPoint3dCollCollection.GetDefaultInterface: ksNurbsPoint3dCollCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsPoint3dCollCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsPoint3dCollCollectionProperties.Create(Self); {$ENDIF} end; destructor TNurbsPoint3dCollCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsPoint3dCollCollection.GetServerProperties: TNurbsPoint3dCollCollectionProperties; begin Result := FProps; end; {$ENDIF} function TNurbsPoint3dCollCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TNurbsPoint3dCollCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TNurbsPoint3dCollCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TNurbsPoint3dCollCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TNurbsPoint3dCollCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TNurbsPoint3dCollCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TNurbsPoint3dCollCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TNurbsPoint3dCollCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TNurbsPoint3dCollCollection.Add(const entity: IDispatch): WordBool; begin Result := DefaultInterface.Add(entity); end; function TNurbsPoint3dCollCollection.AddAt(const entity: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(entity, index); end; function TNurbsPoint3dCollCollection.AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; begin Result := DefaultInterface.AddBefore(entity, base); end; function TNurbsPoint3dCollCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TNurbsPoint3dCollCollection.DetachByBody(const entity: IDispatch): WordBool; begin Result := DefaultInterface.DetachByBody(entity); end; function TNurbsPoint3dCollCollection.SetByIndex(const entity: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(entity, index); end; function TNurbsPoint3dCollCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsPoint3dCollCollectionProperties.Create(AServer: TNurbsPoint3dCollCollection); begin inherited Create; FServer := AServer; end; function TNurbsPoint3dCollCollectionProperties.GetDefaultInterface: ksNurbsPoint3dCollCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoNurbsPoint3dCollection.Create: ksNurbsPoint3dCollection; begin Result := CreateComObject(CLASS_NurbsPoint3dCollection) as ksNurbsPoint3dCollection; end; class function CoNurbsPoint3dCollection.CreateRemote(const MachineName: string): ksNurbsPoint3dCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_NurbsPoint3dCollection) as ksNurbsPoint3dCollection; end; procedure TNurbsPoint3dCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{25AE92BA-055F-431E-AC3E-EA2E793D446C}'; IntfIID: '{3AD5E519-74E2-4D3B-B6A3-B1E81F1006F1}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNurbsPoint3dCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksNurbsPoint3dCollection; end; end; procedure TNurbsPoint3dCollection.ConnectTo(svrIntf: ksNurbsPoint3dCollection); begin Disconnect; FIntf := svrIntf; end; procedure TNurbsPoint3dCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNurbsPoint3dCollection.GetDefaultInterface: ksNurbsPoint3dCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNurbsPoint3dCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNurbsPoint3dCollectionProperties.Create(Self); {$ENDIF} end; destructor TNurbsPoint3dCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNurbsPoint3dCollection.GetServerProperties: TNurbsPoint3dCollectionProperties; begin Result := FProps; end; {$ENDIF} function TNurbsPoint3dCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TNurbsPoint3dCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TNurbsPoint3dCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TNurbsPoint3dCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TNurbsPoint3dCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TNurbsPoint3dCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TNurbsPoint3dCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TNurbsPoint3dCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TNurbsPoint3dCollection.Add(const entity: IDispatch): WordBool; begin Result := DefaultInterface.Add(entity); end; function TNurbsPoint3dCollection.AddAt(const entity: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(entity, index); end; function TNurbsPoint3dCollection.AddBefore(const entity: IDispatch; const base: IDispatch): WordBool; begin Result := DefaultInterface.AddBefore(entity, base); end; function TNurbsPoint3dCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TNurbsPoint3dCollection.DetachByBody(const entity: IDispatch): WordBool; begin Result := DefaultInterface.DetachByBody(entity); end; function TNurbsPoint3dCollection.SetByIndex(const entity: IDispatch; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(entity, index); end; function TNurbsPoint3dCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNurbsPoint3dCollectionProperties.Create(AServer: TNurbsPoint3dCollection); begin inherited Create; FServer := AServer; end; function TNurbsPoint3dCollectionProperties.GetDefaultInterface: ksNurbsPoint3dCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoViewProjection.Create: ksViewProjection; begin Result := CreateComObject(CLASS_ViewProjection) as ksViewProjection; end; class function CoViewProjection.CreateRemote(const MachineName: string): ksViewProjection; begin Result := CreateRemoteComObject(MachineName, CLASS_ViewProjection) as ksViewProjection; end; procedure TViewProjection.InitServerData; const CServerData: TServerData = ( ClassID: '{0CA54EDF-BC8C-4A6A-94CF-EDBA74A6FA00}'; IntfIID: '{BF65B990-C2DC-4A12-9EB7-3E868608AF47}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TViewProjection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksViewProjection; end; end; procedure TViewProjection.ConnectTo(svrIntf: ksViewProjection); begin Disconnect; FIntf := svrIntf; end; procedure TViewProjection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TViewProjection.GetDefaultInterface: ksViewProjection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TViewProjection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TViewProjectionProperties.Create(Self); {$ENDIF} end; destructor TViewProjection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TViewProjection.GetServerProperties: TViewProjectionProperties; begin Result := FProps; end; {$ENDIF} function TViewProjection.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TViewProjection.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TViewProjection.Get_scale: Double; begin Result := DefaultInterface.scale; end; procedure TViewProjection.Set_scale(Value: Double); begin DefaultInterface.scale := Value; end; function TViewProjection.Get_index: Integer; begin Result := DefaultInterface.index; end; function TViewProjection.IsCurrent: WordBool; begin Result := DefaultInterface.IsCurrent; end; function TViewProjection.SetCurrent: WordBool; begin Result := DefaultInterface.SetCurrent; end; function TViewProjection.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; function TViewProjection.SetPlacement(const place: IDispatch): WordBool; begin Result := DefaultInterface.SetPlacement(place); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TViewProjectionProperties.Create(AServer: TViewProjection); begin inherited Create; FServer := AServer; end; function TViewProjectionProperties.GetDefaultInterface: ksViewProjection; begin Result := FServer.DefaultInterface; end; function TViewProjectionProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; procedure TViewProjectionProperties.Set_name(const Value: WideString); begin DefaultInterface.name := Value; end; function TViewProjectionProperties.Get_scale: Double; begin Result := DefaultInterface.scale; end; procedure TViewProjectionProperties.Set_scale(Value: Double); begin DefaultInterface.scale := Value; end; function TViewProjectionProperties.Get_index: Integer; begin Result := DefaultInterface.index; end; {$ENDIF} class function CoViewProjectionCollection.Create: ksViewProjectionCollection; begin Result := CreateComObject(CLASS_ViewProjectionCollection) as ksViewProjectionCollection; end; class function CoViewProjectionCollection.CreateRemote(const MachineName: string): ksViewProjectionCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_ViewProjectionCollection) as ksViewProjectionCollection; end; procedure TViewProjectionCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{9A3E39C6-B6AB-42CF-9FBD-AC05F0B4B161}'; IntfIID: '{A174F872-C800-409E-9FB2-FF5B89D8B4B8}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TViewProjectionCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksViewProjectionCollection; end; end; procedure TViewProjectionCollection.ConnectTo(svrIntf: ksViewProjectionCollection); begin Disconnect; FIntf := svrIntf; end; procedure TViewProjectionCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TViewProjectionCollection.GetDefaultInterface: ksViewProjectionCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TViewProjectionCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TViewProjectionCollectionProperties.Create(Self); {$ENDIF} end; destructor TViewProjectionCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TViewProjectionCollection.GetServerProperties: TViewProjectionCollectionProperties; begin Result := FProps; end; {$ENDIF} function TViewProjectionCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TViewProjectionCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TViewProjectionCollection.First: IDispatch; begin Result := DefaultInterface.First; end; function TViewProjectionCollection.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TViewProjectionCollection.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TViewProjectionCollection.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TViewProjectionCollection.GetByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetByIndex(index); end; function TViewProjectionCollection.GetByName(const name: WideString; testFullName: WordBool; testIgnoreCase: WordBool): IDispatch; begin Result := DefaultInterface.GetByName(name, testFullName, testIgnoreCase); end; function TViewProjectionCollection.FindIt(const entity: IDispatch): Integer; begin Result := DefaultInterface.FindIt(entity); end; function TViewProjectionCollection.Add(const entity: IDispatch): WordBool; begin Result := DefaultInterface.Add(entity); end; function TViewProjectionCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TViewProjectionCollection.DetachByBody(const entity: IDispatch): WordBool; begin Result := DefaultInterface.DetachByBody(entity); end; function TViewProjectionCollection.DetachByName(const name: WideString): WordBool; begin Result := DefaultInterface.DetachByName(name); end; function TViewProjectionCollection.NewViewProjection: IDispatch; begin Result := DefaultInterface.NewViewProjection; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TViewProjectionCollectionProperties.Create(AServer: TViewProjectionCollection); begin inherited Create; FServer := AServer; end; function TViewProjectionCollectionProperties.GetDefaultInterface: ksViewProjectionCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoSelectionMng.Create: ksSelectionMng; begin Result := CreateComObject(CLASS_SelectionMng) as ksSelectionMng; end; class function CoSelectionMng.CreateRemote(const MachineName: string): ksSelectionMng; begin Result := CreateRemoteComObject(MachineName, CLASS_SelectionMng) as ksSelectionMng; end; procedure TSelectionMng.InitServerData; const CServerData: TServerData = ( ClassID: '{39EE8E9D-C228-4F61-9F66-DD58F20CD224}'; IntfIID: '{BE41850C-CFC5-40D4-AE49-37AA391BCF4B}'; EventIID: '{A421368A-34B6-4DDF-9A52-73B3488EE83F}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSelectionMng.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as ksSelectionMng; end; end; procedure TSelectionMng.ConnectTo(svrIntf: ksSelectionMng); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSelectionMng.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSelectionMng.GetDefaultInterface: ksSelectionMng; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSelectionMng.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSelectionMngProperties.Create(Self); {$ENDIF} end; destructor TSelectionMng.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSelectionMng.GetServerProperties: TSelectionMngProperties; begin Result := FProps; end; {$ENDIF} procedure TSelectionMng.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 1: if Assigned(FOnSelect) then FOnSelect(Self, Params[0] {OleVariant}); 2: if Assigned(FOnUnselect) then FOnUnselect(Self, Params[0] {OleVariant}); 3: if Assigned(FOnUnselectAll) then FOnUnselectAll(Self); end; {case DispID} end; function TSelectionMng.Select(const obj: IDispatch): WordBool; begin Result := DefaultInterface.Select(obj); end; function TSelectionMng.Unselect(const obj: IDispatch): WordBool; begin Result := DefaultInterface.Unselect(obj); end; function TSelectionMng.UnselectAll: WordBool; begin Result := DefaultInterface.UnselectAll; end; function TSelectionMng.IsSelected(const obj: IDispatch): WordBool; begin Result := DefaultInterface.IsSelected(obj); end; function TSelectionMng.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TSelectionMng.First: IDispatch; begin Result := DefaultInterface.First; end; function TSelectionMng.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TSelectionMng.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TSelectionMng.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TSelectionMng.GetObjectByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetObjectByIndex(index); end; function TSelectionMng.GetObjectType(index: Integer): Integer; begin Result := DefaultInterface.GetObjectType(index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSelectionMngProperties.Create(AServer: TSelectionMng); begin inherited Create; FServer := AServer; end; function TSelectionMngProperties.GetDefaultInterface: ksSelectionMng; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoChooseMng.Create: ksChooseMng; begin Result := CreateComObject(CLASS_ChooseMng) as ksChooseMng; end; class function CoChooseMng.CreateRemote(const MachineName: string): ksChooseMng; begin Result := CreateRemoteComObject(MachineName, CLASS_ChooseMng) as ksChooseMng; end; procedure TChooseMng.InitServerData; const CServerData: TServerData = ( ClassID: '{2280DF87-5688-4082-8FAE-6E4C84249352}'; IntfIID: '{8F2AA755-D9D1-42A0-97BF-C92548CE7232}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TChooseMng.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksChooseMng; end; end; procedure TChooseMng.ConnectTo(svrIntf: ksChooseMng); begin Disconnect; FIntf := svrIntf; end; procedure TChooseMng.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TChooseMng.GetDefaultInterface: ksChooseMng; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TChooseMng.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TChooseMngProperties.Create(Self); {$ENDIF} end; destructor TChooseMng.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TChooseMng.GetServerProperties: TChooseMngProperties; begin Result := FProps; end; {$ENDIF} function TChooseMng.Choose(const obj: IDispatch): WordBool; begin Result := DefaultInterface.Choose(obj); end; function TChooseMng.UnChoose(const obj: IDispatch): WordBool; begin Result := DefaultInterface.UnChoose(obj); end; function TChooseMng.UnChooseAll: WordBool; begin Result := DefaultInterface.UnChooseAll; end; function TChooseMng.IsChoosen(const obj: IDispatch): WordBool; begin Result := DefaultInterface.IsChoosen(obj); end; function TChooseMng.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TChooseMng.First: IDispatch; begin Result := DefaultInterface.First; end; function TChooseMng.Last: IDispatch; begin Result := DefaultInterface.Last; end; function TChooseMng.Next: IDispatch; begin Result := DefaultInterface.Next; end; function TChooseMng.Prev: IDispatch; begin Result := DefaultInterface.Prev; end; function TChooseMng.GetObjectByIndex(index: Integer): IDispatch; begin Result := DefaultInterface.GetObjectByIndex(index); end; function TChooseMng.GetObjectType(index: Integer): Integer; begin Result := DefaultInterface.GetObjectType(index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TChooseMngProperties.Create(AServer: TChooseMng); begin inherited Create; FServer := AServer; end; function TChooseMngProperties.GetDefaultInterface: ksChooseMng; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoArc3dParam.Create: ksArc3dParam; begin Result := CreateComObject(CLASS_Arc3dParam) as ksArc3dParam; end; class function CoArc3dParam.CreateRemote(const MachineName: string): ksArc3dParam; begin Result := CreateRemoteComObject(MachineName, CLASS_Arc3dParam) as ksArc3dParam; end; procedure TArc3dParam.InitServerData; const CServerData: TServerData = ( ClassID: '{4CA2655E-EC4E-433C-9706-8E3864D5DBD2}'; IntfIID: '{7DCBCC76-5041-4C1E-9B33-12B1352D6D57}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TArc3dParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksArc3dParam; end; end; procedure TArc3dParam.ConnectTo(svrIntf: ksArc3dParam); begin Disconnect; FIntf := svrIntf; end; procedure TArc3dParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TArc3dParam.GetDefaultInterface: ksArc3dParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TArc3dParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TArc3dParamProperties.Create(Self); {$ENDIF} end; destructor TArc3dParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TArc3dParam.GetServerProperties: TArc3dParamProperties; begin Result := FProps; end; {$ENDIF} function TArc3dParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TArc3dParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; function TArc3dParam.GetPlacement: IDispatch; begin Result := DefaultInterface.GetPlacement; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TArc3dParamProperties.Create(AServer: TArc3dParam); begin inherited Create; FServer := AServer; end; function TArc3dParamProperties.GetDefaultInterface: ksArc3dParam; begin Result := FServer.DefaultInterface; end; function TArc3dParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; function TArc3dParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; {$ENDIF} class function CoTreeNodeParam.Create: ksTreeNodeParam; begin Result := CreateComObject(CLASS_TreeNodeParam) as ksTreeNodeParam; end; class function CoTreeNodeParam.CreateRemote(const MachineName: string): ksTreeNodeParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TreeNodeParam) as ksTreeNodeParam; end; procedure TTreeNodeParam.InitServerData; const CServerData: TServerData = ( ClassID: '{05A4578F-A41F-48F2-92F9-A0F0856BCBC0}'; IntfIID: '{9F8DE1DC-1268-4785-9217-1B0DD59B85FA}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTreeNodeParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTreeNodeParam; end; end; procedure TTreeNodeParam.ConnectTo(svrIntf: ksTreeNodeParam); begin Disconnect; FIntf := svrIntf; end; procedure TTreeNodeParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTreeNodeParam.GetDefaultInterface: ksTreeNodeParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTreeNodeParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTreeNodeParamProperties.Create(Self); {$ENDIF} end; destructor TTreeNodeParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTreeNodeParam.GetServerProperties: TTreeNodeParamProperties; begin Result := FProps; end; {$ENDIF} function TTreeNodeParam.Get_type_: Integer; begin Result := DefaultInterface.type_; end; function TTreeNodeParam.Get_name: WideString; begin Result := DefaultInterface.name; end; function TTreeNodeParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TTreeNodeParam.GetComment: IDispatch; begin Result := DefaultInterface.GetComment; end; function TTreeNodeParam.GetNodes: IDispatch; begin Result := DefaultInterface.GetNodes; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTreeNodeParamProperties.Create(AServer: TTreeNodeParam); begin inherited Create; FServer := AServer; end; function TTreeNodeParamProperties.GetDefaultInterface: ksTreeNodeParam; begin Result := FServer.DefaultInterface; end; function TTreeNodeParamProperties.Get_type_: Integer; begin Result := DefaultInterface.type_; end; function TTreeNodeParamProperties.Get_name: WideString; begin Result := DefaultInterface.name; end; {$ENDIF} class function CoAssociationViewParam.Create: ksAssociationViewParam; begin Result := CreateComObject(CLASS_AssociationViewParam) as ksAssociationViewParam; end; class function CoAssociationViewParam.CreateRemote(const MachineName: string): ksAssociationViewParam; begin Result := CreateRemoteComObject(MachineName, CLASS_AssociationViewParam) as ksAssociationViewParam; end; procedure TAssociationViewParam.InitServerData; const CServerData: TServerData = ( ClassID: '{7A86E2BA-6DE3-4DB3-AEB6-9738DAA69CFC}'; IntfIID: '{C81EB1DA-BCB0-491A-8D22-923BF817D572}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAssociationViewParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAssociationViewParam; end; end; procedure TAssociationViewParam.ConnectTo(svrIntf: ksAssociationViewParam); begin Disconnect; FIntf := svrIntf; end; procedure TAssociationViewParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAssociationViewParam.GetDefaultInterface: ksAssociationViewParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAssociationViewParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAssociationViewParamProperties.Create(Self); {$ENDIF} end; destructor TAssociationViewParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAssociationViewParam.GetServerProperties: TAssociationViewParamProperties; begin Result := FProps; end; {$ENDIF} function TAssociationViewParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TAssociationViewParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TAssociationViewParam.Get_projectionName: WideString; begin Result := DefaultInterface.projectionName; end; procedure TAssociationViewParam.Set_projectionName(const Value: WideString); begin DefaultInterface.projectionName := Value; end; function TAssociationViewParam.Get_projectionLink: WordBool; begin Result := DefaultInterface.projectionLink; end; procedure TAssociationViewParam.Set_projectionLink(Value: WordBool); begin DefaultInterface.projectionLink := Value; end; function TAssociationViewParam.Get_disassembly: WordBool; begin Result := DefaultInterface.disassembly; end; procedure TAssociationViewParam.Set_disassembly(Value: WordBool); begin DefaultInterface.disassembly := Value; end; function TAssociationViewParam.Get_visibleLinesStyle: Integer; begin Result := DefaultInterface.visibleLinesStyle; end; procedure TAssociationViewParam.Set_visibleLinesStyle(Value: Integer); begin DefaultInterface.visibleLinesStyle := Value; end; function TAssociationViewParam.Get_hiddenLinesStyle: Integer; begin Result := DefaultInterface.hiddenLinesStyle; end; procedure TAssociationViewParam.Set_hiddenLinesStyle(Value: Integer); begin DefaultInterface.hiddenLinesStyle := Value; end; function TAssociationViewParam.Get_tangentEdgesStyle: Integer; begin Result := DefaultInterface.tangentEdgesStyle; end; procedure TAssociationViewParam.Set_tangentEdgesStyle(Value: Integer); begin DefaultInterface.tangentEdgesStyle := Value; end; function TAssociationViewParam.Get_hiddenLinesShow: WordBool; begin Result := DefaultInterface.hiddenLinesShow; end; procedure TAssociationViewParam.Set_hiddenLinesShow(Value: WordBool); begin DefaultInterface.hiddenLinesShow := Value; end; function TAssociationViewParam.Get_tangentEdgesShow: WordBool; begin Result := DefaultInterface.tangentEdgesShow; end; procedure TAssociationViewParam.Set_tangentEdgesShow(Value: WordBool); begin DefaultInterface.tangentEdgesShow := Value; end; function TAssociationViewParam.Get_projBodies: WordBool; begin Result := DefaultInterface.projBodies; end; procedure TAssociationViewParam.Set_projBodies(Value: WordBool); begin DefaultInterface.projBodies := Value; end; function TAssociationViewParam.Get_projSurfaces: WordBool; begin Result := DefaultInterface.projSurfaces; end; procedure TAssociationViewParam.Set_projSurfaces(Value: WordBool); begin DefaultInterface.projSurfaces := Value; end; function TAssociationViewParam.Get_projThreads: WordBool; begin Result := DefaultInterface.projThreads; end; procedure TAssociationViewParam.Set_projThreads(Value: WordBool); begin DefaultInterface.projThreads := Value; end; function TAssociationViewParam.Get_section: WordBool; begin Result := DefaultInterface.section; end; procedure TAssociationViewParam.Set_section(Value: WordBool); begin DefaultInterface.section := Value; end; function TAssociationViewParam.Get_sameHatch: WordBool; begin Result := DefaultInterface.sameHatch; end; procedure TAssociationViewParam.Set_sameHatch(Value: WordBool); begin DefaultInterface.sameHatch := Value; end; function TAssociationViewParam.Get_viewType: Smallint; begin Result := DefaultInterface.viewType; end; function TAssociationViewParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TAssociationViewParam.GetViewParam: IDispatch; begin Result := DefaultInterface.GetViewParam; end; function TAssociationViewParam.GetHatchParam: IDispatch; begin Result := DefaultInterface.GetHatchParam; end; function TAssociationViewParam.SetDimensionLayoutScaling(scaling: WordBool): WordBool; begin Result := DefaultInterface.SetDimensionLayoutScaling(scaling); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAssociationViewParamProperties.Create(AServer: TAssociationViewParam); begin inherited Create; FServer := AServer; end; function TAssociationViewParamProperties.GetDefaultInterface: ksAssociationViewParam; begin Result := FServer.DefaultInterface; end; function TAssociationViewParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TAssociationViewParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TAssociationViewParamProperties.Get_projectionName: WideString; begin Result := DefaultInterface.projectionName; end; procedure TAssociationViewParamProperties.Set_projectionName(const Value: WideString); begin DefaultInterface.projectionName := Value; end; function TAssociationViewParamProperties.Get_projectionLink: WordBool; begin Result := DefaultInterface.projectionLink; end; procedure TAssociationViewParamProperties.Set_projectionLink(Value: WordBool); begin DefaultInterface.projectionLink := Value; end; function TAssociationViewParamProperties.Get_disassembly: WordBool; begin Result := DefaultInterface.disassembly; end; procedure TAssociationViewParamProperties.Set_disassembly(Value: WordBool); begin DefaultInterface.disassembly := Value; end; function TAssociationViewParamProperties.Get_visibleLinesStyle: Integer; begin Result := DefaultInterface.visibleLinesStyle; end; procedure TAssociationViewParamProperties.Set_visibleLinesStyle(Value: Integer); begin DefaultInterface.visibleLinesStyle := Value; end; function TAssociationViewParamProperties.Get_hiddenLinesStyle: Integer; begin Result := DefaultInterface.hiddenLinesStyle; end; procedure TAssociationViewParamProperties.Set_hiddenLinesStyle(Value: Integer); begin DefaultInterface.hiddenLinesStyle := Value; end; function TAssociationViewParamProperties.Get_tangentEdgesStyle: Integer; begin Result := DefaultInterface.tangentEdgesStyle; end; procedure TAssociationViewParamProperties.Set_tangentEdgesStyle(Value: Integer); begin DefaultInterface.tangentEdgesStyle := Value; end; function TAssociationViewParamProperties.Get_hiddenLinesShow: WordBool; begin Result := DefaultInterface.hiddenLinesShow; end; procedure TAssociationViewParamProperties.Set_hiddenLinesShow(Value: WordBool); begin DefaultInterface.hiddenLinesShow := Value; end; function TAssociationViewParamProperties.Get_tangentEdgesShow: WordBool; begin Result := DefaultInterface.tangentEdgesShow; end; procedure TAssociationViewParamProperties.Set_tangentEdgesShow(Value: WordBool); begin DefaultInterface.tangentEdgesShow := Value; end; function TAssociationViewParamProperties.Get_projBodies: WordBool; begin Result := DefaultInterface.projBodies; end; procedure TAssociationViewParamProperties.Set_projBodies(Value: WordBool); begin DefaultInterface.projBodies := Value; end; function TAssociationViewParamProperties.Get_projSurfaces: WordBool; begin Result := DefaultInterface.projSurfaces; end; procedure TAssociationViewParamProperties.Set_projSurfaces(Value: WordBool); begin DefaultInterface.projSurfaces := Value; end; function TAssociationViewParamProperties.Get_projThreads: WordBool; begin Result := DefaultInterface.projThreads; end; procedure TAssociationViewParamProperties.Set_projThreads(Value: WordBool); begin DefaultInterface.projThreads := Value; end; function TAssociationViewParamProperties.Get_section: WordBool; begin Result := DefaultInterface.section; end; procedure TAssociationViewParamProperties.Set_section(Value: WordBool); begin DefaultInterface.section := Value; end; function TAssociationViewParamProperties.Get_sameHatch: WordBool; begin Result := DefaultInterface.sameHatch; end; procedure TAssociationViewParamProperties.Set_sameHatch(Value: WordBool); begin DefaultInterface.sameHatch := Value; end; function TAssociationViewParamProperties.Get_viewType: Smallint; begin Result := DefaultInterface.viewType; end; {$ENDIF} class function CoViewColorParam.Create: ksViewColorParam; begin Result := CreateComObject(CLASS_ViewColorParam) as ksViewColorParam; end; class function CoViewColorParam.CreateRemote(const MachineName: string): ksViewColorParam; begin Result := CreateRemoteComObject(MachineName, CLASS_ViewColorParam) as ksViewColorParam; end; procedure TViewColorParam.InitServerData; const CServerData: TServerData = ( ClassID: '{34AFC10F-4FBB-40F0-8A23-74B1250F42EF}'; IntfIID: '{5A42B962-8F78-4557-B17A-1B871F8DBDB5}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TViewColorParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksViewColorParam; end; end; procedure TViewColorParam.ConnectTo(svrIntf: ksViewColorParam); begin Disconnect; FIntf := svrIntf; end; procedure TViewColorParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TViewColorParam.GetDefaultInterface: ksViewColorParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TViewColorParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TViewColorParamProperties.Create(Self); {$ENDIF} end; destructor TViewColorParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TViewColorParam.GetServerProperties: TViewColorParamProperties; begin Result := FProps; end; {$ENDIF} function TViewColorParam.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TViewColorParam.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TViewColorParam.Get_useGradient: WordBool; begin Result := DefaultInterface.useGradient; end; procedure TViewColorParam.Set_useGradient(Value: WordBool); begin DefaultInterface.useGradient := Value; end; function TViewColorParam.Get_topColor: Integer; begin Result := DefaultInterface.topColor; end; procedure TViewColorParam.Set_topColor(Value: Integer); begin DefaultInterface.topColor := Value; end; function TViewColorParam.Get_bottomColor: Integer; begin Result := DefaultInterface.bottomColor; end; procedure TViewColorParam.Set_bottomColor(Value: Integer); begin DefaultInterface.bottomColor := Value; end; function TViewColorParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TViewColorParamProperties.Create(AServer: TViewColorParam); begin inherited Create; FServer := AServer; end; function TViewColorParamProperties.GetDefaultInterface: ksViewColorParam; begin Result := FServer.DefaultInterface; end; function TViewColorParamProperties.Get_color: Integer; begin Result := DefaultInterface.color; end; procedure TViewColorParamProperties.Set_color(Value: Integer); begin DefaultInterface.color := Value; end; function TViewColorParamProperties.Get_useGradient: WordBool; begin Result := DefaultInterface.useGradient; end; procedure TViewColorParamProperties.Set_useGradient(Value: WordBool); begin DefaultInterface.useGradient := Value; end; function TViewColorParamProperties.Get_topColor: Integer; begin Result := DefaultInterface.topColor; end; procedure TViewColorParamProperties.Set_topColor(Value: Integer); begin DefaultInterface.topColor := Value; end; function TViewColorParamProperties.Get_bottomColor: Integer; begin Result := DefaultInterface.bottomColor; end; procedure TViewColorParamProperties.Set_bottomColor(Value: Integer); begin DefaultInterface.bottomColor := Value; end; {$ENDIF} class function CoAxisLineParam.Create: ksAxisLineParam; begin Result := CreateComObject(CLASS_AxisLineParam) as ksAxisLineParam; end; class function CoAxisLineParam.CreateRemote(const MachineName: string): ksAxisLineParam; begin Result := CreateRemoteComObject(MachineName, CLASS_AxisLineParam) as ksAxisLineParam; end; procedure TAxisLineParam.InitServerData; const CServerData: TServerData = ( ClassID: '{705962E9-5E9B-4379-8504-FA754D11FC66}'; IntfIID: '{AFE694D7-C1E5-468F-99B0-FE4C60C49899}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAxisLineParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAxisLineParam; end; end; procedure TAxisLineParam.ConnectTo(svrIntf: ksAxisLineParam); begin Disconnect; FIntf := svrIntf; end; procedure TAxisLineParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAxisLineParam.GetDefaultInterface: ksAxisLineParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAxisLineParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAxisLineParamProperties.Create(Self); {$ENDIF} end; destructor TAxisLineParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAxisLineParam.GetServerProperties: TAxisLineParamProperties; begin Result := FProps; end; {$ENDIF} function TAxisLineParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TAxisLineParam.GetBegPoint: IDispatch; begin Result := DefaultInterface.GetBegPoint; end; function TAxisLineParam.GetEndPoint: IDispatch; begin Result := DefaultInterface.GetEndPoint; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAxisLineParamProperties.Create(AServer: TAxisLineParam); begin inherited Create; FServer := AServer; end; function TAxisLineParamProperties.GetDefaultInterface: ksAxisLineParam; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoTextDocumentParam.Create: ksTextDocumentParam; begin Result := CreateComObject(CLASS_TextDocumentParam) as ksTextDocumentParam; end; class function CoTextDocumentParam.CreateRemote(const MachineName: string): ksTextDocumentParam; begin Result := CreateRemoteComObject(MachineName, CLASS_TextDocumentParam) as ksTextDocumentParam; end; procedure TTextDocumentParam.InitServerData; const CServerData: TServerData = ( ClassID: '{02286DB8-98D4-4D0B-97D7-E2EED32EEBD6}'; IntfIID: '{33706D56-D085-4840-833B-435AEB00BE2A}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTextDocumentParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksTextDocumentParam; end; end; procedure TTextDocumentParam.ConnectTo(svrIntf: ksTextDocumentParam); begin Disconnect; FIntf := svrIntf; end; procedure TTextDocumentParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTextDocumentParam.GetDefaultInterface: ksTextDocumentParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTextDocumentParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTextDocumentParamProperties.Create(Self); {$ENDIF} end; destructor TTextDocumentParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTextDocumentParam.GetServerProperties: TTextDocumentParamProperties; begin Result := FProps; end; {$ENDIF} function TTextDocumentParam.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TTextDocumentParam.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TTextDocumentParam.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TTextDocumentParam.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TTextDocumentParam.Get_author: WideString; begin Result := DefaultInterface.author; end; procedure TTextDocumentParam.Set_author(const Value: WideString); begin DefaultInterface.author := Value; end; function TTextDocumentParam.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TTextDocumentParam.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TTextDocumentParam.Get_regime: Smallint; begin Result := DefaultInterface.regime; end; procedure TTextDocumentParam.Set_regime(Value: Smallint); begin DefaultInterface.regime := Value; end; function TTextDocumentParam.Init: WordBool; begin Result := DefaultInterface.Init; end; function TTextDocumentParam.GetFirstSheet: IDispatch; begin Result := DefaultInterface.GetFirstSheet; end; function TTextDocumentParam.GetEvenSheet: IDispatch; begin Result := DefaultInterface.GetEvenSheet; end; function TTextDocumentParam.GetOddSheet: IDispatch; begin Result := DefaultInterface.GetOddSheet; end; function TTextDocumentParam.GetArrTitleSheet: IDispatch; begin Result := DefaultInterface.GetArrTitleSheet; end; function TTextDocumentParam.GetArrTailSheet: IDispatch; begin Result := DefaultInterface.GetArrTailSheet; end; function TTextDocumentParam.GetSheetParam: IDispatch; begin Result := DefaultInterface.GetSheetParam; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTextDocumentParamProperties.Create(AServer: TTextDocumentParam); begin inherited Create; FServer := AServer; end; function TTextDocumentParamProperties.GetDefaultInterface: ksTextDocumentParam; begin Result := FServer.DefaultInterface; end; function TTextDocumentParamProperties.Get_fileName: WideString; begin Result := DefaultInterface.fileName; end; procedure TTextDocumentParamProperties.Set_fileName(const Value: WideString); begin DefaultInterface.fileName := Value; end; function TTextDocumentParamProperties.Get_comment: WideString; begin Result := DefaultInterface.comment; end; procedure TTextDocumentParamProperties.Set_comment(const Value: WideString); begin DefaultInterface.comment := Value; end; function TTextDocumentParamProperties.Get_author: WideString; begin Result := DefaultInterface.author; end; procedure TTextDocumentParamProperties.Set_author(const Value: WideString); begin DefaultInterface.author := Value; end; function TTextDocumentParamProperties.Get_type_: Smallint; begin Result := DefaultInterface.type_; end; procedure TTextDocumentParamProperties.Set_type_(Value: Smallint); begin DefaultInterface.type_ := Value; end; function TTextDocumentParamProperties.Get_regime: Smallint; begin Result := DefaultInterface.regime; end; procedure TTextDocumentParamProperties.Set_regime(Value: Smallint); begin DefaultInterface.regime := Value; end; {$ENDIF} class function CoRemoteElementParam.Create: ksRemoteElementParam; begin Result := CreateComObject(CLASS_RemoteElementParam) as ksRemoteElementParam; end; class function CoRemoteElementParam.CreateRemote(const MachineName: string): ksRemoteElementParam; begin Result := CreateRemoteComObject(MachineName, CLASS_RemoteElementParam) as ksRemoteElementParam; end; procedure TRemoteElementParam.InitServerData; const CServerData: TServerData = ( ClassID: '{F37A40F6-4E15-4E01-B4F0-25C49175227A}'; IntfIID: '{25076616-4949-455E-A45C-1B801884D825}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRemoteElementParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksRemoteElementParam; end; end; procedure TRemoteElementParam.ConnectTo(svrIntf: ksRemoteElementParam); begin Disconnect; FIntf := svrIntf; end; procedure TRemoteElementParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRemoteElementParam.GetDefaultInterface: ksRemoteElementParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRemoteElementParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRemoteElementParamProperties.Create(Self); {$ENDIF} end; destructor TRemoteElementParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRemoteElementParam.GetServerProperties: TRemoteElementParamProperties; begin Result := FProps; end; {$ENDIF} function TRemoteElementParam.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TRemoteElementParam.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TRemoteElementParam.Get_signType: Integer; begin Result := DefaultInterface.signType; end; procedure TRemoteElementParam.Set_signType(Value: Integer); begin DefaultInterface.signType := Value; end; function TRemoteElementParam.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TRemoteElementParam.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TRemoteElementParam.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TRemoteElementParam.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TRemoteElementParam.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TRemoteElementParam.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TRemoteElementParam.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TRemoteElementParam.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TRemoteElementParam.Get_radius: Double; begin Result := DefaultInterface.radius; end; procedure TRemoteElementParam.Set_radius(Value: Double); begin DefaultInterface.radius := Value; end; function TRemoteElementParam.Get_smooth: Double; begin Result := DefaultInterface.smooth; end; procedure TRemoteElementParam.Set_smooth(Value: Double); begin DefaultInterface.smooth := Value; end; function TRemoteElementParam.Get_shelfX: Double; begin Result := DefaultInterface.shelfX; end; procedure TRemoteElementParam.Set_shelfX(Value: Double); begin DefaultInterface.shelfX := Value; end; function TRemoteElementParam.Get_shelfY: Double; begin Result := DefaultInterface.shelfY; end; procedure TRemoteElementParam.Set_shelfY(Value: Double); begin DefaultInterface.shelfY := Value; end; function TRemoteElementParam.Get_shelfDir: Smallint; begin Result := DefaultInterface.shelfDir; end; procedure TRemoteElementParam.Set_shelfDir(Value: Smallint); begin DefaultInterface.shelfDir := Value; end; function TRemoteElementParam.Init(style: Integer): WordBool; begin Result := DefaultInterface.Init(style); end; function TRemoteElementParam.GetpText: IDispatch; begin Result := DefaultInterface.GetpText; end; function TRemoteElementParam.SetpText(const pText: IDispatch): WordBool; begin Result := DefaultInterface.SetpText(pText); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRemoteElementParamProperties.Create(AServer: TRemoteElementParam); begin inherited Create; FServer := AServer; end; function TRemoteElementParamProperties.GetDefaultInterface: ksRemoteElementParam; begin Result := FServer.DefaultInterface; end; function TRemoteElementParamProperties.Get_style: Integer; begin Result := DefaultInterface.style; end; procedure TRemoteElementParamProperties.Set_style(Value: Integer); begin DefaultInterface.style := Value; end; function TRemoteElementParamProperties.Get_signType: Integer; begin Result := DefaultInterface.signType; end; procedure TRemoteElementParamProperties.Set_signType(Value: Integer); begin DefaultInterface.signType := Value; end; function TRemoteElementParamProperties.Get_x: Double; begin Result := DefaultInterface.x; end; procedure TRemoteElementParamProperties.Set_x(Value: Double); begin DefaultInterface.x := Value; end; function TRemoteElementParamProperties.Get_y: Double; begin Result := DefaultInterface.y; end; procedure TRemoteElementParamProperties.Set_y(Value: Double); begin DefaultInterface.y := Value; end; function TRemoteElementParamProperties.Get_width: Double; begin Result := DefaultInterface.width; end; procedure TRemoteElementParamProperties.Set_width(Value: Double); begin DefaultInterface.width := Value; end; function TRemoteElementParamProperties.Get_height: Double; begin Result := DefaultInterface.height; end; procedure TRemoteElementParamProperties.Set_height(Value: Double); begin DefaultInterface.height := Value; end; function TRemoteElementParamProperties.Get_radius: Double; begin Result := DefaultInterface.radius; end; procedure TRemoteElementParamProperties.Set_radius(Value: Double); begin DefaultInterface.radius := Value; end; function TRemoteElementParamProperties.Get_smooth: Double; begin Result := DefaultInterface.smooth; end; procedure TRemoteElementParamProperties.Set_smooth(Value: Double); begin DefaultInterface.smooth := Value; end; function TRemoteElementParamProperties.Get_shelfX: Double; begin Result := DefaultInterface.shelfX; end; procedure TRemoteElementParamProperties.Set_shelfX(Value: Double); begin DefaultInterface.shelfX := Value; end; function TRemoteElementParamProperties.Get_shelfY: Double; begin Result := DefaultInterface.shelfY; end; procedure TRemoteElementParamProperties.Set_shelfY(Value: Double); begin DefaultInterface.shelfY := Value; end; function TRemoteElementParamProperties.Get_shelfDir: Smallint; begin Result := DefaultInterface.shelfDir; end; procedure TRemoteElementParamProperties.Set_shelfDir(Value: Smallint); begin DefaultInterface.shelfDir := Value; end; {$ENDIF} class function CoDeletedCopyCollection.Create: ksDeletedCopyCollection; begin Result := CreateComObject(CLASS_DeletedCopyCollection) as ksDeletedCopyCollection; end; class function CoDeletedCopyCollection.CreateRemote(const MachineName: string): ksDeletedCopyCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_DeletedCopyCollection) as ksDeletedCopyCollection; end; procedure TDeletedCopyCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{9807E658-53C5-4445-A389-3F800FB3BB8A}'; IntfIID: '{82F60797-D69C-4EB4-9F1A-24D625D5EAFA}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDeletedCopyCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksDeletedCopyCollection; end; end; procedure TDeletedCopyCollection.ConnectTo(svrIntf: ksDeletedCopyCollection); begin Disconnect; FIntf := svrIntf; end; procedure TDeletedCopyCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TDeletedCopyCollection.GetDefaultInterface: ksDeletedCopyCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDeletedCopyCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDeletedCopyCollectionProperties.Create(Self); {$ENDIF} end; destructor TDeletedCopyCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDeletedCopyCollection.GetServerProperties: TDeletedCopyCollectionProperties; begin Result := FProps; end; {$ENDIF} function TDeletedCopyCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TDeletedCopyCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TDeletedCopyCollection.First(var index1: Integer; var index2: Integer): WordBool; begin Result := DefaultInterface.First(index1, index2); end; function TDeletedCopyCollection.Last(var index1: Integer; var index2: Integer): WordBool; begin Result := DefaultInterface.Last(index1, index2); end; function TDeletedCopyCollection.Next(var index1: Integer; var index2: Integer): WordBool; begin Result := DefaultInterface.Next(index1, index2); end; function TDeletedCopyCollection.Prev(var index1: Integer; var index2: Integer): WordBool; begin Result := DefaultInterface.Prev(index1, index2); end; function TDeletedCopyCollection.GetByIndex(index: Integer; var index1: Integer; var index2: Integer): WordBool; begin Result := DefaultInterface.GetByIndex(index, index1, index2); end; function TDeletedCopyCollection.Clear: WordBool; begin Result := DefaultInterface.Clear; end; function TDeletedCopyCollection.Add(index1: Integer; index2: Integer): WordBool; begin Result := DefaultInterface.Add(index1, index2); end; function TDeletedCopyCollection.AddAt(index1: Integer; index2: Integer; index: Integer): WordBool; begin Result := DefaultInterface.AddAt(index1, index2, index); end; function TDeletedCopyCollection.DetachByIndex(index: Integer): WordBool; begin Result := DefaultInterface.DetachByIndex(index); end; function TDeletedCopyCollection.DetachByBody(index1: Integer; index2: Integer): WordBool; begin Result := DefaultInterface.DetachByBody(index1, index2); end; function TDeletedCopyCollection.SetByIndex(index1: Integer; index2: Integer; index: Integer): WordBool; begin Result := DefaultInterface.SetByIndex(index1, index2, index); end; function TDeletedCopyCollection.FindIt(index1: Integer; index2: Integer): Integer; begin Result := DefaultInterface.FindIt(index1, index2); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDeletedCopyCollectionProperties.Create(AServer: TDeletedCopyCollection); begin inherited Create; FServer := AServer; end; function TDeletedCopyCollectionProperties.GetDefaultInterface: ksDeletedCopyCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoCopyObjectParam.Create: ksCopyObjectParam; begin Result := CreateComObject(CLASS_CopyObjectParam) as ksCopyObjectParam; end; class function CoCopyObjectParam.CreateRemote(const MachineName: string): ksCopyObjectParam; begin Result := CreateRemoteComObject(MachineName, CLASS_CopyObjectParam) as ksCopyObjectParam; end; procedure TCopyObjectParam.InitServerData; const CServerData: TServerData = ( ClassID: '{8867DEAC-C699-41B6-BD3D-C470A52B1B9C}'; IntfIID: '{AACAD820-7790-46EB-B17F-06AE42215ED7}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCopyObjectParam.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksCopyObjectParam; end; end; procedure TCopyObjectParam.ConnectTo(svrIntf: ksCopyObjectParam); begin Disconnect; FIntf := svrIntf; end; procedure TCopyObjectParam.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCopyObjectParam.GetDefaultInterface: ksCopyObjectParam; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TCopyObjectParam.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TCopyObjectParamProperties.Create(Self); {$ENDIF} end; destructor TCopyObjectParam.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TCopyObjectParam.GetServerProperties: TCopyObjectParamProperties; begin Result := FProps; end; {$ENDIF} function TCopyObjectParam.Get_objRef: Integer; begin Result := DefaultInterface.objRef; end; procedure TCopyObjectParam.Set_objRef(Value: Integer); begin DefaultInterface.objRef := Value; end; function TCopyObjectParam.Get_xOld: Double; begin Result := DefaultInterface.xOld; end; procedure TCopyObjectParam.Set_xOld(Value: Double); begin DefaultInterface.xOld := Value; end; function TCopyObjectParam.Get_yOld: Double; begin Result := DefaultInterface.yOld; end; procedure TCopyObjectParam.Set_yOld(Value: Double); begin DefaultInterface.yOld := Value; end; function TCopyObjectParam.Get_xNew: Double; begin Result := DefaultInterface.xNew; end; procedure TCopyObjectParam.Set_xNew(Value: Double); begin DefaultInterface.xNew := Value; end; function TCopyObjectParam.Get_yNew: Double; begin Result := DefaultInterface.yNew; end; procedure TCopyObjectParam.Set_yNew(Value: Double); begin DefaultInterface.yNew := Value; end; function TCopyObjectParam.Get_scale: Double; begin Result := DefaultInterface.scale; end; procedure TCopyObjectParam.Set_scale(Value: Double); begin DefaultInterface.scale := Value; end; function TCopyObjectParam.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TCopyObjectParam.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TCopyObjectParam.Get_attrCopy: WordBool; begin Result := DefaultInterface.attrCopy; end; procedure TCopyObjectParam.Set_attrCopy(Value: WordBool); begin DefaultInterface.attrCopy := Value; end; function TCopyObjectParam.Get_dimLineScale: WordBool; begin Result := DefaultInterface.dimLineScale; end; procedure TCopyObjectParam.Set_dimLineScale(Value: WordBool); begin DefaultInterface.dimLineScale := Value; end; function TCopyObjectParam.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TCopyObjectParamProperties.Create(AServer: TCopyObjectParam); begin inherited Create; FServer := AServer; end; function TCopyObjectParamProperties.GetDefaultInterface: ksCopyObjectParam; begin Result := FServer.DefaultInterface; end; function TCopyObjectParamProperties.Get_objRef: Integer; begin Result := DefaultInterface.objRef; end; procedure TCopyObjectParamProperties.Set_objRef(Value: Integer); begin DefaultInterface.objRef := Value; end; function TCopyObjectParamProperties.Get_xOld: Double; begin Result := DefaultInterface.xOld; end; procedure TCopyObjectParamProperties.Set_xOld(Value: Double); begin DefaultInterface.xOld := Value; end; function TCopyObjectParamProperties.Get_yOld: Double; begin Result := DefaultInterface.yOld; end; procedure TCopyObjectParamProperties.Set_yOld(Value: Double); begin DefaultInterface.yOld := Value; end; function TCopyObjectParamProperties.Get_xNew: Double; begin Result := DefaultInterface.xNew; end; procedure TCopyObjectParamProperties.Set_xNew(Value: Double); begin DefaultInterface.xNew := Value; end; function TCopyObjectParamProperties.Get_yNew: Double; begin Result := DefaultInterface.yNew; end; procedure TCopyObjectParamProperties.Set_yNew(Value: Double); begin DefaultInterface.yNew := Value; end; function TCopyObjectParamProperties.Get_scale: Double; begin Result := DefaultInterface.scale; end; procedure TCopyObjectParamProperties.Set_scale(Value: Double); begin DefaultInterface.scale := Value; end; function TCopyObjectParamProperties.Get_angle: Double; begin Result := DefaultInterface.angle; end; procedure TCopyObjectParamProperties.Set_angle(Value: Double); begin DefaultInterface.angle := Value; end; function TCopyObjectParamProperties.Get_attrCopy: WordBool; begin Result := DefaultInterface.attrCopy; end; procedure TCopyObjectParamProperties.Set_attrCopy(Value: WordBool); begin DefaultInterface.attrCopy := Value; end; function TCopyObjectParamProperties.Get_dimLineScale: WordBool; begin Result := DefaultInterface.dimLineScale; end; procedure TCopyObjectParamProperties.Set_dimLineScale(Value: WordBool); begin DefaultInterface.dimLineScale := Value; end; {$ENDIF} class function CoThreadDefinition.Create: ksThreadDefinition; begin Result := CreateComObject(CLASS_ThreadDefinition) as ksThreadDefinition; end; class function CoThreadDefinition.CreateRemote(const MachineName: string): ksThreadDefinition; begin Result := CreateRemoteComObject(MachineName, CLASS_ThreadDefinition) as ksThreadDefinition; end; procedure TThreadDefinition.InitServerData; const CServerData: TServerData = ( ClassID: '{2A8AE692-45A3-4C22-88B5-76B4830F2235}'; IntfIID: '{5DDB6B14-6F3D-431F-B62F-C5FCCAFC3632}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TThreadDefinition.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksThreadDefinition; end; end; procedure TThreadDefinition.ConnectTo(svrIntf: ksThreadDefinition); begin Disconnect; FIntf := svrIntf; end; procedure TThreadDefinition.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TThreadDefinition.GetDefaultInterface: ksThreadDefinition; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TThreadDefinition.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TThreadDefinitionProperties.Create(Self); {$ENDIF} end; destructor TThreadDefinition.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TThreadDefinition.GetServerProperties: TThreadDefinitionProperties; begin Result := FProps; end; {$ENDIF} function TThreadDefinition.Get_dr: Double; begin Result := DefaultInterface.dr; end; procedure TThreadDefinition.Set_dr(Value: Double); begin DefaultInterface.dr := Value; end; function TThreadDefinition.Get_length: Double; begin Result := DefaultInterface.length; end; procedure TThreadDefinition.Set_length(Value: Double); begin DefaultInterface.length := Value; end; function TThreadDefinition.Get_p: Double; begin Result := DefaultInterface.p; end; procedure TThreadDefinition.Set_p(Value: Double); begin DefaultInterface.p := Value; end; function TThreadDefinition.Get_autoDefinDr: WordBool; begin Result := DefaultInterface.autoDefinDr; end; procedure TThreadDefinition.Set_autoDefinDr(Value: WordBool); begin DefaultInterface.autoDefinDr := Value; end; function TThreadDefinition.Get_allLength: WordBool; begin Result := DefaultInterface.allLength; end; procedure TThreadDefinition.Set_allLength(Value: WordBool); begin DefaultInterface.allLength := Value; end; function TThreadDefinition.Get_faceValue: WordBool; begin Result := DefaultInterface.faceValue; end; procedure TThreadDefinition.Set_faceValue(Value: WordBool); begin DefaultInterface.faceValue := Value; end; function TThreadDefinition.Get_outside: WordBool; begin Result := DefaultInterface.outside; end; function TThreadDefinition.GetBaseObject: IDispatch; begin Result := DefaultInterface.GetBaseObject; end; function TThreadDefinition.SetBaseObject(const obj: IDispatch): WordBool; begin Result := DefaultInterface.SetBaseObject(obj); end; function TThreadDefinition.GetFaceBegin: IDispatch; begin Result := DefaultInterface.GetFaceBegin; end; function TThreadDefinition.SetFaceBegin(const face: IDispatch): WordBool; begin Result := DefaultInterface.SetFaceBegin(face); end; function TThreadDefinition.GetFaceEnd: IDispatch; begin Result := DefaultInterface.GetFaceEnd; end; function TThreadDefinition.SetFaceEnd(const face: IDispatch): WordBool; begin Result := DefaultInterface.SetFaceEnd(face); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TThreadDefinitionProperties.Create(AServer: TThreadDefinition); begin inherited Create; FServer := AServer; end; function TThreadDefinitionProperties.GetDefaultInterface: ksThreadDefinition; begin Result := FServer.DefaultInterface; end; function TThreadDefinitionProperties.Get_dr: Double; begin Result := DefaultInterface.dr; end; procedure TThreadDefinitionProperties.Set_dr(Value: Double); begin DefaultInterface.dr := Value; end; function TThreadDefinitionProperties.Get_length: Double; begin Result := DefaultInterface.length; end; procedure TThreadDefinitionProperties.Set_length(Value: Double); begin DefaultInterface.length := Value; end; function TThreadDefinitionProperties.Get_p: Double; begin Result := DefaultInterface.p; end; procedure TThreadDefinitionProperties.Set_p(Value: Double); begin DefaultInterface.p := Value; end; function TThreadDefinitionProperties.Get_autoDefinDr: WordBool; begin Result := DefaultInterface.autoDefinDr; end; procedure TThreadDefinitionProperties.Set_autoDefinDr(Value: WordBool); begin DefaultInterface.autoDefinDr := Value; end; function TThreadDefinitionProperties.Get_allLength: WordBool; begin Result := DefaultInterface.allLength; end; procedure TThreadDefinitionProperties.Set_allLength(Value: WordBool); begin DefaultInterface.allLength := Value; end; function TThreadDefinitionProperties.Get_faceValue: WordBool; begin Result := DefaultInterface.faceValue; end; procedure TThreadDefinitionProperties.Set_faceValue(Value: WordBool); begin DefaultInterface.faceValue := Value; end; function TThreadDefinitionProperties.Get_outside: WordBool; begin Result := DefaultInterface.outside; end; {$ENDIF} class function CoOverlapObjectOptions.Create: ksOverlapObjectOptions; begin Result := CreateComObject(CLASS_OverlapObjectOptions) as ksOverlapObjectOptions; end; class function CoOverlapObjectOptions.CreateRemote(const MachineName: string): ksOverlapObjectOptions; begin Result := CreateRemoteComObject(MachineName, CLASS_OverlapObjectOptions) as ksOverlapObjectOptions; end; procedure TOverlapObjectOptions.InitServerData; const CServerData: TServerData = ( ClassID: '{E41D019C-2D40-452D-8F7B-3FB5FE2D3E8E}'; IntfIID: '{F78E6B71-BEF3-4A4D-AE50-FE96426F6FD1}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOverlapObjectOptions.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksOverlapObjectOptions; end; end; procedure TOverlapObjectOptions.ConnectTo(svrIntf: ksOverlapObjectOptions); begin Disconnect; FIntf := svrIntf; end; procedure TOverlapObjectOptions.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOverlapObjectOptions.GetDefaultInterface: ksOverlapObjectOptions; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOverlapObjectOptions.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOverlapObjectOptionsProperties.Create(Self); {$ENDIF} end; destructor TOverlapObjectOptions.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOverlapObjectOptions.GetServerProperties: TOverlapObjectOptionsProperties; begin Result := FProps; end; {$ENDIF} function TOverlapObjectOptions.Get_overlap: WordBool; begin Result := DefaultInterface.overlap; end; procedure TOverlapObjectOptions.Set_overlap(Value: WordBool); begin DefaultInterface.overlap := Value; end; function TOverlapObjectOptions.Get_gap: Double; begin Result := DefaultInterface.gap; end; procedure TOverlapObjectOptions.Set_gap(Value: Double); begin DefaultInterface.gap := Value; end; function TOverlapObjectOptions.Init: WordBool; begin Result := DefaultInterface.Init; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOverlapObjectOptionsProperties.Create(AServer: TOverlapObjectOptions); begin inherited Create; FServer := AServer; end; function TOverlapObjectOptionsProperties.GetDefaultInterface: ksOverlapObjectOptions; begin Result := FServer.DefaultInterface; end; function TOverlapObjectOptionsProperties.Get_overlap: WordBool; begin Result := DefaultInterface.overlap; end; procedure TOverlapObjectOptionsProperties.Set_overlap(Value: WordBool); begin DefaultInterface.overlap := Value; end; function TOverlapObjectOptionsProperties.Get_gap: Double; begin Result := DefaultInterface.gap; end; procedure TOverlapObjectOptionsProperties.Set_gap(Value: Double); begin DefaultInterface.gap := Value; end; {$ENDIF} class function CoAttribute3D.Create: ksAttribute3D; begin Result := CreateComObject(CLASS_Attribute3D) as ksAttribute3D; end; class function CoAttribute3D.CreateRemote(const MachineName: string): ksAttribute3D; begin Result := CreateRemoteComObject(MachineName, CLASS_Attribute3D) as ksAttribute3D; end; procedure TAttribute3D.InitServerData; const CServerData: TServerData = ( ClassID: '{620BFE17-2F66-4102-A8EA-4DD33C081061}'; IntfIID: '{3EEB2B43-56FF-49C0-AFCF-69E990A7D84C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttribute3D.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAttribute3D; end; end; procedure TAttribute3D.ConnectTo(svrIntf: ksAttribute3D); begin Disconnect; FIntf := svrIntf; end; procedure TAttribute3D.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttribute3D.GetDefaultInterface: ksAttribute3D; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAttribute3D.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAttribute3DProperties.Create(Self); {$ENDIF} end; destructor TAttribute3D.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAttribute3D.GetServerProperties: TAttribute3DProperties; begin Result := FProps; end; {$ENDIF} function TAttribute3D.Get_reference: Integer; begin Result := DefaultInterface.reference; end; function TAttribute3D.FeatureCollection(objType: Integer): ksFeatureCollection; begin Result := DefaultInterface.FeatureCollection(objType); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAttribute3DProperties.Create(AServer: TAttribute3D); begin inherited Create; FServer := AServer; end; function TAttribute3DProperties.GetDefaultInterface: ksAttribute3D; begin Result := FServer.DefaultInterface; end; function TAttribute3DProperties.Get_reference: Integer; begin Result := DefaultInterface.reference; end; {$ENDIF} class function CoAttribute3DCollection.Create: ksAttribute3DCollection; begin Result := CreateComObject(CLASS_Attribute3DCollection) as ksAttribute3DCollection; end; class function CoAttribute3DCollection.CreateRemote(const MachineName: string): ksAttribute3DCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_Attribute3DCollection) as ksAttribute3DCollection; end; procedure TAttribute3DCollection.InitServerData; const CServerData: TServerData = ( ClassID: '{17CAB61A-770A-4FCE-8FC5-F291CDADF80A}'; IntfIID: '{EB61A981-F63E-47E1-BEE8-2D1612C78E78}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttribute3DCollection.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksAttribute3DCollection; end; end; procedure TAttribute3DCollection.ConnectTo(svrIntf: ksAttribute3DCollection); begin Disconnect; FIntf := svrIntf; end; procedure TAttribute3DCollection.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttribute3DCollection.GetDefaultInterface: ksAttribute3DCollection; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAttribute3DCollection.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAttribute3DCollectionProperties.Create(Self); {$ENDIF} end; destructor TAttribute3DCollection.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAttribute3DCollection.GetServerProperties: TAttribute3DCollectionProperties; begin Result := FProps; end; {$ENDIF} function TAttribute3DCollection.refresh: WordBool; begin Result := DefaultInterface.refresh; end; function TAttribute3DCollection.GetCount: Integer; begin Result := DefaultInterface.GetCount; end; function TAttribute3DCollection.First: ksAttribute3D; begin Result := DefaultInterface.First; end; function TAttribute3DCollection.Last: ksAttribute3D; begin Result := DefaultInterface.Last; end; function TAttribute3DCollection.Next: ksAttribute3D; begin Result := DefaultInterface.Next; end; function TAttribute3DCollection.Prev: ksAttribute3D; begin Result := DefaultInterface.Prev; end; function TAttribute3DCollection.GetByIndex(index: Integer): ksAttribute3D; begin Result := DefaultInterface.GetByIndex(index); end; function TAttribute3DCollection.FindIt(const obj: ksAttribute3D): Integer; begin Result := DefaultInterface.FindIt(obj); end; function TAttribute3DCollection.Select(key1: Integer; key2: Integer; key3: Integer; key4: Integer; numb: Double; objType: Integer): WordBool; begin Result := DefaultInterface.Select(key1, key2, key3, key4, numb, objType); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAttribute3DCollectionProperties.Create(AServer: TAttribute3DCollection); begin inherited Create; FServer := AServer; end; function TAttribute3DCollectionProperties.GetDefaultInterface: ksAttribute3DCollection; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoComponentPositioner.Create: ksComponentPositioner; begin Result := CreateComObject(CLASS_ComponentPositioner) as ksComponentPositioner; end; class function CoComponentPositioner.CreateRemote(const MachineName: string): ksComponentPositioner; begin Result := CreateRemoteComObject(MachineName, CLASS_ComponentPositioner) as ksComponentPositioner; end; procedure TComponentPositioner.InitServerData; const CServerData: TServerData = ( ClassID: '{7DAB018D-9EF9-4D0F-84BB-54B3DC0558D3}'; IntfIID: '{508B5962-DF59-4CEE-8611-AD10FDF0C811}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TComponentPositioner.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksComponentPositioner; end; end; procedure TComponentPositioner.ConnectTo(svrIntf: ksComponentPositioner); begin Disconnect; FIntf := svrIntf; end; procedure TComponentPositioner.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TComponentPositioner.GetDefaultInterface: ksComponentPositioner; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TComponentPositioner.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TComponentPositionerProperties.Create(Self); {$ENDIF} end; destructor TComponentPositioner.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TComponentPositioner.GetServerProperties: TComponentPositionerProperties; begin Result := FProps; end; {$ENDIF} function TComponentPositioner.SetPlaneByPlacement(const plane: ksPlacement): WordBool; begin Result := DefaultInterface.SetPlaneByPlacement(plane); end; function TComponentPositioner.SetPlane(const plane: IDispatch): WordBool; begin Result := DefaultInterface.SetPlane(plane); end; function TComponentPositioner.SetPlaneByPoints(x1: Double; y1: Double; z1: Double; x2: Double; y2: Double; z2: Double; x3: Double; y3: Double; z3: Double): WordBool; begin Result := DefaultInterface.SetPlaneByPoints(x1, y1, z1, x2, y2, z2, x3, y3, z3); end; function TComponentPositioner.SetDragPoint(x: Double; y: Double; z: Double): WordBool; begin Result := DefaultInterface.SetDragPoint(x, y, z); end; function TComponentPositioner.SetAxis(const axis: IDispatch): WordBool; begin Result := DefaultInterface.SetAxis(axis); end; function TComponentPositioner.SetAxisByPoints(x1: Double; y1: Double; z1: Double; x2: Double; y2: Double; z2: Double): WordBool; begin Result := DefaultInterface.SetAxisByPoints(x1, y1, z1, x2, y2, z2); end; function TComponentPositioner.Prepare(const part: ksPart; positionerType: Integer): Integer; begin Result := DefaultInterface.Prepare(part, positionerType); end; function TComponentPositioner.MoveComponent(x: Double; y: Double; z: Double): WordBool; begin Result := DefaultInterface.MoveComponent(x, y, z); end; function TComponentPositioner.RotateComponent(angl: Double): WordBool; begin Result := DefaultInterface.RotateComponent(angl); end; function TComponentPositioner.Finish: WordBool; begin Result := DefaultInterface.Finish; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TComponentPositionerProperties.Create(AServer: TComponentPositioner); begin inherited Create; FServer := AServer; end; function TComponentPositionerProperties.GetDefaultInterface: ksComponentPositioner; begin Result := FServer.DefaultInterface; end; {$ENDIF} class function CoObjectFilter3D.Create: ksObjectFilter3D; begin Result := CreateComObject(CLASS_ObjectFilter3D) as ksObjectFilter3D; end; class function CoObjectFilter3D.CreateRemote(const MachineName: string): ksObjectFilter3D; begin Result := CreateRemoteComObject(MachineName, CLASS_ObjectFilter3D) as ksObjectFilter3D; end; procedure TObjectFilter3D.InitServerData; const CServerData: TServerData = ( ClassID: '{50E1BEFB-46C6-4A2C-B033-B9A96C5910F2}'; IntfIID: '{ABBA6CE0-CB4C-4A32-98B4-B639352C75BA}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TObjectFilter3D.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ksObjectFilter3D; end; end; procedure TObjectFilter3D.ConnectTo(svrIntf: ksObjectFilter3D); begin Disconnect; FIntf := svrIntf; end; procedure TObjectFilter3D.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TObjectFilter3D.GetDefaultInterface: ksObjectFilter3D; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TObjectFilter3D.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TObjectFilter3DProperties.Create(Self); {$ENDIF} end; destructor TObjectFilter3D.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TObjectFilter3D.GetServerProperties: TObjectFilter3DProperties; begin Result := FProps; end; {$ENDIF} function TObjectFilter3D.Get_filterAll: WordBool; begin Result := DefaultInterface.filterAll; end; procedure TObjectFilter3D.Set_filterAll(Value: WordBool); begin DefaultInterface.filterAll := Value; end; function TObjectFilter3D.Get_filterFaces: WordBool; begin Result := DefaultInterface.filterFaces; end; procedure TObjectFilter3D.Set_filterFaces(Value: WordBool); begin DefaultInterface.filterFaces := Value; end; function TObjectFilter3D.Get_filterEdges: WordBool; begin Result := DefaultInterface.filterEdges; end; procedure TObjectFilter3D.Set_filterEdges(Value: WordBool); begin DefaultInterface.filterEdges := Value; end; function TObjectFilter3D.Get_filterVertexs: WordBool; begin Result := DefaultInterface.filterVertexs; end; procedure TObjectFilter3D.Set_filterVertexs(Value: WordBool); begin DefaultInterface.filterVertexs := Value; end; function TObjectFilter3D.Get_filterCPlanes: WordBool; begin Result := DefaultInterface.filterCPlanes; end; procedure TObjectFilter3D.Set_filterCPlanes(Value: WordBool); begin DefaultInterface.filterCPlanes := Value; end; function TObjectFilter3D.Get_filterCAxis: WordBool; begin Result := DefaultInterface.filterCAxis; end; procedure TObjectFilter3D.Set_filterCAxis(Value: WordBool); begin DefaultInterface.filterCAxis := Value; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TObjectFilter3DProperties.Create(AServer: TObjectFilter3D); begin inherited Create; FServer := AServer; end; function TObjectFilter3DProperties.GetDefaultInterface: ksObjectFilter3D; begin Result := FServer.DefaultInterface; end; function TObjectFilter3DProperties.Get_filterAll: WordBool; begin Result := DefaultInterface.filterAll; end; procedure TObjectFilter3DProperties.Set_filterAll(Value: WordBool); begin DefaultInterface.filterAll := Value; end; function TObjectFilter3DProperties.Get_filterFaces: WordBool; begin Result := DefaultInterface.filterFaces; end; procedure TObjectFilter3DProperties.Set_filterFaces(Value: WordBool); begin DefaultInterface.filterFaces := Value; end; function TObjectFilter3DProperties.Get_filterEdges: WordBool; begin Result := DefaultInterface.filterEdges; end; procedure TObjectFilter3DProperties.Set_filterEdges(Value: WordBool); begin DefaultInterface.filterEdges := Value; end; function TObjectFilter3DProperties.Get_filterVertexs: WordBool; begin Result := DefaultInterface.filterVertexs; end; procedure TObjectFilter3DProperties.Set_filterVertexs(Value: WordBool); begin DefaultInterface.filterVertexs := Value; end; function TObjectFilter3DProperties.Get_filterCPlanes: WordBool; begin Result := DefaultInterface.filterCPlanes; end; procedure TObjectFilter3DProperties.Set_filterCPlanes(Value: WordBool); begin DefaultInterface.filterCPlanes := Value; end; function TObjectFilter3DProperties.Get_filterCAxis: WordBool; begin Result := DefaultInterface.filterCAxis; end; procedure TObjectFilter3DProperties.Set_filterCAxis(Value: WordBool); begin DefaultInterface.filterCAxis := Value; end; {$ENDIF} procedure Register; begin RegisterComponents('ActiveX',[TObject2DNotify, TSelectionMngNotify, TDocument2DNotify, TDocument3DNotify, TObject3DNotify, TApp, TObject2DNotifyResult, TFeatureCollection, Tplacement, TObject3DNotifyResult, TSpecRoughParam, TEllipseParam, TEllipseArcParam, TEllipseArcParam1, TEquidistantParam, TParagraphParam, TTextItemParam, TTextLineParam, TTextItemFont, TCornerParam, TContourParam, TLayerParam, TLineParam, TRegularPolygonParam, TRectangleParam, TBaseParam, TLtVariant, TUserParam, TMathPointParam, TCurvePicture, TCurvePattern, TTAN, TCON, TInertiaParam, TMassInertiaParam, TMathematic2D, TDynamicArray, TRDimDrawingParam, TRDimSourceParam, TRDimParam, TLineSegParam, TCircleParam, TArcByAngleParam, TArcByPointParam, TPointParam, THatchParam, TTextParam, TNurbsPointParam, TDoubleValue, TNurbsParam, TConicArcParam, TCentreParam, TPlacementParam, TRasterParam, TPolylineParam, TInsertFragmentParam, TViewParam, TLBreakDimSource, TBreakDimDrawing, TLBreakDimParam, TABreakDimParam, TInsertFragmentParamEx, TBezierParam, TBezierPointParam, TDimTextParam, TLDimSourceParam, TDimDrawingParam, TLDimParam, TADimSourceParam, TDimensionPartsParam, TADimParam, TRBreakDrawingParam, TRBreakDimParam, TQualityItemParam, TQualityContensParam, TIterator, TFragment, TFragmentLib, TTechnicalDemandParam, TOrdinatedSourceParam, TOrdinatedDimParam, TOrdinatedDrawingParam, TSheetSize, TStandartSheet, TSheetPar, TDocumentParam, TDimensionsOptions, TSnapOptions, TLibraryStyleParam, TStamp, TSheetOptions, TCurvePatternEx, TCurveStyleParam, TTextStyleParam, THatchLineParam, THatchStyleParam, TRectParam, TShelfPar, TroughPar, TRoughParam, TChar255, TLeaderParam, TposLeaderParam, TbrandLeaderParam, TmarkerLeaderParam, TType1, TType2, TType3, TType5, TType6, Tphantom, TRequestInfo, TViewPointerParam, TCutLineParam, TToleranceBranch, TToleranceParam, TSpcColumnParam, TRecordTypeAttrParam, TNumberTypeAttrParam, TSpcStyleColumnParam, TSpcStyleSectionParam, TSpcSubSectionParam, TSpcTuningSectionParam, TSpcTuningStyleParam, TSpcStyleParam, TSpcDescrParam, TDocAttachedSpcParam, TSpcObjParam, TLibStyle, TDataBaseObject, TSpcDocumentNotify, TSpcDocument, TSpcObjectNotify, TSpecification, TDocumentTxt, TAttributeTypeParam, TColumnInfoParam, TAttributeParam, TVariable, TLibraryAttrTypeParam, TAttributeObject, TRequestInfo3D, TMateConstraint, TDefaultObject, Tentity, Tpart, TModelLibrary, TEntityCollection, TVariableCollection, TMateConstraintCollection, TPartCollection, TMeshPartArrayDefinition, TCircularPartArrayDefinition, TCurvePartArrayDefinition, TDerivativePartArrayDefinition, TAxis2PlanesDefinition, TAxisOperationsDefinition, TAxis2PointsDefinition, TAxisEdgeDefinition, TMeshCopyDefinition, TCircularCopyDefinition, TCurveCopyDefinition, TMirrorCopyDefinition, TMirrorCopyAllDefinition, TConicSpiralDefinition, TCylindricSpiralDefinition, TPolyLineDefinition, TSplineDefinition, TfaceDefinition, TEdgeDefinition, TChamferDefinition, TFilletDefinition, TBaseExtrusionDefinition, TBossExtrusionDefinition, TCutExtrusionDefinition, TBaseLoftDefinition, TBossLoftDefinition, TCutLoftDefinition, TInclineDefinition, TShellDefinition, TBaseEvolutionDefinition, TBossEvolutionDefinition, TCutEvolutionDefinition, TRibDefinition, TCutByPlaneDefinition, TCutBySketchDefinition, TPlaneOffsetDefinition, TPlaneAngleDefinition, TPlane3PointsDefinition, TPlaneNormalToSurfaceDefinition, TPlaneTangentToSurfaceDefinition, TPlaneEdgePointDefinition, TPlaneParallelDefinition, TPlanePerpendicularDefinition, TPlaneLineToEdgeDefinition, TPlaneLineToPlaneDefinition, TThinParam, TExtrusionParam, TRotatedParam, TColorParam, TBaseRotatedDefinition, TBossRotatedDefinition, TCutRotatedDefinition, TSketchDefinition, TRasterFormatParam, TAdditionFormatParam, TConstraintParam, TImportedSurfaceDefinition, TFaceCollection, TVertexDefinition, TFeature, TTessellation, Tfacet, TMeasurer, TBodyCollection, TBody, TSurface, TEdgeCollection, TOrientedEdge, TOrientedEdgeCollection, TLoop, TLoopCollection, TCurve3D, TLineSeg3dParam, TCircle3dParam, TEllipse3dParam, TPlaneParam, TConeParam, TCylinderParam, TSphereParam, TTorusParam, TNurbsPoint3dParam, TNurbsSurfaceParam, TNurbs3dParam, TNurbsKnotCollection, TNurbsPoint3dCollCollection, TNurbsPoint3dCollection, TViewProjection, TViewProjectionCollection, TSelectionMng, TChooseMng, TArc3dParam, TTreeNodeParam, TAssociationViewParam, TViewColorParam, TAxisLineParam, TTextDocumentParam, TRemoteElementParam, TDeletedCopyCollection, TCopyObjectParam, TThreadDefinition, TOverlapObjectOptions, TAttribute3D, TAttribute3DCollection, TComponentPositioner, TObjectFilter3D]); end; end.