AutoIt Français

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1) ; Use event trapping for tray menu
Opt("TrayMenuMode", 3) ; Default tray menu items will not be shown.
; ...
Func ShowUI()
    $mnuTrayShowHide = TrayCreateItem("Cacher")
    TrayItemSetOnEvent(-1, "mnuTrayShowHideOnClick")
    TrayCreateItem("")
    TrayCreateItem("Sortie")
    TrayItemSetOnEvent(-1, "OnExit")

    $Win = GUICreate("Demarrer Script PSM", @DesktopWidth / 2 - 255, 188, 192, @DesktopHeight / 2 - 45, $WS_OVERLAPPEDWINDOW);$WS_SIZEBOX + $WS_MINIMIZE)
    GUISetBkColor(0x00E0FFFF)   ;window backgrd = light blue

    $lblVEList = GUICtrlCreateLabel("Liste de VE", 4, 8, 37, 17)
    GUICtrlSetResizing ( $lblVEList, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP )

    $lbVE = GUICtrlCreateList("", 4, 24, 65, 168) ; listbox pour imprimantes virtuelles
    GUICtrlSetResizing ( $lbVE, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP + $GUI_DOCKBOTTOM )
    GUICtrlSetOnEvent ( $lbVE, "lbVEOnClick" )

    $lblJobs = GUICtrlCreateLabel("Travaux d'impression disponibles", 74, 8, 92, 17)
    GUICtrlSetResizing ( $lblJobs, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP )

    $lbJobs = GUICtrlCreateList("", 74, 24, 92, 168) ; listbox pour travaux d'impression
    GUICtrlSetResizing ( $lbJobs, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )

    $CM = GUICtrlCreateContextMenu($lbJobs)
    $mnuCopy = GUICtrlCreateMenuItem("Copier", $CM)
    GUICtrlSetOnEvent ( $mnuCopy, "mnuCopyOnClick" )

    $lblScripts = GUICtrlCreateLabel("Scripts Disponibles", 170, 8, 88, 17)
    GUICtrlSetResizing ( $lblScripts, $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKRIGHT )

    $btnRefreshScripts = GUICtrlCreateButton ( "Rafraichir", 262, 2, 52, 22)
    GUICtrlSetResizing ( $btnRefreshScripts, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnRefreshScripts, "btnRefreshScriptsOnClick" )

    ; listbox pour les scripts de modification d'impression
    $lbScripts = GUICtrlCreateList("", 170, 24, 146, 168, BitOR($GUI_SS_DEFAULT_LIST, $WS_HSCROLL))
    GUICtrlSetResizing ( $lbScripts, $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )
    GUICtrlSetOnEvent ( $lbScripts, "lbScriptsOnClick" )

    $btnGo = GUICtrlCreateButton("&Demarrer", @DesktopWidth / 2 - 320, 24, 60, 25)
    GUICtrlSetResizing ( $btnGo, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnGo, "btnGoOnClick" )
    GUICtrlSetState ( $btnGo, $GUI_DISABLE )

    $btnEditScript = GUICtrlCreateButton ( "Editer Script", @DesktopWidth / 2 - 320, 56, 60, 25)
    GUICtrlSetResizing ( $btnEditScript, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnEditScript, "btnEditScriptOnClick" )
    GUICtrlSetState ( $btnEditScript, $GUI_DISABLE )

    $btnExit = GUICtrlCreateButton("&Sortie", @DesktopWidth / 2 - 320, 88, 60, 25)
    GUICtrlSetResizing ( $btnExit, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnExit, "OnExit" )

    GUISetState(@SW_SHOW)

    PopulateVEs()
    PopulateScripts()

    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "mnuTrayShowHideOnClick")
    GUISetState()  ;

    While 1
        Sleep ( 1000 )
    WEnd
EndFunc