#NoTrayIcon
#include <GUIConstants.au3>
#include <File.au3>
$Filter = "*.ini"
$Flag = "1"
$dbPatch = "D:\Database\"
$Version = "0.7"
$ProgramTitle = "Crew Manager " & $Version
$GUIWidth = 800
$GUIHeight = 600
$GUILeft = (@DesktopWidth - $GUIWidth) / 2
$GUITop = (@DesktopHeight - $GUIHeight) / 2
$CrewListTop = 120
$CrewManager = GUICreate($ProgramTitle, $GUIWidth, $GUIHeight, $GUILeft, $GUITop, $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_OVERLAPPEDWINDOW)
GUISetFont(10, 400, 0, "Tahoma")
GUICtrlCreateLabel("Crew Manager", 210, 0, 555, 65, $SS_CENTER + $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 38, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateLabel("PPC", 125, 70, 255, 20, $SS_CENTER + $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlCreateLabel("PPC Passed Date", 125, 95, 125, 20, $SS_CENTER + $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlCreateLabel("PPC Next Date", 260, 95, 125, 20, $SS_CENTER + $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Crew = _FileListToArray($dbPatch, $Filter, $Flag)
$PPCPassedDate = $Crew
$PPCPassedDateChecker = $Crew
$PPCNextDate = $Crew
$PPCNextDateChecker = $Crew
For $i = 1 To $Crew[0]
GUICtrlCreateLabel(StringReplace($Crew[$i], ".ini", ""), 10, $CrewListTop, 110, 25, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$PPCPassedDate[$i] = IniRead($dbPatch & $Crew[$i], "PPC", "PPCPassedDate", "0000/00/00")
GUICtrlCreateDate($PPCPassedDate[$i], 125, $CrewListTop, 105, 25, 0)
$PPCPassedDateChecker[$i] = GUICtrlCreateLabel("", 230, $CrewListTop, 25, 25, $WS_BORDER)
$PPCNextDate[$i] = IniRead($dbPatch & $Crew[$i], "PPC", "PPCNextDate", "0000/00/00")
GUICtrlCreateDate($PPCNextDate[$i], 260, $CrewListTop, 105, 25, 0)
$PPCNextDateChecker[$i] = GUICtrlCreateLabel("", 365, $CrewListTop, 25, 25, $WS_BORDER)
$CrewListTop = $CrewListTop + 30
Next
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd |
