FiveTech Software tech support forums

From an older fivewin user: GetKeyState()
These are 2 different things.
lCanClose - if dialog can be closed
lHitEsc - if user hit ESC, this will be used by routine

This solves my current need.

Not sure if can be interesting or not:

On VB6 there exists the KeyPress(), anything like bKeyDown.
It works like harbour INKEY_FILTER.

function KeyPress( KeyAscii )
IF KeyAscii = ESC
KeyAscii = 0
ENDIF
RETURN


equivalent fivewin:

dialog:bKeyDown := { | nkey | routine( @nKey ), nKey ...

On this class, NOT DIALOG, I use this:

VAR lHitESC INIT .F.

I use like Inkey(), to end process first


DO WHILE ! class:lHitEsc .AND. ! :eof()
:MoveNext()
ENDDO
:CloseRecordset()
IF class:lHitEsc
Dialog:Close()
ENDIF


ESC will not close dialog, but will be used to terminate process before ...

Do not solve.
Comment about SetDialogEsc(.F.):
it changes ALL DIALOGS, may be I want to change only a specific dialog.
As example, dialog with a single browse, I want to use the ESC to exit.

Is possible to detect ESC on dialog valid ?

try this:
ESC do nothing, but other keys show "other"

What I can do about this ?

Found this way


IF ::bCodeBlock != Nil
::xDlg:bInit := ::bCodeBlock
ENDIF
ACTIVATE DIALOG ::xDLG CENTERED


Thanks.

Note:
Behaviour is created by #xcommand using self as parameter, to be used on codeblock.

[{|Self|<uInit>}]

If change this, it may becames incompatible with existing routines ...

May be the #translate or anything else.
I will made a test using oDlg:bInit.

SYSTEM ERROR
Error BASE/1004 Message not found: TDIALOG:BCODEBLOCK
Called from __ERRRT_SBASE(0)
Called from TDIALOG:ERROR(0)
Called from (b)HBOBJECT(0)
Called from TDIALOG:MSGNOTFOUND(0)
Called from TDIALOG:BCODEBLOCK(0)
Called from (b)DLGTEXTMSGCLASS_EXECUTE(118)
Called from TDIALOG ...

En otra función lanzo un proceso en un Hilo independiente, esta función deberá cerrar la ventana del XBrowse.
Entonces el proceso que está trabajando en el hilo independiente, cuando intenta cerrar la ventana no puede cerrar el DBF.
¿Cómo puedo cerrar un DBF abierto en el hilo principal del ...

https://i.postimg.cc/FHZY9G10/error2.png


#include "fivewin.ch"

PROCEDURE ze_fwTextMsg

LOCAL oDlgMsg, nCont, bOldError

hb_ThreadStart( { || oDlgMsg := DlgTextMsgClass():New(), oDlgMsg:Execute() } )

bOldError := ErrorBlock()
ErrorBlock( { | e | oDlgMsg:lCanClose := .T., oDlgMsg:End(), iif ...

https://i.postimg.cc/QtytY72V/debug.png

Text scroll using xbrowse.

I know about INIT, but use multithread on test.
And can debug it using harbour debug.


#include "fivewin.ch"

PROCEDURE ze_fwTextMsg

LOCAL oVar, nCont // , oDialog

hb_ThreadStart( { || oVar := DlgTextMsgClass():New(), oVar ...

I know about INIT, but I made on this way.

Note: using gtwvg with no display

#include "fivewin.ch"

PROCEDURE ze_fwTextMsg

LOCAL oVar, nCont

hb_ThreadStart( { || oVar := DlgTextMsgClass():New(), oVar:Execute() } )
Inkey(2)
FOR nCont = 1 TO 50
oVar:ShowText( "Test " + Ltrim( Str( nCont ...

My mix works with FWH 25.01

Many thanks.

Near to line 2190


METHOD Skip( n ) CLASS TXBrowse

local nStart
local nSkipped := 0

if !::lClosed
TRY
hb_Default( @n, 1 )
if Empty( ::aFilter )
nSkipped := Eval( ::bSkip, n, Self )
else
nStart := ::nFltRow
::GoFltRow( ::nFltRow + n )
nSkipped := ::nFltRow - nStart
endif
CATCH ...

Do you allow the user to move up and down on the scrolled text ?


On most cases no.
- my server send eletronic factura mail, check new post codes, and others
- application update structures (dbf or mySQL)
- applicatin makes backup/zip of DBF and MySQL
- On application using dbf, I show each ...