New FWH 16.06

[Antonio Linares]

viewtopic.php?f=16&t=32792&start=0

[Horizon]

http://forums.fivetechsupport.com/viewtopic.php?f=16&t=32792&start=0

Hi Antonio,

Is MSVC 2015 libs included?

[Antonio Linares]

Yes, 2015

[Horizon]

http://forums.fivetechsupport.com/viewtopic.php?f=16&t=32792&start=0

Hi Antonio,

Is MSVC 2015 libs included?

What about 2013?

[Antonio Linares]

FWH makefiles only build FWH for a certain Visual Studio version, and we are currently using VS 2015.

When will you migrate to 2015 ?

[Horizon]

Hi Antonio,

Actually not yet. I will try it when i find free time.

I wrote "2015" wrongly.?

I try to write 2013.

Sorry.

[cnavarro]

Please download file image for use mnu01.prg sample

https://bitbucket.org/fivetech/fivewin- ... etechv.png

and sample updated

https://bitbucket.org/fivetech/fivewin- ... /mnu01.prg

[Antonio Linares]

Hakan,

Tomorrow I will send you the VS 2013 libs

[Enrico Maria Giordano]

In the following code, that was working fine in the previous FWH release:

Code: Select all  Expand view

   DEFINE RIBBONBAR oRib OF oDlg;
           HEIGHT 120;
           OPTION 2;
           PROMPT "Regole per l'evento", "Gestione evento", "Controlli su eventi", "Utility", "Esportazioni", "Funzioni"

now I get

Code: Select all  Expand view

Error BASE/1082  Argument error: -

What is the problem?

EMG

[Enrico Maria Giordano]

This is a sample showing the error:

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Ribbon.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    ACTIVATE DIALOG oDlg;
             ON INIT BUILDRIBBONBAR( oDlg );
             CENTER

    RETURN NIL


STATIC FUNCTION BUILDRIBBONBAR( oDlg )

    LOCAL oRib

    DEFINE RIBBONBAR oRib OF oDlg;
           HEIGHT 120;
           OPTION 2;
           PROMPT "Regole per l'evento", "Gestione evento", "Controlli su eventi", "Utility", "Esportazioni", "Funzioni"

    oRib:SetSize( oDlg:nWidth )

    RETURN NIL

EMG

[Enrico Maria Giordano]

Reduced sample:

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Ribbon.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    ACTIVATE DIALOG oDlg;
             ON INIT BUILDRIBBONBAR( oDlg );
             CENTER

    RETURN NIL


STATIC FUNCTION BUILDRIBBONBAR( oDlg )

    DEFINE RIBBONBAR OF oDlg

    RETURN NIL

EMG

[Enrico Maria Giordano]

Another smaller sample:

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Ribbon.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    DEFINE RIBBONBAR OF oWnd

    ACTIVATE WINDOW oWnd;
             CENTER

    RETURN NIL

EMG

[cnavarro]

Enrico, change line 239 in class

Code: Select all  Expand view

METHOD New( oWnd, aPrompts, bAction, nOption,;
            nWidth, nHeight, nTopMargin, nClrPaneRB, nClrBoxOut, nClrBoxIn,;
            nClrBoxSelOut, nClrBoxSelIn, aGrad, aGradFld, aGradHigh, aGradOver, l2010,;
            nStart, l2013, l2015 ) CLASS TRibbonBar

   local oDlg, n, oBrush, hBmp

   DEFAULT l2010 := .F., l2013 := .F., l2015 := .F.
   DEFAULT aPrompts := { "One", "Two", "Three" },;
           oWnd     := GetWndDefault(),;
           nOption  := 1,;
           nWidth   := 200, nHeight := BARHEIGHT,;
           nStart   := 0, nTopMargin    := 25                    // line 239

 

[Enrico Maria Giordano]

This is the line with the error (in tribbon.prg):

Code: Select all  Expand view

::hBmpBrushEx   = GradientBmp( Self, ::nRight - ::nRightMargin - 3, ::nBottom - ::nTopMargin + 1, ::aGrad )

It looks like ::nBottom and/or ::nTopMargin have no value.

EMG

[Enrico Maria Giordano]

Enrico, change line 239 in class

Can we have a new official FWH build with this fix, please?

EMG