destoryprogressbox.f90

Intel Visual Fortran 应用程序开发 周振红编著

integer function DestroyProgressBox( context )
  !DEC$ ATTRIBUTES DLLEXPORT::DestroyProgressBox
  use ProgressBoxTypes
  use user32
  implicit none
  ! Arguments
  type(PBContext) context
  ! Variables
  logical lret
  ! Body of DestroyProgressBox
  DestroyProgressBox = PBStatus_OK
  ! Enable the parent window
  if ( context % bEnableParent ) then
    lret = EnableWindow( context % hwndParent, .TRUE. )
  end if
  ! Free the dialog structure
  call DlgExit( context % PBDlg )
  call DlgUninit( context % PBDlg )
  deallocate( context % PBDlg )
end function DestroyProgressBox