Page 2 of 2
Re: Error on RibbonBar
Posted:
Tue Jun 14, 2016 7:09 pm
by 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
Re: Error on RibbonBar
Posted:
Tue Jun 14, 2016 8:31 pm
by 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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 5:33 pm
by James Bott
Cristobal (or anyone),
Just wondering if the tab text color has been fixed in a version newer than 16.02?
James
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 6:10 pm
by 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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 6:34 pm
by 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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 6:43 pm
by 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
5534xHarbour
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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 6:47 pm
by nageswaragunupudi
You need Harbour for those functions. Not xHarbour
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 6:50 pm
by cnavarro
I do not find sample rbdesign2.prg
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 7:41 pm
by Antonio Linares
James,
James Bott wrote: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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 7:48 pm
by 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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 8:02 pm
by 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
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 8:33 pm
by 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.
Re: Error on RibbonBar
Posted:
Thu Aug 04, 2016 11:06 pm
by James Bott
Antonio,
OK, that fixed it! Now it looks very much like MS Word 2013.
Thanks.
James