Mouse Click outside NoWait Dialog

[fraxzi]

Hello All,

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



Regards,
Fraxzi

[Enrico Maria Giordano]

bLostFocus?

EMG

[fraxzi]

Dear Enrico,

Thank you!

How forgetful I am


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



Regards,
Fraxzi

[Enrico Maria Giordano]

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

Are you saying that bLostFocus is not evaluated properly?

EMG

[fraxzi]

Enrico,

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

Any workaround?


Regards,
Fraxzi

[Enrico Maria Giordano]

This sample works fine here:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

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

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Marcelo Via Giglio]

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

[Enrico Maria Giordano]

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

EMG

[fraxzi]

Dear Enrico,

This sample works fine here:

Code: Select all  Expand view

#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 :

Code: Select all  Expand view

    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

[Enrico Maria Giordano]

but if modal :

Did you mean "non modal" or "modeless", right?

EMG

[Enrico Maria Giordano]

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

Code: Select all  Expand view

#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:

Code: Select all  Expand view

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