ExplorerListGadget() et ChangeListIconGadgetDisplay()
Publié : mar. 08/nov./2005 12:44
Bug d'affichage quand on est en mode "Petites icones", et qu'on entre dans un dosier contenant des fichiers avec des noms très longs.
Si la longueur des noms est plus grande que la largeur des colonnes, le nom du fichier qui se trouve à côté se trouve décalé dans la colonne suivante.

Voilà un bout de code pour essayer.
Si la longueur des noms est plus grande que la largeur des colonnes, le nom du fichier qui se trouve à côté se trouve décalé dans la colonne suivante.

Voilà un bout de code pour essayer.
Code : Tout sélectionner
If OpenWindow(0,0,0,400,240,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ExplorerListGadget") And CreateGadgetList(WindowID(0))
ExplorerListGadget(0, 10, 10, 380, 180, "*.*", #PB_Explorer_MultiSelect)
ButtonGadget(1, 10, 200, 70, 20, "G. Icônes")
ButtonGadget(2, 90, 200, 70, 20, "P. Icônes")
ButtonGadget(3, 170, 200, 70, 20, "Liste")
ButtonGadget(4, 250, 200, 70, 20, "Detail")
ChangeListIconGadgetDisplay(0, 1)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_EventGadget
Select EventGadgetID()
Case 1
ChangeListIconGadgetDisplay(0, 0)
Case 2
ChangeListIconGadgetDisplay(0, 1)
Case 3
ChangeListIconGadgetDisplay(0, 2)
Case 4
ChangeListIconGadgetDisplay(0, 3)
EndSelect
EndSelect
Until Event=#PB_Event_CloseWindow
EndIf