** END HEADER -- do not remove this line
//
// Generated on 2024-07-28
//
parameter bModal
local f
f = new run_chmForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class run_chmForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      onClose = class::FORM_ONCLOSE
      height = 16.0
      left = 31.4286
      top = 2.2727
      width = 40.0
      text = ""
      mdi = false
      menuFile = "run_chm.mnu"
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 11.2857
      top = 6.8182
      width = 15.2857
      text = "Show Help File"
   endwith


   function PUSHBUTTON1_onClick()
     class::show_chm()
      return

   function show_chm
      openUrl("C:\Program Files (x86)\Common Files\Borland\BDE\bde32.hlp")
      return 

   function form_onClose()
      close procedure :duflp:miscapi.prg
      return

   function form_onOpen()
      set procedure to :duflp:miscapi.prg
      return

endclass