Module SigCjC_MarkupContext.pkg

     1//==============================================================================
     2// Project      : SigCj - VDF Classes for Codejock
     3// File         : SigCjC_MarkupContext.pkg
     4// Description  : VDF Class for Codejock control
     5//
     6// Created by   : Ian Smith
     7// Revision     : $Rev: $
     8//                $Date: $
     9//                $Author: $
    10//
    11// Requirements : Visual DataFlex 14.1
    12//                Codejock SuitePro - Version 13.4.2
    13//
    14// Copyright    : (c) 2009 VDF SIG UK
    15//                Visual DataFlex Special Interest Group UK.
    16//                http://www.vdfsig.co.uk/
    17//                dev@vdfsig.co.uk
    18//
    19//                This file is part of SigCj.
    20//
    21//                SigCj is free software: you can redistribute it and/or modify
    22//                it under the terms of the GNU Lesser General Public License
    23//                as published by the Free Software Foundation, either version
    24//                2.1 of the License, or (at your option) any later version.
    25//
    26//                SigCj is distributed in the hope that it will be useful, but
    27//                WITHOUT ANY WARRANTY; without even the implied warranty of
    28//                MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    29//                GNU Lesser General Public License for more details.
    30//
    31//                If you have the complete SigCj workspace then a copy of the
    32//                GNU Lesser General Public License is in the Docs folder. If
    33//                not, see <http://www.gnu.org/licenses/>.
    34//
    35//==============================================================================
    36
    37Use FlexCOM20.pkg
    38
    39Class cSigCjComMarkupContext is a cComAutomationObject
    40
    41    { MethodType=Property DesignTime=False }
    42    Function ComEnableGdiPlus Returns Boolean
    43        Boolean retVal
    44        Get ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_BOOL to retVal
    45        Function_Return retVal
    46    End_Function
    47
    48    { MethodType=Property DesignTime=False }
    49    Procedure Set ComEnableGdiPlus Boolean value
    50        Set ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_BOOL to value
    51    End_Procedure
    52
    53    Procedure ComSetMethod Variant llHandler String llMethod
    54        Handle hDispatchDriver
    55        Get phDispatchDriver to hDispatchDriver
    56        Send PrepareParams to hDispatchDriver 2
    57        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llHandler
    58        Send DefineParam to hDispatchDriver OLE_VT_BSTR llMethod
    59        Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
    60    End_Procedure
    61
    62    Function ComCreateObject String llClass Returns Variant
    63        Handle hDispatchDriver
    64        Variant retVal
    65        Get phDispatchDriver to hDispatchDriver
    66        Send PrepareParams to hDispatchDriver 1
    67        Send DefineParam to hDispatchDriver OLE_VT_BSTR llClass
    68        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_DISPATCH to retVal
    69        Function_Return retVal
    70    End_Function
    71
    72    Function ComCreateSolidBrush Integer llColor Returns Variant
    73        Handle hDispatchDriver
    74        Variant retVal
    75        Get phDispatchDriver to hDispatchDriver
    76        Send PrepareParams to hDispatchDriver 1
    77        Send DefineParam to hDispatchDriver OLE_VT_I4 llColor
    78        Get InvokeComMethod of hDispatchDriver 3 OLE_VT_DISPATCH to retVal
    79        Function_Return retVal
    80    End_Function
    81
    82    Function ComCreateThickness Integer llLeft Integer llTop Integer llRight Integer llBottom Returns Variant
    83        Handle hDispatchDriver
    84        Variant retVal
    85        Get phDispatchDriver to hDispatchDriver
    86        Send PrepareParams to hDispatchDriver 4
    87        Send DefineParam to hDispatchDriver OLE_VT_I4 llLeft
    88        Send DefineParam to hDispatchDriver OLE_VT_I4 llTop
    89        Send DefineParam to hDispatchDriver OLE_VT_I4 llRight
    90        Send DefineParam to hDispatchDriver OLE_VT_I4 llBottom
    91        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_DISPATCH to retVal
    92        Function_Return retVal
    93    End_Function
    94
    95    Function ComParse String llText Returns Variant
    96        Handle hDispatchDriver
    97        Variant retVal
    98        Get phDispatchDriver to hDispatchDriver
    99        Send PrepareParams to hDispatchDriver 1
   100        Send DefineParam to hDispatchDriver OLE_VT_BSTR llText
   101        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_DISPATCH to retVal
   102        Function_Return retVal
   103    End_Function
   104
   105    Procedure ComSetHandler Variant llHandler
   106        Handle hDispatchDriver
   107        Get phDispatchDriver to hDispatchDriver
   108        Send PrepareParams to hDispatchDriver 1
   109        Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llHandler
   110        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
   111    End_Procedure
   112
   113    { MethodType=Property DesignTime=False }
   114    Function ComToolTipContext Returns Variant
   115        Handle hDispatchDriver
   116        Variant retVal
   117        Get phDispatchDriver to hDispatchDriver
   118        Get InvokeComMethod of hDispatchDriver 39 OLE_VT_DISPATCH to retVal
   119        Function_Return retVal
   120    End_Function
   121End_Class
   122
   123//==============================================================================
   124//End of package - SigCjC_MarkupContext.pkg
   125//==============================================================================