Test Windows Mdi with panel right

Test Windows Mdi with panel right

Postby Silvio.Falconi » Mon Apr 25, 2022 10:26 am

Image

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

#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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: Test Windows Mdi with panel right

Postby Marcelo Roggeri » Sun May 01, 2022 11:23 pm

Silvio si tienes un video de lo que haces con VB seria bueno para entender bien que quieres lograr.
Saludos
Marcelo
FWH - Harbour - BCC7 - PellesC
User avatar
Marcelo Roggeri
 
Posts: 342
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

Re: Test Windows Mdi with panel right

Postby cnavarro » Mon May 02, 2022 1:34 am

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Test Windows Mdi with panel right

Postby Silvio.Falconi » Mon May 02, 2022 6:56 am

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



Image


I think is a class type "Navigation Pane Control"
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: Test Windows Mdi with panel right

Postby Silvio.Falconi » Mon May 02, 2022 6:59 am

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


I not mean it !!! see the gif animation
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: Test Windows Mdi with panel right

Postby cnavarro » Mon May 02, 2022 9:24 pm

Image
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Test Windows Mdi with panel right

Postby Silvio.Falconi » Mon May 02, 2022 10:07 pm

cnavarro wrote:Image


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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: Test Windows Mdi with panel right

Postby cnavarro » Mon May 02, 2022 11:16 pm

Ok, then with oExplorerBar:Show() or oExplorerBar:Hide() can work
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Test Windows Mdi with panel right

Postby Silvio.Falconi » Mon May 02, 2022 11:48 pm

cnavarro wrote: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

    #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


     


Image

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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: Test Windows Mdi with panel right

Postby Marcelo Roggeri » Tue May 03, 2022 8:57 am

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
FWH - Harbour - BCC7 - PellesC
User avatar
Marcelo Roggeri
 
Posts: 342
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

Re: Test Windows Mdi with panel right

Postby Silvio.Falconi » Tue May 03, 2022 10:26 am

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.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Otto and 78 guests