// DataFlex COM proxy classes generated from G:\Projects\Embarcadero\STLViewer\Win32\Debug\STLViewer.ocx
Use FlexCom20.pkg


Define OLETxActiveFormBorderStyle for Integer
    // afbNone
    Define OLEafbNone for 0
    // afbSingle
    Define OLEafbSingle for 1
    // afbSunken
    Define OLEafbSunken for 2
    // afbRaised
    Define OLEafbRaised for 3

Define OLETxPrintScale for Integer
    // poNone
    Define OLEpoNone for 0
    // poProportional
    Define OLEpoProportional for 1
    // poPrintToFit
    Define OLEpoPrintToFit for 2

Define OLETxLightStyle for Integer
    // lsOmni : an omnidirectionnal source, punctual and sending light in all directions uniformously
    Define OLElsOmni for 1
    // lsParallel : a parallel light, oriented as the light source is (this type of light can help speed up rendering)
    Define OLElsParallel for 2
    Define OLElsParallelSpot for 3
    // lsSpot : a spot light, oriented and with a cutoff zone (note that if cutoff is 180, the spot is rendered as an omni source)
    Define OLElsSpot for 0

Define OLETxMouseButton for Integer
    // mbLeft
    Define OLEmbLeft for 0
    // mbRight
    Define OLEmbRight for 1
    // mbMiddle
    Define OLEmbMiddle for 2

Define OLETxPopupMode for Integer
    // pmNone
    Define OLEpmNone for 0
    // pmAuto
    Define OLEpmAuto for 1
    // pmExplicit
    Define OLEpmExplicit for 2

// Viewing style for the 3D object
Define OLETxViewStyle for Integer
    // Smooth Shading
    Define OLEacViewSmoothShading for 0
    // Flat Shading
    Define OLEacViewFlatShading for 1
    // Flat Shading with Lines
    Define OLEacViewFlatLines for 2
    // Hidden Lines
    Define OLEacViewHiddenLines for 3
    // Wire Frame
    Define OLEacViewWireFrame for 4

Struct TxCoordinate3
    Float X
    // is a TGLFloat which in turn is a single
    Float Y
    Float Z
End_Struct

