home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HISOFT.LZH / HISOFT_B.MSA / EXAMPLES / HGTEXAM / SHOWPIC.BAS < prev    next >
BASIC Source File  |  1992-03-31  |  949b  |  39 lines
  1. ' Note that to use this program wyou will need to supply
  2. ' your own .IMG file
  3. REM $option !g
  4. REM $option k100,y
  5. REM $include gold.bh
  6. REM $include toolbox.bas
  7. REM $include image.bas
  8. REM $include menu.bas
  9. REM $include window.bas
  10. REM $include imagwind.bas
  11. REM $include dialog.bas
  12. REM $include filesel.bas
  13.  
  14. SUB ProcessUserMenus(VAL cur_front,VAL item,VAL title)
  15. SHARED texth,ImageWindows
  16. STATIC i,finame$,temp,id,ext$
  17. SELECT CASE item
  18. CASE MeAboutGold: junk=NewForm_Alert(ABOUTALERT,1)
  19. CASE MeLoad:    
  20.         finame$=FileSelect$
  21.         IF finame$<>"" THEN
  22.                 IF imagewindows THEN
  23.                     CloseImage imagewindows
  24.                     DECR imagewindows
  25.                     CloseAWindow texth
  26.                 END IF
  27.                 LoadPicture finame$,imagewindows
  28.                 texth=OpenImageWindow(finame$,win_all-win_info)
  29.         END IF
  30.     END SELECT
  31. END SUB
  32.  
  33.  
  34. StartProgram "GOLD.RSC",MENU1,MEQUIT
  35. InitFileSelector
  36. fspath$=LEFT$(fspath$,LEN(fspath$)-1)+"IMG"
  37. DIM images(2,fd_size)
  38. HGTloop
  39. StopProgram