Advertisement
CivReborn

Sample Edit Prompt Script

Nov 25th, 2017
456
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance,Force
  2. OnMessage(0x201,"Check_Control")
  3. temp_Last_Name_Edit:="Enter Your Last Name:",temp_First_Name_Edit:="Enter Your First Name:",Unchanged_Last:=1,Unchanged_First:=1
  4. Font_Options:="cLime s16 Underline Q5",Font_Type:="Elephant",SetFontOptions:="cTeal s16 Q5",SetFontType:="Segoe UI"
  5. Gui,1:+AlwaysOnTop
  6. Gui,1:Color,222222,Black
  7. Gui,1:Font,% Font_Options ,% Font_Type
  8. Gui,1:Add,Edit,x10 y10 w400 r1 vFirst_Name_Edit gSubmit_All,% temp_First_Name_Edit
  9. Gui,1:Add,Edit,x10 w400 r1 vLast_Name_Edit gSubmit_All,% temp_Last_Name_Edit
  10. Gui,1:Font,
  11. Gui,1:Font,cWhite ,Segoe UI
  12. Gui,1:Add,Button,x10 w400 h30 gReload,Reload
  13. Gui,1:Add,Edit,x10 w400 r2 ReadOnly vDisplay_Edit,% First_Name_Edit "`n" Last_Name_Edit
  14. GuiControl,1:Focus,Display_Edit
  15. Gui,1:Show,w420
  16. return
  17. GuiClose:
  18.     ExitApp
  19. Submit_All:
  20.     Gui,1:Submit,NoHide
  21.     GuiControl,1:,Display_Edit,% First_Name_Edit "`n" Last_Name_Edit
  22.     return
  23. Reload:
  24.     Reload
  25. ~Tab::
  26.     sleep,50
  27.     ControlGetFocus,temp2,A,
  28.     GuiControlGet,temp3,1:Name,%temp2%
  29.     if(temp3="Last_Name_Edit"&&Unchanged_Last=1)
  30.         PromptFunction("Last_Name_Edit",Unchanged_Last,SetFontOptions,SetFontType,"1")
  31.     else if(Unchanged_Last=0&&Last_Name_Edit=null)
  32.         PromptFunction("Last_Name_Edit",Unchanged_Last,Font_Options,Font_Type,"1",temp_Last_Name_Edit)
  33.     if(temp3="First_Name_Edit"&&Unchanged_First=1)
  34.         PromptFunction("First_Name_Edit",Unchanged_First,SetFontOptions,SetFontType,"1")
  35.     else if(Unchanged_First=0&&First_Name_Edit=null)
  36.         PromptFunction("First_Name_Edit",Unchanged_First,Font_Options,Font_Type,"1",temp_First_Name_Edit)
  37.     return
  38. Check_Control(){
  39.     global
  40.     if(A_GuiControl="Last_Name_Edit"&&Unchanged_Last=1)
  41.         PromptFunction("Last_Name_Edit",Unchanged_Last,SetFontOptions,SetFontType,"1")
  42.     else if(Unchanged_Last=0&&Last_Name_Edit=null)
  43.         PromptFunction("Last_Name_Edit",Unchanged_Last,Font_Options,Font_Type,"1",temp_Last_Name_Edit)
  44.     if(A_GuiControl="First_Name_Edit"&&Unchanged_First=1)
  45.         PromptFunction("First_Name_Edit",Unchanged_First,SetFontOptions,SetFontType,"1")
  46.     else if(Unchanged_First=0&&First_Name_Edit=null)
  47.         PromptFunction("First_Name_Edit",Unchanged_First,Font_Options,Font_Type,"1",temp_First_Name_Edit)
  48. }
  49. PromptFunction(ByRef TargetEdit,ByRef State,FOptions,FType,GuiName,TempText:="" ){
  50.     State:=!State
  51.     GuiControl,%GuiName%:,%TargetEdit%,% TempText
  52.     Gui,%GuiName%:Font,
  53.     Gui,%GuiName%:Font,% FOptions ,% FType
  54.     GuiControl,%GuiName%:Font,%TargetEdit%
  55. }
  56. *Esc::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement