Hallo,
wie kann ich nach Veränderung der Größe mit der Trennbalkens, die Breite der TextGadget/ListViewGadget anpassen?
Code: Alles auswählen
Enumeration
#Window_data
#containerG
#titleG
#listG
#containerSG
#titleSG
#listSG
#Splitter
EndEnumeration
#rand = 20
If OpenWindow(#Window_data, 0, 0, 250+#rand, 200, "Test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
ContainerGadget(#containerG, 0, 0, 0, 0, #PB_Container_Double)
TextGadget(#titleG, 10,10, 100,#rand,"Gruppe", #PB_Text_Center|#PB_Text_Border)
ListViewGadget(#listG, 10, 50, 100, 120)
CloseGadgetList()
ContainerGadget(#containerSG, 0, 0, 0, 0, #PB_Container_Double)
TextGadget(#titleSG, 10,10, 100,#rand,"Untergruppe", #PB_Text_Center|#PB_Text_Border)
ListViewGadget(#listSG, 10, 50, 100, 120)
CloseGadgetList()
SplitterGadget(#Splitter, 5, 10, 250, 200-#rand, #containerG, #containerSG, #PB_Splitter_Vertical)
For a = 1 To 12
AddGadgetItem (#listG, -1, "G Item " + Str(a)) ; definieren des Listview-Inhalts
Next
SetGadgetState(#listG, 2)
For a = 1 To 8
AddGadgetItem (#listSG, -1, "SG Item " + Str(a)) ; definieren des Listview-Inhalts
Next
SetGadgetState(#listSG, 3)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Event = #PB_Event_CloseWindow
Case #PB_Event_SizeWindow
If IsGadget(#Splitter) ; vorhanden
ExamineDesktops()
ResizeGadget(#Splitter, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_data) - #rand, WindowHeight(#Window_data)-#rand)
ResizeGadget(#titleG, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_data)/2 - 2*#rand, #PB_Ignore)
ResizeGadget(#listG, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_data)/2 - 2*#rand, WindowHeight(#Window_data)-4*#rand)
ResizeGadget(#titleSG, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_data)/2 - 2*#rand, #PB_Ignore)
ResizeGadget(#listSG, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_data)/2 - 2*#rand, WindowHeight(#Window_data)-4*#rand)
EndIf
Case #PB_Event_Gadget
Select EventGadget()
Case #Splitter
Debug "EV SPL"
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
MarcelX