dialog maximize and minimize events

[don lowenstein]

How can I detect when a window/dialog was maximized?

This event does not seem to trigger an "on resize" event. It would be nice to know if the user left the dialog maximized, then I could re-display it in the future maximized.

[Enrico Maria Giordano]

From the following sample you will see that ON RESIZE event is trigged on maximize:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    ACTIVATE WINDOW oWnd;
             ON RESIZE TONE( 440, 1 )

    RETURN NIL

EMG

[don lowenstein]

How can I tell if the dialog was MAXIMIZED or simply resized by dragging the corner of the dialog?

[Enrico Maria Giordano]

This is a sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    ACTIVATE WINDOW oWnd;
             ON RESIZE SHOWRESIZETYPE( nSizeType )

    RETURN NIL


#define SIZE_INIT      NIL
#define SIZE_RESTORED  0
#define SIZE_MINIMIZED 1
#define SIZE_MAXIMIZED 2


STATIC FUNCTION SHOWRESIZETYPE( nSizeType )

    STATIC lInit := .T.

    DO CASE
        CASE nSizeType = SIZE_INIT
            ? "SIZE_INIT"
            lInit = .F.
        CASE nSizeType = SIZE_RESTORED .AND. !lInit
            ? "SIZE_RESTORED"
        CASE nSizeType = SIZE_MINIMIZED
            ? "SIZE_MINIMIZED"
        CASE nSizeType = SIZE_MAXIMIZED
            ? "SIZE_MAXIMIZED"
    ENDCASE

    RETURN NIL

EMG

[don lowenstein]

Thanks - I believe that is exactly what I was looking for.