For the moment I use a function like this to force the PanelGadget to display it's Tab in Multirows.
Code: Select all
Procedure ForcePanelGadgetToMultiRows(GadgetID.l)
OldStyle.l = GetWindowLongPtr_(GadgetID(GadgetID), #GWL_STYLE)
NewStyle.l = OldStyle | #TCS_MULTILINE | #TCS_RIGHTJUSTIFY
SetWindowLongPtr_(GadgetID(GadgetID), #GWL_STYLE, NewStyle)
SetGadgetState(GadgetID, 0)
EndProcedure
Best Regards
Guimauve