0422-gui question.ahk

;******************************************************************************
; Want a clear path for learning AutoHotkey?                                  *
; Take a look at our AutoHotkey GUI Udemy courses at:                         *
; https://the-automator.com/GUIs?src=f                                        *
;                                                                             *
; They're structured in a way to make learning AHK EASY                       *
; Right now you can  get a coupon code here: https://the-Automator.com/Learn  *
;******************************************************************************

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

/* Variables
	OFname, Lname, ONum, OFname, OLname
*/
#Persistent
#SingleInstance force


Gui New, , Cindy's handy hotkeys
;WinSet, AlwaysOnTop, On, ahk_class AutoHotkeyGUI ;This actually makes the GUI stay on top of everything.
Gui, Add, GroupBox, x6 y5 w450 h110, Variables:

Gui, Add, Text, x16 y25 w80 h20, P First Name ; ---- Get P first name
Gui, Add, Edit, x+10 w100 h20 vFname gFnameVar,
Gui, Add, Text, x+10 w70 h20, P Last Name  ; --- Get P Last name
Gui, Add, Edit, x+10 w100 h20 vLname gLnameVar, 
Gui, Add, Text, x16 y+5 w100 h20, Offender Information
Gui, Add, Text, x16 y+5 w50, O # ; --- Get O number
Gui, Add, Edit, x+10 w60 h20 vONum gONumVar ,
Gui, Add, Text, x+5 w40 h20, F. Name ; ---- Get offender first name
Gui, Add, Edit, x+10 w100 h20 vOFname gOFnameVar ,
Gui, Add, Text, x+5 w40 h20, L. Name ; ---- Get offender last name
Gui, Add, Edit, x+10 w100 h20 vOLname gOLnameVar ,
Gui, Submit


;-------------------------------------------------------------------------------------
Gui, Add, GroupBox, x6 y120 w450 h60 , Receipts

Gui, Add, Text, x16 y140 h20, Signed letter printed for the file.
Gui, Add, Button, x+10 w50 h20 gLetterfile, Send
Gui, Add, Text, x+10 h20, MR request printed for processing.
Gui, Add, Button, x+10 w50 h20 gMRrequestprinted, Send

;-------------------------------------------------------------------------------------
Gui, Add, GroupBox, x6 w450 h75 , Sent and Effective dates
Gui, Add, Text, x16 y205 h20, Sent Date:
Gui, Add, DateTime, x+10 vSentDate gSent_date, 
 ToolTip %senddate%
Gui, Add, Text, x16 y230 h20, Effective Date:
Gui, Add, DateTime, x+10 vEffDate gEff_Date, 
 ToolTip %effdate%
;-------------------------------------------------------------------------------------

Gui, Add, GroupBox, x6 w450 h190 , From Notes on This thing:
Gui, Add, Radio, x16 y290 gFullSetMRemail , Full Set of MR   emailed to %OFname% %Lname% on %Sentdate%
Gui, Add, Radio, x16 y+10 gSTDSetMRemail , Standard MR   emailed to %OFname% %Lname% on %Sentdate%
Gui, Add, Radio, x16 y+10 gMR_email , Standard MR   emailed to %OFname% %Lname% on %Sentdate%
Gui, Add, Radio, x16 y+10 gDisc_email , Discretionary   emailed to %OFname% %Lname% on %Sentdate%
Gui, Add, Radio, x16 y+10 gMan_Email , Man  emailed to %OFname% %Lname% on %Sentdate%
Gui, Add, Radio, x16 y+10 gDiscretionary_Email , Discretionary emailed to %OFname% %Lname% on %Sentdate%

Gui, Add, Button, x16 y+10 w50 h20 gSendEmailText, Send

;-------------------------------------------------------------------------------------
Gui, Show, h500 w466, Cindy's handy hotkeys
Gui, +AlwaysOnTop
return


GuiClose:
ExitApp

;-------------------------------------------------------------------------------------
;
Discretionary_Email:
Gui Submit, NoHide
SetTimer, UpdateCommand, off
Emailtext=
(
The Discretionary Parole  itions for %OFname% %OLname% {#}%ONum% are attached. Once the  itions have been reviewed and signed please scan them to [email protected].
)
GuiControl, , Discretionary_Email, %Discretionary_Email%
 SetTimer, UpdateCommand, on
return

Mandatory_Email:
Gui Submit, NoHide
Emailtext=
(
The Mandatory stuff for %OFname% %OLname% ##%ONum% are attached. Once the stuff has been reviewed and signed please scan them to [email protected].
)
return

Disc_email:
Gui Submit, NoHide
Emailtext=
(
MR   emailed to Mr. %OFname% %Lname% on %SentDate%.

Eff: %EffDate%
)
return

Man_Email:
return

MR_email:
Gui Submit, NoHide
Emailtext=
(
MR   emailed to Mr. %OFname% %Lname% on %SentDate%.

Eff: %EffDate%
)
return

STDSetMRemail:
Gui Submit, NoHide
Emailtext=
(
Standard Set of MR   emailed to Mr. %OFname% %Lname% on %SentDate%.

Eff: %EffDate%
)
return

FullSetMRemail:
Gui Submit, NoHide
SetTimer, UpdateCommand, off
FormatTime, SentDate, MM/dd/yyyy, ShortDate
Emailtext=
(
Full set of MR   emailed to Mr. %OFname% %Lname% on %SentDate%.

Eff: %EffDate%
)
GuiControl, , FullSetMRemail, %FullSetMRemail%
 SetTimer, UpdateCommand, on
return 

Sent_date:
Gui Submit, NoHide
FormatTime, SentDate, MM/dd/yyyy, ShortDate
GuiControl, , Sentdate, %Sentdate%
return

Eff_date:
Gui Submit, NoHide
FormatTime, EffDate, MM/dd/yyyy, ShortDate
GuiControl, , Effdate, %Effdate%
return

Letterfile:
Gui Submit, NoHide
Send !{TAB}
sleep, 200
Send Signed letter printed for the file.{Enter}
return

MRrequestprinted:
Gui Submit, NoHide
Send !{TAB}
Sleep, 200
Send MR request printed for processing.{Enter}
return

SendEmailText:
Gui, Submit, NoHide
 Send !{TAB}
 sleep, 200
 Send %EmailText%
 return
 
FnameVar:
  Gui, Submit, NoHide
  Return

LnameVar:
  Gui, Submit, NoHide
  Return

OFnameVar:
  Gui, Submit, NoHide
  Return

OLnameVar:
  Gui, Submit, NoHide
  Return

ONumVar:
  Gui, Submit, NoHide
  Return  
 
;------------- stuff from PSEXEC GUI script I don't understand
UpdateCommand:

; MouseGetMr.s, , , , ControlUnderMouse

if ControlUnderMouse = Edit9
{
sleep 5000
goto UpdateCommand
}