J'ai un problème avec le gadget ListIconGadget. En utilisant les flèches de l'ascenseur dans une liste assez longue, la grille n'est pas bien rafraîchie. Des traits supplémentaires apparaissent. Ce bug apparaît lorsque l'on active les thèmes XP.
Je ne vois pas très bien comment m'en sortir.
Cordialement.
Frédéric L.
Pb avec LstIconGadget
Voilà un bout de code. En activant les thèmes XP celà devrait permettre de se rendre compte.
Cordialement.
Fred L.
Enumeration
#fenetre
#ListIconGadget1
#gadSplitter
#gadEditor
EndEnumeration
#CCM_SETVERSION = #CCM_FIRST + 7
If OpenWindow(#fenetre, 0, 0, 400, 320, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "test") And CreateGadgetList(WindowID())
ListGadget = ListIconGadget(#ListIconGadget1, 0, 0, 0, 0, "0", 350/4, #PB_ListIcon_GridLines )
EditorGadget(#gadEditor,0,0,0,0)
SplitterGadget(#gadSplitter,10,10,380,300,1,#gadEditor)
SendMessage_(ListGadget, #CCM_SETVERSION, 5, 0)
AddGadgetColumn(#ListIconGadget1, 1, "1", 350/4)
AddGadgetColumn(#ListIconGadget1, 2, "2", 350/4)
AddGadgetColumn(#ListIconGadget1, 3, "3", 350/4)
For i = 0 To 300
AddGadgetItem(#ListIconGadget1, -1, "L"+Str(i)+"C0" + Chr(10) + "L"+Str(i)+"C1" + Chr(10) + "L"+Str(i)+"C2"+ Chr(10) +"L"+Str(i)+"C3"+ Chr(10) )
Next i
Repeat
If WaitWindowEvent() = #PB_EventCloseWindow
Break
EndIf
ForEver
EndIf
End
Cordialement.
Fred L.
Enumeration
#fenetre
#ListIconGadget1
#gadSplitter
#gadEditor
EndEnumeration
#CCM_SETVERSION = #CCM_FIRST + 7
If OpenWindow(#fenetre, 0, 0, 400, 320, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "test") And CreateGadgetList(WindowID())
ListGadget = ListIconGadget(#ListIconGadget1, 0, 0, 0, 0, "0", 350/4, #PB_ListIcon_GridLines )
EditorGadget(#gadEditor,0,0,0,0)
SplitterGadget(#gadSplitter,10,10,380,300,1,#gadEditor)
SendMessage_(ListGadget, #CCM_SETVERSION, 5, 0)
AddGadgetColumn(#ListIconGadget1, 1, "1", 350/4)
AddGadgetColumn(#ListIconGadget1, 2, "2", 350/4)
AddGadgetColumn(#ListIconGadget1, 3, "3", 350/4)
For i = 0 To 300
AddGadgetItem(#ListIconGadget1, -1, "L"+Str(i)+"C0" + Chr(10) + "L"+Str(i)+"C1" + Chr(10) + "L"+Str(i)+"C2"+ Chr(10) +"L"+Str(i)+"C3"+ Chr(10) )
Next i
Repeat
If WaitWindowEvent() = #PB_EventCloseWindow
Break
EndIf
ForEver
EndIf
End