WindowsAPI ListIconGadget

[Distorted Pixel]

Is there such thing as a WinAPI ListIconGadget command? I have searched the Windows API index online to all end and haven't found it if it does exist.

If it does, maybe I'm not looking in the right place

[spikey]

(On Windows) the ListIconGadget uses the List View control. You can find its API documentation at https://learn.microsoft.com/en-us/windo ... -reference

[RASHAD]

Hi

Code: Select all

#HDS_CHECKBOXES          = $0400
#HDF_CHECKBOX            = $0040
#HDF_CHECKED             = $0080

Global oldproc,header, header_h

colinfo.LV_COLUMN 
colinfo\mask = #LVCF_TEXT|#LVCF_WIDTH|#LVCF_FMT 
colinfo\fmt = #LVCFMT_LEFT 
colinfo\cx = 160

Procedure Hheight(hWnd, uMsg, wParam, lParam)
  result = CallWindowProc_(oldproc, hWnd, uMsg, wParam, lParam)
  Select uMsg
    Case #HDM_LAYOUT
      *hdlayout.HD_LAYOUT = lParam
      If *hdlayout\prc <> 0
        *rect.RECT = *hdlayout\prc
        *rect\top = header_h
      EndIf
      If *hdlayout\pwpos <> 0
        *windowpos.WINDOWPOS = *hdlayout\pwpos
        *windowpos\cy = header_h
      EndIf          
  EndSelect
  ProcedureReturn result
EndProcedure

