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:** 342

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.

singo · **Posted:** Tue Dec 24, 2019 6:03 am

@said

Thank you very much for your Grid gadget, I have used it successfully in one project already in combination with Google SQL Cloud.

I was wondering if it was possible to have something like

EditCell(Gadget.i, Row, Col, SetCellFocus = #True)

where after calling the cell is ready for immediate editing, without having to click the mouse to start the editing process.

P.S. Seasons Greetings !

mk-soft · **Posted:** Tue Dec 24, 2019 12:18 pm

Is like Excel, only not the F2 key but the Enter key.

Had once added the F2 key for editing

singo · **Posted:** Thu Dec 26, 2019 7:05 am

Thank you and yes AFTER clicking an editable cell you can then use the Return key.

But I want my program to do this NOT the user.

I would like my program to start and immediately be in an editable cell without any user clicking the mouse or pressing any keys.

Is this possible ?

Thank you

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

singo wrote:

I would like my program to start and immediately be in an editable cell without any user clicking the mouse or pressing any keys.

Hi Singo,

First, glad to hear that my work was helpful to you, you are welcome ... and Seasons Greetings to everyone
I see the great mk-soft is trying to help as always!

The default editing mode is: when in a cell, you start typing and you exit with any keys ... you overwrite existing content
The other mode is you hit enter in a cell and then the caret is placed at the end of current cell-text, so any new typed text is placed at the end ... you are appending new text to existing one

Back to your question, i believe this is the default mode, am i missing something here?

Said

mk-soft · **Posted:** Thu Dec 26, 2019 1:15 pm

I think he wants to initialize the edit mode from a cell via the program, but this is not a standard.

singo · **Posted:** Fri Dec 27, 2019 8:48 am

mk-soft wrote:

I think he wants to initialize the edit mode from a cell via the program, but this is not a standard.

Yes, exactly, I'm sorry if I wasn't clear but that is what I want to do.

I want to use the grid for data entry and I don't want the user to have to click every time they want to make an entry.

PureBasic Forum

Canvas based Grid gadget

Who is online