to Antonio : ERROR Violation <PROTECTED>: NTOPMARG

[Silvio]

I insert a button on ribbonbar with an action

ACTION ChangeColors( oRBar, { { 0.12, 16777215, 10674091 }, { 0.70, 10674091, 32768 }, { 0.18, 32768, 16777215 } } )


//your function to change color on ribbonbar


function ChangeColors( oRb, aGrad )

local hBmp := GradientBmp( oRb, oRb:nRight - oRb:nRightMargin - 3,;
oRb:nBottom - oRb:nTopMargin + 1, aGrad )
local n, j, z, oControl

oRb:aGrad := aGrad

DeleteObject( oRb:hBrushEx )
oRb:hBrushEx = CreatePatternBrush( hBmp )
DeleteObject( hBmp )

oRb:Refresh()

for n = 1 to Len( oRb:aDialogs )
DeleteObject( oRb:aDialogs[ n ]:hBack )
oRb:aDialogs[ n ]:hBack = oRb:hBrushEx
if ! Empty( oRb:aDialogs[ n ]:aControls )
for j = 1 to len( oRb:aDialogs[ n ]:aControls )
oControl = oRb:aDialogs[ n ]:aControls[ j ]
if oControl:ClassName() == "TRBGROUP"
DeleteObject( oControl:hBrushUnsel )
oControl:hBrushUnsel = oRb:hBrushEx
DeleteObject( oControl:hBrushSel )
oControl:hBrushSel = nil
endif
next
endif

oRb:aDialogs[ n ]:Refresh()
next

return nil





WHY IT MAKE ERROR ?

[Otto]

Hello Silvio,

why don’t you post a self-contained sample?
Regards,
Otto

[Daniel Garcia-Gil]

Hello Silvio...

This error is generated because you try change the nTopMargin value ... we can not modify this value

[Silvio]

ChangeColors function wrote by Antonio Linares

[Daniel Garcia-Gil]

Silvio...

I dont talk about this function.... maybe you have this error in other lines

[Silvio]

NO


I insert on circle button You can see in this picture a popupmenu

oBtnCircle:bAction:={ | nRow, nCol | Config_Ribbon(oBtnCircle, nRow, nCol,oRBar )}


.....



Function Config_Ribbon(obutton, nRow, nCol,oRBar )

local oMenu

MENU oMenu POPUP 2007
MENUITEM "&Green Style" ACTION ChangeColors( oRBar, { { 0.12, 16777215, 10674091 }, { 0.70, 10674091, 32768 }, { 0.18, 32768, 16777215 } } )
MENUITEM "&Silver Style"
MENUITEM "&Windows 7 Style"
MENUITEM "&Default" ACTION ChangeColors( oRBar, { {0.12, BLUE0, BLUE0 }, { 0.70, BLUE1, BLUE0 }, { 0.18, BLUE0, CLR_WHITE }} )
ENDMENU

ACTIVATE MENU oMenu AT nRow, nCol OF obutton


obutton :refresh()
oRBar:refresh()

return NIL





Any Idea ? How I can resolve the problem ?

[Silvio]

Daniel if I rem protected it run ok