; Form Designer for Purebasic - 5.62
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Enumeration FormWindow
  #WND
EndEnumeration

Enumeration FormGadget
  #FRM_Url
  #STR_Url
  #FRM_Connect
  #TXT_ms
  #SPIN_ms
  #CHK_Repeat
  #OPT_Internal
  #OPT_Own
  #FRM_Log
  #EDIT_Log
  #BTN_Start
  #EDIT_Own
  #EDIT_Info
  #Splitter_0
  #BTN_DelLog
EndEnumeration

Declare ResizeGadgetsWND()


Procedure OpenWND(x = 0, y = 0, width = 490, height = 370)
  OpenWindow(#WND, x, y, width, height, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_Invisible | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
  FrameGadget(#FRM_Url, 10, 0, 470, 50, "Url")
  StringGadget(#STR_Url, 20, 20, 450, 20, "Server/IP[:Port][/file.xxx]")
  FrameGadget(#FRM_Connect, 10, 50, 470, 180, "Abfrage")
  TextGadget(#TXT_ms, 420, 100, 30, 20, "ms")
  SpinGadget(#SPIN_ms, 330, 100, 80, 20, 1, 99999, #PB_Spin_Numeric)
  CheckBoxGadget(#CHK_Repeat, 310, 70, 160, 25, "Automatisch Wiederholen")
  OptionGadget(#OPT_Internal, 20, 70, 250, 25, "Interne/cUrl Funktionen verwenden (HTTP)")
  OptionGadget(#OPT_Own, 20, 100, 110, 25, "Eigene Abfrage:")
  FrameGadget(#FRM_Log, 10, 230, 380, 130, "Log")
  EditorGadget(#EDIT_Log, 20, 250, 360, 100, #PB_Editor_ReadOnly)
  ButtonGadget(#BTN_Start, 400, 240, 80, 40, "Start", #PB_Button_Toggle)
  EditorGadget(#EDIT_Own, 20, 130, 250, 90)
  EditorGadget(#EDIT_Info, 279, 130, 191, 90, #PB_Editor_ReadOnly)
  SplitterGadget(#Splitter_0, 20, 130, 450, 90, #EDIT_Own, #EDIT_Info, #PB_Splitter_Vertical)
  SetGadgetState(#Splitter_0, 250)
  ButtonGadget(#BTN_DelLog, 400, 290, 80, 30, "Log löschen")
EndProcedure

Procedure ResizeGadgetsWND()
  Protected FormWindowWidth, FormWindowHeight
  FormWindowWidth = WindowWidth(#WND)
  FormWindowHeight = WindowHeight(#WND)
  ResizeGadget(#FRM_Url, 10, 0, FormWindowWidth - 20, 50)
  ResizeGadget(#STR_Url, 20, 20, FormWindowWidth - 40, 20)
  ResizeGadget(#FRM_Connect, 10, 50, FormWindowWidth - 20, 180)
  ResizeGadget(#TXT_ms, FormWindowWidth - 70, 100, 30, 20)
  ResizeGadget(#SPIN_ms, FormWindowWidth - 160, 100, 80, 20)
  ResizeGadget(#CHK_Repeat, FormWindowWidth - 180, 70, 160, 25)
  ResizeGadget(#FRM_Log, 10, 230, FormWindowWidth - 110, FormWindowHeight - 240)
  ResizeGadget(#EDIT_Log, 20, 250, FormWindowWidth - 130, FormWindowHeight - 270)
  ResizeGadget(#BTN_Start, FormWindowWidth - 90, 240, 80, 40)
  ResizeGadget(#Splitter_0, 20, 130, FormWindowWidth - 40, 90)
  ResizeGadget(#BTN_DelLog, GadgetWidth(#Splitter_0) - 50, 290, 80, 30)
EndProcedure