pbdlgsub.f90

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

subroutine PBDlgSub( dlg, id, callbacktype )
  use ProgressBox
  use user32
  implicit none
  ! Arguments
  type (dialog) dlg
  integer id, callbacktype
  ! Variables
  type(PBContext) context
  pointer ( pc, context )
  integer iret
  if (callbacktype == dlg_destroy) then
      !  Remove the window property
      pc = GetProp( dlg % hwnd, "PBContext" )
      iret = RemoveProp( context % PBDlg % hwnd, "PBContext" )
  endif
end subroutine PBDlgSub