I tried to modify the ribbon class to insert a circular button and a small buttonbar on top ( with the possibilty to insert small buttons on it)
this is the result
First problem : the circular button is not transparent
Second problem :the small buttonbar is not as small bar of ribbonbar of the office bar 2007
It must be as this picture
but I not found a solution to create it with polypoligon function
What I made ?
I add these DATA
DATA oBtnCircular
DATA oBtnSmallBar
And on New Method I add these Lines :
// to create small bar
::oBtnSmallBar1 := TRBGroup():New(self, 1, 60,;
30, ::nRight , ;
2, , , , ,,;
::hBrushEx, , , , Self, )
// to create circular button
::oBtnCircular := TRBtn():New(2, 2, 50, 50, "c:\work\fwh\bitmaps\btnstr0.bmp", ;
, Self )
then I try to insert button on small buttonbar But I think this must be made with other commands
::oBtnSmallBar1: AddButton( 2, 2, 28, 20, , ;
,, , "C:\work\FWH\bitmaps\16x16\new2.bmp", , ;
.t., , , , , )
::oBtnSmallBar1: AddButton( 2, 32, 28, 20, , ;
,, , "C:\work\FWH\bitmaps\16x16\save.bmp", , ;
.t., , , , , )
::oBtnSmallBar1: AddButton( 2, 60, 28, 20, , ;
,, , "C:\work\FWH\bitmaps\16x16\inspect.bmp", , ;
.t., , , , , )
::oBtnSmallBar1: AddButton( 2, 60, 28, 20, , ;
,, , "C:\work\FWH\bitmaps\16x16\inspect.bmp", , ;
.t., , , , , )
but it is only my idea ..Antonio and Daniel could modify it ...