DCMENU

[Wolfgang Ciriack]

Hi Roger,

Maybe the best thing is for you to write your own owner-drawing system using SUBCLASS, like Tom Liehr does with the browse system.

I don't see SUBCLASS in the dcdialog.ch for DCMENU...
How can I subclass the DCMENUITEM for changing the :measureitem function in ownerdraw menus ?

[Wolfgang Ciriack]

Hi Roger,
is subclassing for DCMENUITEMS implemented ?

[rdonnay]

It looks like it is not implemented.

I will work on this.

[Wolfgang Ciriack]

Thank you.

[Auge_Ohr]

How can I subclass the DCMENUITEM for changing the :measureitem function in ownerdraw menus ?

as i know o:measureItem work only once while XBPMENUBAR_MIA_OWNERDRAW ( no Advance ) is used in Methode addItem() by Alaska.


for my native Controls i use this Code with ot4xb

Code: Select all

   ::oMeasureitemstruct    := MEASUREITEMSTRUCT():NEW()
   ::oMeasureitemstruct:_link_(lp,.F.)
//
// Member of MEASUREITEMSTRUCT()
//
   nCtlType    := ::oMeasureitemstruct:CtlType
   nCtlID      := ::oMeasureitemstruct:CtlID
   nitemID     := ::oMeasureitemstruct:itemID
   nWidth      := ::oMeasureitemstruct:itemWidth
   nHeight     := ::oMeasureitemstruct:itemHeight
   nitemData   := ::oMeasureitemstruct:itemData

   IF ::oMeasureitemstruct:itemID == -1
      RETURN
   ENDIF
   //
   // use Xbase++ Codeblock
   //
      IF VALTYPE( ::MeasureItem ) == "B"

         ::aDims := { ::oMeasureitemstruct:itemWidth ,;
                      ::oMeasureitemstruct:itemHeight  }

         aOld  := ACLONE(::aDims)
         //
         // now "send" it to Xbase++
         //
         EVAL( ::MeasureItem, ::oMeasureitemstruct:itemID , ::aDims , Self)

         //
         // after EVAL() if aDims have change "write" back to Structur
         //
         IF aOld[1] <> ::aDims[1]
            ::oMeasureitemstruct:itemWidth  := ::aDims[1]
         IF aOld[2] <> ::aDims[2]
            ::oMeasureitemstruct:itemHeight := ::aDims[2]
         ENDIF
         RETURN

      ENDIF
   ...

perhaps you can try to modify Measureitem Structur this Way.

[rdonnay]

I added sub-classing capability to DC_XbpMenu() and DC_XbpMenuBar().

Copy the attached _DCGETBX.PRG file to \exp19\source\dclipx and run BUILD19_SL1.BAT to rebuild DCLIPX.DLL.