Test Windows Mdi with panel right

[Silvio.Falconi]

I would like to have a window in MDI mode with a panel on the right where to place objects such as an xbrowse and the final user can make this panel smaller with a click, and when the panel is closed it must hide to the right
I saw this on a software made in vb, I would like to create it on fwh


test of image

Code: Select all  Expand view  RUN

#include "fivewin.ch"



//----------------------------------------------------------------------------//

    function Main()

       local oWnd, oBarRight, oBar

       SetGetColorFocus()

       DEFINE WINDOW oWnd MDI TITLE "test panel on dx"  HSCROLL VSCROLL
       DEFINE BUTTONBAR oBarRight OF oWnd SIZE 200,32 2007 RIGHT
       DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
     
       ACTIVATE WINDOW oWnd ;
       ON INIT TESTBROWSE(oBarRight)

    return nil

    //----------------------------------------------------------------------------//

     FUNCTION TESTBROWSE(oBarRight)
       LOCAL oBrw
       local adata:= {;
                     {"Bari",55,66,99,88,77},;
                     {"Pescara",55,66,99,88,77},;
                     {"Ancona",55,66,99,88,77},;
                     }
        @ 2,1 XBROWSE oBrw OF oBarRight SIZE 200,oBarRight:nWidth-10 PIXEL NOBORDER;
      COLS 1,2,3,4,5,6;
      HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ;
      SIZES  30,35,35,35,35,35  ;
      ARRAY adata ;
      CELL LINES

        WITH OBJECT oBrw
      :nRowHeight    := 19
      :nClrBorder := CLR_GRAY
      :lDrawBorder := .t.
      :nColorBox := CLR_HRED
      :nMarqueeStyle       := MARQSTYLE_HIGHLWIN7
      *:lHeader             := .f.
      :lHscroll            := .f.
      :lvscroll            := .f.
      :l2007               := .F.
      :l2015               := .f.
      :nStretchCol         := STRETCHCOL_WIDEST
      :lAllowRowSizing     := .F.
      :lAllowColSwapping   := .F.
      :lAllowColHiding     := .F.
      :lRecordSelector     := .F.
      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle    := LINESTYLE_LIGHTGRAY
     * :nRowDividerStyle    := LINESTYLE_NOLINES
      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
      :CreateFromCode()
     End



     return nil


 

I could also use a Tpanel but then it's not good because I would like the child not to go in that part that is the area in the window (owndclient) is determined as it happens with the tbar

[Marcelo Roggeri]

Silvio si tienes un video de lo que haces con VB seria bueno para entender bien que quieres lograr.
Saludos
Marcelo

[cnavarro]

https://bitbucket.org/fivetech/fivewin- ... estmdi.prg

[Silvio.Falconi]

Silvio si tienes un video de lo que haces con VB seria bueno para entender bien que quieres lograr.
Saludos
Marcelo

I think is a class type "Navigation Pane Control"

[Silvio.Falconi]

https://bitbucket.org/fivetech/fivewin-contributions/downloads/testmdi.prg

I not mean it !!! see the gif animation

[cnavarro]

[Silvio.Falconi]

it's no the same
if you look carefully at the panel that opens it does not shrink the window and the Mdi area is always the same as it happens when you try to insert a buttonbar on the left. the test I did above uses a buttonbar just to make you understand what I meant. If I wanted to make an explorerbar with a splitter it was another story.

If you look closely at the example you will see that when I press the button the procedure opens a panel but there is no splitter

[cnavarro]

Ok, then with oExplorerBar:Show() or oExplorerBar:Hide() can work

[Silvio.Falconi]

Ok, then with oExplorerBar:Show() or oExplorerBar:Hide() can work

explorerbar not have the same entity of a buttobar control

pls see this test

Code: Select all  Expand view  RUN

    #include "fivewin.ch"



    //----------------------------------------------------------------------------//

        function Main()

           local oWnd, oBarRight, oBar

           SetGetColorFocus()

           DEFINE WINDOW oWnd MDI TITLE "test panel on dx"  HSCROLL VSCROLL
           DEFINE BUTTONBAR oBarRight OF oWnd SIZE 200,32 2007 RIGHT
           DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
         
           ACTIVATE WINDOW oWnd ;
           ON INIT TESTBROWSE(oBarRight)

        return nil

        //----------------------------------------------------------------------------//

         FUNCTION TESTBROWSE(oBarRight)
           LOCAL oBrw
           local adata:= {;
                         {"Bari",55,66,99,88,77},;
                         {"Pescara",55,66,99,88,77},;
                         {"Ancona",55,66,99,88,77},;
                         }
            @ 2,1 XBROWSE oBrw OF oBarRight SIZE 200,oBarRight:nWidth-10 PIXEL NOBORDER;
          COLS 1,2,3,4,5,6;
          HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ;
          SIZES  30,35,35,35,35,35  ;
          ARRAY adata ;
          CELL LINES

            WITH OBJECT oBrw
          :nRowHeight    := 19
          :nClrBorder := CLR_GRAY
          :lDrawBorder := .t.
          :nColorBox := CLR_HRED
          :nMarqueeStyle       := MARQSTYLE_HIGHLWIN7
          *:lHeader             := .f.
          :lHscroll            := .f.
          :lvscroll            := .f.
          :l2007               := .F.
          :l2015               := .f.
          :nStretchCol         := STRETCHCOL_WIDEST
          :lAllowRowSizing     := .F.
          :lAllowColSwapping   := .F.
          :lAllowColHiding     := .F.
          :lRecordSelector     := .F.
          :nColDividerStyle    := LINESTYLE_LIGHTGRAY
          :nRowDividerStyle    := LINESTYLE_LIGHTGRAY
         * :nRowDividerStyle    := LINESTYLE_NOLINES
          :nColDividerStyle    := LINESTYLE_LIGHTGRAY
          :CreateFromCode()
         End



         return nil


     

if you use explorerbar you don't have Hscroll and Vscroll at the same point

because the internal area of the main window does not end before the explorerbar as in the picture I posted

it would take a control similar to the buttobar but that has only one button and that opens a panel (even with a vertical scroll) in which to insert dialogs
With explorerbar you can't build that

this evening the vb6 exe is bloken and I saw it use these controls : https://github.com/ComponentFactory/Krypton

[Marcelo Roggeri]

Silvio puedes poner una BUTTONBAR, a la derecha con un ancho de 50 y un icono similar, luego ocultas el browse y lo muestras al pulsar.
Hice algo similar, a la tarde de Hs Argentina te paso c{odigo.
Lo de Cristobal es muchoa mas pro
Saludos

[Silvio.Falconi]

La solución de Cristóbal no es lo que quiero decir, tienes que fijarte en el espacio gris que determina el área interna de la ventana en modo MDI, si creas una ventana mdichild se posiciona en el área gris que tienes a los lados tendrá el scrolling hscroll y vscroll. Di un ejemplo porque tomaría una clase como la tbuttonbar que no afecta el área interna de la ventana mdi. Si usa la solución de Cristóbal, no tendrá el desplazamiento de vscroll y hscroll porque debe colocar la clase Explorer dentro del área gris de la ventana mdi. Espero haber explicado la situación.