Wie MaxGUI.Win32MaxGUIEx richtig benutzen?

Übersicht

BlitzMax, BlitzMax NG

Allgemein

	Xaymar ehemals "Cgamer" Betreff: Wie MaxGUI.Win32MaxGUIEx richtig benutzen?	Fr, Apr 29, 2011 15:22 Antworten mit Zitat
Soweit meine winapi kenntnisse auch reichen, mir erschließt sich nicht warum der folgende Code kein Fenster erzeugt: BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] SuperStrict Import xaymar.datapak Import xaymar.config Import maxgui.win32maxguiex '! Initialization/Loading basics Global dpmPassword:String = "This Thing rules" Global dpmConfig:TConfig = New TConfig dpmConfig.OpenConfig("cfg.mdp",dpmPassword) If dpmConfig.IsConfigOpen() = False Then dpmConfig.CreateConfig("DataPakManager") '! MaxGUI Initialization Global dpmWindow:TWindowsWindow = New TWindowsWindow dpmWindow.Create(Desktop(), WINDOW_DEFAULT, "Win32MaxGuiEx Test") dpmWindow.SetShow(True) dpmWindow.SetEnabled(True) dpmWindow.Rethink() Repeat WaitEvent() Select EventID() Case 0 Default DebugLog "Unhandled Event:" DebugLog " ID: "+EventID() DebugLog " Source: "+HandleFromObject(EventSource()) DebugLog " X: "+EventX() DebugLog " Y: "+EventY() DebugLog " WState: "+dpmWindow.State() End Select Forever Rein theoretisch sollte es ein 800x600 Fenster an 100x100 erstellen mit dem WINDOW_DEFAULT style. Es passiert aber rein gar nichts. Warum? Edit: Nevermind, hab nen befehl vergessen. Edit2: generiert aber leider nur 257 und 258 als event, und das beim tabben. Was fehlt mir? Edit3: OnCommand saved the day.
Warbseite

Xaymar

ehemals "Cgamer"

Betreff: Wie MaxGUI.Win32MaxGUIEx richtig benutzen?

Fr, Apr 29, 2011 15:22
Antworten mit Zitat

Soweit meine winapi kenntnisse auch reichen, mir erschließt sich nicht warum der folgende Code kein Fenster erzeugt:
BlitzMax: [AUSKLAPPEN]

SuperStrict

Import xaymar.datapak
Import xaymar.config
Import maxgui.win32maxguiex

'! Initialization/Loading basics
Global dpmPassword:String = "This Thing rules"
Global dpmConfig:TConfig = New TConfig
dpmConfig.OpenConfig("cfg.mdp",dpmPassword)
If dpmConfig.IsConfigOpen() = False Then dpmConfig.CreateConfig("DataPakManager")

'! MaxGUI Initialization
Global dpmWindow:TWindowsWindow = New TWindowsWindow
dpmWindow.Create(Desktop(), WINDOW_DEFAULT, "Win32MaxGuiEx Test")
dpmWindow.SetShow(True)
dpmWindow.SetEnabled(True)
dpmWindow.Rethink()



Repeat
	WaitEvent()
	
	Select EventID()
		Case 0
		Default
			DebugLog "Unhandled Event:"
			DebugLog "  ID:     "+EventID()
			DebugLog "  Source: "+HandleFromObject(EventSource())
			DebugLog "  X:      "+EventX()
			DebugLog "  Y:      "+EventY()
			DebugLog "  WState: "+dpmWindow.State()
	End Select

Forever

Rein theoretisch sollte es ein 800x600 Fenster an 100x100 erstellen mit dem WINDOW_DEFAULT style. Es passiert aber rein gar nichts. Warum?

Edit: Nevermind, hab nen befehl vergessen.
Edit2: generiert aber leider nur 257 und 258 als event, und das beim tabben. Was fehlt mir?
Edit3: OnCommand saved the day.

Warbseite