Yes they are BMP's loaded from resources...
What I found out is that if I don't mess with the RibbonBar, everything is ok... The problem was that I was using WS_POPUP. This caused some problems, which I solved with my own refreshing function:
Code: Select all | Expand
FUNCTION RefRBar()
For n = 1 To Len(oRBar:aDialogs)
oRBar:aDialogs[n]:Refresh()
For m = 1 to Len(oRBar:aDialogs[n]:aControls)
oRBar:aDialogs[n]:aControls[m]:Refresh()
For l = 1 to Len(oRBar:aDialogs[n]:aControls[m]:aControls)
oRBar:aDialogs[n]:aControls[m]:aControls[l]:Refresh()
EndFor
EndFor
EndFor
oBtn101:Refresh()
oBtn102:Refresh()
oBtn103:Refresh()
oBtn104:Refresh()
RETURN NIL
This controled the problem with xHarbour, but didn't with Harbour...
I think the problem may also be caused because I paint 4 BTNBMP's in the RibbonBar... But the ribbon is working fine now with the buttons...
So far I removed:
The Window Style,
The refresh function,
The BlurEffect and
The Maximize and Restore Functions
If I Reactivate the Window Style, The Group's brush is lost only on the initial painting of the window, and then is OK... This behavior can be replicated by just using this style in
samples\Ribbon.prg
=====>
Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com
FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate
FiveWin, One line of code and it's done...