#include "windows.ch"
#include "ntkgdi.ch"
#include "ntkedget.ch"
#include "ntkbtn.ch"
#include "ntkmsg.ch"
#include "ntkacc.ch"
#include "ntkmenus.ch"
#include "ntkdlg.ch"
#include "wntk.ch"
#include "ntkcmd.ch"
#include "ntkcmdex.ch"
#include "wNtkKeys.ch"

#define  ID_BTN_TEST    8001


PROCEDURE MAIN(hWndP)
Local hWndMain

Private aGetList := {}
Private aBtnList := {}


// Create a (minimalistic) main application container
CREATE WINDOW hWndMain  ;
       AT 0,0 SIZE CW_USEDEFAULT, CW_USEDEFAULT ;
       TITLE "Testing NtkArrayView() function..."


// Switch to row/col mode. not the best, but handy ;)
SET PIXEL MODE OFF   // default is always ON
SET ROW RATIO TO 20  // default is set to 20 pixels
SET COL RATIO TO  8  // default is set to  8 pixels.


// Create a basic action button
@ 00,00 BUTTON  CHR(13)+"&Go Test!"  SIZE 03,10   ;
                 ID ID_BTN_TEST                   ;
                 TYPE  NTK_BT_OWNERDRAWN          ;
                 STYLE BS_CENTER                  ;
                 ACTION DoTest(hWndMain)          ;
                 OF hWndMain                      ;
                 MESSAGE "Run NtkArrayView() test"

NTK_CenterWindow(hWndMain)
ACTIVATE WINDOW hWndMain NORMAL


AUTO HANDLE EVENTS OF WINDOW hWndMain  ;
            USING BUTTON LIST aBtnList



CLOSE WINDOW hWndMain

RETURN(Nil)



// Syntax: NtkArrayView( hWnd, nTop, nLeft, nBottom, nRight, cWinTitle,
//                      aRowHeaders, aRowDatas, aRowSizes, aCfg, nWinStyle )
PROCEDURE DoTest(hWndP)
LOCAL nChoix
LOCAL hFontMenu := NTK_GetStockObject(ANSI_VAR_FONT)
LOCAL aMenuTitle := { "- Votre Choix ? -" }
LOCAL aMenuData  := { "Editer la Fiche courrante    ",;
                      "Liste des employés (couleur) ",;
                      "Liste détaillée des employés " }

LOCAL aCfg := {}   // array of settings to be passed to NtkArrayView()
     AADD( aCfg, { "sbHorz"        , .F.            })
     AADD( aCfg, { "sbVert"        , .F.            })
     AADD( aCfg, { "colGrids"      , .F.            })
     AADD( aCfg, { "ShowNumbers"   , .T.            })
     AADD( aCfg, { "NubColor"      , NTK_RGB(064,064,255)   })
     AADD( aCfg, { "nuBAlign"      , DT_RIGHT     })
     AADD( aCfg, { "nubWidth"      , -1   })
     AADD( aCfg, { "headFont"      , hFontMenu })




SET RGB COLOR TEXT NTK_RGB(225,225,225) BACKGND NTK_RGB(0,55,111)

// Syntax:
// NtkArrayView( hWnd, nTop, nLeft, nBottom, nRight, cWinTitle, aRowHeaders, aRowDatas, aRowSizes, aCfg, nWinStyle )

nChoix := NtkArrayView( hWndP, 06,68 , (06+08), (68+36),;
                        "MENU IMPRESSION...",;
                        aMenuTitle, aMenuData, Nil,;
                        aCfg, WND_FIXED ) // WS_DLGFRAME )

CLEAR TYPEAHEAD
IF nChoix==1
   NTK_MsgBox( hWndP, "Your Select "+STR(nChoix) , "Perhatian..!!!", MB_ICONEXCLAMATION+MB_OK)
   // PRT_EMPL_FORM()
ELSEIF nChoix==2
   NTK_MsgBox( hWndP, "Your Select "+STR(nChoix) , "Perhatian..!!!", MB_ICONEXCLAMATION+MB_OK)
   // PRT_EMPL_LIST(2)   // Liste Couleurs
ELSEIF nChoix==3
   // PRT_EMPL_LIST(1)   // Liste Détaillée
   NTK_MsgBox( hWndP, "Your Select "+STR(nChoix) , "Perhatian..!!!", MB_ICONEXCLAMATION+MB_OK)
ENDIF
RETURN