QtContribs - Handle of the mouse inside the oBrowse object

8 views
Skip to first unread message

Zoran Sibinovic

unread,
Feb 25, 2026, 4:16:44 AM (4 days ago) Feb 25
to QtContribs
Hi to all,

During the make of an app I made an oBrowse object where I defined the vertical movement block as: oBrowse:verticalMovementBlock := {|| SomeApp(oBrowse) } 

The SomeApp() is a procedure that calculates and display some data and the calculation could be pretty heavy, now ...

I have noticed that when I vertically move trough the table using the keyboard keys or using the mouse within the scrollbar, there is almost no delay for the data to be displayed.
On the other hand if I press, with the mouse, on some cell that is distant from the current cell, as ex., about 10 rows up and 10 columns on the left, it happens that it tooks about 5-10 sec. to the newely chosen cell to highlights and to display the processed data.
 
Since the vertical movement in the browse object in this case (invisible to us) works by moving vertically and horizontally cell by cell till the new cell is not reached, my SomeApp() is processed on vertical move what is is ok.
The problem is if we have a heavy process in the block so, in the example above takes about 0.7 sec per row and in a total of 7 sec. to reach the chosen cell.

My question is: there is some way or idea to use
oBrowse:verticalMovementBlock := {|| SomeApp(oBrowse) }  or
some other browse class  METHOD or variable to stabilize or signalize the end of the internal vertical/horizontal movement as first and than trigger the SomeApp() execution.

Thanks
Zoran 





 

kamlesh patel

unread,
Feb 25, 2026, 5:43:58 AM (3 days ago) Feb 25
to qtcon...@googlegroups.com
Respected sir

How to use the harbour with qt.
Please guide me.

Best regards
kamlesh
> --
> You received this message because you are subscribed to the Google Groups "QtContribs" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to qtcontribs+...@googlegroups.com.
> To view this discussion visit https://groups.google.com/d/msgid/qtcontribs/ee7b3e70-a94f-443a-844c-f2c61502712bn%40googlegroups.com.

Zoran Sibinovic

unread,
Feb 25, 2026, 6:47:36 AM (3 days ago) Feb 25
to QtContribs
Hi Kamleh
this is a complex request, first of all you have installed Qt from the Qt site, then downloaded QtContribs source, compile it, set the windows environment, and then from the tests folder chose what suits to you for your apps.
Mostly I learn indipendently you can find several guides with the basic concepts od the usage of QtContribs on the net.
Also it is important that you read the posts in the last 10 years.
Sorry if I disappointed you but I have no time to teach from the start.
Best regards and good luck in this.

Zoran  

Zoran Sibinovic

unread,
Feb 25, 2026, 6:59:08 AM (3 days ago) Feb 25
to QtContribs
Hi to all,
I found an alternative that works:
1. I disabled oBrowse:verticalMovementBlock := {|| SomeApp(oBrowse) } 

2. Used only:  oBrowse:navigationBlock       := {|nKey,xData,oBrowse| ApplyKey( nKey,oBrowse,oDlg ) }
...
STATIC FUNCTION ApplyKey( nKey,oBrowse,oDlg )
...
DO CASE
   CASE nKey = K_ESC ; oDlg:close()
   
   CASE (nKey = K_LBUTTONDOWN .OR. nKey = K_UP  .OR. nKey = K_PGUP .OR. nKey = K_CTRL_PGUP .OR. nKey = K_DOWN  .OR. nKey = K_PGDN .OR. nKey = K_CTRL_PGDN)
   
           DO CASE
                 CASE nKey = K_UP                     ; oBrowse:Up()
                 CASE nKey = K_DOWN              ; oBrowse:Down()
                 CASE nKey = K_PGUP               ; oBrowse:pageUp()  
                 CASE nKey = K_PGDN               ; oBrowse:pageDown()
                 CASE nKey = K_CTRL_PGUP    ; oBrowse:goTop()    
                 CASE nKey = K_CTRL_PGDN    ; oBrowse:goBottom()
         CASE nKey = K_LBUTTONDOWN
       ENDCASE
           SomeApp( oBrowse )
   ... 

Added the mouse pressed left button in Applykey() and It works fine, also have to add all the up/down other keys that is not required  from oBrowse:verticalMovementBlock() 

This works, just I hoped ... that oBrowse:verticalMovementBlock() works also completely in the same manner.

Any suggestions are welcome
Zoran

kamlesh patel

unread,
Feb 26, 2026, 12:13:52 AM (3 days ago) Feb 26
to qtcon...@googlegroups.com
Thank you for your reply.

Best regards
Kamlesh

On Wed, Feb 25, 2026 at 5:17 PM Zoran Sibinovic
> To view this discussion visit https://groups.google.com/d/msgid/qtcontribs/e26d6d39-e662-4a9a-b5fd-a67b8566a0e4n%40googlegroups.com.
Reply all
Reply to author
Forward
0 new messages