home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / Browser / gallery.PRG < prev    next >
Encoding:
Text File  |  1998-05-01  |  671 b   |  34 lines
  1. * GALLERY.PRG - Component Gallery.
  2. *
  3. * Copyright (c) 1996 Microsoft Corp.
  4. * 1 Microsoft Way
  5. * Redmond, WA 98052
  6. *
  7. * Description:
  8. * Component Gallery.
  9. *
  10.  
  11. #INCLUDE "browser.h"
  12.  
  13. PARAMETERS tcFileName,tcDefaultClass,tlListBox,tcClassType,tnWindowState,tlGallery,tlNoShow
  14. LOCAL lcLastSetTalk,lcBrowser
  15.  
  16. lcLastSetTalk=SET("TALK")
  17. SET TALK OFF
  18. lcBrowser=LOWER(FULLPATH("browser.app",SYS(16)))
  19. IF NOT FILE(lcBrowser)
  20.     lcBrowser=_browser
  21. ENDIF
  22. DO (lcBrowser) WITH (tcFileName),(tcDefaultClass),(tlListBox),(tcClassType), ;
  23.         (tnWindowState),.T.,(tlNoShow)
  24. IF lcLastSetTalk=="ON"
  25.     SET TALK ON
  26. ELSE
  27.     SET TALK OFF
  28. ENDIF
  29. RETURN
  30.  
  31.  
  32.  
  33. *-- end GALLERY.PRG
  34.