FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New FWH 16.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
New FWH 16.06
Posted: Sun Aug 07, 2016 07:04 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 07:34 AM
Antonio Linares wrote:http://forums.fivetechsupport.com/viewtopic.php?f=16&t=32792&start=0

Hi Antonio,

Is MSVC 2015 libs included?
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 08:53 AM

Yes, 2015

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 09:02 AM
Horizon wrote:
Antonio Linares wrote:http://forums.fivetechsupport.com/viewtopic.php?f=16&t=32792&start=0

Hi Antonio,

Is MSVC 2015 libs included?


What about 2013?
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 09:07 AM

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

When will you migrate to 2015 ? :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 10:21 AM

Hi Antonio,

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

I wrote "2015" wrongly.? :oops:

I try to write 2013. :(

Sorry.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 11:07 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 16.06
Posted: Sun Aug 07, 2016 02:37 PM

Hakan,

Tomorrow I will send you the VS 2013 libs

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:24 PM
In the following code, that was working fine in the previous FWH release:

Code (fw): Select all Collapse
    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 (fw): Select all Collapse
Error BASE/1082  Argument error: -


What is the problem?

EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:37 PM
This is a sample showing the error:

Code (fw): Select all Collapse
#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
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:41 PM
Reduced sample:

Code (fw): Select all Collapse
#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
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:46 PM
Another smaller sample:

Code (fw): Select all Collapse
#include "Fivewin.ch"
#include "Ribbon.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    DEFINE RIBBONBAR OF oWnd

    ACTIVATE WINDOW oWnd;
             CENTER

    RETURN NIL


EMG
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:51 PM
Enrico, change line 239 in class

Code (fw): Select all Collapse
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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:53 PM
This is the line with the error (in tribbon.prg):

Code (fw): Select all Collapse
::hBmpBrushEx   = GradientBmp( Self, ::nRight - ::nRightMargin - 3, ::nBottom - ::nTopMargin + 1, ::aGrad )


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

EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: New FWH 16.06
Posted: Mon Aug 08, 2016 02:54 PM
cnavarro wrote:Enrico, change line 239 in class


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

EMG