http://www.purebasic.fr/english/viewtop ... 5&start=72Lebostein wrote:Is there possibility for Mac OS too?
Cross-platform for Linux, MacOS and Windows:
Code: Select all
Procedure HideListIconHeader(ListIconID.I)
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
gtk_tree_view_set_headers_visible_(GadgetID(ListIconID), #False)
CompilerCase #PB_OS_MacOS
CocoaMessage(0, GadgetID(ListIconID), "setHeaderView:", 0)
CompilerCase #PB_OS_Windows
SetWindowLongPtr_(GadgetID(ListIconID), #GWL_STYLE,
GetWindowLongPtr_(GadgetID(ListIconID),
#GWL_STYLE) | #LVS_NOCOLUMNHEADER)
CompilerEndSelect
EndProcedure
OpenWindow(0, 200, 100, 430, 135, "ListIcon Example")
ListIconGadget(0, 10, 10, WindowWidth(0) - 20, WindowHeight(0) - 50, "Name", 110)
AddGadgetColumn(0, 1, "Address", GadgetWidth(0) - GetGadgetItemAttribute(0, 0,
#PB_ListIcon_ColumnWidth) - 8)
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ +
"12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit" + #LF$ +
"130 PureBasic Road, BigTown, CodeCity")
AddGadgetItem(0, -1, "Didi Findit" + #LF$ +
"321 Logo Drive, Mouse House, Downtown")
ButtonGadget(1, WindowWidth(0) / 2 - 70, WindowHeight(0) - 33, 140, 25,
"Hide title header")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
If EventGadget() = 1 And EventType() = #PB_EventType_LeftClick
HideListIconHeader(0)
DisableGadget(1, #True)
EndIf
EndSelect
ForEver