FiveTech Software tech support forums

... 2015, _2015> ];                           [ <l2016: 2016, _2016> ];       => ;          [<oRBar> := ] TRibbonBar():New( <oWnd>, [\{<cPrompt>\}], [{|nOption,nOldOption|<uAction>}], ;    ...

Buenas tardes. Como puedo determinar el ancho de cada pestaña de una RibbonBar declarada asi: oRb := TRibbonBar():New(oWnd, {"Movimientos", "Consultas", "Reportes", "Procesos", "Bases", "Utilitarios", "Seguridad","Extras"}, ...

... an Abs() error. * New: Class TBtnClr developed by Silvio Falconi. Please review samples\TestBtnClr.prg many thanks to Silvio! * Enhancement: Class TRibbonBar new DATA nQuickHigh and nQuickHigh use implementation instead of previous fixed 32 value. Many thanks to Ubiratan! http://fivetechsupport.com/forums/viewtopic.php?p=255649#p255649 ...

CLASS TRibbonBar FROM TControl CLASSDATA lRegistered AS LOGICAL DATA oBold, oFont DATA aLeft DATA aPrompts DATA aDialogs DATA aSizes DATA aGrad DATA aGradFld DATA aGradOver DATA aGradHigh DATA aQuickRGrad DATA nQuickHigh INIT ...

Leandro,

Enhorabuena por solucionarlo y muchas gracias por compartirlo

Bueno después de batallar todo el día, encontré la solución. En el ON PAINT de la venta principal refresque el menu y la RibbonBar. Y ya funciona correctamente.  oWnd:bPainted := {|hDC| FW_DrawImage( hDC, ".\res\fondo-logo.png", { 0,0, 668, 668 } ),;            oRBar...

Buenas tardes para todos Mediante el método de prueba y error, logre determinar que el error se produce al momento hacer el llamado de a función SETPARENT(). El problema es que si la quito el cuadro de dialogo no sale contenido dentro del control tdockpnel. Como les comente anteriormente solo sucede...

... Como estoy haciendo actualizaciones en la aplicación, van surgiendo cosas a medida de avanzamos, en este momento el error de sale es en el control TRibbonBar no ajusta los textos de las pestañas, pero lo raro es que en windows 10 funciona perfectamente, de momento note que el error pasa es con ...

... 5 TAPPLICATION 6 TINI 7 TFONT 8 TWINDOW 9 TCONTROL 10 TICON 11 TBRUSH 12 TMENU 13 TREG32 14 TMENUITEM 15 TMSGBAR 16 TRECT 17 TMSGITEM 18 TTIMER 19 TRIBBONBAR 20 TRPANEL 21 TRBGROUP 22 TRBTN 23 TDIALOG 24 TFSDI 25 TXBROWSE 26 TXBRWCOLUMN 27 TVMENU 28 TC5IMGLIST 29 TVITEM 30 TTABS 31 TSPLITTER 32 ...

... -- FONT,-1710615546,TWINDOW:GETFONT(2995)->TWINDOW:NEW(960)->MAIN(657) -- BRUSH,152049635,TRPANEL:REGISTER(779)->TRPANEL:NEW(50)->TRIBBONBAR:NEW(314)->MAIN(664) -- FONT,-1811279512,TRICHEDIT:REDEFINE(403)->ALTASCLIENTE(1527)->->TXBROWSE:LDBLCLICK(5071)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1801)->TXBROWSE:HANDLEEVENT(11221)->_FWH(3559)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(304)->VERCLIENTES(2036)->(b)MAIN(685)->TRBTN:CLICK(717)->TRBTN:LBUTTONUP(917)->TCONTROL:HANDLEEVENT(1791)->TRBTN:HANDLEEVENT(1575)->_FWH(3559)->WINRUN(0)->TWINDOW:ACTIVATE(1097)->MAIN(761) ...

... 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 TDOLPHINSRV 6 TMENU 7 TREG32 8 TMENUITEM 9 TWINDOW 10 TMDIFRAME 11 TBRUSH 12 TMDICLIENT 13 TCONTROL 14 TRIBBONBAR 15 TRPANEL 16 TRBGROUP 17 TRBTN 18 TQUICKACCESS 19 TMSGBAR 20 TRECT 21 TMSGITEM 22 TTIMER 23 TDOLPHINQRY 24 TDIALOG 25 TXBROWSE 26 TXBRWCOLUMN ...

... TWindow, no actualizaba las coordenadas de la ventana. Ahora está corregido. * Correción: Pequeña corrección en el método PaintFld() de la clase TRibbonBar para eliminar un mal efecto de pintado en algunas circustancias. * Corrección: En source\function\imgtxtio.prg: Las funciones FW_SayText() ...

April/May 2019 ========= * Fix: Class TWindow method Center() was not updating the window coordinates. Now it is ok. * Fix: Minor fix in Class TRibbonBar Method PaintFld() to remove a painting artifact under some circunstances. * Fix: source\function\imgtxtio.prg: The functions FW_SayText() and ...

hola, no se si te este tip te pueda ayudar pero quisas te pueda orientar : yo modifique los métodos New, Paint y Painfld de la clase tribbonbar, cree un nuevo parámetro lWin10 para no tocar los originales en el archivo ribbon.ch ribbon.ch #xcommand DEFINE RIBBONBAR [ <oRBar> ] ...

Robert,

As you are using a MDI environment you have to change this line this way:

local oRb := TRibbonBar():New( oWnd:oWndClient )