@@ -78,14 +78,14 @@ Type UserInterface
78
78
79
79
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
80
80
81
- Method New (inputZoomValue: Int , outputZoomValue: Int , framesValue: Int , bgRedValue: Int , bgGreenValue: Int , bgBlueValue: Int )
82
- InitializeUserInterface(inputZoomValue, outputZoomValue, framesValue, bgRedValue, bgGreenValue, bgBlueValue )
81
+ Method New ()
82
+ InitializeUserInterface()
83
83
InitializeCanvasGraphics()
84
84
EndMethod
85
85
86
86
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
87
87
88
- Method InitializeUserInterface (inputZoomValue: Int , outputZoomValue: Int , framesValue: Int , bgRedValue: Int , bgGreenValue: Int , bgBlueValue: Int )
88
+ Method InitializeUserInterface ()
89
89
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)
90
90
SetMinWindowSize(m_MainWindow, m_LeftColumnSize[ 0 ] + m_CanvasGraphicsSize[ 0 ] , m_CanvasGraphicsSize[ 1 ] )
91
91
@@ -122,27 +122,21 @@ Type UserInterface
122
122
123
123
m_SettingsColorRLabel = CreateLabel(" R" , GadgetWidth(m_SettingsColorLabel) + 15 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
124
124
m_SettingsColorRTextbox = CreateTextField(GadgetX(m_SettingsColorRLabel) + 15 , GadgetY(m_SettingsColorRLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
125
- SetGadgetText(m_SettingsColorRTextbox, bgRedValue)
126
125
127
126
m_SettingsColorGLabel = CreateLabel(" G" , 122 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
128
127
m_SettingsColorGTextbox = CreateTextField(137 , GadgetY(m_SettingsColorGLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
129
- SetGadgetText(m_SettingsColorGTextbox, bgGreenValue)
130
128
131
129
m_SettingsColorBLabel = CreateLabel(" B" , 180 , GadgetY(m_SettingsColorLabel), 10 , labelHeight, m_SettingsPanel, LABEL_LEFT)
132
130
m_SettingsColorBTextbox = CreateTextField(195 , GadgetY(m_SettingsColorBLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
133
- SetGadgetText(m_SettingsColorBTextbox, bgBlueValue)
134
131
135
132
m_SettingsInputZoomLabel = CreateLabel(" Input Zoom" , horizMargin, GadgetY(m_SettingsColorLabel) + labelVertOffset, 70 , labelHeight + 4 , m_SettingsPanel, LABEL_LEFT)
136
133
m_SettingsInputZoomTextbox = CreateTextField(vertMargin + GadgetWidth(m_SettingsInputZoomLabel), GadgetY(m_SettingsInputZoomLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
137
- SetGadgetText(m_SettingsInputZoomTextbox, inputZoomValue)
138
134
139
135
m_SettingsOutputZoomLabel = CreateLabel(" Output Zoom" , 117 , GadgetY(m_SettingsInputZoomLabel), 75 , labelHeight + 4 , m_SettingsPanel, LABEL_LEFT)
140
136
m_SettingsOutputZoomTextbox = CreateTextField(horizMargin + GadgetX(m_SettingsOutputZoomLabel) + GadgetWidth(m_SettingsOutputZoomLabel) - 2 , GadgetY(m_SettingsOutputZoomLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
141
- SetGadgetText(m_SettingsOutputZoomTextbox, outputZoomValue)
142
137
143
138
m_SettingsFramesLabel = CreateLabel(" Frame Count" , horizMargin, GadgetY(m_SettingsInputZoomLabel) + labelVertOffset, 70 , labelHeight, m_SettingsPanel, LABEL_LEFT)
144
139
m_SettingsFramesTextbox = CreateTextField(vertMargin + GadgetWidth(m_SettingsFramesLabel), GadgetY(m_SettingsFramesLabel) + textboxVertOffset, textboxSize[ 0 ] , textboxSize[ 1 ] , m_SettingsPanel)
145
- SetGadgetText(m_SettingsFramesTextbox, framesValue)
146
140
147
141
m_SettingsSaveAsFramesLabel = CreateLabel(" Save as Frames" , horizMargin, GadgetY(m_SettingsFramesLabel) + labelVertOffset, 87 , labelHeight, m_SettingsPanel, LABEL_LEFT)
148
142
m_SettingsSaveAsFramesCheckbox = CreateButton(Null , vertMargin + GadgetWidth(m_SettingsSaveAsFramesLabel), GadgetY(m_SettingsSaveAsFramesLabel), 20 , 20 , m_SettingsPanel, BUTTON_CHECKBOX)
@@ -242,6 +236,42 @@ Type UserInterface
242
236
SetGadgetText(m_SettingsOutputZoomTextbox, newValue)
243
237
EndMethod
244
238
239
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
240
+
241
+ Method GetSaveAsFramesCheckboxValue :Int ()
242
+ Return ButtonState(m_SettingsSaveAsFramesCheckbox)
243
+ EndMethod
244
+
245
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
246
+
247
+ Method SetSaveAsFramesCheckboxValue :Int (newValue:Int )
248
+ SetButtonState(m_SettingsSaveAsFramesCheckbox, newValue)
249
+ Return newValue
250
+ EndMethod
251
+
252
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
253
+
254
+ Method GetSaveAsIndexedCheckboxValue :Int ()
255
+ Return ButtonState(m_SettingsIndexedCheckbox)
256
+ EndMethod
257
+
258
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
259
+
260
+ Method SetSaveAsIndexedCheckboxValue :Int (newValue:Int )
261
+ SetButtonState(m_SettingsIndexedCheckbox, newValue)
262
+ Return newValue
263
+ EndMethod
264
+
265
+ '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
266
+
267
+ Method SetFileTypeComboBoxSelectedItem (fileType:String )
268
+ If fileType = " png" Then
269
+ SelectGadgetItem(m_SettingsIndexedFileTypeComboBox, 0 )
270
+ ElseIf fileType = " bmp" Then
271
+ SelectGadgetItem(m_SettingsIndexedFileTypeComboBox, 1 )
272
+ EndIf
273
+ EndMethod
274
+
245
275
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
246
276
247
277
Method GetLayerCheckboxValues :Int [ ,] ()
0 commit comments