Advertisement
Guest User

Untitled

a guest
Aug 22nd, 2019
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.96 KB | None | 0 0
  1. myGui("x100 y100", "Automatyczne banowanie.")
  2.  
  3. myGui(position, title)
  4. {
  5. static thisVar, thatVar
  6. gui, new
  7. gui, Default
  8. gui, +LastFound +LabelMyGui
  9. gui, add, text, xm12 ym30 section, 1.
  10. gui, add, text, xm12 yp+30, 2.
  11. gui, add, text, xm12 yp+30, 3.
  12. gui, add, text, xm12 yp+30, 4.
  13. gui, add, text, xm12 yp+30, 5.
  14. gui, add, text, xm12 yp+30, 6.
  15. gui, add, text, xm12 yp+30, 7.
  16. gui, add, text, xm12 yp+30, 8.
  17. gui, add, text, xm12 yp+30, 9.
  18. gui, add, text, xm12 yp+30, 10.
  19. gui, add, button, yp+30 gDone, Banuj!
  20. gui, add, edit, ys ym30 vthisVar,
  21. gui, add, edit, yp+30 vthatVar,
  22. gui, add, button, yp+270 gmyguiclose, Zamknij
  23. gui, show, % position, % title
  24.  
  25. return winexist()
  26.  
  27. Done:
  28. {
  29. gui,submit,nohide
  30. ; ListVars
  31. msgbox your values `nthisVar :%thisVar%`nthatVar :%thatVar%
  32. return
  33. }
  34.  
  35. myguiclose:
  36. {
  37. gui,destroy
  38. return
  39. }
  40. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement