FiveTech Software tech support forums

I made this function. It do this.


Function TesteSend()MySendText("TESTANDO")ReturnStatic Function MySendText(cTexto)Local nILocal cCarLocal lShift// sem shiftcTexto := StrTran(cTexto,".",Chr(190))cTexto := StrTran(cTexto,"/",Chr(193))cTexto ...

João, o problema não é fazer o progress com timer e sim o BUG que acontece. Este é apenas um exemplo simples que simula o BUG.

precisamos de uma solução para o BUG... mas obrigado pela tentativa...

João, o problema não é fazer o progress com timer e sim o BUG que acontece. Este é apenas um exemplo simples que simula o BUG.

precisamos de uma solução para o BUG... mas obrigado pela tentativa...

I am having problems when I use a timer with a tprogress. What happens is that as soon as I call the SetPos of progress, the timer ignores the interval that was previous defined to it.

An example is when I create a timer with a 15 seconds interval and activate it. At the time I call the SetPos of ...

Thanks Antonio, I want to use Harbour... but now it's impossible.

Thanks Antonio.. your solution is best. I can't to migrate for Harbour now because I use SQLRDD. I use this code for this solution...

oScript := __hrbLoad( cArquivo )
__hrbDo( oScript,aPar[1],aPar[2],aPar[3],aPar[4],aPar[5],aPar[6],aPar[7],aPar[8],aPar[9] )

This only works Harbour? For XHARBOUR what solution?

do it

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=25813&p=141241&hilit=hrbrun#p141241

    function Run_prg( cPrg )    local oHrb, cResult    if !db_conn()       return( NIL )    endif    if ...

Thanks Daniel

Is it possible? I need to run xHarbour function from C code.



Function Main&#40;&#41;Fun_C&#40;&#41; &nbsp;// aqui executo a funcao em CReturnFunction calchrb&#40;&#41;Return 1#pragma begindump#include <windows.h>#include <stdlib.h>#include "hbapi.h"HB_FUNC&#40; FUN_C &#41; &#123;int x;x ...

Great,

Yes, you can...

MySendKey(VK_TAB)

Antonio, the funcion "SenKey" is with bug... I developed a new function SendKey. Please, see it.


#include "fivewin.ch"Function TestSendKey&#40;&#41;Local nKeyLocal oWndPrivate oTimer,oTimer2&nbsp; &nbsp;DEFINE WINDOW oWnd TITLE "3D objects"&nbsp; &nbsp;ACTIVATE WINDOW oWnd On Init &#40;MyHook&#40 ...

Thanks James, I got...

Virtual-Key CodesThe following table shows the symbolic constant names, hexadecimal values, and mouse or keyboard equivalents for the virtual-key codes used by the system. The codes are listed in numeric order.Constant/value&nbsp; DescriptionVK_LBUTTON0x01&nbsp; &nbsp; Left mouse buttonVK ...