FiveTech Support Forums

Hello All,

I have a NoWait Dialog... How to determine if mouse click is outside the Dialog?

Regards,
Fraxzi

bLostFocus?

EMG

Dear Enrico,

Thank you!

How forgetful I am

I test it with Modal too but not what I desired.

Regards,
Fraxzi

fraxzi wrote:I test it with Modal too but not what I desired.

Enrico,

I defined oDlg:bLostFocus := {|| oDlg:End() } but not executing on modal mode.

Any workaround?

Regards,
Fraxzi

This sample works fine here:

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    oDlg:bLostFocus = { || oDlg:End() }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

Enrico,

I have a similar problem, but with Dialog defined in resource, oDlg:bLostFocus = { || oDlg:End() }
don't work, with FW version 7.1 or previous it works properly.

Regards

Marcelo

I just made a test and bLostFocus worked fine here using a dialog from resources (latest FWH).

EMG

Dear Enrico,

Enrico Maria Giordano wrote:

This sample works fine here:

Code: Select all Collapse

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    oDlg:bLostFocus = { || oDlg:End() }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

Yes it works as expected...

but if modal :

    ACTIVATE DIALOG oDlg NoWait;
             CENTER

Doesn't.

I need to make it modal so user must respond to dialog and if not will return a value.

The behavior is very much similar to HTMLPOP() function.

Regards.
Fraxzi

fraxzi wrote:but if modal :

Anyway, I tested all the combination and bLostFocus worked as expected. This is an example:

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    ACTIVATE WINDOW oWnd;
             ON INIT TEST( oWnd )

    RETURN NIL


FUNCTION TEST( oWnd )

    LOCAL oDlg

    DEFINE DIALOG oDlg;
           RESOURCE "TEST"

    oDlg:bLostFocus = { || oDlg:End(), oWnd:End() }

    ACTIVATE DIALOG oDlg NOMODAL;
             CENTER

    RETURN NIL

The resource file:

TEST DIALOG 6, 15, 207, 111
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
}

EMG