#line 17 "ArrayView.PRG"
PROCEDURE MAIN(hWndP)
LOCAL nChoix
LOCAL hFontMenu := NTK_GetStockObject(12)
LOCAL aMenuTitle := { "- Votre Choix ? -" }


LOCAL aMenuData  := { "Editer la Fiche courrante    ", "Liste des employés (couleur) ", "Liste détaillée des employés " }

LOCAL aCfg := {}
     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"      , 2     })
     AADD( aCfg, { "nubWidth"      , -1   })
     AADD( aCfg, { "headFont"      , hFontMenu })

__NTKSetRgbColor( NTK_RGB(225,225,225), NTK_RGB(0,55,111) )







nChoix := NtkArrayView( hWndP, 06,68 , (06+08), (68+36), "MENU IMPRESSION...", aMenuTitle, aMenuData, Nil, aCfg, (2147483648  + 8388608 + 524288) )

NTK_ClearTypeaHead()
IF nChoix==1
   NTK_MsgBox( hWndP, "Your Select "+nChoix , "Perhatian..!!!", 48+0)

ELSEIF nChoix==2
   NTK_MsgBox( hWndP, "Your Select "+nChoix , "Perhatian..!!!", 48+0)

ELSEIF nChoix==3

   NTK_MsgBox( hWndP, "Your Select "+nChoix , "Perhatian..!!!", 48+0)
ENDIF
RETURN