FWH - New Office 2007 menus !!!

[Antonio Linares]

Otto,

very nice!

[nageswaragunupudi]

Mr Antonio

Thank you very much. Everything is working wonderful. Also glad you gave the sample illustration of typical Office2007 menu screen shot for the benefit of those like me. Now our menus exactly look like that.

Now what in my view is still remaining is that the List of windows under MDI Windows menu do not have the left vertical bar. I think MRU also look like the same. Here is the example:




Is it the intended behaviour? Or will you make this change also so that the numbers appear in the left vertical bar?

[nageswaragunupudi]

Mr Antonio

A few more points. The checkbox in our menus still do not appear in Orange boxes like in the sample of Office2007 menu.

Are you planning to provide for graying of bitmaps also for the disabled menu items?

[Antonio Linares]

> Or will you make this change also so that the numbers appear in the left vertical bar?

We are working to find a way to implement it

> A few more points. The checkbox in our menus still do not appear in Orange boxes like in the sample of Office2007 menu.

Yes, we are aware of it. Its planned.

> Are you planning to provide for graying of bitmaps also for the disabled menu items?

We want to see first how Office 2007 does it

[Antonio Linares]

Checked items are ready

[nageswaragunupudi]

Thats very nice.
Can you please provide me the updated lib pls?

[Enrico Maria Giordano]

Me too!

EMG

[Enrico Maria Giordano]

The following sample GPFs when you right click on the listbox:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oLbx, nItem

    DEFINE DIALOG oDlg

    @ 0, 0 LISTBOX oLbx VAR nItem

    oLbx:bRClicked = { || MyPopup( oLbx ) }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION MYPOPUP( oLbx )

    LOCAL oMenu

    MENU oMenu POPUP
        MENUITEM "Test"
    ENDMENU

    ACTIVATE MENU oMenu OF oLbx

    RETURN NIL

EMG

[Enrico Maria Giordano]

It is not possible to set preview buttonbar and statusbar to 2007 look.

EMG

[Enrico Maria Giordano]

Sometimes I get the disabled menu items longer than the enabled ones (ie. they break the blue bar of the new menu style) but I'm not able to build a sample of the problem yet.

EMG

[Antonio Linares]

Enrico,

> The following sample GPFs when you right click on the listbox:

Thats a listbox bug. This is the fix:

Code: Select all  Expand view  RUN

METHOD DrawItem( nIdCtl, nPStruct ) CLASS TListBox

return If( ::lOwnerDraw,;
           LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem ),;
           Super:DrawItem( nIdCtl, nPStruct ) )


Many thanks for your feedback

[Antonio Linares]

Enrico,

> It is not possible to set preview buttonbar and statusbar to 2007 look.

From rpreview.prg we could check if the main bar is ::l2007 and then build a buttonbar 2007 instead of a toolbar.

Is that fine ?

[Enrico Maria Giordano]

Thats a listbox bug. This is the fix:

Code: Select all  Expand view  RUN

METHOD DrawItem( nIdCtl, nPStruct ) CLASS TListBox

return If( ::lOwnerDraw,;
           LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem ),;
           Super:DrawItem( nIdCtl, nPStruct ) )


Many thanks for your feedback

Thank you!

EMG

[Enrico Maria Giordano]

Enrico,

> It is not possible to set preview buttonbar and statusbar to 2007 look.

From rpreview.prg we could check if the main bar is ::l2007 and then build a buttonbar 2007 instead of a toolbar.

Is that fine ?

Perfect!

EMG

[Antonio Linares]

Enrico,

getting closer