Paradox Community

Items in pnews.paradox-development

Subject:Re: LocalSQL hourglass circle stays
Date:16 Jun 2020 08:27:16 -0400
From:"Thies Grimm" <thies.grimm@t-online.de>
Newsgroups:pnews.paradox-development

hi Kevin,
we use showcursor to catch the mouse problem:

************************************************************
Uses "user32.dll"
   ShowCursor(siCursor CWORD) CWORD         ; //   Displays or hides the
cursor.
{Parameters: 
   •    bShow, Type: BOOL
      If bShow is TRUE, the display count is incremented by one. 
      If bShow is FALSE, the display count is decremented by one.
Return Value:
• Type: int
  The return value specifies the new display counter.
Remarks: 
This function sets an internal display counter that determines whether the
cursor should be displayed. 
The cursor is displayed only if the display count is greater than or equal
to 0. 
If a mouse is installed, the initial display count is 0. 
If no mouse is installed, the display count is –1.      }

endUses

method cmShowCursor(lg Logical)
var
   si                  Smallint
endVar

   switch
   ; //   False, no = hide mouse
      case lg = No: 
         si = ShowCursor(0)          ; //   decrement by one
         while si >= 0
            si = ShowCursor(0) 
         endWhile
   ; //   True, yes = show mouse
      case lg = Yes: 
         si = ShowCursor(1)         ; //   increment by one
         while si < 1
            si = ShowCursor(1) 
         endWhile
   endSwitch   
endMethod
************************************************************

And we call executeSQL like this:

method run(var eventInfo Event)

   ...

   cmShowCursor(No)
   try
      if not itemSQL.executeSQL(dbSQL) then
         fail()
      endIf
   onFail
   ; //   save error

   ; //   Cursor wieder anzeigen
      cmShowCursor(Yes)

   ; //   error handling

   endTry

   cmShowCursor(Yes)


endMethod

Hope this helps ... 


"Kevin Zawicki" <numberjack@wi.rr.com> wrote:
>
>AS I switch processes over to localSQL I notice that on some larger procs
>the mouse changes to the Win10 "hourglass" circle, more. Specifically during
>localSQL executing. It is not any slower (mostly same or faster). But sometime
>the "hourglass" circle stays on screen after proc is complete until I move
>the mouse. Not really anything wrong, but is is misleading to the user.
>
>Anyone else see this?


Copyright © 2004 thedbcommunity.com