You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
2.9 KiB
71 lines
2.9 KiB
; 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
|
|
|
|
|