... embargo tengo un control en que no se cómo tengo que cambiar la fuente, que es el ribbonbar. A este control le asigno la fuente de esta manera: ::oRebar:SetFont(::oFont) pero lo que hace es que cambia la fuente al título de las pestañas pero no a los títulos de los botones de dentro. Podeis ver ...
... on tab 1 I have a group only when lShowMenuVeloci is true IF oThis:lShowMenuVeloci ADD GROUP ::oGrMenuVeloci RIBBON ::oRebar TO OPTION 1 WIDTH 130 PROMPT "menu veloci" Endif this group is on I draw a red arrow on tab 4 I insert a rbbtn and I can select if ...
how disable /enable a button on ribbonbar? with oBtn[16]:Disable() oApp:oRebar:refresh() not run, so this is the error Application=========== Path and name: C:\Users\silvio\Desktop\Release_TPlan\Fsdi_tdatabase\main.Exe (32 bits) Size: ...
... it can be switched on intermittently IF oBeach:eof() Msginfo("The beach has not been configured correctly. Create a new structure") oApp:oRebar:nOption= 5 oApp:oRebar:refresh() return nil ENDIF and I wish open a tab of Ribbonbar I try with oApp:oRebar:nOption= 5 this select the tab number ...
... RGB(54,54,54) I assume you mean for the mouse over color (it is not a gradient so there is only one color). The color I have is RGB(197,197,197) oRebar:hSeparation := 6 I use a value of 2 which seems about right I used :hSeparation := 4 based on my font Verdana ...
I found the error Create a rIbbonbar with L2016 colors ::oRebar := TRibbonBar():New(::oWndMain, aRbPrompts,,nOption,,nHeightRib, 26, , ,,,,,,,,.t.,) ::oRebar:l2016:=.t. If I create a GROUP ADD GROUP oGr1 RIBBON ::oRebar TO OPTION 2 WIDTH 480 PROMPT "Gestione" ...
Sorry , I made a n mistake on last releae there is the option l2016 Using the ribbon class I found an error I explain you I set ::oRebar := TRibbonBar():New(::oWndMain, aRbPrompts,,nOption,,nHeightRib, 26, , ,,,,,,,,.t.,) ::oRebar:l2016:=.t. ::oRebar:nRoundBox := 0 I see right the color ...
https://www.howtogeek.com/wp-content/uploads/2016/05/01_clicking_file_tab.png I think oRebar:nHeightFld := 22 oRebar:hSeparation := 6 the tabs are more near to another look the image then I found this at word2016 https://www.howtogeek.com/wp-content/uploads/2015/09/07_new_preset_styles_for_shapes.png
... aGradHigh, aGradOver, l2016 ) CLASS TRibbonBar I send to linares my modifies on prg #define COLOR_MENUHILIGHT 29 //051,153,255 IF IsWindows10() ::oRebar:l2016:=.t. ::oRebar:nRoundBox := 0 ::oRebar:nClrPaneRB := GetSysColor( COLOR_MENUHILIGHT ) else ::oRebar:l2010:=.t. endif we add also the possibility ...
ADD GROUP oGr2 RIBBON ::oRebar TO OPTION 1 WIDTH 660 PROMPT "Selezione elemento da visualizzare" @ 05,292 GET aGetdata[5] VAR nDalElemento SIZE 80,55 PIXEL OF oGr2 ; BITMAP ".\bitmaps\sel.bmp" ACTION NIL @ 05,392 GET ...
I tested this code. DEFINE TOOLBAR is not functioning if the OF <owin> clausula is directed to oReBar!? function Main() local oWnd , oReBar , oFactor , nFactor , oBar , oMenu , oImagelist DEFINE WINDOW oWnd TITLE "Test ReBar" COLOR CLR_BLACK,CLR_LIGHTGRAY ...