Error on RibbonBar

Re: Error on RibbonBar

Postby James Bott » Tue Jun 14, 2016 7:09 pm

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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby James Bott » Tue Jun 14, 2016 8:31 pm

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

Image

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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby James Bott » Thu Aug 04, 2016 5:33 pm

Cristobal (or anyone),

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

James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby Antonio Linares » Thu Aug 04, 2016 6:10 pm

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

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41436
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Error on RibbonBar

Postby James Bott » Thu Aug 04, 2016 6:34 pm

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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby James Bott » Thu Aug 04, 2016 6:43 pm

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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby nageswaragunupudi » Thu Aug 04, 2016 6:47 pm

You need Harbour for those functions. Not xHarbour
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10316
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Error on RibbonBar

Postby cnavarro » Thu Aug 04, 2016 6:50 pm

I do not find sample rbdesign2.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
User avatar
cnavarro
 
Posts: 6504
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Error on RibbonBar

Postby Antonio Linares » Thu Aug 04, 2016 7:41 pm

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41436
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Error on RibbonBar

Postby James Bott » Thu Aug 04, 2016 7:48 pm

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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby James Bott » Thu Aug 04, 2016 8:02 pm

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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: Error on RibbonBar

Postby Antonio Linares » Thu Aug 04, 2016 8:33 pm

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41436
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Error on RibbonBar

Postby James Bott » Thu Aug 04, 2016 11:06 pm

Antonio,

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

Thanks.

James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 41 guests