GridGadget

[rndrei]

How to display a table?
I looked on the forum, there is not a single working code!?
As I understand it, you need through ListiconGadget?
Interested in how to remove lines backlighting, so that only on the cells there is a selection?

Code: Select all

 If OpenWindow(0, 0, 0, 400, 150, "ListIcon - Add Columns", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ListIconGadget(0, 10, 10, 380, 100, "Standard Column", 150, #PB_ListIcon_GridLines)
    ButtonGadget(1, 10, 120, 150, 20, "Add new column")
    index = 1     ; "Standard column" has already index 0
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Gadget
        If EventGadget() = 1
          AddGadgetColumn(0, index, "Column "+Str(index), 80)
          AddGadgetItem(0,index,"Row"+Str(index))
          index + 1
        EndIf
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

[infratec]

Btw. you have a bug in your AddGadgetItem() the index is wrong.

Code: Select all

If OpenWindow(0, 0, 0, 400, 150, "ListIcon - Add Columns", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(0, 10, 10, 380, 100, "Standard Column", 150, #PB_ListIcon_GridLines)
  ButtonGadget(1, 10, 120, 150, 20, "Add new column")
  index = 1     ; "Standard column" has already index 0
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Gadget
      If EventGadget() = 1
        AddGadgetColumn(0, index, "Column " + Str(index), 80)
        AddGadgetItem(0, index - 1, "Row" + Str(index))
        
        SetGadgetItemText(0, index - 1, Str(index), index)
        
        index + 1
      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

Btw. this is written in the help of the ListIconGadget

[RNBW]

A very interesting way to develop a Grid.

What would be really useful would be if there was also a way of adding rows independent of an increased number of columns. There does not appear to be a AddGadgetRow() to complement AddGadgetColumn().

I've answered my own question. REM out the AddGadgetColumn() and it simply adds rows!

Code: Select all

If OpenWindow(0, 0, 0, 400, 150, "ListIcon - Add Columns", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(0, 10, 10, 380, 100, "Standard Column", 150, #PB_ListIcon_GridLines)
  ButtonGadget(1, 10, 120, 150, 20, "Add new Row")
  index = 1     ; "Standard column" has already index 0
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Gadget
      If EventGadget() = 1
        ;AddGadgetColumn(0, index, "Column " + Str(index), 80)
        AddGadgetItem(0, index - 1, "Row" + Str(index))
        
        SetGadgetItemText(0, index - 1, Str(index), index)
        
        index + 1
      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

[Fred]

Here is a very good grid gadget by said: https://www.purebasic.fr/english/viewto ... 28#p408428

[mk-soft]

Here is a very good grid gadget by said: https://www.purebasic.fr/english/viewto ... 28#p408428

And for said's grid gadget a few updates: https://www.purebasic.fr/english/viewto ... 94#p601094

[rndrei]

Thank you, working code!

[rndrei]

Here is a very good grid gadget by said: https://www.purebasic.fr/english/viewto ... 28#p408428

And for said's grid gadget a few updates: https://www.purebasic.fr/english/viewto ... 94#p601094

I can’t understand how to get the coordinates of X, Y tables in the window?Is there such a procedure?

[mk-soft]

With Grid Gadget there is no X or Y.
There is talk of Rows and Columns ...

[rndrei]

I can't figure it out!How to hide the title on X?
On y found

Code: Select all

 ShowRowNumbers () 

And what kind of square is hanging in the upper left corner?