#COMPILE EXE
#DIM ALL
 
#PBFORMS Begin Includes
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#PBFORMS End Includes
 
#PBFORMS Begin Constants
%IDD_DIALOG1    = 101
%IDC_BUTTON1    = 1001
#PBFORMS End Constants
 
DECLARE CALLBACK FUNCTION ShowDIALOG1Proc()
DECLARE FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
 
FUNCTION PBMAIN()
    ShowDIALOG1 %HWND_DESKTOP
END FUNCTION
 
CALLBACK FUNCTION ShowDIALOG1Proc()
 
    SELECT CASE CBMSG
        CASE %WM_COMMAND
            SELECT CASE CBCTL
                CASE %IDC_BUTTON1
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                        MSGBOX "Wollen Sie wirklich schon gehen?" & $CRLF _
                            & " Haben Sie nichts vergessen???" & $CRLF _
                            & " Seb und Moni warten immer noch auf den" & _
                            "Font-Editor.", _
                            %MB_SYSTEMMODAL, "Nicht vergessen!"
                    END IF
 
            END SELECT
    END SELECT
 
END FUNCTION
 
FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
    LOCAL hDlg AS DWORD
 
    DIALOG NEW hParent, "Nicht vergessen!", 71, 150, 195, 106, %WS_CAPTION OR _
      %WS_SYSMENU, 0 TO hDlg
    CONTROL ADD BUTTON, hDlg, %IDC_BUTTON1, "Feierabend", 60, 60, 75, 13
    DIALOG SHOW MODAL hDlg, CALL ShowDIALOG1Proc
 
END FUNCTION