Module StdFont.pkg

     1Use FlexCom20.pkg
     2
     3// OLEStdFont Charset Constants
     4Enum_List
     5        Define OLEANSI_CHARSET for 0
     6        Define OLEDEFAULT_CHARSET for 1
     7        Define OLESYMBOL_CHARSET for 2
     8End_Enum_List
     9
    10// CLSID: {BEF6E003-A874-101A-8BBA-00AA00300CAB}
    11Class cComFont is a Mixin
    12
    13    { MethodType=Property }
    14    Function ComName Returns String
    15        String retVal
    16        Get ComProperty of (phDispatchDriver(Self)) 0 OLE_VT_BSTR to retVal
    17        Function_Return retVal
    18    End_Function
    19
    20    { MethodType=Property }
    21    Procedure Set ComName String value
    22        Set ComProperty of (phDispatchDriver(Self)) 0 OLE_VT_BSTR to value
    23    End_Procedure
    24
    25    { MethodType=Property }
    26    Function ComSize Returns Number
    27        Number retVal
    28        Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_CY to retVal
    29        Function_Return retVal
    30    End_Function
    31
    32    { MethodType=Property }
    33    Procedure Set ComSize Number value
    34        Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_CY to value
    35    End_Procedure
    36
    37    { MethodType=Property }
    38    Function ComBold Returns Boolean
    39        Boolean retVal
    40        Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_BOOL to retVal
    41        Function_Return retVal
    42    End_Function
    43
    44    { MethodType=Property }
    45    Procedure Set ComBold Boolean value
    46        Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_BOOL to value
    47    End_Procedure
    48
    49    { MethodType=Property }
    50    Function ComItalic Returns Boolean
    51        Boolean retVal
    52        Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BOOL to retVal
    53        Function_Return retVal
    54    End_Function
    55
    56    { MethodType=Property }
    57    Procedure Set ComItalic Boolean value
    58        Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BOOL to value
    59    End_Procedure
    60
    61    { MethodType=Property }
    62    Function ComUnderline Returns Boolean
    63        Boolean retVal
    64        Get ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_BOOL to retVal
    65        Function_Return retVal
    66    End_Function
    67
    68    { MethodType=Property }
    69    Procedure Set ComUnderline Boolean value
    70        Set ComProperty of (phDispatchDriver(Self)) 5 OLE_VT_BOOL to value
    71    End_Procedure
    72
    73    { MethodType=Property }
    74    Function ComStrikethrough Returns Boolean
    75        Boolean retVal
    76        Get ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BOOL to retVal
    77        Function_Return retVal
    78    End_Function
    79
    80    { MethodType=Property }
    81    Procedure Set ComStrikethrough Boolean value
    82        Set ComProperty of (phDispatchDriver(Self)) 6 OLE_VT_BOOL to value
    83    End_Procedure
    84
    85    { MethodType=Property }
    86    Function ComWeight Returns Short
    87        Short retVal
    88        Get ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_I2 to retVal
    89        Function_Return retVal
    90    End_Function
    91
    92    { MethodType=Property }
    93    Procedure Set ComWeight Short value
    94        Set ComProperty of (phDispatchDriver(Self)) 7 OLE_VT_I2 to value
    95    End_Procedure
    96
    97    { MethodType=Property }
    98    Function ComCharset Returns Short
    99        Short retVal
   100        Get ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_I2 to retVal
   101        Function_Return retVal
   102    End_Function
   103
   104    { MethodType=Property }
   105    Procedure Set ComCharset Short value
   106        Set ComProperty of (phDispatchDriver(Self)) 8 OLE_VT_I2 to value
   107    End_Procedure
   108End_Class
   109
   110// Event interface for the Font object
   111Class cComFontEvents is a Mixin
   112
   113    { MethodType=Event }
   114    Procedure OnComFontChanged String llPropertyName
   115    End_Procedure
   116
   117    { Visibility=Private NoDoc=True }
   118    Procedure RegisterComEvents
   119        Send RegisterComEvent 9 msg_OnComFontChanged
   120    End_Procedure
   121End_Class
   122
   123// CoClass
   124// ProgID: StdFont
   125// CLSID: {0BE35203-8F91-11CE-9DE3-00AA004BB851}
   126{ HelpTopic=cComStdFont }
   127Class cComStdFont is a cComAutomationObject
   128    Import_Class_Protocol cComFont
   129    Import_Class_Protocol cComFontEvents
   130
   131    Procedure Construct_Object
   132        Forward Send Construct_Object
   133        Set psProgID to "{0BE35203-8F91-11CE-9DE3-00AA004BB851}"
   134    End_Procedure
   135End_Class