Hi,
In my old clipper application on XP when running an exe program i see the pc works very slow in special when run a second application.
Is there some prg/obj to use to minimize the running of the exe clipper application while it is in backgrownd (with no focus) ?
Tks
P/Z
Thanks to all
Antonio Linares wrote:Piscicelli,
Please review this:
http://www.ghservices.com/gregh/clipper/trix0014.htm
Piscicelli Zingoni wrote:Hi,
In my old clipper application on XP when running an exe program i see the pc works very slow in special when run a second application.
Is there some prg/obj to use to minimize the running of the exe clipper application while it is in backgrownd (with no focus) ?
Tks
P/Z
Could u plz post a sample prg of using stopuntil() ?
I need it too.
Here is the baby
STATIC lExit := .F.
STATIC AncFocus
FUNCTION WINATTEND(nDelai, ETATPRECG, ETATPRECD)
lExit := .F.
ancFocus := GetFocus()
IF oTmr = NIL .OR. NOUVDELAI != MAX(nDelai, PUBVAR(155))
NOUVDELAI := MAX(nDelai, PUBVAR(155))
IF oTmr != NIL
oTmr:End()
ENDIF
oTmr := TTIMER():New( MIN(10, NOUVDELAI), { || lExit := .T. }, WndMain() )
ENDIF
BCOND := { || WINATTEND2(@ETATPRECG, @ETATPRECD) }
IF !EVAL( BCOND )
oTmr:Activate()
ANCMILLI := GetTickCount()
DO WHILE .T.
STOPUNTIL( BCOND )
IF !lExit .AND. EVAL( BCOND )
EXIT
ELSE
IF ( GetTickCount() - ANCMILLI ) >= NOUVDELAI
EXIT
ELSE
lExit := .F.
ENDIF
ENDIF
ENDDO
oTmr:DeActivate()
ENDIF
RETURN NIL
FUNCTION WINATTEND2(ETATPRECG, ETATPRECD)
RETURN ( lExit ;
.OR. GGMSTATE("LEFT") != ETATPRECG .OR. GGMSTATE("RIGHT") != ETATPRECD ;
.OR. GetFocus() <> ancFocus .OR. keyNext() <> 0 ;
.OR. PUBVAR(132) .OR. PUBVAR(139) ;
.OR. GetAsyncKey( VK_MENU ) .OR. GetAsyncKey( VK_SHIFT ) .OR. GetAsyncKey( VK_CONTROL ) ;
)
Regards,
What is the parameter values to send when calling Winattend() :-
=> nDelai, ETATPRECG, ETATPREC ???
Thanks.
tnhoe wrote:What is the parameter values to send when calling Winattend() :-
=> nDelai, ETATPRECG, ETATPREC ???
Thanks.
I do this :
:
:
ACTIVATE WINDOWS oWnd ON INIT (winattend(500,,),.F.)
after link it and give following errors : UNRESOLVED EXTERNAL
PUBVAR
STOPUNTIL
GGMSTATE
KEYNEXT
I use Clipper 5.2, Fivewin 1.95 only
I have found a reference to StopUntil() in RPREVIEW.PRG
Antonio can say you where this function is located.
The rest is composed of functions made by me. You must
create your own equivalent functions depend how you program.
To help you, look at this :
GGMSTATE("LEFT") return the current state of the left button of the mouse
GGMSTATE("RIGHT") return the current state of the right button of the mouse
PUBVAR() contain a static array where i put all my "public" variables
(so it's not public).
WINATTEND() must be used in your wait state procedure,
not in the "ON INIT" of a Window. I you have a problem with
CPU time, this is because your application start in the "ON INIT"
of the main Window, no ? Your program never stop, always
it do something, like waiting keybord and state of the mouse.
With WinAttend(), you can stop where you want to reduce
the activity of your program. Place it in all the wait states
is the first step.
If yours wait states was controled directly by a window,
a dialog, a get, or i don't know what other, you have
not this problem. But to do that, you must rewrite a very
big part of your code. This is not my way today, i want
keep the same code for my DOS exe and for my Windows exe.
KeyNext() return the same values than Clipper DOS NextKey().
I have created this function because i never can use TGET class,
an few years ago i have rewritted Clipper GET, TBROWSE,
MEMOEDIT, LABELS and few others. I control all the wait states
in Clipper, and now in Fivewin with just a call of WinAttend()
in my unique wait state procedure.
Regards,
