View difference between Paste ID: zN8LiFvp and f8ziunvY

 EnableExplicit
 Enumeration #PB_Compiler_EnumerationValue
   #Window
   #Text0
   #Text1
   #Text2
   #Text3
   #Text4
-
+
   #String_Login
   #String_Password
   #Button_Enter
 EndEnumeration
-
+
-Procedure AccChange()
+Procedure AccChange(Gadget)
-  Protected Password.s
+  Protected Value.s
-  Select GetGadgetText(#String_Password)
+  Value=GetGadgetText(Gadget)
-    Case ""
+  If Value=""
-      Password.s="Password"
+    Select Gadget
-    Default
+      Case #String_Login
-      Password.s=""
+        Value.s="Login"
       Case #String_Password
         Value.s="Password"
-  Protected Login.s
+    EndSelect
-  Select GetGadgetText(#String_Login)
+  Else
-    Case ""
+    Value.s=""
-      Login.s="Login"
+  EndIf
-    Default
+
-      Login.s=""
+  SendMessage_(GadgetID(Gadget), #EM_SETCUEBANNER, 0, @Value)
 EndProcedure
 
-  SendMessage_(GadgetID(#String_Password), #EM_SETCUEBANNER, 0, @Password)
+
-  SendMessage_(GadgetID(#String_Login), #EM_SETCUEBANNER, 0, @Login)
+
   OpenWindow(#Window, 300, 300, 444, 296, "Facebook Ultra Bot", #PB_Window_SystemMenu | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
   SetWindowColor(#Window, RGB(63,81,181))
-
+
 
   TextGadget(#Text0, 20, 10, 404, 34, "Facebook Ultra Bot", #PB_Text_Center)
   SetGadgetColor(#Text0, #PB_Gadget_FrontColor,RGB(255,255,255))
   SetGadgetColor(#Text0, #PB_Gadget_BackColor,RGB(63,81,181))
-
+
   SetGadgetFont(#Text0, FontID(33))
 
   TextGadget(#Text1, 50, 62, 142, 34, "POSTER", #PB_Text_Center)
   SetGadgetColor(#Text1, #PB_Gadget_FrontColor,RGB(3,169,244))
   SetGadgetColor(#Text1, #PB_Gadget_BackColor,RGB(63,81,181))
-
+
   SetGadgetFont(#Text1, FontID(44))
 
 
   TextGadget(#Text2, 254, 62, 142, 34, "PARSER", #PB_Text_Center)
   SetGadgetColor(#Text2, #PB_Gadget_FrontColor,RGB(0,150,136))
-
+
-
+
   SetGadgetFont(#Text2, FontID(55))
 
 
   TextGadget(#Text3, 206, 62, 34, 34, "+", #PB_Text_Center)
   SetGadgetColor(#Text3, #PB_Gadget_FrontColor,RGB(255,255,255))
-
+
-
+
   SetGadgetFont(#Text3, FontID(66))
 
   TextGadget(#Text4, 120, 126, 206, 30, "Вход в Аккаунт", #PB_Text_Center)
   SetGadgetColor(#Text4, #PB_Gadget_FrontColor,RGB(76,175,80))
   SetGadgetColor(#Text4, #PB_Gadget_BackColor,RGB(63,81,181))
-
+
   SetGadgetFont(#Text4, FontID(77))
 
   StringGadget(#String_Login, 140, 176, 172, 24, "")
   LoadFont(88,"Noto Mono", 11)
   SetGadgetFont(#String_Login, FontID(88))
-
+  AccChange(#String_Login)
-  StringGadget(#String_Login, 140, 176, 172, 24, "") ; Login
+
   StringGadget(#String_Password, 140, 212, 172, 24, "", #PB_String_Password)
   LoadFont(99,"Noto Mono", 11)
-  AccChange()
+
-
+  AccChange(#String_Password)
 
   ButtonGadget(#Button_Enter, 178, 250, 100, 25, "Вход")
   LoadFont(100,"Noto Mono", 12)
-  AccChange()
+
-
+
 
 OpenWindow_1()
 
 
-
+
   Protected Get_Login.s = GetGadgetText(#String_Login)
-
+
-
+
 
 Repeat
   Global Event = WaitWindowEvent()
   Global EventGadget=EventGadget()
-
+
   Global EventWindow=EventWindow()
 
   Select Event
     Case #PB_Event_Gadget
       Select EventGadget
-
+
         Case #String_Login
           AccChange(#String_Login)
         Case #String_Password
           AccChange(#String_Password)
         Case #Button_Enter
-          AccChange()
+
       EndSelect
-          AccChange()
+
       Select EventWindow
         Case #Window
           CloseWindow(#Window)
           Break
         Default
           Debug "Закрытие данного окна еще не прописано"
       EndSelect
   EndSelect
 ForEver
 End