GUI Additions

Freedomain Livestream Scheduler.ahk

@@ -239,10 +239,12 @@ Gui, Add, Text, y+%MarginSizeDoubled%, Date and Time of Livestream
 Gui, Font, Normal
 
 Gui, Add, DateTime, vLivestreamDate w%ColumnTwoEditBoxWidth%, MM/dd/yyyy
-Gui, Add, DateTime, vLivestreamTime w%ColumnTwoEditBoxWidth%,  Time
+Gui, Add, DateTime, vLivestreamTime w%ColumnTwoEditBoxWidth% Choose200505311900, Time
+Gui, Add, Button, gSetLivestreamTimeMorning,Morning
+Gui, Add, Button,yp+0 x+%MarginSize% gSetLivestreamTimeMorning,Evening
 
 Gui, Font, Bold
-Gui, Add, Text,y+%MarginSizeDoubled%, Platform to Schedule On
+Gui, Add, Text,y+%MarginSizeDoubled% x%ColumnTwoXPosition%, Platform to Schedule On
 Gui, Font, Normal
 
 ; Gui, Add, Checkbox,, Dlive
@@ -262,6 +264,14 @@ Return
 
 
 
+SetLivestreamTimeMorning:
+if(A_GuiControl = "Morning")
+GuiControl, , LivestreamTime, 200505311130
+if(A_GuiControl = "Evening")
+GuiControl, , LivestreamTime, 200505311900
+Return
+
+
 
 
 
@@ -373,26 +383,33 @@ Gui, Destroy
 
 
 
+; ------------------------------------------------
+; RESULTS SCREEN
+; ------------------------------------------------
 
-; Results Screen
+
+; Read Info From .ini Files
 ; ------------------------------------------------
 IniRead, LocalsRTMPURL, %PostStatusesFilepath%, Livestream,LocalsRTMPURL, %A_Space%
 IniRead, LocalsRTMPKey, %PostStatusesFilepath%, Livestream,LocalsRTMPKey, %A_Space%
+IniRead, LivestreamURL, %PostStatusesFilepath%, Livestream,LivestreamURL, %A_Space%
 
-; IniRead, OutputVar, Filename, Section, Key [, Default]
 
 
 Gui, Font, Bold
-
 Gui, Font, s%GuiFontSize%
-Gui, Add, Button, x10 y+10 h%ResultButtonHeights% w%ResultButtonWidth%, Locals RTMP Key
-Gui, Add, Edit, x+5 yp+0  h%ResultButtonHeights% w%ResultButtonEditWidth% vLocalsRTMPKey center, %LocalsRTMPKey%
 
-Gui, Add, Button, x10 y+10 h%ResultButtonHeights% w%ResultButtonWidth%, Locals RTMP URL
+Gui, Add, Button, x10 y+10 h%ResultButtonHeights% w%ResultButtonWidth% gResultsGUIAction, Locals URL
+Gui, Add, Edit, x+5 yp+0  h%ResultButtonHeights% w%ResultButtonEditWidth% vLivestreamURL center, %LivestreamURL%
+
+Gui, Add, Button, x10 y+10 h%ResultButtonHeights% w%ResultButtonWidth% gResultsGUIAction, Locals RTMP URL
 Gui, Add, Edit, x+5 yp+0  h%ResultButtonHeights% w%ResultButtonEditWidth% vLocalsRTMPURL center, %LocalsRTMPURL%
 
+Gui, Add, Button, x10 y+10 h%ResultButtonHeights% w%ResultButtonWidth% gResultsGUIAction, Locals RTMP Key
+Gui, Add, Edit, x+5 yp+0  h%ResultButtonHeights% w%ResultButtonEditWidth% vLocalsRTMPKey center, %LocalsRTMPKey%
+
 
-Gui, Add, Button, gRetryUpload,Try Failed Again
+Gui, Add, Button, gRetryUpload h%ResultButtonHeights% w%ResultButtonEditWidth%,Try Failed Again
 
 Gui, Show
 
@@ -402,6 +419,29 @@ Return
 
 ; GoSubs
 ; ------------------------------------------------
+ResultsGUIAction:
+; Msgbox % "A_GuiControl: " A_GuiControl
+
+Message = Copying %A_GuiControl% to Clipboard
+SaveOrPostProgress(Message:=Message,PostType:="Tooltip")
+
+
+if(A_GuiControl = "Locals URL"){
+	Clipboard := LivestreamURL
+}
+
+if(A_GuiControl = "Locals RTMP URL"){
+	Clipboard := LocalsRTMPURL
+}
+
+if(A_GuiControl = "Locals RTMP Key"){
+	Clipboard := LocalsRTMPKey
+}
+
+sleep, 1000
+ToolTip
+Return
+
 KillScript:
 ExitApp
 

Modules/Locals-Schedule.ahk

@@ -164,5 +164,6 @@ ToolTip
 ; Msgbox % "PostStatusesFilepath: " PostStatusesFilepath
 IniWrite, %LocalsRTMPURL%, %PostStatusesFilepath%, Livestream,LocalsRTMPURL
 IniWrite, %LocalsRTMPKey%, %PostStatusesFilepath%, Livestream,LocalsRTMPKey
+IniWrite, %LivestreamURL%, %PostStatusesFilepath%, Livestream,LivestreamURL
 
 Return