To see what I mean, run this code. Then press the "A" key at least 8 times, and then scroll down the list and you'll see that the icons aren't in order (it has gaps, see screenshot below). Then press the "F" key to fix the display, and then "A" works normally.
I'm hoping there's a way to fix the display without changing the mode? Any ideas?
Code: Select all
If OpenWindow(0, 200, 200, 320, 185, "ListIconGadget", #PB_Window_SystemMenu)
ListIconGadget(1, 10, 10, 305, 165, "", 250, #PB_ListIcon_MultiSelect | #PB_ListIcon_AlwaysShowSelection)
If LoadImage(0, #PB_Compiler_Home+"Examples\Sources\Data\File.bmp")
SetGadgetAttribute(1, #PB_ListIcon_DisplayMode, #PB_ListIcon_LargeIcon)
text$ = "Notepad"
id = ImageID(0)
For i = 1 To 3
AddGadgetItem(1, 1, text$, id)
Next
EndIf
Repeat
Event = WaitWindowEvent()
If Event = #WM_KEYUP
Select EventwParam()
Case #VK_A
AddGadgetItem(1, -1, text$, id)
Case #VK_F ; Hack "fix". How to do this without changing the DisplayMode?
SetGadgetAttribute(1, #PB_ListIcon_DisplayMode, #PB_ListIcon_List)
SetGadgetAttribute(1, #PB_ListIcon_DisplayMode, #PB_ListIcon_LargeIcon)
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndIf