explorerBar on the right

[Silvio.Falconi]

how do i create an explorebar all the way to the right as it is marked in the figure with the red arrow?
in the left (oclient) part I show a windows

I tried wih

Code: Select all | Expand

function Main()

   local oWnd, oBar, oMenu
   local oExBar,oPanel1
   SetGetColorFocus()

   DEFINE WINDOW oWnd MDI TITLE "FWH18.08: DIALOG IN MDICHILD WINDOW"
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
   DEFINE BUTTON OF oBar PROMPT "MDIDLG-OLD" CENTER ACTION DlgInMdiChildOld()
   DEFINE BUTTON OF oBar PROMPT "MDIDLG-NEW" CENTER ACTION CreateDialog( AS_MDICHILD )
    DEFINE BUTTON OF oBar PROMPT "silvio" CENTER ACTION CreateDialog2( AS_MDICHILD )


   DEFINE BUTTON OF oBar PROMPT "DIALOG"     CENTER ACTION CreateDialog( AS_DIALOG )

   oExBar = TExplorerBar():New()
           oExBar:nLeft:=500
           oExBar:nRight:=200
    oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )

    oWnd:oRight = oExBar
   ACTIVATE WINDOW oWnd

[cnavarro]

Try with

Code: Select all | Expand

oExBar:nRight:=700
 

[Silvio.Falconi]

Try with

Code: Select all | Expand

oExBar:nRight:=700
 

not run

[cnavarro]

Code: Select all | Expand

   oExBar = TExplorerBar():New( , 300, , , oWnd )
//           oExBar:nLeft  := 500
           oExBar:nRight :=200
    oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )

 

[Silvio.Falconi]

Code: Select all | Expand

   oExBar = TExplorerBar():New( , 300, , , oWnd )
//           oExBar:nLeft  := 500
           oExBar:nRight :=200
    oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )

 

here not run