@@ -36,8 +36,10 @@ Type UserInterface
36
36
Field m_SettingsPanelAnchor:SVec2I = New SVec2I (10 , m_ButtonPanelSize[1 ] + 15 )
37
37
Field m_SettingsPanelSize:SVec2I = New SVec2I (m_CanvasGraphicsAnchor[0 ] - 20 , 180 )
38
38
39
- Field m_SettingsZoomLabel:TGadget = Null
40
- Field m_SettingsZoomTextbox:TGadget = Null
39
+ Field m_SettingsInputZoomLabel:TGadget = Null
40
+ Field m_SettingsInputZoomTextbox:TGadget = Null
41
+ Field m_SettingsOutputZoomLabel:TGadget = Null
42
+ Field m_SettingsOutputZoomTextbox:TGadget = Null
41
43
42
44
Field m_SettingsFramesLabel:TGadget = Null
43
45
Field m_SettingsFramesTextbox:TGadget = Null
@@ -73,14 +75,14 @@ Type UserInterface
73
75
74
76
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
75
77
76
- Method New (zoomValue :Int , framesValue:Int , bgRedValue:Int , bgGreenValue:Int , bgBlueValue:Int )
77
- InitializeUserInterface(zoomValue , framesValue, bgRedValue, bgGreenValue, bgBlueValue)
78
+ Method New (inputZoomValue: Int , outputZoomValue :Int , framesValue:Int , bgRedValue:Int , bgGreenValue:Int , bgBlueValue:Int )
79
+ InitializeUserInterface(inputZoomValue, outputZoomValue , framesValue, bgRedValue, bgGreenValue, bgBlueValue)
78
80
InitializeCanvasGraphics()
79
81
EndMethod
80
82
81
83
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
82
84
83
- Method InitializeUserInterface (zoomValue :Int , framesValue:Int , bgRedValue:Int , bgGreenValue:Int , bgBlueValue:Int )
85
+ Method InitializeUserInterface (inputZoomValue: Int , outputZoomValue :Int , framesValue:Int , bgRedValue:Int , bgGreenValue:Int , bgBlueValue:Int )
84
86
m_MainWindow = CreateWindow(AppTitle, (DesktopWidth() / 2 ) - ((m_CanvasGraphicsAnchor[ 0 ] + m_CanvasGraphicsSize[ 0 ] ) / 2 ), (DesktopHeight() / 2 ) - (m_CanvasGraphicsSize[ 1 ] / 2 ), m_CanvasGraphicsAnchor[ 0 ] + m_CanvasGraphicsSize[ 0 ] , m_CanvasGraphicsSize[ 1 ] , Null , WINDOW_TITLEBAR | WINDOW_MENU | WINDOW_RESIZABLE | WINDOW_CLIENTCOORDS | WINDOW_ACCEPTFILES)
85
87
m_HelpMenu = CreateMenu(" Help" , c_HelpMenuTag, WindowMenu(m_MainWindow))
86
88
m_AboutMenu = CreateMenu(" About" , c_AboutMenuTag, WindowMenu(m_MainWindow))
@@ -116,19 +118,23 @@ Type UserInterface
116
118
m_SettingsColorRTextbox = CreateTextField(GadgetX(m_SettingsColorRLabel) + 15 , GadgetY(m_SettingsColorRLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
117
119
SetGadgetText(m_SettingsColorRTextbox, bgRedValue)
118
120
119
- m_SettingsColorGLabel = CreateLabel(" G" , 120 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
120
- m_SettingsColorGTextbox = CreateTextField(135 , GadgetY(m_SettingsColorGLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
121
+ m_SettingsColorGLabel = CreateLabel(" G" , 122 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
122
+ m_SettingsColorGTextbox = CreateTextField(137 , GadgetY(m_SettingsColorGLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
121
123
SetGadgetText(m_SettingsColorGTextbox, bgGreenValue)
122
124
123
- m_SettingsColorBLabel = CreateLabel(" B" , 175 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
124
- m_SettingsColorBTextbox = CreateTextField(190 , GadgetY(m_SettingsColorBLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
125
+ m_SettingsColorBLabel = CreateLabel(" B" , 180 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
126
+ m_SettingsColorBTextbox = CreateTextField(195 , GadgetY(m_SettingsColorBLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
125
127
SetGadgetText(m_SettingsColorBTextbox, bgBlueValue)
126
128
127
- m_SettingsZoomLabel = CreateLabel(" Input Zoom" , horizMargin, GadgetY(m_SettingsColorLabel) + labelVertOffset, 70 , labelHeight + 4 , m_SettingsPanel, LABEL_LEFT)
128
- m_SettingsZoomTextbox = CreateTextField(vertMargin + GadgetWidth(m_SettingsZoomLabel ), GadgetY(m_SettingsZoomLabel ) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
129
- SetGadgetText(m_SettingsZoomTextbox, zoomValue )
129
+ m_SettingsInputZoomLabel = CreateLabel(" Input Zoom" , horizMargin, GadgetY(m_SettingsColorLabel) + labelVertOffset, 70 , labelHeight + 4 , m_SettingsPanel, LABEL_LEFT)
130
+ m_SettingsInputZoomTextbox = CreateTextField(vertMargin + GadgetWidth(m_SettingsInputZoomLabel ), GadgetY(m_SettingsInputZoomLabel ) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
131
+ SetGadgetText(m_SettingsInputZoomTextbox, inputZoomValue )
130
132
131
- m_SettingsFramesLabel = CreateLabel(" Frame Count" , horizMargin, GadgetY(m_SettingsZoomLabel) + labelVertOffset, 70 , labelHeight, m_SettingsPanel, LABEL_LEFT)
133
+ m_SettingsOutputZoomLabel = CreateLabel(" Output Zoom" , 117 , GadgetY(m_SettingsInputZoomLabel), 75 , labelHeight + 4 , m_SettingsPanel, LABEL_LEFT)
134
+ m_SettingsOutputZoomTextbox = CreateTextField(horizMargin + GadgetX(m_SettingsOutputZoomLabel) + GadgetWidth(m_SettingsOutputZoomLabel) - 2 , GadgetY(m_SettingsOutputZoomLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
135
+ SetGadgetText(m_SettingsOutputZoomTextbox, outputZoomValue)
136
+
137
+ m_SettingsFramesLabel = CreateLabel(" Frame Count" , horizMargin, GadgetY(m_SettingsInputZoomLabel) + labelVertOffset, 70 , labelHeight, m_SettingsPanel, LABEL_LEFT)
132
138
m_SettingsFramesTextbox = CreateTextField(vertMargin + GadgetWidth(m_SettingsFramesLabel), GadgetY(m_SettingsFramesLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
133
139
SetGadgetText(m_SettingsFramesTextbox, framesValue)
134
140
@@ -208,14 +214,26 @@ Type UserInterface
208
214
209
215
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
210
216
211
- Method GetZoomTextboxValue :Int ()
212
- Return GadgetText(m_SettingsZoomTextbox).ToInt()
217
+ Method GetInputZoomTextboxValue :Int ()
218
+ Return GadgetText(m_SettingsInputZoomTextbox).ToInt()
219
+ EndMethod
220
+
221
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
222
+
223
+ Method SetInputZoomTextboxValue (newValue:Int )
224
+ SetGadgetText(m_SettingsInputZoomTextbox, newValue)
225
+ EndMethod
226
+
227
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
228
+
229
+ Method GetOutputZoomTextboxValue :Int ()
230
+ Return GadgetText(m_SettingsOutputZoomTextbox).ToInt()
213
231
EndMethod
214
232
215
233
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
216
234
217
- Method SetZoomTextboxValue (newValue:Int )
218
- SetGadgetText(m_SettingsZoomTextbox , newValue)
235
+ Method SetOutputZoomTextboxValue (newValue:Int )
236
+ SetGadgetText(m_SettingsOutputZoomTextbox , newValue)
219
237
EndMethod
220
238
221
239
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
0 commit comments