Missing gridline in LIG

[Lord]

Hi!

I noticed, after I switched from Win7 to Win11, that the gridline
between header and first line is missing. At least here.

Code: Select all

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Titel",400,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
  For a=1 To 5
    AddGadgetItem(1,-1,"Item "+Str(a),0,0)
  Next
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Is it only here or has anyone else this also noticed?

[boddhi]

I don't have W11 but with W10, it's the same...

[Mijikai]

Same for me on my Win 11

[BarryG]

Doesn't show it on Win 10 either. Has it ever?

[RASHAD]

Hi Lord
Workaround

Code: Select all

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Titel",400,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
  AddGadgetColumn(1, 1, "test",100)
  header = SendMessage_(GadgetID(1), #LVM_GETHEADER,0,0 )
  SetWindowTheme_(Header, "","BUTTON") 
  For a=1 To 5
    AddGadgetItem(1,-1,"Item "+Str(a),0,0)
  Next
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[Lord]

Hi @all!
Thanks for confirmation.

... Has it ever?

Not her on Win7.

@Rashad:
Thank you for the workaround.
But I think this is a little misleading, as it let you think you can
trigger some action if you klick on column header.

I this a bug?

[RASHAD]

Hi Lord
The Header still as is
The theme is just a skin nothing more
You can also disable the Modern XP theme if you like

No Bug as I know and remember

Just checked the snippet with Windows 7
You are right but because Windows 7 was using a proper theme(LinearGradient)

[jacdelad]

Hasnt this been always that way? Afaik it's a bug already confirmed a long time ago.
Anyway, there's another fix for Windows:

Code: Select all

SendMessage_(GadgetID(#MyLIG),#LVM_SETEXTENDEDLISTVIEWSTYLE,#LVS_EX_GRIDLINES,#LVS_EX_GRIDLINES)

Edit:
Found it: https://www.purebasic.fr/german/viewtop ... 7&start=10, so it has been in since 4.51 at least.
And here: viewtopic.php?t=54152

[Lord]

Hi!

It seems, that on Win11 nobody uses gridlines anymore.
So a missing first gridline is not detectable.
But if you have an empty LIG with some empty rows and gridlines on,
it looks like the header has double the height as a regular row.
And that looks ugly.

@jacdelad:

SendMessage_(GadgetID(#MyListIcon), #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_GRIDLINES, #LVS_EX_GRIDLINES)

This doesn't solve this problem either. Same missing gridline.

I now think that it is a windows issue, not a PureBasic issue.

Thanks for help.

[ebs]

Code: Select all

SendMessage_(GadgetID(#MyLIG),#LVM_SETEXTENDEDLISTVIEWSTYLE,#LVS_EX_GRIDLINES,#LVS_EX_GRIDLINES)

When I use this (Win 11 Pro), it seems to make the vertical grid lines a little bit darker and more noticeable, but the horizontal line under the header row is still missing.

Does anyone else see this?

[jacdelad]

@jacdelad:

SendMessage_(GadgetID(#MyListIcon), #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_GRIDLINES, #LVS_EX_GRIDLINES)

This doesn't solve this problem either. Same missing gridline.

You're right, I didn't notice that. It only gets fixed for older Windows versions.

How about:

Code: Select all

SetWindowTheme_(Header, "","") 

for RASHADS code? I for one would prefer this, the BUTTON makes header look strange with the round corners and such.

[ebs]

How about:
SetWindowTheme_(Header, "","")
Plain text
for RASHADS code? I for one would prefer this, the BUTTON makes header look strange with the round corners and such.

Unfortunately, this doesn't do anything either.

[ChrisR]

@Rashad: ... But I think this is a little misleading, as it let you think you can
trigger some action if you klick on column header.

Maybe

Code: Select all

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Titel",400,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
  AddGadgetColumn(1, 1, "test",100)
  header = SendMessage_(GadgetID(1), #LVM_GETHEADER,0,0 )
  ;SetWindowTheme_(Header, "","BUTTON")
  SetWindowTheme_(Header, "","")
  SetWindowLongPtr_(header, #GWL_STYLE, GetWindowLongPtr_(header, #GWL_STYLE) &~ #HDS_BUTTONS)
  For a=1 To 5
    AddGadgetItem(1,-1,"Item "+Str(a),0,0)
  Next
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[RASHAD]

Hi ChrisR
No need to SetWindowLongPtr_(header, #GWL_STYLE, GetWindowLongPtr_(header, #GWL_STYLE) &~ #HDS_BUTTONS)
I keep saying that the themes is just a skin
If you don't like "BUTTON" skin
You can try
SetWindowTheme_(Header, "","TAB")
But I still advice with "BUTTON" because it's so close to the required action

[ebs]

ChrisR,

Your code produces the best looking result on Win 11 IMHO.
The header row is clearly defined with a different color than the rest of the control and there are no "buttons" to click!

It also works fine with my standard trick of setting the header font to bold.

Thank you!