FiveTech Software tech support forums

Posted: **Sun Oct 23, 2022 4:28 pm**

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

Posted: **Sun Oct 23, 2022 11:01 pm**

Try with

Code: Select all | Expand


oExBar:nRight:=700

Posted: **Sun Oct 23, 2022 11:04 pm**

cnavarro wrote:Try with
Code: Select all | Expand
oExBar:nRight:=700
 

not run

Posted: **Mon Oct 24, 2022 12:02 am**

Code: Select all | Expand


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

Posted: **Mon Oct 24, 2022 8:13 am**

cnavarro wrote:

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

FiveTech Software tech support forums

explorerBar on the right

explorerBar on the right

Re: explorerBar on the right

Re: explorerBar on the right

Re: explorerBar on the right

Re: explorerBar on the right