// CLSID: {C74CEBCE-D077-4DF6-AF78-201670127B0A}
// Dispatch interface for the STLViewer Control
Class cComISTL3DViewer is a Mixin

    { MethodType=Property DesignTime=False }
    Function ComAutoScroll Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 202 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComAutoScroll Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 202 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComAutoSize Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 203 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComAutoSize Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 203 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComAxBorderStyle Returns OLETxActiveFormBorderStyle
        Handle hDispatchDriver
        OLETxActiveFormBorderStyle retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 204 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComAxBorderStyle OLETxActiveFormBorderStyle value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 204 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComBorderWidth Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 205 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComBorderWidth Integer value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 205 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComCaption Returns String
        Handle hDispatchDriver
        String retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver -518 OLE_VT_BSTR to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComCaption String value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver -518 OLE_VT_BSTR to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComColor Returns OLE_COLOR
        Handle hDispatchDriver
        OLE_COLOR retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver -501 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComColor OLE_COLOR value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver -501 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComFont Returns Variant
        Handle hDispatchDriver
        Variant retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver -512 OLE_VT_DISPATCH to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComFont Variant value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver -512 OLE_VT_DISPATCH to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Procedure Set ComFontRef Variant value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver -512 (OLE_VT_BYREF ior OLE_VT_DISPATCH) to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComKeyPreview Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 206 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComKeyPreview Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 206 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComPixelsPerInch Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 207 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComPixelsPerInch Integer value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 207 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComPrintScale Returns OLETxPrintScale
        Handle hDispatchDriver
        OLETxPrintScale retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 208 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComPrintScale OLETxPrintScale value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 208 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComScaled Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 209 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComScaled Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 209 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComAlignWithMargins Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 227 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComAlignWithMargins Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 227 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComParentCustomHint Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 228 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComParentCustomHint Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 228 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComViewStyle Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 229 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComViewStyle Integer value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 229 OLE_VT_I4 to value
    End_Procedure

    // Opens the file (with full path) as offered in the sFilename parameter
    Procedure ComDoOpenFile String llsFileName
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llsFileName
        Send InvokeComMethod to hDispatchDriver 230 OLE_VT_VOID
    End_Procedure

    // Returns true if the Axis behind the 3D object is visible
    { MethodType=Property DesignTime=False }
    Function ComAxisVisible Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 231 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    // Returns true if the Axis behind the 3D object is visible
    { MethodType=Property DesignTime=False }
    Procedure Set ComAxisVisible Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 231 OLE_VT_BOOL to value
    End_Procedure

    // Returns the background color in the 3D control
    { MethodType=Property DesignTime=False }
    Function ComBackgroundColor Returns OLE_COLOR
        Handle hDispatchDriver
        OLE_COLOR retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 232 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    // Returns the background color in the 3D control
    { MethodType=Property DesignTime=False }
    Procedure Set ComBackgroundColor OLE_COLOR value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 232 OLE_VT_I4 to value
    End_Procedure

    // Sets the color for the material that is rendered
    { MethodType=Property DesignTime=False }
    Function ComMaterialColor Returns OLE_COLOR
        Handle hDispatchDriver
        OLE_COLOR retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 233 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    // Sets the color for the material that is rendered
    { MethodType=Property DesignTime=False }
    Procedure Set ComMaterialColor OLE_COLOR value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 233 OLE_VT_I4 to value
    End_Procedure

    // Reset the view to how it looked like on first opening the object.
    Procedure ComResetCamera
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send InvokeComMethod to hDispatchDriver 234 OLE_VT_VOID
    End_Procedure

    // Zoom in on the mesh
    Procedure ComZoomIn
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send InvokeComMethod to hDispatchDriver 235 OLE_VT_VOID
    End_Procedure

    // Zoom the mesh out
    Procedure ComZoomOut
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send InvokeComMethod to hDispatchDriver 236 OLE_VT_VOID
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComLightingVisible Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 239 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComLightingVisible Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 239 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComLightShining Integer llLight Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLight
        Get InvokeComMethod of hDispatchDriver 237 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComLightShining Integer llLight Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 2
        Send DefineParam to hDispatchDriver OLE_VT_I4 llLight
        Set ComProperty of hDispatchDriver 237 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComCubeExtentsBorder Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 238 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComCubeExtentsBorder Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 238 OLE_VT_BOOL to value
    End_Procedure

    // Width of the loaded object
    { MethodType=Property DesignTime=False }
    Function ComCubeExtentsWidth Returns Float
        Handle hDispatchDriver
        Float retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 240 OLE_VT_R4 to retVal
        Function_Return retVal
    End_Function

    // Height of the loaded object
    { MethodType=Property DesignTime=False }
    Function ComCubeExtentsHeight Returns Float
        Handle hDispatchDriver
        Float retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 241 OLE_VT_R4 to retVal
        Function_Return retVal
    End_Function

    // Depth of the object loaded
    { MethodType=Property DesignTime=False }
    Function ComCubeExtentsDepth Returns Float
        Handle hDispatchDriver
        Float retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 242 OLE_VT_R4 to retVal
        Function_Return retVal
    End_Function

    // Gets the currently attached lightsource that is used in the STL3DViewerLightSource interface.\nCurrently 2 light sources are supported.\nThe default lightsource that is attached (0) is the normal light. You can change to lightsource 1 which is elsewhere also referred to as backlight.
    { MethodType=Property DesignTime=False }
    Function ComCurrentLightSource Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 243 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    // Gets the currently attached lightsource that is used in the STL3DViewerLightSource interface.\nCurrently 2 light sources are supported.\nThe default lightsource that is attached (0) is the normal light. You can change to lightsource 1 which is elsewhere also referred to as backlight.
    { MethodType=Property DesignTime=False }
    Procedure Set ComCurrentLightSource Integer value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 243 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComCameraLightConnected Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 244 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComCameraLightConnected Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 244 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComCameraLight Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 245 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComCameraLight Integer value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 245 OLE_VT_I4 to value
    End_Procedure
End_Class

// CLSID: {9CF271CA-C9D5-4C96-B251-8D49D5F4384B}
// Events interface for the STLViewer Control
Class cComISTL3DViewerEvents is a Mixin

    { MethodType=Event }
    Procedure OnComActivate
    End_Procedure

    { MethodType=Event }
    Procedure OnComClick
    End_Procedure

    { MethodType=Event }
    Procedure OnComCreate
    End_Procedure

    { MethodType=Event }
    Procedure OnComDblClick
    End_Procedure

    { MethodType=Event }
    Procedure OnComDestroy
    End_Procedure

    { MethodType=Event }
    Procedure OnComDeactivate
    End_Procedure

    { MethodType=Event }
    Procedure OnComKeyPress Short ByRef llKey
    End_Procedure

    { MethodType=Event }
    Procedure OnComMouseEnter
    End_Procedure

    { MethodType=Event }
    Procedure OnComMouseLeave
    End_Procedure

    { MethodType=Event }
    Procedure OnComPaint
    End_Procedure

    { Visibility=Private }
    Procedure RegisterComEvents
        Send RegisterComEvent 201 msg_OnComActivate
        Send RegisterComEvent 202 msg_OnComClick
        Send RegisterComEvent 203 msg_OnComCreate
        Send RegisterComEvent 204 msg_OnComDblClick
        Send RegisterComEvent 205 msg_OnComDestroy
        Send RegisterComEvent 206 msg_OnComDeactivate
        Send RegisterComEvent 207 msg_OnComKeyPress
        Send RegisterComEvent 208 msg_OnComMouseEnter
        Send RegisterComEvent 209 msg_OnComMouseLeave
        Send RegisterComEvent 210 msg_OnComPaint
    End_Procedure
