-
Notifications
You must be signed in to change notification settings - Fork 0
/
cxConvert.pbf
40 lines (31 loc) · 1.18 KB
/
cxConvert.pbf
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
;
; 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.
;
Global Window_0
Global Text_0, String_0, Button_0, Button_1, Text_1
Procedure OpenWindow_0(x = 0, y = 0, width = 600, height = 150)
Window_0 = OpenWindow(#PB_Any, x, y, width, height, "Monkey 2 Cerberus X Converter", #PB_Window_SystemMenu | #PB_Window_Tool)
Text_0 = TextGadget(#PB_Any, 10, 20, 100, 25, "Folder to convert")
String_0 = StringGadget(#PB_Any, 120, 20, 430, 25, "")
Button_0 = ButtonGadget(#PB_Any, 560, 20, 30, 25, "...")
Button_1 = ButtonGadget(#PB_Any, 240, 60, 100, 25, "Convert")
Text_1 = TextGadget(#PB_Any, 10, 100, 580, 25, "Status: ...")
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
; IDE Options = PureBasic 5.61 (Windows - x64)
; Folding = -
; EnableXP