aboutdlg.f90

来自「边界元程序,供力学工作者参考,希望对大家有所帮助」· F90 代码 · 共 39 行

!/****************************************************************************
!
!        函数: AboutDlgProc(HWND, UINT, WPARAM, LPARAM)
!
!＼****************************************************************************/
INTEGER * 4 FUNCTION AboutDlgProc( hDlg, message, uParam, lParam )
!DEC$ IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_AboutDlgProc@16' :: AboutDlgProc
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'AboutDlgProc' :: AboutDlgProc
!DEC$ ENDIF

USE         DFWin
USE         VFEAPGlobals
INTEGER     hDlg        !// window handle of the dialog box
INTEGER     message     !// type of message
INTEGER     uParam      !// message-specific information
INTEGER     lParam
INTEGER * 4 ret
LOGICAL     bret

SELECT CASE( message )
  CASE( WM_INITDIALOG )   ! message: initialize dialog box
    CALL CenterWindow( hDlg, gdlg )
    AboutDlgProc = 1
    RETURN
  CASE( WM_COMMAND )                                                            ! message: received a command
    IF( ( LoWord(uParam) == IDOK ) .OR. ( LoWord(uParam) == IDCANCEL ) ) THEN    ! "OK" box selected?System menu close command?
      ret  = EndDialog( hDlg, TRUE )                                            ! Exit the dialog
      bret = DeleteObject( hDlg )                                                !hfontDlg
      AboutDlgProc = 1
      RETURN
    END IF
END SELECT                                                                      ! message
AboutDlgProc = 0                                                                ! Didn't process the message
RETURN
END