I have problem if i use CreateDisplay with NIL
Code: Select all
Test=CreateDisplay(NIL,{HIDDEN=True}) => MuiRoyal no work
Code: Select all
CreateDisplay(1,{HIDDEN=True}) => MuiRoyal Work
Is there a solution for that?
Thank you
Code: Select all
Test=CreateDisplay(NIL,{HIDDEN=True}) => MuiRoyal no work
Code: Select all
CreateDisplay(1,{HIDDEN=True}) => MuiRoyal Work
Code: Select all
@DISPLAY 1, {Hidden=True,color=#WHITE}
test=CreateDisplay(NIL,{Hidden=True,color=#BLACK}) ; <==== I make display named "test"
/*************************************************************************/
Function p_EventFunc(msg)
Switch msg.action
Case "MUIRoyale":
Switch msg.attribute
Case "CloseRequest":
End
EndSwitch
Case "HideWindow":
mui.Set("app", "iconified", True)
Case "ShowWindow":
mui.Set("app", "iconified", False)
EndSwitch
EndFunction
/*************************************************************************/
; dynamically create MUI GUI from an external *.xml file definition
mui.CreateGUI([[
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app" base="NOUVEAU">
<window id="win1" width="400" height="400" title="Nouveau" notify="closerequest">
<vgroup>
<hollywood display="test" minwidth="32" minheight="32" maxwidth="600" maxheight="600"/>
</vgroup>
</window>
</application>
]])
/*************************************************************************/
InstallEventHandler({MUIRoyale = p_EventFunc})
/*************************************************************************/
EscapeQuit(True)
/* Boucle infinie */
Repeat
WaitEvent
Forever
Code: Select all
DebugPrint(test)
Code: Select all
UserData: .....