Merge pull request #11 from buttonpushertv/deleting-apps-from-settings

Deleting apps from settings

Author: buttonpushertv

BPTV-LAUNCHER.ahk

@@ -114,12 +114,12 @@ Gui, Show, w%guiWidth% h%guiHeight%
 
 ;timer code section here
 ;the timeout period is stored in settings.ini - under the [Settings] section as milliseconds - other values designated in above GUI code
-
-;this code creates and upadtes the timer text & progress bar
+launcherTimeoutSleep := 1000
+;this code creates and updates the timer text & progress bar
 loop, %timeoutSegments%
   {
   GuiControl, , timeoutTextProgress, %timeoutRemaining%
-  sleep, 1000
+  sleep, %launcherTimeoutSleep%
   GuiControl, , timeoutProgress, +1
   timeoutRemaining := (timeoutSegments - A_Index)
   }
@@ -214,7 +214,80 @@ reload
 return
 
 ButtonDeleteApp:
-MsgBox Not implemented yet. Edit the settings.ini file to remove items for now.
+launcherTimeoutSleep := 10000
+delTimeoutRemain := (timeoutRemaining * 10)
+delAppGUIH := 40
+appSectionKeys := round(section3_keys / 3)
+delAppGUIH += (appSectionKeys * 60)
+delAppGUIW := 580
+delAppLVH := (delAppGUIH - 60)
+delAppLVW := 560
+
+Gui, DelApp:New, , Delete an App
+Gui, DelApp:Font, S12 CDefault, Franklin Gothic Medium
+Gui, DelApp:Add, Text, x10 y10 , Double-click the app you would like to remove below:
+Gui, DelApp:Font, S9 CDefault, Franklin Gothic Medium
+Gui, DelApp:Add, Text, x10 y30 , (You have about %delTimeoutRemain% seconds to make a choice.)
+Gui, DelApp:Font, S12 CDefault, Franklin Gothic Medium
+Gui, DelApp:Add, ListView, r%appSectionKeys% w%delAppLVW% h%delAppLVH% gdelListView, #|App|Enabled?
+
+loop, %appSectionKeys%
+  {
+    LV_Add(,A_Index, Apps_nameApp%A_Index%, Apps_loadApp%A_Index% )
+  }
+LV_ModifyCol(2)
+Gui, DelApp:Show, w580 h%delAppGUIH%
+
+delListView:
+if (A_GuiEvent = "DoubleClick")
+  {
+    LV_GetText(RowText, A_EventInfo)
+    appToDel := % Apps_nameApp%A_EventInfo%  ; Get the text from the row's first field.
+    MsgBox, 36, Delete this App?, Is this the app you want to delete?`n#%A_EventInfo%: %appToDel%
+    IfMsgBox, No
+      goto delAppNo
+    IfMsgBox, Yes
+      newNumberOfKeySets := (section3_keys - 3)
+      currentAltCounter := 1
+      Loop, %appSectionKeys%
+      {
+        If (A_Index = A_EventInfo) {
+          Continue
+        }
+        tempApps_loadApp%currentAltCounter% := % Apps_loadApp%A_Index%
+        tempApps_nameApp%currentAltCounter% := % Apps_nameApp%A_Index%
+        tempApps_pathApp%currentAltCounter% := % Apps_pathApp%A_Index%
+        currentNameValue := % tempApps_nameApp%currentAltCounter%
+        currentPathValue := % tempApps_pathApp%currentAltCounter%
+        currentLoadValue := % tempApps_loadApp%currentAltCounter%
+        currentAltCounter += 1
+      }
+      Loop, %section2_keys%
+      {
+        Apps_loadApp%A_Index% := % tempApps_loadApp%A_Index%
+        Apps_nameApp%A_Index% := % tempApps_nameApp%A_Index%
+        Apps_pathApp%A_Index% := % tempApps_pathApp%A_Index%
+      }
+      Apps_loadApp%appSectionKeys% := 0
+      Apps_nameApp%appSectionKeys% :=
+      Apps_pathApp%appSectionKeys% :=
+      IniDelete, %inifile%, Apps, loadApp%appSectionKeys%
+      IniDelete, %inifile%, Apps, nameApp%appSectionKeys%
+      IniDelete, %inifile%, Apps, pathApp%appSectionKeys%
+      appSectionKeys -= 1
+      Loop, %appSectionKeys%
+      {
+        currentLoadValue := % Apps_loadApp%A_Index%
+        currentNameValue := % Apps_nameApp%A_Index%
+        currentPathValue := % Apps_pathApp%A_Index%
+        IniWrite, %currentLoadValue%, %inifile%, Apps, loadApp%A_Index%
+        IniWrite, %currentNameValue%, %inifile%, Apps, nameApp%A_Index%
+        IniWrite, %currentPathValue%, %inifile%, Apps, pathApp%A_Index%
+      }
+      delAppNo:
+      Gui, DelApp:Destroy
+      reload
+  }
 return
 
 ButtonChangeTimeout:

MASTER-FUNCTIONS.ahk

@@ -95,7 +95,7 @@ rootFolder=
       ), settings.ini
     FileAppend,
     (
-      
+
 timeoutPeriod=15000
 splashScreenTimeout=4000
 CapsLockToggleTimeoutThreshold=4

MASTER-SETTINGS.ahk

@@ -107,11 +107,13 @@ loop, %section2_keys%
 
 Gui, Font, S12 CDefault, Franklin Gothic Medium
 Gui, Add, Button, x30 y%buttonStartingY% w100 h30, Add Script
+Gui, Add, Button, x150 y%buttonStartingY% w100 h30, Delete Script
+;Gui, Add, Button, x275 y%buttonStartingY% w100 h30, Variables ; Uncomment if you wish to have a button to show Variables assigned by the script
 Gui, Add, Button, x400 y%buttonStartingY% w100 h30, Cancel
 Gui, Add, Button, x520 yp w100 h30, SAVE
 Gui, Font, S10 CDefault, Franklin Gothic Medium
 Gui, Add, Text, x30 yp+40 w650, Clicking 'SAVE' will save the settings above and reload MASTER-SCRIPT.ahk and the checked scripts above.
-;Gui, Add, Button, x400 yp+32 w220 h20, Variables ; Uncomment if you wish to have a button to show Variables assigned by the script
+
 Gui, Show, w%guiWidth% h%guiHeight%
 return
 
@@ -142,6 +144,77 @@ INI_Save(inifile)
 reload
 return
 
+ButtonDeleteScript:
+scriptSectionKeys := round(section2_keys / 3)
+delScriptGUIH := (scriptSectionKeys * 40)
+delScriptGUIW := 580
+delScriptLVH := (delScriptGUIH - 40)
+delScriptLVW := 560
+
+Gui, DelScript:New, , Delete a Script
+Gui, DelScript:Font, S12 CDefault, Franklin Gothic Medium
+Gui, DelScript:Add, Text, , Double-click the script you would like to remove below:
+Gui, DelScript:Add, ListView, r%scriptSectionKeys% w%delScriptLVW% h%delScriptLVH% gdelListView, #|Script|Enabled?
+
+loop, %scriptSectionKeys%
+  {
+    LV_Add(,A_Index, Scripts_nameScript%A_Index%, Scripts_loadScript%A_Index% )
+  }
+LV_ModifyCol(2)
+Gui, DelScript:Show, w580 h%delScriptGUIH%
+
+delListView:
+if (A_GuiEvent = "DoubleClick")
+  {
+    LV_GetText(RowText, A_EventInfo)
+    scriptToDel := % Scripts_nameScript%A_EventInfo%  ; Get the text from the row's first field.
+    MsgBox, 36, Delete this Script?, Is this the script you want to delete?`n#%A_EventInfo%: %scriptToDel%
+    IfMsgBox, No
+      goto delScriptNo
+    IfMsgBox, Yes
+      newNumberOfKeySets := (section2_keys - 3)
+      currentAltCounter := 1
+      Loop, %scriptSectionKeys%
+      {
+        If (A_Index = A_EventInfo) {
+          Continue
+        }
+        tempScripts_loadScript%currentAltCounter% := % Scripts_loadScript%A_Index%
+        tempScripts_nameScript%currentAltCounter% := % Scripts_nameScript%A_Index%
+        tempScripts_pathScript%currentAltCounter% := % Scripts_pathScript%A_Index%
+        currentNameValue := % tempScripts_nameScript%currentAltCounter%
+        currentPathValue := % tempScripts_pathScript%currentAltCounter%
+        currentLoadValue := % tempScripts_loadScript%currentAltCounter%
+        currentAltCounter += 1
+      }
+      Loop, %section2_keys%
+      {
+        Scripts_loadScript%A_Index% := % tempScripts_loadScript%A_Index%
+        Scripts_nameScript%A_Index% := % tempScripts_nameScript%A_Index%
+        Scripts_pathScript%A_Index% := % tempScripts_pathScript%A_Index%
+      }
+      Scripts_loadScript%scriptSectionKeys% := 0
+      Scripts_nameScript%scriptSectionKeys% :=
+      Scripts_pathScript%scriptSectionKeys% :=
+      IniDelete, %inifile%, Scripts, loadScript%scriptSectionKeys%
+      IniDelete, %inifile%, Scripts, nameScript%scriptSectionKeys%
+      IniDelete, %inifile%, Scripts, pathScript%scriptSectionKeys%
+      scriptSectionKeys -= 1
+      Loop, %scriptSectionKeys%
+      {
+        currentLoadValue := % Scripts_loadScript%A_Index%
+        currentNameValue := % Scripts_nameScript%A_Index%
+        currentPathValue := % Scripts_pathScript%A_Index%
+        IniWrite, %currentLoadValue%, %inifile%, Scripts, loadScript%A_Index%
+        IniWrite, %currentNameValue%, %inifile%, Scripts, nameScript%A_Index%
+        IniWrite, %currentPathValue%, %inifile%, Scripts, pathScript%A_Index%
+      }
+      delScriptNo:
+      Gui, DelScript:Destroy
+      reload
+  }
+return
+
 ButtonSAVE:
 Gui, Submit
 ;Setting the location if it got changed