home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / DEMO.PRG < prev    next >
Encoding:
Text File  |  1996-05-03  |  1.3 KB  |  54 lines
  1. #INCLUDE DEMO.H
  2.  
  3. PUBLIC gZoomFactor
  4. gZoomFactor = VIEW_NORMAL
  5. PUBLIC gfCancel
  6. gfCancel = .F.
  7. PUBLIC gfStudentLoaded
  8. gfStudentLoaded = .F.
  9.  
  10. PUBLIC gMainTitle
  11. gMainTitle = "LEADTOOLS OLE Control Demo in Visual FoxPro"
  12. PUBLIC gHalfView
  13. gHalfView = HALFTONE_VIEW
  14. PUBLIC gHalfPrint
  15. gHalfPrint = HALFTONE_PRINT
  16. PUBLIC gDitherOrdered
  17. gDitherOrdered = PAINTDITHER_ORDERED
  18. PUBLIC gDitherDiffusion
  19. gDitherDiffusion = PAINTDITHER_DIFFUSION
  20. PUBLIC gBitonalNormal
  21. gBitonalNormal = BITONALSCALING_NORMAL
  22. PUBLIC gBitonalScaleToGray
  23. gBitonalScaleToGray = BITONALSCALING_SCALETOGRAY
  24. PUBLIC gBitonalFavorBlack
  25. gBitonalFavorBlack = BITONALSCALING_FAVORBLACK
  26.  
  27. PUBLIC NormalMove && Not adding or deleting 
  28. NormalMove = .F.
  29. PUBLIC OldPosition && Used for synchronization in the ViewImage procedure
  30. PUBLIC NewPosition && Used for synchronization in the ViewImage procedure
  31. NewPosition = 1
  32.  
  33. SET PROCEDURE TO "PROCS.PRG"
  34. SET PALETTE OFF
  35. DO FORM Viewer  
  36.  
  37. DO demomenu.mpr
  38. SET MARK OF POPUP Bitonal TO .F.
  39. SET MARK OF BAR 1 Of Bitonal TO .T.                     
  40. SET MARK OF POPUP Dithering TO .F.
  41. SET MARK OF BAR 1 Of Dithering TO .T.                     
  42. SET MARK OF BAR 1 Of _mview TO .T.
  43. READ EVENTS
  44. SET SYSMENU TO DEFAULT
  45.  
  46. IF Viewer.Lead1.dbIsOpen = .T.
  47.     Viewer.Lead1.dbClose
  48.     USE s_pic EXCLUSIVE
  49.     PACK
  50.     CLOSE DATABASES ALL
  51. ENDIF
  52. Viewer.Release
  53. CANCEL
  54.