FiveTech Software tech support forums

Hi,

I need to handle the keyboard event when the ActiveX object is active.
The only thing that comes to mind is to check lastkey() by timer. Maybe there are some ideas ?

... // to avoid conflicts with Harbour functions #xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour functions #xtranslate LastKey( => _LastKey( // to avoid conflicts with Harbour functions #endif

... CTRL + J The problem is that the program is minimized in the tray. the CTRL key I can check with GETKEYSTATE plus the letter J key only with LastKey (), but it works if the program is in focus. Is there another function that could read the keyboard buffer without the program being in focus?

Antonio, lastkey() still shows 13 instead of clear I found another solution for the break and added __keyboard( "A" ) // 65 lastkey() = 65 ......        IF LASTKEY() = 13             IF MsgYesNo("Exit ...

... to break a combination of < DO WHILE > and < FOR NEXT > with < RETURN > I'm using IF LASTKEY() = 13 IF MsgYesNo("Exit from topic collect ?", "EXIT" ) nPage := nPages + 10 // < do while > break lBreak := .T. ...

... KSetScroll([<lNewMode>])->lOldMode L2Bin(<nExp>->cBinaryInteger LastDayoM(<dDate>|<nMonth>)->nDaysInMonth LastKey()->nInkeyCode LastRec()->nRecords Left(<cString>,<nCount>)->cSubString Len(<aArray>|<cString>|<hHash>)->nCount ...

... IsPrinter IsPrinter IsPunct IsSpace IsUpper IsUpper IsXDigit JustLeft JustRight KbdStat KeySec KeyTime KSetIns KSetNum KSetScroll L2Bin LastDayoM LastKey LastRec Left Len LenNum LoadLibrary Log Log10 Lower LtoN LTrim LUpdate MakeDir Mantissa Max MaxCol MaxLine MaxRow MCol MDblClk MDY MemoEdit ...

... SELECTWINDOW() = HMAINWND DOEXIT() END END CASE NEVENT = EVENT_DESTROY IF SELECTWINDOW() = HMAINWND DOEXIT() END CASE NEVENT = EVENT_CLOSE .AND. LASTKEY() != K_ALT_F4 IF SELECTWINDOW() = HMAINWND DOEXIT() END CASE NEVENT = EVENT_QUIT QUIT CASE NEVENT = EVENT_RCLICK * SEE IF MAIN WNDOW IS RIGHT ...

... = 100 oActiveX:url ="FIVEWIN.avi" // "C:\MUSICA\audio1.mp3" While oActiveX:Playstate != 1 SysRefresh() If Lastkey()=27 Exit Endif EndDo oDlgP:End() Return nil // FIN

Gracias Karina,
no sabia que la funcion lastkey() funcionaba en Fivewin,,,
voy a probarla..

Saludos
Lubin

Antonio, I installed FWH 13.09 but after rebuilding my application, I got a whole list of externals which weren't found : _HB_FUN_RESALLFREE _HB_FUN_SYSREFRESH _HB_FUN_LASTKEY _HB_FUN_LWRUNNING _HB_FUN_READBITMAP _HB_FUN_GETWNDAPP _HB_FUN_DIALOGBOX _HB_FUN_WINRUN .... (a lot more) Any idea what is w...

Prueba tambien asi:
n:=1
Do While .T.
If Lastkey()=27
oDlgP:End()
Exit
Endif
oBrw:GoDown()
n+=1
If n = oBrw:nLen
?"fin"
oBrw:GoTop()
Endif
EndDo

Muchas gracias Antonio Me quedo con oActiveX:uiMode = "none" Tuve que aumentar If Lastkey()=27 Exit Endif Para finalizar el video, el Lastkey se queda con 27 y ya no muestra otro video, cómo se inicializa? LO SOLUCIONE CON __KeyBoard(Chr(13)) Lo ideal seria ...

Esro es lo que sale. Enlazando UTILDISC.exe... Warning: Unable to perform incremental link - performing full link... Error: Unresolved external '_hb_vmProcessSymbols' referenced from C:\XEDIT2\OBJ\EJEMPLO.DBJ Error: Unresolved external '_HB_FUN_SETCOLOR' referenced from C:\XEDIT2\OBJ\EJEMPLO.DBJ Err...

... 1, 2 SAY "First.............:" GET cFirst VALID TestValid() @ 3, 2 SAY "Last.(F2-KEY TEST):" GET cLast when TestWhen() READ if lastkey()==27 exit endif @ 13,01 to 17,08 double nOpc:=1 @ 14, 2 prompt "Browse" message 'browse Test' @ 15, 2 prompt "DBedit" message ...