FiveTech Support Forums

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 32 <---- New

METHOD Paint() CLASS TRibbonBar

...

if ::aQuickRGrad != NIL

  GradientFill( ::hDC, 0, 0, ::nQuickHigh, ::nWidth, ::aQuickRGrad )

endif

...

Dear Ubiratan,

Many thanks

we have included it in the official FWH repo, so next FWH build will include it :-)