Error on RibbonBar

[James Bott]

Silvio,

When I referred to 2015 I meant the way it is displayed in File Explorer in Windows 10 in 2015. There doesn't seem to be a l2015 variable in the ribbonbar class. And I don't know if ribbonbars have changed in Windows since 2013. Windows 10 File Explorer looks very similar to FWH's ribbonbar set to the 2013 option (except for the color issue with the tabs).

James

[James Bott]

The Windows 10 File Explorer and the FWH 16.02 ribbonbars are not the same.



The l2013 version (at the bottom of the image) uses gradients and they make the tab text almost impossible to read. I don't know what they were supposed to look like, but as they are now, they are unusable.

The Windows 10 File Explorer shows both the tab and the ribbonbar in a single gray color (not a gradient).

James

[James Bott]

Cristobal (or anyone),

Just wondering if the tab text color has been fixed in a version newer than 16.02?

James

[Antonio Linares]

James,

If you modify FWH\samples\rbdesign.prg and add the 2013 clause:

DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "One", "Two", "Three" HEIGHT 133 TOPMARGIN 25 2013

then the tab text colors look fine

[James Bott]

Antonio,

I am using the 2013 clause with FWH 16.02. Strange that my screenshot doesn't look anything like yours. Have there been changes since 16.02?

James

[James Bott]

Antonio,

I tried compiling rbdesign.prg and I get these errors.

James

Code: Select all  Expand view

Generating C source output to 'rbdesign2.c'...
Done.

Lines 605, Functions/Procedures 23, pCodes 5534
xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
Copyright 1999-2015, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'mnusys05.prg' and generating preprocessed output to 'mnusys05.ppo'...

1 error

No code generated

mnusys05.prg(1) Error E0016  Syntax error: ''
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
rbdesign2.c:
Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_FREOPEN_STDERR' referenced from C:\FWH\SAMPLES\RBDESIGN2.OBJ
Error: Unresolved external '_HB_FUN_HB_COMPILEFROMBUF' referenced from C:\FWH\SAMPLES\RBDESIGN2.OBJ
Error: Unresolved external '_HB_FUN_HB_HRBRUN' referenced from C:\FWH\SAMPLES\RBDESIGN2.OBJ
Error: Unable to perform link
* Linking errors *

Process completed, Exit Code 0.
Execution time: 00:07.482

[nageswaragunupudi]

You need Harbour for those functions. Not xHarbour

[cnavarro]

I do not find sample rbdesign2.prg

[Antonio Linares]

James,

Antonio,

I am using the 2013 clause with FWH 16.02. Strange that my screenshot doesn't look anything like yours. Have there been changes since 16.02?

James

I don't see any significant changes from your version to FWH 16.06 ( to be published very soon)

Could you post here an example to test it ?

You could declare those unresolved externals as dummy functions

[James Bott]

Cristobal,

rbdesing2.prg is just a copy of rbdesign.prg.

Antonio,

I created the dummy functions and it runs and looks like yours. It still looks nothing like my example. I don't know why yet--I'll look some more.

James

[James Bott]

Antonio,

Here is my test program.

James

Code: Select all  Expand view

/*
Purpose  :
Author   : James Bott, jbott@compuserve.com
Date     :
Company  : Intellitech
Copyright: Copyright © 2016 Intellitech
Language : Fivewin 16.02/xHarbour
Updated  :
Notes    : Ribbonbar test

*/

#include "FiveWin.ch"
#include "ribbon.ch"

static oWndMain,oBar

Function Main()

   DEFINE WINDOW oWndMain Title "Ribbonbar Test"

   ribbonbar()

   ACTIVATE WINDOW oWndMain
   
return nil

function ribbonbar()
   Local aRibbonMenu:={"Client","Matter","Billing","Time","Cost"}
   Local nHeightRib:=130
   Local oGr, oGr1,oGr2,oGr3,oGr4,oGr5,oGr6,oGr7,oGr8,oGr9
   Local oBtn1,oBtn2,oBtn3,oBtn4,oBtn5,oBtn6,oBtn7,oBtn8,oBtn9,oBtn10,oBtn11,oBtn12
   Local nOption:= 1
   Local nStart:= 1
   Local oHand:= TCursor():New(,'HAND')

   oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,;
               oWndMain:nWidth, nHeightRib, 26, , , ,;
               , , , , , , .T., nStart )

   oBar:l2013:= .t.
   
return nil

[Antonio Linares]

James,

Please modify nStart this way:

Local nStart := 0

and to set the 2013 style, please do it this way:

Code: Select all  Expand view

  oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,;
               oWndMain:nWidth, nHeightRib, 26, , , ,;
               , , , , , , .F., nStart, .T. )

   // oBar:l2013:= .t.

[James Bott]

Antonio,

OK, that fixed it! Now it looks very much like MS Word 2013.

Thanks.

James