@@ -261,8 +261,11 @@ Type TAppOutput
261
261
262
262
'Create output window and draw assets
263
263
Function FOutputBoot ()
264
- 'SetGraphicsDriver GLMax2DDriver()
265
- outputWindow = Graphics(768 ,480 ,0 ,0 ,0 )
264
+ SetGraphicsDriver GLMax2DDriver()
265
+ 'outputWindow = Graphics(768,480,0,0,0)
266
+
267
+ SetGraphics CanvasGraphics(TAppGUI.editCanvas)
268
+
266
269
'Window background color
267
270
SetClsColor(BACKGROUND_RED,BACKGROUND_GREEN,BACKGROUND_BLUE)
268
271
SetMaskColor(255 ,0 ,255 )
@@ -321,6 +324,8 @@ Type TAppGUI
321
324
'Textboxes content
322
325
Global aboutTextboxContent:String [7 ]
323
326
Global helpTextboxContent:String [15 ]
327
+
328
+ Global editCanvas:TGadget
324
329
325
330
'Create Main App Window
326
331
Function FAppMain ()
@@ -344,7 +349,10 @@ Type TAppGUI
344
349
345
350
'Create Editor Window
346
351
Function FAppEditor ()
347
- editWindow = CreateWindow(" CCCP Bender v" + appversion+ " - Editor" ,DesktopWidth()/2 - 700 ,DesktopHeight()/2 - 240 ,300 ,430 ,Null ,WINDOW_TITLEBAR| WINDOW_CLIENTCOORDS)
352
+ editWindow = CreateWindow(" CCCP Bender v" + appversion+ " - Editor" ,DesktopWidth()/2 - 700 ,DesktopHeight()/2 - 240 ,300 + 768 ,430 + 50 ,Null ,WINDOW_TITLEBAR| WINDOW_CLIENTCOORDS)
353
+
354
+ editCanvas = CreateCanvas(300 ,0 ,768 ,480 ,editWindow)
355
+
348
356
editWindowButtonPanel = CreatePanel(10 ,7 ,280 ,57 ,editWindow,PANEL_GROUP)
349
357
editLoadButton = CreateButton(" Load" ,6 ,0 ,80 ,30 ,editWindowButtonPanel,BUTTON_PUSH)
350
358
editSaveButton = CreateButton(" Save" ,96 ,0 ,80 ,30 ,editWindowButtonPanel,BUTTON_PUSH)
@@ -420,7 +428,7 @@ While True
420
428
EndIf
421
429
422
430
WaitEvent
423
- ' Print CurrentEvent.ToString()
431
+ Print CurrentEvent.ToString()
424
432
425
433
'Event Responses
426
434
'In Main Window
0 commit comments