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
Cristobal (or anyone),
Just wondering if the tab text color has been fixed in a version newer than 16.02?
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
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 <!-- m --><a class="postlink" href="http://www.harbour-project.org/">http://www.harbour-project.org/</a><!-- m -->
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.482You need Harbour for those functions. Not xHarbour
I do not find sample rbdesign2.prg
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
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
/*
Purpose :
Author : James Bott, <!-- e --><a href="mailto:jbott@compuserve.com">jbott@compuserve.com</a><!-- e -->
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 oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,;
oWndMain:nWidth, nHeightRib, 26, , , ,;
, , , , , , .F., nStart, .T. )
// oBar:= .t.Antonio,
OK, that fixed it! Now it looks very much like MS Word 2013.
Thanks.
James