Hi !
in the first sourcecode i can see my ListViewGadget. Why not in the 2nd one ?
MFG
WolfgangS
Code: Select all
#ID_MWindow=0#ID_MPanel=1
#ID_Webgadget=2
#ID_LVGadget=3
hnd_MWindow=OpenWindow(#ID_MWindow,100,100,640,480,#PB_Window_SystemMenu,"Bla")
Structure WazUp
str_PAN.s
EndStructure
NewList panel.WazUp()
If CreateGadgetList(WindowID()) ; Create GadgetList
ListViewGadget(#ID_LVGadget,0,396,640,84) ; Create ListView Gadget
AddGadgetItem(#ID_LVGadget,LVAmount,"Welcome to XXX"):LVAmount+1 ; Add ListView Item
PanelGadget(#ID_MPanel,0,28,640,365) ; Create Panel Gadget
AddElement(Panel()) : PanelAmount+1 : Panel()\str_PAN="Info" ; Add Panel Gadget
AddGadgetItem(#ID_MPanel,-1,"Info") : WebGadget(#ID_WebGadget,0,0,635,340,"info.html") ; Add Web Gadget
Else : End
EndIf
Repeat
Event=WaitWindowEvent()
Until Event=#PB_EventCloseWindowCode: Select all
#ID_MWindow=0
#ID_MPanel=1
#ID_Webgadget=2
#ID_LVGadget=3
hnd_MWindow=OpenWindow(#ID_MWindow,100,100,640,480,#PB_Window_SystemMenu,"Bla")
Structure WazUp
str_PAN.s
EndStructure
NewList panel.WazUp()
If CreateGadgetList(WindowID()) ; Create GadgetList
PanelGadget(#ID_MPanel,0,28,640,365) ; Create Panel Gadget
AddElement(Panel()) : PanelAmount+1 : Panel()\str_PAN="Info" ; Add Panel Gadget
AddGadgetItem(#ID_MPanel,-1,"Info") : WebGadget(#ID_WebGadget,0,0,635,340,"info.html") ; Add Web Gadget
ListViewGadget(#ID_LVGadget,0,396,640,84) ; Create ListView Gadget
AddGadgetItem(#ID_LVGadget,LVAmount,"Welcome to XXX"):LVAmount+1 ; Add ListView Item
Else : End
EndIf
Repeat
Event=WaitWindowEvent()
Until Event=#PB_EventCloseWindow