As the title says :
The #PB_Splitter_FirstMinimumSize doesn't work for vertical spit.
Greatings.
Code: Select all
Procedure Build_Window_1(x = 0, y = 0, width = 1400, height = 700)
Window_1 = OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, width, height, "", #PB_Window_SystemMenu |#PB_Window_ScreenCentered)
btn_000 = ButtonGadget(#PB_Any, 5, 15, 90, 20, "Read Clipboard")
btn_001 = ButtonGadget(#PB_Any, 5, 43, 90, 20, "gadget_001")
btn_002 = ButtonGadget(#PB_Any, 5, 71, 90, 20, "gadget_002")
btn_003 = ButtonGadget(#PB_Any, 5, 99, 90, 20, "gadget_003")
lvi_004 = ListViewGadget(#PB_Any, 0,0,0,0)
lci_005 = ListIconGadget(#PB_Any, 0,0,0,0, "0", 70, #PB_ListIcon_MultiSelect |#PB_ListIcon_GridLines)
splt=SplitterGadget(#PB_Any, 110, 5,width-120, height -20, lvi_004, lci_005, #PB_Splitter_Separator |#PB_Splitter_Vertical)
SetGadgetAttribute(splt, #PB_Splitter_FirstMinimumSize, 50) ;minimum hoogte onderste lijst
;ResizeGadget(splt,#PB_Ignore, #PB_Ignore, WindowWidth(Window_1)-220, #PB_Ignore)
EndProcedure
Procedure EventLoop()
Build_Window_1()
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case btn_000 :
Case btn_001 :
Case btn_002 :
Case btn_003 :
Case lvi_004 :
Case lci_005 :
EndSelect
Case #PB_Event_Menu
Case #PB_Event_CloseWindow
CloseWindow(#PB_All)
End
EndSelect
ForEver
EndProcedure
;************************************************************************
EventLoop()