FiveTech Support Forums

#include "FiveWin.ch"
#include "xbrowse.ch"

*---------------*
function SpcWnd()

   local oWnds, oFont, oBrw, oFont2, oFont3, oTree

    oTree := BuildMenu()

   DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -52    

   DEFINE FONT oFont2 NAME "Segoe UI Light" SIZE 0, -24     // -32

   DEFINE FONT oFont3 NAME "Segoe UI Light" SIZE 0, -16    

   DEFINE WINDOW oWnds STYLE nOr( WS_POPUP, WS_VISIBLE ) ;
      COLOR CLR_BLACK, CLR_WHITE 
      
   @ 1,     7 SAY "Control Panel" FONT oFont SIZE 300, 100
   
//   @ 1, 70 SAY "" FONT oFont SIZE 300, 100
      
   @ 7,     5 XBROWSE oBrw DATASOURCE oTree COLSIZES 500 CELL ;
      FONT oFont2 SIZE 250, 700 NOBORDER OF oWnds

   oBrw:nDataLines = 1
   oBrw:lRecordSelector = .F.
   oBrw:lHeader   = .F.
   oBrw:lHScroll  = .F.
   oBrw:lVScroll  = .F.
   oBrw:nStretchCol = 1
   oBrw:bClrStd = { || { CLR_BLACK, CLR_WHITE } } // RGB( 170, 170, 170 ) 
   oBrw:bClrSelFocus = { || { CLR_WHITE, RGB( 34, 177, 76 ) } }
   oBrw:SetColor( "B/W*" )
   
   oBrw:CreateFromCode()
//  oBrw:aCols[ 1 ]:bPaintText = { | oCol, hDC, cText, aCoors, aColors, lHighlight | DrawRow( oCol, hDC, cText, aCoors, oFont3 )  }
   oBrw:SetFocus()
   
   ACTIVATE WINDOW oWnds MAXIMIZED ;
      ON CLICK ( oWnds:End() )
      
return nil         

*---------------------------*
static function BuildMenu()
local oTree, cDate, n, x, y
local lAddTree
local aItems := {   { "Profile", {'Guest','Company','Member','Reservation','Promote'} }, ;
                    { 'Customer Relation Manangement' , {'Email Advertising','Email Birthday','SMS Email','SMS Birthday'} }, ;
                        { 'Sold Out Items', {'Sold Out Items','Non Sale Items'} }, ;
                        { 'Set Up', {{'Outlet','Outlet','Station','Table'},{'Menu Items','Short-Cut','Group Items'},'Miscellaneous','Print Format','Close Day','User Login','Tax Rate','Main Data'} }, ; 
                        { 'Tax Invoice', {'Issue Tax Invoice','Edit Tax Invoice'} }, ; 
                        { 'Report', {'Cashier Report','Setup Report','Close Day Report'} }, ; 
                        { 'Maintenance', {'File Maintenance','Reset User','Restore Last Backup'} } }
   
    
   TREE oTree
        for n:=1 to len(aItems)
      _TreeItem( aItems[n][1] )
            TREE
        for x := 1 to len(aItems[n][2])
          _TreeItem( aItems[n][2][x] )
          lAddTree := .F.
          if len( aItems[n][2][x] ) > 1
            lAddTree := .T.
            TREE
          end
          if len( aItems[n][2][x] ) > 1
            for y := 2 to len(aItems[n][2][x])
                 _TreeItem( aItems[n][2][x][y] ):Cargo := {|| ConOutlet() }
            next
          end
          if lAddTree
            ENDTREE
          else
          end
            next
            ENDTREE        
    next
   ENDTREE
return oTree