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
