      * ACUCLASS.DEF - stock class definitions for ActiveX.

      * Copyright (c) 1999-2014 by Micro Focus.  Users of ACUCOBOL
      * may freely include this file in their COBOL source code.

      * IFontDisp Class - specifies font properties

           OBJECT @AcuClass

           CLASS @IFontDisp
               CLSID, BEF6E003-A874-101A-8BBA-00AA00300CAB
               NAME, "IFontDisp"
               DEFAULT-INTERFACE, "IFontDisp"
      * Name
               PROPERTY-GET, 0, @Name
                       RETURNING "BSTR", TYPE 8
      * Name
               PROPERTY-PUT, 0, @Name,
                   "BSTR (Property Value)", TYPE 8
      * Size
               PROPERTY-GET, 2, @Size
                       RETURNING "CURRENCY", TYPE 6
      * Size
               PROPERTY-PUT, 2, @Size,
                   "CURRENCY (Property Value)", TYPE 6
      * Bold
               PROPERTY-GET, 3, @Bold
                       RETURNING "boolean", TYPE 11
      * Bold
               PROPERTY-PUT, 3, @Bold,
                   "boolean (Property Value)", TYPE 11
      * Italic
               PROPERTY-GET, 4, @Italic
                       RETURNING "boolean", TYPE 11
      * Italic
               PROPERTY-PUT, 4, @Italic,
                   "boolean (Property Value)", TYPE 11
      * Underline
               PROPERTY-GET, 5, @Underline
                       RETURNING "boolean", TYPE 11
      * Underline
               PROPERTY-PUT, 5, @Underline,
                   "boolean (Property Value)", TYPE 11
      * Strikethrough
               PROPERTY-GET, 6, @Strikethrough
                       RETURNING "boolean", TYPE 11
      * Strikethrough
               PROPERTY-PUT, 6, @Strikethrough,
                   "boolean (Property Value)", TYPE 11
      * Weight
               PROPERTY-GET, 7, @Weight
                       RETURNING "short", TYPE 2
      * Weight
               PROPERTY-PUT, 7, @Weight,
                   "short (Property Value)", TYPE 2
      * Charset
               PROPERTY-GET, 8, @Charset
                       RETURNING "short", TYPE 2
      * Charset
               PROPERTY-PUT, 8, @Charset,
                   "short (Property Value)", TYPE 2


           CLASS @IPictureDisp
               CLSID, 7BF80981-BF32-101A-8BBB-00AA00300CAB
               NAME, "IPictureDisp"
               DEFAULT-INTERFACE, "IPictureDisp"
      * PicHandle
               PROPERTY-GET, 0, @PicHandle
                       RETURNING "OLE_HANDLE", TYPE 22
      * hPal
               PROPERTY-GET, 2, @hPal
                       RETURNING "OLE_HANDLE", TYPE 22
      * Type
               PROPERTY-GET, 3, @Type
                       RETURNING "short", TYPE 2
      * Width
               PROPERTY-GET, 4, @Width
                       RETURNING "OLE_XSIZE_HIMETRIC", TYPE 3
      * Height
               PROPERTY-GET, 5, @Height
                       RETURNING "OLE_YSIZE_HIMETRIC", TYPE 3
      * Render
               METHOD, 6, @Render,
               	   "int" @hdc, TYPE 3,
                   "long" @x, TYPE 3,
                   "long", @y, TYPE 3,
                   "long", @cx, TYPE 3,
                   "long", @cy, TYPE 3,
                   "OLE_XPOS_HIMETRIC", @xSRC, TYPE 3,
                   "OLE_YPOS_HIMETRIC", @ySRC, TYPE 3,
                   "OLE_XSIZE_HIMETRIC", @cxSRC, TYPE 3,
                   "OLE_YSIZE_HIMETRIC", @cySRC, TYPE 3,
                   "void *", @prcWBounds, TYPE 16408