hwnd = OpenWindow(0,0,0,800,600, "API Listview",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
lv = CreateWindowEx_(#WS_EX_STATICEDGE , "SysListView32", "API ListView", #LVS_REPORT | #WS_CHILD | #WS_VISIBLE | #WS_HSCROLL | #WS_VSCROLL , 10,10,780,570,hwnd,0,0,0) 
flags = #LVS_EX_FULLROWSELECT|#LVS_EX_CHECKBOXES|#LVS_EX_GRIDLINES
SendMessage_(lv,#LVM_SETEXTENDEDLISTVIEWSTYLE,flags,flags)
SendMessage_(lv,#LVM_SETTEXTCOLOR,0,$FFFFFF)
SendMessage_(lv,#LVM_SETTEXTBKCOLOR,0,$0)
SendMessage_(lv,#LVM_SETBKCOLOR,0,$D4D4D4)

header_h = 45
Header = SendMessage_(lv, #LVM_GETHEADER, 0, 0)
SetWindowLongPtr_(Header, #GWL_STYLE, GetWindowLongPtr_(Header, #GWL_STYLE) | #HDS_CHECKBOXES)
oldproc = SetWindowLongPtr_(Header, #GWL_WNDPROC, @Hheight())

For x = 0 To 6
  header$= "Column Header "+Str(x)
  colinfo\pszText = @header$
  SendMessage_(lv, #LVM_INSERTCOLUMN, x, @colinfo) 
Next

line.LV_ITEM 
line\Mask     = #LVIF_TEXT 
For i=0 To 100
  linetxt.s = "text entry "
  line\iitem = i
  line\pszText  = @linetxt
  SendMessage_(lv, #LVM_INSERTITEM, 0, @line)
  For c = 1 To 10
    col.LV_ITEM 
    coltext.s = "text entry " + Str(i) + " " +Str(c)
    col\Mask     = #LVIF_TEXT 
    col\iitem = i
    col\iSubItem = c
    col\pszText  = @coltext
    SendMessage_(lv, #LVM_SETITEM, 0, @col)
  Next
Next

Repeat 
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow
      Quit = 1
      
  EndSelect
Until Quit = 1

End

[jacdelad]

What exactly do you need?
TileView plus groups and some other stuff: https://www.purebasic.fr/english/viewtopic.php?t=78230
Sorting on header click: https://www.purebasic.fr/english/viewtopic.php?t=55085
And much more...

[Distorted Pixel]

(On Windows) the ListIconGadget uses the List View control. You can find its API documentation at https://learn.microsoft.com/en-us/windo ... -reference

While I was looking throught the API index online and couldn't find ListIconGadget any where, I started to think that it might have something to do with List View, but I wasn't sold on the idea. Thank you for the link. I will study it.

Hi

Code: Select all

#HDS_CHECKBOXES          = $0400
#HDF_CHECKBOX            = $0040
#HDF_CHECKED             = $0080

Global oldproc,header, header_h

colinfo.LV_COLUMN 
colinfo\mask = #LVCF_TEXT|#LVCF_WIDTH|#LVCF_FMT 
colinfo\fmt = #LVCFMT_LEFT 
colinfo\cx = 160

Procedure Hheight(hWnd, uMsg, wParam, lParam)
  result = CallWindowProc_(oldproc, hWnd, uMsg, wParam, lParam)
  Select uMsg
    Case #HDM_LAYOUT
      *hdlayout.HD_LAYOUT = lParam
      If *hdlayout\prc <> 0
        *rect.RECT = *hdlayout\prc
        *rect\top = header_h
      EndIf
      If *hdlayout\pwpos <> 0
        *windowpos.WINDOWPOS = *hdlayout\pwpos
        *windowpos\cy = header_h
      EndIf          
  EndSelect
  ProcedureReturn result
EndProcedure

hwnd = OpenWindow(0,0,0,800,600, "API Listview",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
lv = CreateWindowEx_(#WS_EX_STATICEDGE , "SysListView32", "API ListView", #LVS_REPORT | #WS_CHILD | #WS_VISIBLE | #WS_HSCROLL | #WS_VSCROLL , 10,10,780,570,hwnd,0,0,0) 
flags = #LVS_EX_FULLROWSELECT|#LVS_EX_CHECKBOXES|#LVS_EX_GRIDLINES
SendMessage_(lv,#LVM_SETEXTENDEDLISTVIEWSTYLE,flags,flags)
SendMessage_(lv,#LVM_SETTEXTCOLOR,0,$FFFFFF)
SendMessage_(lv,#LVM_SETTEXTBKCOLOR,0,$0)
SendMessage_(lv,#LVM_SETBKCOLOR,0,$D4D4D4)

header_h = 45
Header = SendMessage_(lv, #LVM_GETHEADER, 0, 0)
SetWindowLongPtr_(Header, #GWL_STYLE, GetWindowLongPtr_(Header, #GWL_STYLE) | #HDS_CHECKBOXES)
oldproc = SetWindowLongPtr_(Header, #GWL_WNDPROC, @Hheight())

For x = 0 To 6
  header$= "Column Header "+Str(x)
  colinfo\pszText = @header$
  SendMessage_(lv, #LVM_INSERTCOLUMN, x, @colinfo) 
Next

line.LV_ITEM 
line\Mask     = #LVIF_TEXT 
For i=0 To 100
  linetxt.s = "text entry "
  line\iitem = i
  line\pszText  = @linetxt
  SendMessage_(lv, #LVM_INSERTITEM, 0, @line)
  For c = 1 To 10
    col.LV_ITEM 
    coltext.s = "text entry " + Str(i) + " " +Str(c)
    col\Mask     = #LVIF_TEXT 
    col\iitem = i
    col\iSubItem = c
    col\pszText  = @coltext
    SendMessage_(lv, #LVM_SETITEM, 0, @col)
  Next
Next

Repeat 
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow
      Quit = 1
      
  EndSelect
Until Quit = 1

End

So, basically a WinAPI ListIconGadget is nothing but multiple WinAPI ListViewGadgets connected together?

Thank you very much for the snippet RASHAD. I will study it and try to learn how it is put together.

[mk-soft]

So, basically a WinAPI ListIconGadget is nothing but multiple WinAPI ListViewGadgets connected together?

No,

ListViewGadget -> Windows ListBox
ListIconGadget -> Windows ListView

[Distorted Pixel]

What exactly do you need?

I have the same project going in both AppGameKit and PureBasic. They both have their advantages and disadvantages toward each other. I find it easier to program in AGK when it pertains to 2D and 3D graphics, but when it comes to things like displaying information on screen with the ability to scroll through it and select things and editing and so on, PureBasic is easier to use because of the gadgets like ListViewGadget and ListIconGadget for example. AGK doesn't have anything that makes it easy to do that.

So, with that being said I was thinking about creating a dll with a WinAPI ListView thing among some other things in it including a data manipulation procedures. Since we can't just wrap commands to use with 3rd party programming language, using WinAPI is a work around to not run into a licensing issue with Fred. I totally forgot that there is a lot more involved in creating anything with WinAPI. I don't have that much experience with WinAPI, after all I am a beginner at Windows API. So...I guess that idea is out.

[Edit:]I also thought I could start a Tier 2 project in AGK and use WinAPI to create the ListView stuff that way and not use a dll

I use the 64 bit version and I updated to 6.04 LTS and my code broke. I have multiple windows within this program and one stays open the whole time, but hides when not in use. I had a linked list finally working the way I wanted. I didn't touch the code at all and just updated to 6.04 and it claims now that the list doesn't exist when I know it does. This is why I went back to AGK for now. Why it broke I couldn't tell you

So, basically a WinAPI ListIconGadget is nothing but multiple WinAPI ListViewGadgets connected together?

No,

ListViewGadget -> Windows ListBox
ListIconGadget -> Windows ListView

As soon as I posted that, I thought... how stupid of me to think that even for a second, let alone post it. I knew better LOL

[jacdelad]

Everything that's possible with PureBasic you can do with API too, but some things are a piece of work, like colouring items. Also, for many simple tasks, like changing the text of a single cell, needs a bit more than just a single line. It's not hard, but you'd have to do a lot of "pre" work. With that being said, it's up to you, whether that's worth it or not.

[AZJIO]

https://www.purebasic.fr/english/viewto ... 82#p603182

[Distorted Pixel]

Everything that's possible with PureBasic you can do with API too, but some things are a piece of work, like colouring items. Also, for many simple tasks, like changing the text of a single cell, needs a bit more than just a single line. It's not hard, but you'd have to do a lot of "pre" work. With that being said, it's up to you, whether that's worth it or not.

I have learned some so far, but nothing to make a whole gadget myself yet. So far I have just used a constant here and there to change a native command gadget (ListIconGadget()) in a way I have needed it to be like no headers (#LVS_NOCOLUMNHEADER). I have also used other people's example code of creating a ListIconGadget and study it and experiment with it to learn what I can from it. I have a long way to go with API, but I do think in some cases it is well worth it.

https://www.purebasic.fr/english/viewto ... 82#p603182

Thank you for the link AZJIO, this will be quit helpfull and yes I search online a lot when I run into things I don't know what are or if I need to understand something better than what the documentation says of anything I am working with. In most cases it helps a lot to do that. My brother calls me "Mr. Search and Find", if it is out there I will find it LOL