457 lines
13 KiB
AutoHotkey
457 lines
13 KiB
AutoHotkey
;~ ===============================================================================
|
|
;~ Building and Displaying the Main GUI:
|
|
if (SettingGet("HUD", "ShowOnStartup") = 1)
|
|
Send !{F2}
|
|
|
|
; Improves performance for adding elements to ListView:
|
|
CountUp := db.Query("SELECT * FROM projects")
|
|
CountUp := CountUp.Rows.Count()
|
|
|
|
WinVis = true
|
|
; Buttons for Main Gui Window:
|
|
Gui, 1:Default
|
|
Gui, Add, Button, y3 x15 gAddProject, &Add Project ; Press Alt+A to add project
|
|
Gui, Add, Button, y3 x+1 gEditProject, &Edit Project ; Edit project (Alt+E, and so on)
|
|
Gui, Add, Button, y3 x+1 gAddSubproject vButtonSubproject, Su&bproject ; Create subproject for selected task
|
|
Gui, Add, Button, y3 x+1 gCompleteProject, Project &Done ; Confirm project is done
|
|
Gui, Add, Button, y3 x+1 gRemoveProject, &Remove Project ; Confirm project deletion
|
|
|
|
;~ Search bar:
|
|
Gui, Add, Text, x15 y+1, &Search:%A_Space% ; Pressing Alt+C once focuses on search box
|
|
try {
|
|
Gui, Add, Edit, vSearchQuery gSearch x+1 w320 h20,
|
|
Gui, Add, Button, gClearSearch vClearSearchButton x+1, &Clear ; Pressing Alt+C again clears the search and thus resets the ListView
|
|
|
|
|
|
;~ Filter view by importance:
|
|
Gui, Add, Text, x+10 vImportanceChooseText, &Importance:
|
|
Gui, Add, DropDownList, vImportanceChoose gFilterUpdate x+5 w60, All|| ; Filtering subroutines are located in Search.ahk
|
|
GuiControl, , ImportanceChoose, % ListImportance("All")
|
|
|
|
; Filter view by skill:
|
|
Gui, Add, Text, x+10 vSkillChooseText, S&kill:
|
|
Gui, Add, DropDownList, vFilterSkill gFilterSkillUpdate x+5 r10, All||None|
|
|
GuiControl, , FilterSkill, % ListSkills()
|
|
|
|
; Show done or not:
|
|
Gui, Add, Checkbox, vFilterShowDone gFilterUpdate x+10, Show do&ne
|
|
|
|
; Sidelist:
|
|
SideListWidth = 200
|
|
Gui, Add, ListView, x0 y+15 r20 AltSubmit -Multi vSideList -Hdr gSideListUpdate, ID|Diff|Parent
|
|
|
|
;~ Main ListView:
|
|
Gui, Add, ListView, x+1 r20 AltSubmit -Multi Count%CountUp% vMainList hwndColored_LV_1 gMainListSelect, ID|DifficultyID|ImportanceID|ParentID|ColorID|Difficulty|Project|Importance|Parent
|
|
}
|
|
|
|
; Status bar:
|
|
Gui, Add, StatusBar, ,
|
|
|
|
Colored_LV_1_BG = 5 ;ColorIDCol
|
|
GuiControl, Focus, SearchQuery ; Focus on search bar by default
|
|
|
|
Gui, Show, w827 h600, %AppTitle% ; Show the GUI we've created
|
|
UpdateList() ; Show all projects
|
|
Gui, +Resize +MinSize621x ; Make GUI resizable
|
|
|
|
return
|
|
|
|
;~ ===============================================================================
|
|
;~ Main GUI Resizing information:
|
|
|
|
GuiSize:
|
|
if A_EventInfo = 1 ; The window has been minimized. No action needed.
|
|
return
|
|
; Otherwise, the window has been resized or maximized. Resize the controls to match.
|
|
SBar = 78
|
|
GuiControl, Move, Sidelist, % "H" . (A_GuiHeight - SBar) . " W" . (SideListWidth := A_GuiWidth * .35)
|
|
GuiControl, Move, Mainlist, % "H" . (A_GuiHeight - SBar) . " W" . (A_GuiWidth - (SideListWidth + 5)) . " X" . (SideListWidth+5)
|
|
; Resize search bar to fit dropdown filter controls:
|
|
if (A_GuiWidth > 811) ;827)
|
|
{
|
|
SearchBarWidth := Round(A_GuiWidth*.40)
|
|
}
|
|
else if (A_GuiWidth <= 811)
|
|
{
|
|
SearchBarWidth := Round(A_GuiWidth*.20)
|
|
}
|
|
GuiControl, MoveDraw, SearchQuery, % "w" SearchBarWidth
|
|
GuiControl, MoveDraw, ClearSearchButton, % "x" 50 + SearchBarWidth + 10
|
|
GuiControl, MoveDraw, ImportanceChooseText, % "x" 50 + SearchBarWidth + 55
|
|
GuiControl, MoveDraw, ImportanceChoose, % "x" 50 + SearchBarWidth + 120
|
|
GuiControl, MoveDraw, SkillChooseText, % "x" 50 + SearchBarWidth + 190
|
|
GuiControl, MoveDraw, FilterSkill, % "x" 50 + SearchBarWidth + 220
|
|
GuiControl, MoveDraw, FilterShowDone, % "x" 50 + SearchBarWidth + 350
|
|
return
|
|
|
|
;~ ===============================================================================
|
|
;~ What to do when main window is closed:
|
|
GuiClose:
|
|
ExitApp
|
|
|
|
; ================================================================================
|
|
;~ Right-click context menu actions:
|
|
GuiContextMenu:
|
|
Critical off
|
|
if ((A_GuiControl = "SideList" && A_EventInfo <> 1) || A_GuiControl = "MainList")
|
|
{
|
|
Gui, ListView, %A_GuiControl%
|
|
try
|
|
{
|
|
Menu, RightClick, DeleteAll
|
|
}
|
|
; Right-click/context items:
|
|
if (A_GuiControl = "SideList")
|
|
{
|
|
LV_GetText(SLContextProjName, LV_GetNext(), SLParentNameCol)
|
|
SLContextProjName := StringClip(SLContextProjName, 50)
|
|
Menu, RightClick, Add, % SLContextProjName, MenuHandler
|
|
Menu, RightClick, Disable, % SLContextProjName
|
|
Menu, RightClick, Default, % SLContextProjName
|
|
Menu, RightClick, Add, &Add Project..., MenuHandler
|
|
}
|
|
if (A_GuiControl = "MainList")
|
|
{
|
|
LV_GetText(MLContextProjName, LV_GetNext(), ProjNameCol)
|
|
MLContextProjName := StringClip(MLContextProjName, 50)
|
|
; Grayed-out project name:
|
|
Menu, RightClick, Add, % MLContextProjName, MenuHandler
|
|
Menu, RightClick, Disable, % MLContextProjName
|
|
Menu, RightClick, Default, % MLContextProjName
|
|
; Add subproject option:
|
|
Menu, RightClick, Add, &Add Subproject..., AddSubproject
|
|
}
|
|
Menu, RightClick, Add,
|
|
Menu, RightClick, Add, &Edit Project..., EditProject
|
|
Menu, RightClick, Add,
|
|
Menu, RightClick, Add, Project &Done, CompleteProject
|
|
Menu, RightClick, Add, &Remove Project, RemoveProject
|
|
Menu, RightClick, Show, %A_GuiX%, %A_GuiY%
|
|
}
|
|
;Notification(A_EventInfo)
|
|
return
|
|
|
|
;Main ListView-related Functions==================================================
|
|
; Call to refresh skills list after adding a new skill:
|
|
RefreshSkillsList(SkillChosen="All")
|
|
{
|
|
global
|
|
if (SkillChosen = "All" || SkillChosen = "")
|
|
{
|
|
GuiControl, , FilterSkill, |All||None|
|
|
GuiControl, , FilterSkill, % ListSkills()
|
|
}
|
|
else if (SkillChosen = "None")
|
|
{
|
|
GuiControl, , FilterSkill, |All|None||
|
|
GuiControl, , FilterSkill, % ListSkills()
|
|
}
|
|
else
|
|
{
|
|
PickSkill := ListSkills()
|
|
if (InStr(PickSkill, SkillChosen))
|
|
{
|
|
GuiControl, , FilterSkill, |All|None|
|
|
StringReplace, PickedSkill, PickSkill, %SkillChosen%, %SkillChosen%|
|
|
GuiControl, , FilterSkill, % PickedSkill
|
|
}
|
|
else
|
|
{
|
|
GuiControl, , FilterSkill, |All||None|
|
|
GuiControl, , FilterSkill, % ListSkills()
|
|
}
|
|
}
|
|
GuiControlGet, FilterSkillSelected, , FilterSkill
|
|
}
|
|
|
|
|
|
ListSkills(Selected="")
|
|
{
|
|
global db
|
|
SkillList := Object()
|
|
Skills := db.OpenRecordSet("SELECT DISTINCT skill FROM skills ORDER BY skill")
|
|
while(!Skills.EOF)
|
|
{
|
|
Skill := Skills["skill"]
|
|
If (Skill <> "")
|
|
SkillList.Insert(Skill)
|
|
Skills.MoveNext()
|
|
}
|
|
Skills.Close()
|
|
SkillComboList =
|
|
For Num, Skill in SkillList
|
|
{
|
|
SkillComboList .= Skill . "|"
|
|
if (Selected and Skill = Selected)
|
|
SkillComboList .= "|"
|
|
}
|
|
return SkillComboList
|
|
}
|
|
|
|
ListDifficulty(SetDifficulty="")
|
|
{
|
|
global DifficultyLevels
|
|
For k, v in DifficultyLevels
|
|
{
|
|
if (k = SetDifficulty)
|
|
v := v . "|"
|
|
else if (k = 1 && SetDifficulty <> "All")
|
|
v := v . "|"
|
|
DifficultyFormatted .= v . "|"
|
|
}
|
|
return DifficultyFormatted
|
|
}
|
|
|
|
KeyGet(obj, val)
|
|
{
|
|
for k, v in obj
|
|
{
|
|
if (v = val)
|
|
return k
|
|
}
|
|
}
|
|
|
|
ListImportance(SetImportance="")
|
|
{
|
|
global ImportanceLevels
|
|
For k, v in ImportanceLevels
|
|
{
|
|
if (k = SetImportance)
|
|
v := v . "|"
|
|
else if (k = 1 && SetImportance <> "All")
|
|
v := v . "|"
|
|
ImportanceFormatted .= v . "|"
|
|
}
|
|
return ImportanceFormatted
|
|
}
|
|
|
|
UpdateList(NextSelection="", ImportanceSelected="All", Skill="All", ParentSelected="")
|
|
{
|
|
global
|
|
; The ID of the project - A number from the database:
|
|
IDCol = 1
|
|
; The difficulty level - A number from the database:
|
|
DiffIDCol = 2
|
|
; The importance level - A number from the database:
|
|
ImpIDCol = 3
|
|
; The ID number of the parent - A Number from the database:
|
|
ParentIDCol = 4
|
|
|
|
; The color for the project - A number added from Difficulty rank info:
|
|
ColorIDCol = 5
|
|
|
|
; Readable difficulty text - Text to be deciphered from rank code:
|
|
DifficultyCol = 6
|
|
; Name of the project - Text from the database:
|
|
ProjNameCol = 7
|
|
; Importance of the project - Text to be deciphered from rank number:
|
|
ImportanceCol = 8
|
|
; Name of parent project - Text to be deciphered from database number:
|
|
ParentCol = 9
|
|
|
|
|
|
Critical
|
|
Gui, 1:Default
|
|
Gui, ListView, MainList
|
|
GuiControlGet, SearchString, , SearchQuery
|
|
GuiControl, -ReDraw, MainList
|
|
LV_Delete()
|
|
|
|
; Skills:
|
|
if (Skill = "All")
|
|
{
|
|
Filter := "SELECT * FROM Projects "
|
|
}
|
|
else if (Skill <> "None")
|
|
{
|
|
Filter := "SELECT p.* FROM projects p, skills s WHERE s.projectID = p.ID AND (s.skill IN ('" . Skill . "')) "
|
|
}
|
|
else if (Skill = "None")
|
|
{
|
|
Filter := "SELECT * FROM projects WHERE ID NOT IN (SELECT projectID FROM skills) "
|
|
}
|
|
; Completion state:
|
|
if (Skill <> "None" && Skill <> "All" || Skill = "None")
|
|
Filter .= "AND "
|
|
else
|
|
Filter .= "WHERE "
|
|
if (FilterShowDone = 1)
|
|
Filter .= "(Difficulty = 0 or Difficulty is null) "
|
|
else
|
|
Filter .= "difficulty <> 0 "
|
|
|
|
; Importance level
|
|
if (ImportanceSelected <> "All")
|
|
Filter .= "AND importance = " . KeyGet(ImportanceLevels, ImportanceSelected) . " "
|
|
|
|
; Search string:
|
|
if (SearchString <> "")
|
|
Filter .= "AND project LIKE '%" . SafeQuote(SearchString) "%' "
|
|
|
|
; Parent selected:
|
|
if (ParentSelected <> "")
|
|
Filter .= "AND parent = " . ParentSelected . " "
|
|
|
|
;Notification(ImportanceSelected, Filter)
|
|
|
|
Projects := db.OpenRecordSet(Filter)
|
|
while (!Projects.EOF)
|
|
{
|
|
ID := Projects["id"]
|
|
Difficulty := Projects["Difficulty"]
|
|
Project := Projects["project"]
|
|
Importance := Projects["importance"]
|
|
Parent := Projects["parent"]
|
|
LV_Add("", ID, Difficulty,Importance,Parent,"","", Project,"","" ) ; This where database info is added to main ListView
|
|
Projects.MoveNext()
|
|
}
|
|
Projects.Close()
|
|
GuiControl, -ReDraw, MainList
|
|
LV_ModifyCol(IDCol, "Integer sortdesc") ; Enable this to sort by ID, which could show most recent or oldest first, depending.
|
|
LV_ModifyCol(ImpIDCol, "sort")
|
|
LV_ModifyCol(DiffIDCol, "sort")
|
|
|
|
If (NextSelection)
|
|
LV_Modify(NextSelection, "Focus Select Vis")
|
|
|
|
; Display language from database codes and set colors:
|
|
Times := LV_GetCount()
|
|
Loop % Times
|
|
{
|
|
ThisLine := A_Index
|
|
|
|
; Display parent projects names:
|
|
LV_GetText(ParentID, ThisLine, ParentCol)
|
|
GetParent := db.OpenRecordSet("SELECT project FROM projects WHERE id = " ParentID)
|
|
while (!GetParent.EOF)
|
|
{
|
|
ParentName := GetParent["project"]
|
|
GetParent.MoveNext()
|
|
}
|
|
GetParent.Close()
|
|
LV_Modify(ThisLine, "Col" . ParentCol,ParentName)
|
|
|
|
; Display Difficulty level names and set color codes:
|
|
for k, v in DifficultyLevels
|
|
{
|
|
LV_GetText(DifficultyCode, ThisLine, DiffIDCol)
|
|
if (k = DifficultyCode)
|
|
{
|
|
LV_Modify(ThisLine, "Col" . DifficultyCol, v)
|
|
LV_Modify(ThisLine, "Col" . ColorIDCol, Colors[k])
|
|
}
|
|
else if (DifficultyCode = "" || DifficultyCode = 0)
|
|
{
|
|
LV_Modify(ThisLine, "Col" . DifficultyCol, "Done")
|
|
LV_Modify(ThisLine, "Col" . ColorIDCol, BGR("F5FFFA"))
|
|
}
|
|
}
|
|
|
|
; Display Importance level names:
|
|
for k, v in ImportanceLevels
|
|
{
|
|
LV_GetText(ImportanceCode, ThisLine, ImpIDCol)
|
|
if (k = ImportanceCode)
|
|
{
|
|
LV_Modify(ThisLine, "Col" . ImportanceCol, v)
|
|
}
|
|
else if (ImportanceCode = "" || ImportanceCode = 0)
|
|
{
|
|
LV_Modify(ThisLine, "Col" . ImportanceCol, "None")
|
|
}
|
|
}
|
|
|
|
; Display parent project names:
|
|
LV_GetText(ParentID, ThisLine, ParentIDCol)
|
|
GetParent := db.OpenRecordSet("SELECT project FROM projects WHERE id = " ParentID)
|
|
while (!GetParent.EOF)
|
|
{
|
|
ParentName := GetParent["project"]
|
|
GetParent.MoveNext()
|
|
}
|
|
GetParent.Close()
|
|
LV_Modify(ThisLine, "Col" . ParentCol, ParentName)
|
|
|
|
}
|
|
|
|
; Resize columns here. Hide anything unfriendly/coded:
|
|
LV_ModifyCol()
|
|
MainColCount := LV_GetCount("Col")
|
|
Loop % MainColCount
|
|
LV_ModifyCol(A_Index,"AutoHdr")
|
|
LV_ModifyCol(IDCol, 0) ; Hide ID column
|
|
LV_ModifyCol(ColorIDCol, 0) ; Hide color code column
|
|
LV_ModifyCol(DiffIDCol, 0) ; Hide difficulty code col
|
|
LV_ModifyCol(ImpIDCol, 0) ; Hide importance code col
|
|
LV_ModifyCol(ParentIDCol, 0) ; Hide parent ID col
|
|
if (SideListGet()) ; Call SideListGet again to check whether to hide parent col in main list.
|
|
LV_ModifyCol(ParentCol, 0)
|
|
|
|
; Enable ListView coloring:
|
|
OnMessage( WM_NOTIFY := 0x4E, "WM_NOTIFY" )
|
|
GuiControl, +ReDraw, MainList
|
|
UpdateSideList()
|
|
return
|
|
}
|
|
|
|
UpdateSidelist()
|
|
{
|
|
global
|
|
if (ListSelected = "SideList")
|
|
return
|
|
SLParentIDCol = 1
|
|
SLParentDiffCol = 2
|
|
SLParentNameCol = 3
|
|
Gui, 1:Default
|
|
Gui, ListView, SideList
|
|
GuiControl, -ReDraw, SideList
|
|
LV_Delete()
|
|
ParentProjectList := db.OpenRecordSet("SELECT * FROM projects WHERE id IN (SELECT parent FROM projects WHERE difficulty <> 0)")
|
|
while (!ParentProjectList.EOF)
|
|
{
|
|
ParentID := ParentProjectList["id"]
|
|
ParentDiff := ParentProjectList["difficulty"]
|
|
ParentName := ParentProjectList["project"]
|
|
|
|
LV_Add("", ParentID, ParentDiff, ParentName)
|
|
ParentProjectList.MoveNext()
|
|
}
|
|
ParentProjectList.Close()
|
|
;LV_ModifyCol(SLParentIDCol, "integer sortdesc") ; Choose which col to sort by
|
|
LV_ModifyCol(SLParentNameCol, "sort")
|
|
LV_Insert(1, "", 0, 0, "All") ; To show all projects, ID shall be 0 (zero)
|
|
LV_ModifyCol()
|
|
Loop % LV_GetCount("Col")
|
|
LV_Modify(A_Index, "AutoHDR")
|
|
LV_ModifyCol(SLParentIDCol, 0)
|
|
LV_ModifyCol(SLParentDiffCol, 0)
|
|
GuiControl, +ReDraw, SideList
|
|
if (SideListFocusedID = "" || SideListFocusedID = 0 || SideListFocusedID = "ID")
|
|
CurrentParentSelected = 1
|
|
else
|
|
CurrentParentSelected := SideListFocRow
|
|
LV_Modify(CurrentParentSelected, "Focus Select Vis")
|
|
}
|
|
|
|
SideListGet()
|
|
{
|
|
global
|
|
Gui, 1:Default
|
|
Gui, ListView, SideList
|
|
SideListFocRow := LV_GetNext()
|
|
LV_GetText(SideListFocusedID, LV_GetNext(), SLParentIDCol)
|
|
Gui, ListView, MainList
|
|
;Notification(SideListFocusedID, ListSelected)
|
|
if (SideListFocusedID = "ID" || SideListFocusedID = 0)
|
|
return
|
|
else
|
|
return SideListFocusedID
|
|
}
|
|
|
|
; Move side list selector back to "All" (first row):
|
|
SLResetAll()
|
|
{
|
|
global
|
|
Gui, ListView, SideList
|
|
LV_Modify(1, "Focus Select Vis")
|
|
} |