FiveTech Software tech support forums

Code: Select all | Expand

#include   "FiveWin.ch"
#include   "Splitter.ch"

#define ID_TOP       60
#define ID_FXBAR     68

*+--------------------------------------------------------------------
*+
*+    Function Main()
*+
*+--------------------------------------------------------------------
*+

FUNCTION Main()

LOCAL oWnd, oFld1, oFld2, oSplit, nPart
LOCAL nHeight, nWidth
LOCAL oBtn1, oBtn2, oBtn3, oBtn4,oBtn5, oBtn6, oBtn7, oBtn8,oBar
LOCAL ii, oBtn0, nCol := 0, aButton := {}
LOCAL bAction := { || MsgInfo( "hello Main" ) }
LOCAL nSplit:= 490

local cFolderBmps:="C:\work\fwh\"
local oBrush1,oFontTitle,oFontText



DEFINE BRUSH oBrush1 COLOR CLR_WHITE //RGB( 245,245,235)
   DEFINE FONT oFontTitle  NAME "Segoe UI Light" SIZE 0, -18  BOLD
   DEFINE FONT oFontText   NAME "Segoe UI Light" SIZE 0, -12

DEFINE WINDOW oWnd FROM 0, 0 TO 600, 800 PIXEL TITLE "test splitter"

      DEFINE BUTTONBAR oBar OF oWnd 2013 SIZE 70, 60

      nWidth := oWnd:nWidth / 2
      nHeight := oWnd:nHeight


      oFld1 := TEXplorerBar():New( 0, 0, nSplit, , oWnd)
      oFld1:nTopColor     := RGB( 240,240,240)
      oFld1:nBottomColor  := RGB( 240,240,240)

      oBtn1:=  oFld1:AddPanel("Name Panel 1", cFolderBmps+"people.bmp"  ,80 )
      oBtn3:=  oFld1:AddPanel("Name Panel 3", cFolderBmps+"people.bmp"  ,80 )
      oBtn4:=  oFld1:AddPanel("Name Panel 4", cFolderBmps+"people.bmp"  ,80 )
      oBtn5:=  oFld1:AddPanel("Name Panel 5", cFolderBmps+"people.bmp" ,80 )

      For n=1 to len(oFld1:aPanels)
       oFld1:aPanels[n]:nRound  := 0
       oFld1:aPanels[n]:aGradient := { { CLR_WHITE, CLR_WHITE }, {CLR_WHITE, CLR_WHITE } }
       oFld1:aPanels[n]:nTitleHeight := 40
       oFld1:aPanels[n]:lCollapsed :=.f.
       oFld1:aPanels[n]:lSpecial = .t.
       oFld1:aPanels[n]:oBrush:=  oBrush1
       oFld1:aPanels[n]:nClrTextSpecial :=RGB(255,165,0)
       oFld1:aPanels[n]:lOverTitle  :=.f.
       oFld1:aPanels[n]:oFont:=  oFontTitle
       oFld1:aPanels[n]:nTopMargin := 1
    next


      oFld2 := TEXplorerBar():New( 0, 0, nWidth - 5, , oWnd)
      oFld2:nTopColor     := RGB( 240,240,240)
      oFld2:nBottomColor  := RGB( 240,240,240)

      oBtn2:=  oFld2:AddPanel("Name Panel 2", cFolderBmps+"case.bmp"  ,80 )
      oBtn6:=  oFld2:AddPanel("Name Panel 6", cFolderBmps+"case.bmp"  ,80 )
      oBtn7:=  oFld2:AddPanel("Name Panel 7", cFolderBmps+"case.bmp"  ,80 )


      For n=1 to len(oFld2:aPanels)
       oFld2:aPanels[n]:nRound  := 0
       oFld2:aPanels[n]:aGradient := { { CLR_WHITE, CLR_WHITE }, {CLR_WHITE, CLR_WHITE } }
       oFld2:aPanels[n]:nTitleHeight := 40
       oFld2:aPanels[n]:lCollapsed :=.f.
       oFld2:aPanels[n]:lSpecial = .t.
       oFld2:aPanels[n]:oBrush:=  oBrush1
       oFld2:aPanels[n]:nClrTextSpecial :=RGB(255,165,0)
       oFld2:aPanels[n]:lOverTitle  :=.f.
       oFld2:aPanels[n]:oFont:=  oFontTitle
       oFld2:aPanels[n]:nTopMargin := 1
    next


      @ ID_TOP,nSplit+2 SPLITTER oSplit ;
              VERTICAL ;
              PREVIOUS CONTROLS oFld1 ;
              HINDS    CONTROLS oFld2 ;
              LEFT MARGIN 1 ;
              RIGHT MARGIN 1 ;
              SIZE 0.5, nHeight - 98 PIXEL ;
              ON CHANGE DoResize( oWnd, oSplit, oFld1, oFld2 ) ;
              COLOR CLR_BLUE ;
              OF oWnd


     oSplit:lStatic:=.t.
     oSplit:AdjLeft()


    oWnd:aMinMaxInfo := { nil, nil, ,, 750,550, , }

   ACTIVATE WINDOW oWnd ;
           ON RESIZE DoResize( oWnd, oSplit, oFld1, oFld2 ) CENTER

RETURN NIL


PROCEDURE DoResize( oWnd, oSplit, oFld1, oFld2 )

LOCAL nTop       := oWnd:nTop
LOCAL nBottom    := oWnd:nBottom
LOCAL nRight     := oWnd:nRight
LOCAL nLeft      := oWnd:nLeft
LOCAL nHeight    := nBottom - nTop
LOCAL nPart      := oWnd:nWidth / 12
LOCAL nLeftWidth, nRightWidth
LOCAL ii, oBtn, nCol := 0
LOCAL oCtrol

   // ************************ left *************************

   oSplit:AdjLeft()
   oSplit:nTop    := ID_TOP
   oSplit:nHeight := nHeight - ID_TOP - ID_FXBAR

   oCtrol := oSplit:aPrevCtrols[ 1 ]
   nLeftWidth     := oCtrol:nWidth

   IF nLeftWidth > oWnd:nWidth
      nLeftWidth  := oWnd:nWidth - 100
      oSplit:SetPosition( nLeftWidth )
   ENDIF

   oCtrol:nLeft   := 0
   oCtrol:nRight  := nLeftWidth
   oCtrol:nTop    := ID_TOP
   oCtrol:nBottom := nHeight - ID_FXBAR - 130
   oCtrol:SetSize( nLeftWidth, nHeight - ID_FXBAR - 40 )



   // ************************ right *************************

   oSplit:AdjRight()
   oSplit:nTop    := ID_TOP
   oSplit:nHeight := nHeight - ID_TOP - ID_FXBAR

   oCtrol := oSplit:aHindCtrols[ 1 ]
   nRightWidth    := oCtrol:nWidth

   oCtrol:nLeft   := nLeftWidth
   oCtrol:nRight  := nRightWidth
   oCtrol:nTop    := ID_TOP
   oCtrol:nBottom := nHeight - ID_FXBAR - 130
   oCtrol:SetSize( nRightWidth, nHeight - ID_FXBAR - 40 )



   // ************************ NEED again *************************

   oFld1:SetPos( ID_TOP, 0 )
   oFld1:SetSize( nLeftWidth, nHeight - ID_FXBAR - 40 )



   oWnd:Refresh()
RETURN