Restored from previous forum. Originally posted by fred.
Here is a little example to have modern listicon. It needs IE4+ (ie: Win98+, Win2k+ or IE4+ on Win95 and WinNT4)
Code: Select all
;
; ListIcon extension, by AlphaSND
;
#WindowWidth = 450
#WindowHeight = 315
#LVM_SETEXTENDEDLISTVIEWSTYLE = (#LVM_FIRST+54)
#LVS_EX_GRIDLINES =1
#LVS_EX_SUBITEMIMAGES =2
#LVS_EX_CHECKBOXES =4
#LVS_EX_TRACKSELECT =8
#LVS_EX_HEADERDRAGDROP =16
#LVS_EX_FULLROWSELECT =32
#LVS_EX_ONECLICKACTIVATE =64
#LVS_EX_TWOCLICKACTIVATE =128
#LVS_EX_FLATSB =256
#LVS_EX_REGIONAL =512
#LVS_EX_INFOTIP = 1024
#LVS_EX_UNDERLINEHOT =$800
#LVS_EX_UNDERLINECOLD =$1000
#LVS_EX_MULTIWORKAREAS =$2000
If OpenWindow(0, 100, 120, #WindowWidth, #WindowHeight, "PureBasic - Advanced Gadget Demonstration", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
*List = ListIconGadget(5, 8, 10, #WindowWidth-20, #WindowHeight-40, "Column 1", 131)
AddGadgetColumn(5, 1, "Column 2", 300)
AddGadgetColumn(5, 2, "Column 3", 80)
For k=0 To 100
AddGadgetItem(5, k, "Element "+Str(k)+Chr(10)+"C 2"+Chr(10)+"Comment 3", 0)
Next
SendMessage_(*List, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_FULLROWSELECT, #LVS_EX_FULLROWSELECT)
SendMessage_(*List, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_FLATSB, #LVS_EX_FLATSB)
SendMessage_(*List, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_HEADERDRAGDROP, #LVS_EX_HEADERDRAGDROP)
SendMessage_(*List, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_GRIDLINES, #LVS_EX_GRIDLINES)
SendMessage_(*List, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_CHECKBOXES, #LVS_EX_CHECKBOXES)
; Note: Several types can be put in one call:
; SendMessage_(*List, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_FULLROWSELECT | #LVS_EX_HEADERDRAGDROP, #LVS_EX_FULLROWSELECT | #LVS_EX_HEADERDRAGDROP)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf