FiveTech Support Forums

#include "FiveWin.ch"
#include 'xbrowse.ch'
#include "Splitter.ch"



REQUEST DBFCDX



Function TestDialog()
   Local oDlg, oBrw
   Local oExBar
   Local oTab,oSplit
   Local nMargenLeft :=200
   Local nOrder   := 1
   Local aIdx:={"First","Last"}
   Local cAlias

//----------------------------------------------------------------------------// Open the Customer.dbf
       Db_Open("customer", "CUST" )
       cAlias := cGetNewAlias( "CUST" )


//----------------------------------------------------------------------------//   OPEN DIALOG
      DEFINE DIALOG oDlg  ;
                  SIZE 800,600 ;
                  TITLE "Test ExplorerBar on a Dialog"

      oDlg:SetColor(0,RGB(143,172,230))



//----------------------------------------------------------------------------//   EXPLORER
      oExBar:=TExplorerBar():New(0,0,110,oDlg:nbottom-500,oDlg)



//----------------------------------------------------------------------------//   XBROWSE
   @ 0,  15  XBROWSE oBrw ;
         OF oDlg ALIAS cAlias ;
         AUTOCOLS ;
         LINES FOOTERS NOBORDER

           oBrw:nBottom := 312 -24
           oBrw:nRight:= 390

   WITH OBJECT oBrw
      :nMarqueeStyle          := MARQSTYLE_SOLIDCELL
   END


   oBrw:CreateFromCode()


 //----------------------------------------------------------------------------//  TAB

   @ oBrw:nbottom+1, oBrw:nleft TABS oTab   ;
      OPTION nOrder SIZE oDlg:nWidth()-80, 12 PIXEL OF oDlg  ;
      ACTION ( nOrder := oTab:nOption  ,;
            (cAlias)->(DbSetOrder(nOrder)),;
              oBrw:Refresh(.t.))

               oTab:aPrompts = aIdx





  //----------------------------------------------------------------------------//  SPLITTER

    @ 00, oBrw:nleft-5 SPLITTER oSplit ;
      VERTICAL ;
       COLOR CLR_YELLOW ;
      PREVIOUS CONTROLS oExBar;
      HINDS CONTROLS oBrw, oTab ;
      SIZE 1, oDlg:nBottom  PIXEL ;
      OF oDlg ;
      UPDATE


ACTIVATE DIALOG   oDlg  ON INIT BarExplorer(oExBar)


return nil


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



FUNCTION BarExplorer(oExBar)
   local oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }

  oPanel1:= oExBar:AddPanel( "Panel 1", , 200)
  oPanel1:lSpecial:=.T.
  oPanel2 = oExBar:AddPanel( "Panel 2", , 200)
//  oPanel3 = oExBar:AddPanel( "Panel 3", , 100)
//  oPanel4 = oExBar:AddPanel( "Panel 4", , 200)
//  oPanel5 = oExBar:AddPanel( "Panel 5", , 100)
//  oPanel6 = oExBar:AddPanel( "Panel 6", , 200)


   oPanel1:AddLink( "First item", bClick, "additem" )
   oPanel1:AddLink( "Second item", bClick, "copy" )

   oPanel2:AddLink( "First item", bClick, "adddbf" )
   oPanel2:AddLink( "Second item", bClick, "delete" )
   oPanel2:AddLink( "Third item", bClick, "envelope" )
   oPanel2:AddLink( "Fourth item", bClick, "envelope")
 /*
   oPanel3:AddLink( "First item", bClick, "adddbf" )
   oPanel3:AddLink( "Second item", bClick, "delete" )
   oPanel3:AddLink( "Third item", bClick, "envelope" )
   oPanel3:AddLink( "Fourth item", bClick, "envelope")

   oPanel4:AddLink( "First item", bClick, "adddbf" )
   oPanel4:AddLink( "Second item", bClick, "delete" )
   oPanel4:AddLink( "Third item", bClick, "envelope" )
   oPanel4:AddLink( "Fourth item", bClick, "envelope")

   oPanel5:AddLink( "First item", bClick, "adddbf" )
   oPanel5:AddLink( "Second item", bClick, "delete" )
   oPanel5:AddLink( "Third item", bClick, "envelope" )
   oPanel5:AddLink( "Fourth item", bClick, "envelope")

   oPanel6:AddLink( "First item", bClick, "adddbf" )
   oPanel6:AddLink( "Second item", bClick, "delete" )
   oPanel6:AddLink( "Third item", bClick, "envelope" )
   oPanel6:AddLink( "Fourth item", bClick, "envelope")
                   */


     RETU NIL

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

 FUNCTION Db_Open(cdbf, cAlias )
  use &cDbf ALIAS  &cAlias index &cDbf   VIA 'DBFCDX'
  RETURN .t.