ChangeListIconGadgetDisplay() et thèmes XP

Anonyme2 · Message par **Anonyme2** » dim. 30/juil./2006 5:47

Le code en fin de message plante si on active les thèmes XP mais ne plante pas s'il ne sont pas activés.

Si on met en commentaire la création de la colonne de la 2eme ListIcon ou si on met en commentaire la ligne ChangeListIconGadgetDisplay(0, #PB_ListIcon_SmallIcon)
ça ne plante plus

Même problème avec #PB_ListIcon_LargeIcon

Je ne vois pas ce qui cloche

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 630, 370, " Item image", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
     If CreateGadgetList(WindowID(0))

           If ListIconGadget(0, 8, 1, 300, 150, "Colonne 1 ", 298 / 4, #PB_ListIcon_MultiSelect | #PB_ListIcon_FullRowSelect)
              If CreateImage(0, 16, 16, 24)
                 AddGadgetColumn(0, 1, "Colonne 2", 298 / 4)
                 AddGadgetColumn(0, 2, "Colonne 3", 298 / 4)
                 AddGadgetColumn(0, 3, "Colonne 4", 298 / 4)
                   
                 AddGadgetItem(0, -1, "111" + Chr(10) + "222" + Chr(10) + "333" + Chr(10) + "444", ImageID(0))
              EndIf 
   
              If ListIconGadget(1, 319, 1, 300, 150, "Colonne 1 ", 298 / 4, #PB_ListIcon_MultiSelect | #PB_ListIcon_FullRowSelect)
                 AddGadgetColumn(1, 1, "Colonne 2", 150)
                 AddGadgetItem(1, -1, "111")
                          
                 ChangeListIconGadgetDisplay(0, #PB_ListIcon_SmallIcon)
              
                    ;- boucle
                    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
              EndIf
           EndIf
     EndIf
EndIf
End

Flype · Message par **Flype** » dim. 30/juil./2006 11:56

oui c'est étonnant, effectivement.

il doit y avoir un bug dans

ChangeListIconGadgetDisplay(0, #PB_ListIcon_SmallIcon) ; Item 0

et

ChangeListIconGadgetDisplay(0, #PB_ListIcon_LargeIcon) ; Item 0

parce que çà fonctionne bien avec :

ChangeListIconGadgetDisplay(1, #PB_ListIcon_SmallIcon) ; Item 1

ou

ChangeListIconGadgetDisplay(0, #PB_ListIcon_Report) ; Item 0

EN RESUME :

ChangeListIconGadgetDisplay() plante

SI Item = 0
ET SI Mode = #PB_ListIcon_SmallIcon
OU SI Mode = #PB_ListIcon_LargeIcon

Anonyme2 · Message par **Anonyme2** » dim. 30/juil./2006 13:40

J'ai réécrit en PB la commande ChangeListIconGadgetDisplay avant de poster et j'ai testé, mais j'avais exactement le même plantage.