Vista / ListIcon

[srod]

Code: Select all

If OpenWindow(0, 100, 100, 300, 100, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(0, 5, 5, 290, 90, "Name", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
   
  For i = 0 To 20
    AddGadgetColumn(0, i, "Column "+Str(i), 80)
  Next

  Repeat
     Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

When I run the above on Vista with themes enabled, the horizontal scrollbar does not appear until I resize a column! No probs on XP.

Can anyone else confirm?

[moogle]

Appears on the start for me (Vista Ultimate x64 SP2)


EDIT: Just saw the themes bit and -> Enable XP Skin Support, and it no longer does until like you said, resizing the columns.

Anyway this seems like a quick fix for it

Code: Select all

If OpenWindow(0, 100, 100, 300, 100, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(0, 5, 5, 290, 90, "Name", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
   
  For i = 0 To 20
    AddGadgetColumn(0, i, "Column "+Str(i), 80)
  Next
; 	SetGadgetItemAttribute(0, 20, #PB_Explorer_ColumnWidth , 81)
; 	SetGadgetItemAttribute(0, 20, #PB_Explorer_ColumnWidth , 80)
	HideGadget(0,1)
	HideGadget(0,0)
  Repeat
     Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

[srod]

It is strange - the scroll info messages are telling me that the scrolling range is zero. If I hide the control and then show it again (via HideGadget()) then the scrollbar appears and the scrolling range is reported correctly. Looks like a bug with the control itself.

[Denis]

The same on Seven x86

With themes disabled, it's Ok