PC Toledo

Código: Selecionar todos

#include "hwgui.ch"
#define DEFAULT_FONTNAME "MS Sans Serif"
#define WND_TOP 0
#define WND_BOTTOM 1

PROCEDURE Main

   LOCAL oFont
   LOCAL xDlg, cTitle := "test"
   LOCAL aList := MenuCria()

   oFont := HFont():Add( DEFAULT_FONTNAME, 0, -11 )
   INIT DIALOG xDlg ;
      CLIPPER ;
      FONT oFont ;
      NOEXIT ;
      TITLE     cTitle ;
      AT       0, 0 ;
      SIZE      1024, 768
      // BACKCOLOR COLOR_WHITE

   xDlg:cargo := {}
   BrowseMenuBr( xDlg, 10, 10, aList, "PRINCIPAL", 0 )
   ACTIVATE DIALOG xDlg CENTER

   RETURN

STATIC FUNCTION BrowseMenuBr( xDlg, nRow, nCol, aList, cTitulo, nStack )

   LOCAL xBrowse, aBrowseList := {}, aItem, xDlgMenu

   hb_Default( @nRow, 0 )
   hb_Default( @nCol, 0 )
   nStack += 1
   FOR EACH aItem IN aList
      AAdd( aBrowseList, { aItem[1] } )
   NEXT
   IF nStack != 1
      INIT DIALOG xDlgMenu AT nCol, nRow SIZE 200, ( Len( aList ) + 4 ) * 20
   ENDIF
   @ 0, 0 BROWSE xBrowse OF xDlgMenu ;
      ARRAY ;
      SIZE 200, (Len(aList)+2)*20 ;
      STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL ;
      ON CLICK { || browse_click( xDlg, xBrowse, aList, nRow, nCol, nStack ) } ;
      ON RIGHTCLICK { || BrowseDestroy( xDlg, xBrowse, xDlgMenu, nStack ) }

   AAdd( xDlg:Cargo, { xBrowse, xDlgMenu } )
   hwg_CREATEARLIST( xBrowse, aBrowseList )

   xBrowse:aColumns[1]:Heading := cTitulo
   xBrowse:aColumns[1]:length := 50
   xBrowse:SetFocus()
   IF nStack != 1
      xDlgMenu:Activate()
   ENDIF

   RETURN Nil

STATIC FUNCTION Browse_click( xDlg, xBrowse, aList, nRow, nCol, nStack )

   LOCAL nItem

   DO WHILE nStack < Len( xDlg:Cargo )
      Atail( xDlg:Cargo )[ 2 ]:Close()
      aSize( xDlg:Cargo, Len( xDlg:Cargo ) - 1 )
   ENDDO
   nItem := xBrowse:nCurrent
   IF Empty( aList[ nItem, 2 ] )
      hwg_MsgInfo( aList[ nItem, 3 ] )
   ELSE
      BrowseMenuBr( xDlg, nRow + 10, nCol + 50, aList[ nItem, 2 ], aList[ nItem, 1 ], nStack )
   ENDIF
   (xDlg);(xBrowse);(aList)

   RETURN Nil

FUNCTION BrowseDestroy( xDlg, xBrowse, xDlgMenu, nStack )

   IF ValType( xDlgMenu ) == "O" .AND. nStack > 1
      xDlgMenu:Close()
   ENDIF
   (xDlg);(xBrowse)

   RETURN Nil