Canvas based Grid gadget

mk-soft · **Posted:** Thu Aug 23, 2018 1:17 pm

@said

very nice module.

Combobox works now under MacOS with Workaround for CanvasGadget

Link to FixResizeGadget: viewtopic.php?f=24&t=71269

P.S. MacOS
If the width of ScrollBarGadget to small then change the scrollbar to vertical
Fix:

Code:

  Procedure.i New(WinNbr, Gadget, X, Y, W, H, Rows = 500, Cols = 100, DrawNow = #True, VerScrollBar = #True, HorScrollBar = #True, RowNumbers = #True)
    Protected *mg.TGrid, oldGdtList
    Protected ret,i,j,ttlW,ttlH,xx,yy
    
    If Not IsWindow(WinNbr) : ProcedureReturn -1 : EndIf
    If IsGadget(Gadget)     : ProcedureReturn -1 : EndIf
    
    *mg = AllocateStructure(TGrid)
    
    ; -- sub-gadgets creation
    oldGdtList = UseGadgetList(WindowID(WinNbr)) 
    ret = CanvasGadget(Gadget, X, Y, W, H, #PB_Canvas_Keyboard|#PB_Canvas_Container);|#PB_Canvas_Border)
    If Gadget = #PB_Any : Gadget = ret: EndIf
    
    *mg\RowScroll = -1
    *mg\ColScroll = -1
    If VerScrollBar
      *mg\RowScroll = ScrollBarGadget(#PB_Any,0,0,10,20,0,100,10, #PB_ScrollBar_Vertical)
      SetGadgetData(*mg\RowScroll, *mg)
      BindGadgetEvent(*mg\RowScroll, @_SynchronizeGridRows(), #PB_All)
    EndIf
    
    If HorScrollBar
      *mg\ColScroll = ScrollBarGadget(#PB_Any,0,0,20,10,0,100,10)
      SetGadgetData(*mg\ColScroll, *mg)
      BindGadgetEvent(*mg\ColScroll, @_SynchronizeGridCols(), #PB_All)
    EndIf

LiK137 · **Joined:** Wed Jun 23, 2010 5:13 pm **Posts:** 206

Very nice gadget and useful.
Adding few hundred records to grid with sql select loop is may seem no problem but 6K records take 20 seconds with elapsedmilliseconds and disabled debugger on intel i5 8GB RAM. 27MB RAM and 50% CPU is used.

Would be very thankful for solution.

skywalk · **Posted:** Wed Apr 03, 2019 6:40 pm

Rich gadgets are not intended to populate entire data set. Change your code to fill only 50 or whatever records and use scrollbars to update.

LiK137 · **Joined:** Wed Jun 23, 2010 5:13 pm **Posts:** 206

Thank You very much.
I got that part but scrolling is not working.

I have digged deeper and found that "shift", "ctrl" and "ctrl"+"shift" handled but not #PB_Canvas_Shift and Srolling

Strange part that MyGrid example is working.

said · **Joined:** Thu Apr 14, 2011 6:07 pm **Posts:** 341

LiK137 wrote:

Very nice gadget and useful.
Adding few hundred records to grid with sql select loop is may seem no problem but 6K records take 20 seconds with elapsedmilliseconds and disabled debugger on intel i5 8GB RAM. 27MB RAM and 50% CPU is used.

Would be very thankful for solution.

Hi,

To load big number of rows, i would use it this way (not sure if you are not using it already though):

Code:

MyGrid::NoRedraw(Gadget)
.... load huge data here ...
MyGrid::Redraw(Gadget)

What skywalk has mentioned is certainly very valid, however the events received by the scrollbars are bound to an internal procedures via BindGadgetEvent() that synchronize the drawing _SynchronizeGridCols() and _SynchronizeGridRows() ... It wont be easy to change those routines so you can intercept scrollbars events! At least i wont do it myself! Not sure if more recent versions of PB offer more flexibility regrading scrollbars events, i am no longer using PB these days

Said

LiK137 · **Joined:** Wed Jun 23, 2010 5:13 pm **Posts:** 206

Thank You very much.

I agree with that big data should be handled by partial load with scrolling.

And I see that scrolling is handled and index is changing based on direction of scrolling.
Arrow keys with any combination (Ctrl and/or Shift) events are handled
MoveLeft...MoveDown is Handled but grid is not changing/refreshing.

Finaly, Redraw(Gadget) was just resizing while NoRedraw(Gadget) was changing flag permanently.
That is why grid was not refresing. Just Copied NoRedraw as AutoRedraw with flag set #True.

ThanQ very much again for replies.

PureBasic Forum

Canvas based Grid gadget

Who is online