I have problem with listview and brush
If i use:
Code: Select all
CreateBrush(1,30,20,#BLUE)
mui.DoMethod("id_nuance_familly","insert","TOP","\27A[1]","Brush Blue")
FreeBrush(1)
Code: Select all
CreateBrush(1,30,20,#RED)
mui.DoMethod("id_nuance_familly","insert","TOP","\27A[1]","Brush Red")
For my project I need to use the same id :-/
Full source code
HWS
Code: Select all
@DISPLAY 1, {Hidden=True,color=#WHITE}
Function p_EventFunc(msg)
Switch msg.action
Case "MUIRoyale":
Switch msg.attribute
Case "CloseRequest":
End
Case "Pressed":
Switch msg.id
Case "id_AddReplacenuance_replace":
mui.DoMethod("id_nuance_familly","Clear")
Case "id_AddReplacenuance_add":
mui.set("id_nuance_familly","quiet",0)
CreateBrush(1,30,20,#RED)
mui.DoMethod("id_nuance_familly","insert","TOP","\27A[1]","Brush Red")
mui.set("id_nuance_familly","quiet",1)
EndSwitch
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(FileToString("Listview.xml"))
; listen to these events!
InstallEventHandler({MUIRoyale = p_EventFunc})
CreateBrush(1,30,20,#BLUE)
mui.DoMethod("id_nuance_familly","insert","TOP","\27A[1]","Brush Blue")
FreeBrush(1)
EscapeQuit(True)
/* Boucle infinie */
Repeat
WaitEvent
Forever
Code: Select all
<?xml version="1.0" encoding="iso-8859-1"?>
<application id="app" base="NOUVEAU">
<window id="win_popFamillynuance" height="300" title="Famille de nuances" depthgadget="0" notify="closerequest">
<vgroup fixwidth="250" frame="group" innertop="0" innerleft="0" innerright="0" innerbottom="0" spacing="0">
<listview id="id_nuance_familly" autolineheight="1" notify="doubleclick">
<column>
</column>
<column>
</column>
</listview>
<hgroup>
<button id="id_AddReplacenuance_replace" notify="pressed">Clear</button>
<button id="id_AddReplacenuance_add" notify="pressed">Add</button>
</hgroup>
</vgroup>
</window>
</application>