End_Class

// CoClass
// ProgID: STLViewer.STL3DViewer
// CLSID: {F1D34EBC-5CBE-44C9-BF3A-24008E65726C}
// STL 3D Viewer Control
{ CLSID="{F1D34EBC-5CBE-44C9-BF3A-24008E65726C}" }
Class cComSTL3DViewer is a cComActiveXControl
    Import_Class_Protocol cComISTL3DViewer
    Import_Class_Protocol cComISTL3DViewerEvents

    Procedure Construct_Object
        Forward Send Construct_Object
        Set psProgID to "{F1D34EBC-5CBE-44C9-BF3A-24008E65726C}"
        Set psEventId to "{9CF271CA-C9D5-4C96-B251-8D49D5F4384B}"
        Set peAutoCreate to acDeferredAutoCreate
    End_Procedure
End_Class

// CLSID: {30B9CBBE-A79D-49ED-A7FB-D0822A645760}
// Dispatch interface for STL3DViewerLightSource Object
Class cComISTL3DViewerLightSource is a Mixin

    { MethodType=Property DesignTime=False }
    Function ComLightStyle Returns OLETxLightStyle
        Handle hDispatchDriver
        OLETxLightStyle retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 201 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComLightStyle OLETxLightStyle value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 201 OLE_VT_I4 to value
    End_Procedure

    // Change to a new position
    Procedure ComChangePosition Float llXPos Float llYPos Float llZPos
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 3
        Send DefineParam to hDispatchDriver OLE_VT_R4 llXPos
        Send DefineParam to hDispatchDriver OLE_VT_R4 llYPos
        Send DefineParam to hDispatchDriver OLE_VT_R4 llZPos
        Send InvokeComMethod to hDispatchDriver 202 OLE_VT_VOID
    End_Procedure

    Procedure ComCurrentPosition Float ByRef llXPos Float ByRef llYPos Float ByRef llZPos
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 3
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_R4) llXPos
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_R4) llYPos
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_R4) llZPos
        Send InvokeComMethod to hDispatchDriver 203 OLE_VT_VOID
    End_Procedure

    // Change direction of the lightsource
    Procedure ComChangeDirection Float llXDir Float llYDir Float llZDir
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 3
        Send DefineParam to hDispatchDriver OLE_VT_R4 llXDir
        Send DefineParam to hDispatchDriver OLE_VT_R4 llYDir
        Send DefineParam to hDispatchDriver OLE_VT_R4 llZDir
        Send InvokeComMethod to hDispatchDriver 204 OLE_VT_VOID
    End_Procedure

    Procedure ComCurrentDirection Float ByRef llXDir Float ByRef llYDir Float ByRef llZDir
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 3
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_R4) llXDir
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_R4) llYDir
        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_R4) llZDir
        Send InvokeComMethod to hDispatchDriver 205 OLE_VT_VOID
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComShining Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 206 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComShining Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 206 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComDiffuseColor Returns OLE_COLOR
        Handle hDispatchDriver
        OLE_COLOR retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 207 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComDiffuseColor OLE_COLOR value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 207 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComAmbientColor Returns OLE_COLOR
        Handle hDispatchDriver
        OLE_COLOR retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 208 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComAmbientColor OLE_COLOR value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 208 OLE_VT_I4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComConstAttenuation Returns Float
        Handle hDispatchDriver
        Float retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 209 OLE_VT_R4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComConstAttenuation Float value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 209 OLE_VT_R4 to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComSpecularColor Returns OLE_COLOR
        Handle hDispatchDriver
        OLE_COLOR retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 210 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComSpecularColor OLE_COLOR value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 210 OLE_VT_I4 to value
    End_Procedure
End_Class

// CLSID: {869416BC-C40D-417C-8ACD-F38E5989590A}
// Events interface for STL3DViewerLightSource Object
Class cComISTL3DViewerLightSourceEvents is a Mixin

    { Visibility=Private }
    Procedure RegisterComEvents
    End_Procedure
End_Class

// CoClass
// ProgID: STLViewer.STL3DViewerLightSource
// CLSID: {86455BA8-4E5D-4B2C-BD11-653D693238EC}
// STL3DViewer LightSource Object. Use this to interact with the light source in the viewer.
Class cComSTL3DViewerLightSource is a cComAutomationObject
    Import_Class_Protocol cComISTL3DViewerLightSource
    Import_Class_Protocol cComISTL3DViewerLightSourceEvents

    Procedure Construct_Object
        Forward Send Construct_Object
        Set psProgID to "{86455BA8-4E5D-4B2C-BD11-653D693238EC}"
        Set psEventId to "{869416BC-C40D-417C-8ACD-F38E5989590A}"
        Set peAutoCreate to acNoAutoCreate
    End_Procedure
End_Class