home *** CD-ROM | disk | FTP | other *** search
/ ftp.uv.es / 2014.11.ftp.uv.es.tar / ftp.uv.es / pub / sib / img_es.exe / IMGSAMP.FR_ / IMGSAMP.FR
Text File  |  1997-02-25  |  42KB  |  1,586 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSample 
  3.    Caption         =   "Image Edit"
  4.    ClientHeight    =   4155
  5.    ClientLeft      =   1560
  6.    ClientTop       =   1770
  7.    ClientWidth     =   6660
  8.    DrawStyle       =   5  'Transparent
  9.    Height          =   4845
  10.    Left            =   1500
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    ScaleHeight     =   4155
  14.    ScaleWidth      =   6660
  15.    Top             =   1140
  16.    Width           =   6780
  17.    Begin ImgeditLibCtl.ImgEdit oleImgEdit1 
  18.       Height          =   4092
  19.       Left            =   0
  20.       TabIndex        =   1
  21.       Top             =   0
  22.       Width           =   6612
  23.       _Version        =   65536
  24.       _ExtentX        =   11663
  25.       _ExtentY        =   7218
  26.       _StockProps     =   0
  27.       ImageControl    =   "ImgEdit1"
  28.    End
  29.    Begin ThumbnailLibCtl.ImgThumbnail oleImgThumbnail1 
  30.       Height          =   324
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Visible         =   0   'False
  35.       Width           =   6612
  36.       _Version        =   65536
  37.       _ExtentX        =   11663
  38.       _ExtentY        =   572
  39.       _StockProps     =   0
  40.       BackColor       =   -2147483638
  41.       BeginProperty ThumbCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          name            =   "Times New Roman"
  43.          charset         =   0
  44.          weight          =   400
  45.          size            =   12
  46.          underline       =   0   'False
  47.          italic          =   0   'False
  48.          strikethrough   =   0   'False
  49.       EndProperty
  50.    End
  51.    Begin AdminLibCtl.ImgAdmin oleImgAdmin1 
  52.       Left            =   3600
  53.       Top             =   735
  54.       _Version        =   65536
  55.       _ExtentX        =   4895
  56.       _ExtentY        =   397
  57.       _StockProps     =   0
  58.    End
  59.    Begin VB.Menu mnuFile 
  60.       Caption         =   "&File"
  61.       Begin VB.Menu mnuNew 
  62.          Caption         =   "&New"
  63.       End
  64.       Begin VB.Menu mnuOpen 
  65.          Caption         =   "&Open..."
  66.       End
  67.       Begin VB.Menu mnuSave 
  68.          Caption         =   "&Save"
  69.          Enabled         =   0   'False
  70.       End
  71.       Begin VB.Menu mnuSaveAs 
  72.          Caption         =   "Save &As..."
  73.          Enabled         =   0   'False
  74.       End
  75.       Begin VB.Menu mnuSep2 
  76.          Caption         =   "-"
  77.       End
  78.       Begin VB.Menu mnuPrint 
  79.          Caption         =   "&Print..."
  80.          Enabled         =   0   'False
  81.       End
  82.       Begin VB.Menu mnuSend 
  83.          Caption         =   "&Send..."
  84.          Enabled         =   0   'False
  85.       End
  86.       Begin VB.Menu mnuSep3 
  87.          Caption         =   "-"
  88.       End
  89.       Begin VB.Menu mnuExit 
  90.          Caption         =   "E&xit"
  91.       End
  92.    End
  93.    Begin VB.Menu mnuEdit 
  94.       Caption         =   "&Edit"
  95.       Enabled         =   0   'False
  96.       Begin VB.Menu mnuCut 
  97.          Caption         =   "Cu&t"
  98.       End
  99.       Begin VB.Menu mnuCopy 
  100.          Caption         =   "&Copy"
  101.       End
  102.       Begin VB.Menu mnuCopyPage 
  103.          Caption         =   "Cop&y Page"
  104.          Enabled         =   0   'False
  105.       End
  106.       Begin VB.Menu mnuPaste 
  107.          Caption         =   "&Paste"
  108.       End
  109.       Begin VB.Menu mnuDeletePage 
  110.          Caption         =   "&Delete Page"
  111.          Enabled         =   0   'False
  112.       End
  113.       Begin VB.Menu mnuSep4 
  114.          Caption         =   "-"
  115.       End
  116.       Begin VB.Menu mnuSelect 
  117.          Caption         =   "&Select"
  118.          Checked         =   -1  'True
  119.       End
  120.       Begin VB.Menu mnuDrag 
  121.          Caption         =   "&Drag"
  122.          Enabled         =   0   'False
  123.       End
  124.    End
  125.    Begin VB.Menu mnuView 
  126.       Caption         =   "&View"
  127.       Enabled         =   0   'False
  128.       Begin VB.Menu mnuScaleToGray 
  129.          Caption         =   "Scale to &Gray"
  130.       End
  131.       Begin VB.Menu mnuSep12 
  132.          Caption         =   "-"
  133.       End
  134.       Begin VB.Menu mnuOnePage 
  135.          Caption         =   "&One Page"
  136.          Checked         =   -1  'True
  137.       End
  138.       Begin VB.Menu mnuThumbnail 
  139.          Caption         =   "&Thumbnail"
  140.       End
  141.       Begin VB.Menu mnuPageThumbnail 
  142.          Caption         =   "&Page and Thumbnail"
  143.       End
  144.       Begin VB.Menu mnuSep7 
  145.          Caption         =   "-"
  146.       End
  147.       Begin VB.Menu mnuFullScreen 
  148.          Caption         =   "&Full Screen"
  149.       End
  150.       Begin VB.Menu mnuSep6 
  151.          Caption         =   "-"
  152.       End
  153.       Begin VB.Menu mnuToolbar 
  154.          Caption         =   "&Toolbar"
  155.          Enabled         =   0   'False
  156.       End
  157.       Begin VB.Menu mnuSep5 
  158.          Caption         =   "-"
  159.       End
  160.       Begin VB.Menu mnuOptions 
  161.          Caption         =   "Options..."
  162.          Enabled         =   0   'False
  163.       End
  164.    End
  165.    Begin VB.Menu mnuPage 
  166.       Caption         =   "&Page"
  167.       Enabled         =   0   'False
  168.       Begin VB.Menu mnuNext 
  169.          Caption         =   "&Next"
  170.       End
  171.       Begin VB.Menu mnuPrevious 
  172.          Caption         =   "&Previous"
  173.       End
  174.       Begin VB.Menu mnuFirst 
  175.          Caption         =   "&First"
  176.       End
  177.       Begin VB.Menu mnuLast 
  178.          Caption         =   "&Last"
  179.       End
  180.       Begin VB.Menu mnuSep11 
  181.          Caption         =   "-"
  182.       End
  183.       Begin VB.Menu mnuGoTo 
  184.          Caption         =   "&Go To..."
  185.       End
  186.       Begin VB.Menu mnuBack 
  187.          Caption         =   "Go &Back"
  188.       End
  189.       Begin VB.Menu mnuSep10 
  190.          Caption         =   "-"
  191.       End
  192.       Begin VB.Menu mnuPrintPage 
  193.          Caption         =   "Prin&t Page"
  194.       End
  195.       Begin VB.Menu mnuSep9 
  196.          Caption         =   "-"
  197.       End
  198.       Begin VB.Menu mnuLeft 
  199.          Caption         =   "Rotate &Left"
  200.       End
  201.       Begin VB.Menu mnuRight 
  202.          Caption         =   "Rotate &Right"
  203.       End
  204.       Begin VB.Menu mnuFlip 
  205.          Caption         =   "&Flip"
  206.       End
  207.       Begin VB.Menu mnuSep8 
  208.          Caption         =   "-"
  209.       End
  210.       Begin VB.Menu mnuInsert 
  211.          Caption         =   "&Insert..."
  212.          Enabled         =   0   'False
  213.       End
  214.       Begin VB.Menu mnuAppend 
  215.          Caption         =   "&Append..."
  216.          Enabled         =   0   'False
  217.       End
  218.       Begin VB.Menu mnuSep 
  219.          Caption         =   "-"
  220.       End
  221.       Begin VB.Menu mnuConvert 
  222.          Caption         =   "&Convert..."
  223.          Enabled         =   0   'False
  224.       End
  225.       Begin VB.Menu mnuRescan 
  226.          Caption         =   "&Rescan"
  227.          Enabled         =   0   'False
  228.       End
  229.    End
  230.    Begin VB.Menu mnuZoom 
  231.       Caption         =   "&Zoom"
  232.       Enabled         =   0   'False
  233.       Begin VB.Menu mnuZoomIn 
  234.          Caption         =   "Zoom &In"
  235.       End
  236.       Begin VB.Menu mnuZoomOut 
  237.          Caption         =   "Zoom &Out"
  238.       End
  239.       Begin VB.Menu mnuZoomToSelection 
  240.          Caption         =   "Zoom to &Selection"
  241.       End
  242.       Begin VB.Menu mnuSep13 
  243.          Caption         =   "-"
  244.       End
  245.       Begin VB.Menu mnuFitHeight 
  246.          Caption         =   "Fit to &Height"
  247.       End
  248.       Begin VB.Menu mnuFitWidth 
  249.          Caption         =   "Fit to &Width"
  250.       End
  251.       Begin VB.Menu mnuBestFit 
  252.          Caption         =   "&Best Fit"
  253.       End
  254.       Begin VB.Menu mnuActual 
  255.          Caption         =   "Act&ual Size"
  256.       End
  257.       Begin VB.Menu mnuSep14 
  258.          Caption         =   "-"
  259.       End
  260.       Begin VB.Menu mnu25 
  261.          Caption         =   "&25%"
  262.       End
  263.       Begin VB.Menu mnu50 
  264.          Caption         =   "&50%"
  265.       End
  266.       Begin VB.Menu mnu75 
  267.          Caption         =   "&75%"
  268.       End
  269.       Begin VB.Menu mnu100 
  270.          Caption         =   "&100%"
  271.       End
  272.       Begin VB.Menu mnu200 
  273.          Caption         =   "2&00%"
  274.       End
  275.       Begin VB.Menu mnu400 
  276.          Caption         =   "&400%"
  277.       End
  278.       Begin VB.Menu mnuCustom 
  279.          Caption         =   "&Custom..."
  280.          Enabled         =   0   'False
  281.       End
  282.    End
  283.    Begin VB.Menu mnuAnnotation 
  284.       Caption         =   "&Annotation"
  285.       Enabled         =   0   'False
  286.       Begin VB.Menu mnuHideAnnotation 
  287.          Caption         =   "&Hide Annotation"
  288.       End
  289.       Begin VB.Menu mnuBurnIn 
  290.          Caption         =   "B&urn in Annotation"
  291.       End
  292.       Begin VB.Menu mnuSep15 
  293.          Caption         =   "-"
  294.       End
  295.       Begin VB.Menu mnuNoTool 
  296.          Caption         =   "&No Tool"
  297.       End
  298.       Begin VB.Menu mnuSelectPointer 
  299.          Caption         =   "Selection &Pointer"
  300.       End
  301.       Begin VB.Menu mnuFreeHand 
  302.          Caption         =   "&Freehand Line"
  303.       End
  304.       Begin VB.Menu mnuHiLight 
  305.          Caption         =   "H&ighlight Line"
  306.       End
  307.       Begin VB.Menu mnuStraightLine 
  308.          Caption         =   "Straight &Line"
  309.       End
  310.       Begin VB.Menu mnuHollowRect 
  311.          Caption         =   "Hollow &Rectangle"
  312.       End
  313.       Begin VB.Menu mnuFillRect 
  314.          Caption         =   "Filled Rectan&gle"
  315.       End
  316.       Begin VB.Menu mnuTypedText 
  317.          Caption         =   "Typed Text"
  318.       End
  319.       Begin VB.Menu mnuAttachNote 
  320.          Caption         =   "Atta&ch-a-note"
  321.       End
  322.       Begin VB.Menu mnuTextFromFile 
  323.          Caption         =   "Te&xt from File"
  324.       End
  325.       Begin VB.Menu mnuStamp 
  326.          Caption         =   "Ru&bber Stamps"
  327.       End
  328.       Begin VB.Menu mnuSep16 
  329.          Caption         =   "-"
  330.       End
  331.       Begin VB.Menu mnuShowTools 
  332.          Caption         =   "Show Toolbox"
  333.       End
  334.    End
  335.    Begin VB.Menu mnuHelp 
  336.       Caption         =   "&Help"
  337.       Enabled         =   0   'False
  338.       Begin VB.Menu mnuAbout 
  339.          Caption         =   "&About..."
  340.          Enabled         =   0   'False
  341.       End
  342.    End
  343. End
  344. Attribute VB_Name = "frmSample"
  345. Attribute VB_Creatable = False
  346. Attribute VB_Exposed = False
  347. ' ------------------------------------------------------------------------
  348. '               Copyright (C) 1995 Wang
  349. '
  350. ' You have a royalty-free right to use, modify, reproduce and distribute
  351. ' the Sample Application Files (and/or any modified version) in any way
  352. ' you find useful, provided that you agree that Wang has no warranty,
  353. ' obligations or liability for any Sample Application Files.
  354. '
  355. ' This application is intended as an example of how to use the Wang
  356. ' Imaging OLE Controls.  As such, we have kept refinements such as
  357. ' disabling and enabling menu items, elaborate error handling, etc. to
  358. ' a minimum so as not to obscure the code that actually deals with the
  359. ' Wang Imaging OLE controls.  There are items on the menus that have
  360. ' not been implemented.  These items, in general, would involve creating
  361. ' dialog boxes and other UI that are best left to the user.  Once the user
  362. ' has an understanding of how to use the Wang Imaging Controls, these
  363. ' items should be fairly simple to implement.
  364. ' ------------------------------------------------------------------------
  365.  
  366. Dim Selection As Boolean 'Selection = True, selection rect drawn.
  367. Dim Annot8Visible As Boolean 'Annot8Visible = True, annotation toolbox is
  368.                             'visible
  369. Dim CurrentPage As Integer 'CurPage = currently displayed image page
  370. Dim LastPage As Integer 'LastPage = last page viewed before current page
  371. Dim TotalPages As Integer 'TotalPages = image document page count
  372. Dim numbits As Integer 'number of bits per pixel supported by this device
  373.  
  374. 'Const defines
  375. Const NoTool = 0
  376. Const AnnoSelection = 1
  377. Const AnnoFreehand = 2
  378. Const AnnoHiLight = 3
  379. Const AnnoStraightLine = 4
  380. Const AnnoHollowRect = 5
  381. Const AnnoFilledRect = 6
  382. Const AnnoText = 7
  383. Const AnnoAttachNote = 8
  384. Const AnnoTextFromFile = 9
  385. Const AnnoRubberStamp = 10
  386. Const BestFit = 0
  387. Const FitWidth = 1
  388. Const FitHeight = 2
  389. Const InchToInch = 3
  390. Const ErrCancel = 32755
  391. Const ZoomMax = 6554
  392. Const ZoomMin = 2
  393. Const TiffImage = 1
  394. Const AwdImage = 2
  395. Const BmpImage = 3
  396. Const ImageChanged = "Image has changed.  Do you want to save changes?"
  397.  
  398. 'Win API to determine display capabilities
  399. Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
  400.  
  401. Private Sub Form_Load()
  402. 'initialize the variables
  403. Dim dc As Long
  404. Dim index As Long
  405.  
  406. Selection = False
  407. Annot8Visible = False
  408. CurrentPage = 1
  409. LastPage = 1
  410. TotalPages = 1
  411.  
  412. dc = hdc
  413. index = 12  '12 = BITSPERPIXEL
  414. numbits = GetDeviceCaps(dc, index) 'finds out how many colors video driver supports
  415.  
  416. End Sub
  417.  
  418. Private Sub Form_Resize()
  419. 'when the form is resized, position the Image Edit
  420. 'control window and\or the ThumbNail control window
  421. 'so that they fit within the new form
  422. 'dimensions.
  423.  
  424. If frmSample.WindowState = 1 Or frmSample.ScaleWidth < 1 Or frmSample.ScaleHeight < 1 Then
  425.     Exit Sub 'leave if app is being minimized or the form is too small
  426. End If
  427. If mnuOnePage.Checked Then 'Just image displayed
  428.     oleImgEdit1.Left = frmSample.ScaleLeft
  429.     oleImgEdit1.Top = frmSample.ScaleTop
  430.     oleImgEdit1.Width = frmSample.ScaleWidth
  431.     oleImgEdit1.Height = frmSample.ScaleHeight
  432.  
  433. ElseIf mnuThumbnail.Checked Then 'Just ThumbNail displayed
  434.     oleImgThumbnail1.Left = frmSample.ScaleLeft
  435.     oleImgThumbnail1.Top = frmSample.ScaleTop
  436.     oleImgThumbnail1.Width = frmSample.ScaleWidth
  437.     oleImgThumbnail1.Height = frmSample.ScaleHeight
  438.  
  439. Else 'Image and ThumbNail displayed. ThumbNail gets 1/3 of frame, Image 2/3.
  440.     oleImgThumbnail1.Left = frmSample.ScaleLeft
  441.     oleImgThumbnail1.Top = frmSample.ScaleTop
  442.     oleImgThumbnail1.Width = frmSample.ScaleWidth
  443.     oleImgThumbnail1.Height = frmSample.ScaleHeight / 3
  444.     oleImgEdit1.Left = frmSample.ScaleLeft
  445.     oleImgEdit1.Top = frmSample.ScaleHeight / 3
  446.     oleImgEdit1.Width = frmSample.ScaleWidth
  447.     oleImgEdit1.Height = (frmSample.ScaleHeight * 2 / 3)
  448.  
  449. End If
  450.  
  451. End Sub
  452.  
  453.  
  454. Private Sub Form_Unload(Cancel As Integer)
  455. 'if image has changed, give the user a chance to
  456. 'save it before closing
  457. If oleImgEdit1.ImageModified = True Then
  458.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  459.         mnuSave_Click
  460.     End If
  461. End If
  462.  
  463. End Sub
  464.  
  465.  
  466.  
  467.  
  468.  
  469.  
  470. Private Sub mnu100_Click()
  471. 'Set zoom to 100% and redisplay image.
  472. 'Zoom value is a float
  473. oleImgEdit1.Zoom = 100!
  474. oleImgEdit1.Refresh
  475.  
  476. 'check the current menu pick and uncheck the others.
  477. mnuBestFit.Checked = False
  478. mnuFitHeight.Checked = False
  479. mnuFitWidth.Checked = False
  480. mnuActual.Checked = False
  481. mnu25.Checked = False
  482. mnu50.Checked = False
  483. mnu75.Checked = False
  484. mnu100.Checked = True
  485. mnu200.Checked = False
  486. mnu400.Checked = False
  487. End Sub
  488.  
  489.  
  490. Private Sub mnu200_Click()
  491. 'Set zoom to 200% and redisplay image.
  492. 'Zoom value is a float
  493. oleImgEdit1.Zoom = 200!
  494. oleImgEdit1.Refresh
  495.  
  496. 'check the current menu pick and uncheck the others.
  497. mnuBestFit.Checked = False
  498. mnuFitHeight.Checked = False
  499. mnuFitWidth.Checked = False
  500. mnuActual.Checked = False
  501. mnu25.Checked = False
  502. mnu50.Checked = False
  503. mnu75.Checked = False
  504. mnu100.Checked = False
  505. mnu200.Checked = True
  506. mnu400.Checked = False
  507. End Sub
  508.  
  509.  
  510. Private Sub mnu25_Click()
  511. 'Set zoom to 25% and redisplay image.
  512. 'Zoom value is a float
  513. oleImgEdit1.Zoom = 25!
  514. oleImgEdit1.Refresh
  515.  
  516. 'check the current menu pick and uncheck the others.
  517. mnuBestFit.Checked = False
  518. mnuFitHeight.Checked = False
  519. mnuFitWidth.Checked = False
  520. mnuActual.Checked = False
  521. mnu25.Checked = True
  522. mnu50.Checked = False
  523. mnu75.Checked = False
  524. mnu100.Checked = False
  525. mnu200.Checked = False
  526. mnu400.Checked = False
  527. End Sub
  528.  
  529.  
  530. Private Sub mnu400_Click()
  531. 'Set zoom to 400% and redisplay image.
  532. 'Zoom value is a float
  533. oleImgEdit1.Zoom = 400!
  534. oleImgEdit1.Refresh
  535.  
  536. 'check the current menu pick and uncheck the others.
  537. mnuBestFit.Checked = False
  538. mnuFitHeight.Checked = False
  539. mnuFitWidth.Checked = False
  540. mnuActual.Checked = False
  541. mnu25.Checked = False
  542. mnu50.Checked = False
  543. mnu75.Checked = False
  544. mnu100.Checked = False
  545. mnu200.Checked = False
  546. mnu400.Checked = True
  547. End Sub
  548.  
  549.  
  550. Private Sub mnu50_Click()
  551. 'Set zoom to 50% and redisplay image.
  552. 'Zoom value is a float
  553. oleImgEdit1.Zoom = 50!
  554. oleImgEdit1.Refresh
  555.  
  556. 'check the current menu pick and uncheck the others.
  557. mnuBestFit.Checked = False
  558. mnuFitHeight.Checked = False
  559. mnuFitWidth.Checked = False
  560. mnuActual.Checked = False
  561. mnu25.Checked = False
  562. mnu50.Checked = True
  563. mnu75.Checked = False
  564. mnu100.Checked = False
  565. mnu200.Checked = False
  566. mnu400.Checked = False
  567. End Sub
  568.  
  569.  
  570. Private Sub mnu75_Click()
  571. 'Set zoom to 75% and redisplay image.
  572. 'Zoom value is a float
  573. oleImgEdit1.Zoom = 75!
  574. oleImgEdit1.Refresh
  575.  
  576. 'check the current menu pick and uncheck the others.
  577. mnuBestFit.Checked = False
  578. mnuFitHeight.Checked = False
  579. mnuFitWidth.Checked = False
  580. mnuActual.Checked = False
  581. mnu25.Checked = False
  582. mnu50.Checked = False
  583. mnu75.Checked = True
  584. mnu100.Checked = False
  585. mnu200.Checked = False
  586. mnu400.Checked = False
  587. End Sub
  588.  
  589.  
  590. Private Sub mnuAbout_Click()
  591. 'Add your code here
  592. MsgBox "Function to be implemented by user."
  593. End Sub
  594.  
  595.  
  596. Private Sub mnuActual_Click()
  597. 'Set fit to inch to inch and redisplay image.
  598. oleImgEdit1.FitTo (InchToInch)
  599. oleImgEdit1.Refresh
  600.  
  601. 'check the current zoom menu pick and uncheck the others.
  602. mnuBestFit.Checked = False
  603. mnuFitHeight.Checked = False
  604. mnuFitWidth.Checked = False
  605. mnuActual.Checked = True
  606. mnu25.Checked = False
  607. mnu50.Checked = False
  608. mnu75.Checked = False
  609. mnu100.Checked = False
  610. mnu200.Checked = False
  611. mnu400.Checked = False
  612. End Sub
  613.  
  614.  
  615. Private Sub mnuAppend_Click()
  616. 'Add your code here.
  617. MsgBox "Function to be implemented by user."
  618.  
  619. End Sub
  620.  
  621.  
  622. Private Sub mnuAttachNote_Click()
  623. 'see documentation for the list of annotation types
  624. oleImgEdit1.SelectTool AnnoAttachNote
  625.  
  626.  
  627. 'Check the current annotation tool and uncheck all
  628. 'the others
  629. mnuNoTool.Checked = False
  630. mnuSelectPointer.Checked = False
  631. mnuAttachNote.Checked = True
  632. mnuFillRect.Checked = False
  633. mnuFreeHand.Checked = False
  634. mnuHiLight.Checked = False
  635. mnuHollowRect.Checked = False
  636. mnuStamp.Checked = False
  637. mnuStraightLine.Checked = False
  638. mnuTextFromFile.Checked = False
  639. mnuTypedText.Checked = False
  640.  
  641. End Sub
  642.  
  643.  
  644. Private Sub mnuBack_Click()
  645. 'Save current page if modified, then return to the
  646. 'previously displayed page.
  647. If oleImgEdit1.ImageModified = True Then
  648.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  649.         mnuSave_Click
  650.     End If
  651. End If
  652. oleImgEdit1.page = LastPage
  653. oleImgEdit1.Display
  654.  
  655. 'Update the selected page thumbnail
  656. oleImgThumbnail1.DeselectAllThumbs
  657. oleImgThumbnail1.ThumbSelected(LastPage) = True
  658.  
  659. End Sub
  660.  
  661.  
  662. Private Sub mnuBestFit_Click()
  663. 'zoom the image so that the entire image
  664. 'fits in the display window
  665. oleImgEdit1.FitTo (BestFit)
  666.  
  667. 'check the current menu pick and uncheck the others.
  668. mnuBestFit.Checked = True
  669. mnuFitHeight.Checked = False
  670. mnuFitWidth.Checked = False
  671. mnuZoomToSelection.Checked = False
  672. mnu25.Checked = False
  673. mnu50.Checked = False
  674. mnu75.Checked = False
  675. mnu100.Checked = False
  676. mnu200.Checked = False
  677. mnu400.Checked = False
  678. End Sub
  679.  
  680.  
  681. Private Sub mnuBurnIn_Click()
  682. 'burn in all visible annotations,(1,) and preserve
  683. 'colors, (2).  See documentation for other valid arguments.
  684. ret = oleImgEdit1.BurnInAnnotations(1, 2)
  685.  
  686. End Sub
  687.  
  688.  
  689. Private Sub mnuConvert_Click()
  690. 'Add your code here.
  691. MsgBox "Function to be implemented by user."
  692. End Sub
  693.  
  694. Private Sub mnuCopy_Click()
  695. 'Copy the selected area to the clipboard.
  696. If Selection = True Then
  697.     oleImgEdit1.ClipboardCopy
  698. End If
  699. End Sub
  700.  
  701.  
  702. Private Sub mnuCopyPage_Click()
  703. 'Add your code here.
  704. MsgBox "Function to be implemented by user."
  705.  
  706. End Sub
  707.  
  708.  
  709. Private Sub mnuCustom_Click()
  710. 'Add your code here.
  711. MsgBox "Function to be implemented by user."
  712.  
  713. End Sub
  714.  
  715.  
  716. Private Sub mnuCut_Click()
  717. 'Cut the selected area to the clipboard.
  718. If Selection = True Then
  719.     oleImgEdit1.ClipboardCut
  720. End If
  721.  
  722. End Sub
  723.  
  724.  
  725. Private Sub mnuDeletePage_Click()
  726. 'Add your code here.
  727. MsgBox "Function to be implemented by user."
  728.  
  729. End Sub
  730.  
  731. Private Sub mnuDrag_Click()
  732. 'Add your code here.
  733. MsgBox "Function to be implemented by user."
  734.  
  735. End Sub
  736.  
  737.  
  738. Private Sub mnuExit_Click()
  739. 'Close the app
  740.  
  741. Unload frmSample
  742.  
  743. End Sub
  744.  
  745. Private Sub mnuFillRect_Click()
  746. 'see documentation for the list of annotation types
  747. oleImgEdit1.SelectTool AnnoFilledRect
  748.  
  749.  
  750. 'Check the current annotation tool and uncheck all
  751. 'the others
  752. mnuNoTool.Checked = False
  753. mnuSelectPointer.Checked = False
  754. mnuAttachNote.Checked = False
  755. mnuFillRect.Checked = True
  756. mnuFreeHand.Checked = False
  757. mnuHiLight.Checked = False
  758. mnuHollowRect.Checked = False
  759. mnuStamp.Checked = False
  760. mnuStraightLine.Checked = False
  761. mnuTextFromFile.Checked = False
  762. mnuTypedText.Checked = False
  763.  
  764. End Sub
  765.  
  766. Private Sub mnuFirst_Click()
  767. 'Save current page if modified, then store the current
  768. 'page number and display the first page
  769. If oleImgEdit1.ImageModified = True Then
  770.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  771.         mnuSave_Click
  772.     End If
  773. End If
  774. LastPage = oleImgEdit1.page
  775. oleImgEdit1.page = 1
  776. oleImgEdit1.Display
  777.  
  778. 'Update the selected page thumbnail
  779. oleImgThumbnail1.DeselectAllThumbs
  780. oleImgThumbnail1.ThumbSelected(1) = True
  781. End Sub
  782.  
  783. Private Sub mnuFitHeight_Click()
  784. 'Zoom the image so that its vertical
  785. 'dimension fits within the display window
  786. oleImgEdit1.FitTo (FitHeight)
  787.  
  788. 'check the current menu pick and uncheck the others.
  789. mnuBestFit.Checked = False
  790. mnuFitHeight.Checked = True
  791. mnuFitWidth.Checked = False
  792. mnuZoomToSelection.Checked = False
  793. mnu25.Checked = False
  794. mnu50.Checked = False
  795. mnu75.Checked = False
  796. mnu100.Checked = False
  797. mnu200.Checked = False
  798. mnu400.Checked = False
  799. End Sub
  800.  
  801. Private Sub mnuFitWidth_Click()
  802. 'Zoom the image so that its horizontal
  803. 'dimension fits within the display window
  804. oleImgEdit1.FitTo (FitWidth)
  805.  
  806. 'check the current menu pick and uncheck the others.
  807. mnuBestFit.Checked = False
  808. mnuFitHeight.Checked = False
  809. mnuFitWidth.Checked = True
  810. mnuZoomToSelection.Checked = False
  811. mnu25.Checked = False
  812. mnu50.Checked = False
  813. mnu75.Checked = False
  814. mnu100.Checked = False
  815. mnu200.Checked = False
  816. mnu400.Checked = False
  817. End Sub
  818.  
  819. Private Sub mnuFlip_Click()
  820. 'Rotate the image 180 degrees.
  821. oleImgEdit1.Flip
  822. End Sub
  823.  
  824. Private Sub mnuFreeHand_Click()
  825. 'see documentation for the list of annotation types
  826. oleImgEdit1.SelectTool AnnoFreehand
  827.  
  828.  
  829. 'Check the current annotation tool and uncheck all
  830. 'the others
  831. mnuNoTool.Checked = False
  832. mnuSelectPointer.Checked = False
  833. mnuAttachNote.Checked = False
  834. mnuFillRect.Checked = False
  835. mnuFreeHand.Checked = True
  836. mnuHiLight.Checked = False
  837. mnuHollowRect.Checked = False
  838. mnuStamp.Checked = False
  839. mnuStraightLine.Checked = False
  840. mnuTextFromFile.Checked = False
  841. mnuTypedText.Checked = False
  842.  
  843. End Sub
  844.  
  845. Private Sub mnuFullScreen_Click()
  846. 'resize the Image Edit window to maximize the display
  847.  
  848. If mnuFullScreen.Checked Then
  849.     frmSample.WindowState = 0
  850.     mnuFullScreen.Checked = False
  851. Else
  852.     frmSample.WindowState = 2
  853.     mnuFullScreen.Checked = True
  854. End If
  855. End Sub
  856.  
  857. Private Sub mnuGoTo_Click()
  858. 'Save current page if modified, then store the current
  859. 'page number and display the GoTo Page dialog box
  860. If oleImgEdit1.ImageModified = True Then
  861.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  862.         mnuSave_Click
  863.     End If
  864. End If
  865. LastPage = oleImgEdit1.page
  866. frmGotoDlg.Show
  867. End Sub
  868.  
  869. Private Sub mnuHelp_Click()
  870. 'Add your code here.
  871. MsgBox "Function to be implemented by user."
  872.  
  873. End Sub
  874.  
  875.  
  876. Private Sub mnuHideAnnotation_Click()
  877. 'Toggle the display of annotations
  878. If mnuHideAnnotation.Checked = True Then
  879.     'show all hidden annotations
  880.     oleImgEdit1.ShowAnnotationGroup
  881.     oleImgEdit1.Refresh
  882.     mnuHideAnnotation.Checked = False
  883. Else
  884.     'hide all displayed annotations
  885.     oleImgEdit1.HideAnnotationGroup
  886.     oleImgEdit1.Refresh
  887.     mnuHideAnnotation.Checked = True
  888. End If
  889.  
  890. End Sub
  891.  
  892. Private Sub mnuHiLight_Click()
  893. 'see documentation for the list of annotation types
  894. oleImgEdit1.SelectTool AnnoHiLight
  895.  
  896.  
  897. 'Check the current annotation tool and uncheck all
  898. 'the others
  899. mnuNoTool.Checked = False
  900. mnuSelectPointer.Checked = False
  901. mnuAttachNote.Checked = False
  902. mnuFillRect.Checked = False
  903. mnuFreeHand.Checked = False
  904. mnuHiLight.Checked = True
  905. mnuHollowRect.Checked = False
  906. mnuStamp.Checked = False
  907. mnuStraightLine.Checked = False
  908. mnuTextFromFile.Checked = False
  909. mnuTypedText.Checked = False
  910.  
  911. End Sub
  912.  
  913. Private Sub mnuHollowRect_Click()
  914. 'see documentation for the list of annotation types
  915. oleImgEdit1.SelectTool AnnoHollowRect
  916.  
  917.  
  918. 'Check the current annotation tool and uncheck all
  919. 'the others
  920. mnuNoTool.Checked = False
  921. mnuSelectPointer.Checked = False
  922. mnuAttachNote.Checked = False
  923. mnuFillRect.Checked = False
  924. mnuFreeHand.Checked = False
  925. mnuHiLight.Checked = False
  926. mnuHollowRect.Checked = True
  927. mnuStamp.Checked = False
  928. mnuStraightLine.Checked = False
  929. mnuTextFromFile.Checked = False
  930. mnuTypedText.Checked = False
  931.  
  932. End Sub
  933.  
  934. Private Sub mnuInsert_Click()
  935. 'Add your code here.
  936. MsgBox "Function to be implemented by user."
  937.  
  938. End Sub
  939.  
  940. Private Sub mnuLast_Click()
  941. 'Save current page if modified, then store the current
  942. 'page number and display the last page
  943. Dim page As Long 'number of last page
  944.  
  945. If oleImgEdit1.ImageModified = True Then
  946.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  947.         mnuSave_Click
  948.     End If
  949. End If
  950. LastPage = oleImgEdit1.page
  951. page = oleImgEdit1.PageCount
  952. oleImgEdit1.page = page
  953. oleImgEdit1.Display
  954.  
  955. 'Update the selected page thumbnail
  956. oleImgThumbnail1.DeselectAllThumbs
  957. oleImgThumbnail1.ThumbSelected(oleImgEdit1.page) = True
  958.  
  959. End Sub
  960.  
  961. Private Sub mnuLeft_Click()
  962. 'Rotate image 90 degrees to the left
  963. oleImgEdit1.RotateLeft
  964.  
  965. End Sub
  966.  
  967. Private Sub mnuNew_Click()
  968. 'if the current image was modified, give the user
  969. 'a chance to save it, then open a new blank image
  970. 'of the same size.
  971. If oleImgEdit1.ImageModified = True Then
  972.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  973.         mnuSave_Click
  974.     End If
  975. End If
  976. 'Use generic display values
  977. oleImgEdit1.DisplayBlankImage 500, 400, 200, 200, 1
  978. oleImgEdit1.Image = ""
  979. oleImgThumbnail1.Image = oleImgEdit1.Image
  980.  
  981.  
  982. 'Now that we have an image, enable the needed menus.
  983. mnuSaveAs.Enabled = True
  984. mnuSave.Enabled = True
  985. mnuPrint.Enabled = True
  986. mnuEdit.Enabled = True
  987. mnuView.Enabled = True
  988. mnuPage.Enabled = True
  989. mnuZoom.Enabled = True
  990. mnuAnnotation.Enabled = True
  991. 'This is a 1 page image, so disable the page
  992. 'change menu items
  993. mnuBack.Enabled = False
  994. mnuFirst.Enabled = False
  995. mnuGoTo.Enabled = False
  996. mnuLast.Enabled = False
  997. mnuNext.Enabled = False
  998. mnuPrevious.Enabled = False
  999.  
  1000.  
  1001.  
  1002. End Sub
  1003.  
  1004. Private Sub mnuNext_Click()
  1005. 'Save current page if modified, then store the current
  1006. 'page number and display the next page
  1007. Dim page As Long 'Page place holder
  1008.  
  1009. If oleImgEdit1.ImageModified = True Then
  1010.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  1011.         mnuSave_Click
  1012.     End If
  1013. End If
  1014. LastPage = oleImgEdit1.page
  1015. page = oleImgEdit1.page
  1016. If page = TotalPages Then
  1017.     MsgBox "Last Page"
  1018.     Exit Sub
  1019. End If
  1020. page = page + 1
  1021. oleImgEdit1.page = page
  1022. oleImgEdit1.Display
  1023.  
  1024. 'Update the selected page thumbnail
  1025. oleImgThumbnail1.DeselectAllThumbs
  1026. oleImgThumbnail1.ThumbSelected(oleImgEdit1.page) = True
  1027.  
  1028. End Sub
  1029.  
  1030. Private Sub mnuNoTool_Click()
  1031. 'see documentation for the list of annotation types
  1032. oleImgEdit1.SelectTool NoTool
  1033.  
  1034.  
  1035. 'Check the current annotation tool and uncheck all
  1036. 'the others
  1037. mnuNoTool.Checked = True
  1038. mnuSelectPointer.Checked = False
  1039. mnuAttachNote.Checked = False
  1040. mnuFillRect.Checked = False
  1041. mnuFreeHand.Checked = False
  1042. mnuHiLight.Checked = False
  1043. mnuHollowRect.Checked = False
  1044. mnuStamp.Checked = False
  1045. mnuStraightLine.Checked = False
  1046. mnuTextFromFile.Checked = False
  1047. mnuTypedText.Checked = False
  1048.  
  1049. End Sub
  1050.  
  1051. Private Sub mnuOnePage_Click()
  1052. 'hide any thumbnails and expand the Image Edit
  1053. 'window to fit in the form
  1054.  
  1055. oleImgThumbnail1.Visible = False
  1056. oleImgEdit1.Visible = True
  1057. oleImgEdit1.Left = frmSample.ScaleLeft
  1058. oleImgEdit1.Top = frmSample.ScaleTop
  1059. oleImgEdit1.Width = frmSample.ScaleWidth
  1060. oleImgEdit1.Height = frmSample.ScaleHeight
  1061.  
  1062. mnuThumbnail.Checked = False
  1063. mnuOnePage.Checked = True
  1064. mnuPageThumbnail.Checked = False
  1065.  
  1066. End Sub
  1067.  
  1068.  
  1069. Private Sub mnuOpen_Click()
  1070. 'open an image doc. If the current doc is modified,
  1071. 'try to save it. ShowFileDialog(0) shows Open File
  1072. 'dialog. ShowFileDialog(1) shows SaveAs File dialog.
  1073.  
  1074.  
  1075. Dim temp As String 'image name and path
  1076.  
  1077. On Error Resume Next 'handle errors ourselves incase of cancel
  1078. oleImgAdmin1.Flags = 0 'clear Flags
  1079. If oleImgEdit1.ImageModified = True Then
  1080.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  1081.         mnuSave_Click
  1082.         If Err = ErrCancel Then '32755 = Cancel pressed
  1083.             Exit Sub
  1084.         End If
  1085.     End If
  1086. End If
  1087. oleImgAdmin1.ShowFileDialog 0, frmSample.hWnd
  1088. If Err = ErrCancel Then '32755 = Cancel pressed
  1089.     Exit Sub
  1090. End If
  1091. If oleImgAdmin1.StatusCode <> 0 Then
  1092.     MsgBox Err.Description + " Code = " + Hex(oleImgAdmin1.StatusCode), 16
  1093.     Exit Sub
  1094. End If
  1095. temp = oleImgAdmin1.Image
  1096. oleImgEdit1.Image = temp
  1097. oleImgThumbnail1.Image = oleImgEdit1.Image
  1098. If numbits > 8 Then 'video driver supports hicolor or truecolor
  1099.     oleImgEdit1.ImagePalette = 3 'Set for 24 bit RGB.
  1100. End If
  1101. oleImgEdit1.page = 1
  1102. oleImgEdit1.Display
  1103. TotalPages = oleImgEdit1.PageCount
  1104. oleImgThumbnail1.ThumbSelected(1) = True
  1105.  
  1106. 'Now that we have an image, enable the needed menus.
  1107. mnuSaveAs.Enabled = True
  1108. mnuSave.Enabled = True
  1109. mnuPrint.Enabled = True
  1110. mnuEdit.Enabled = True
  1111. mnuView.Enabled = True
  1112. mnuPage.Enabled = True
  1113. mnuZoom.Enabled = True
  1114. mnuAnnotation.Enabled = True
  1115. If oleImgEdit1.PageCount > 1 Then
  1116.     mnuBack.Enabled = True
  1117.     mnuFirst.Enabled = True
  1118.     mnuGoTo.Enabled = True
  1119.     mnuLast.Enabled = True
  1120.     mnuNext.Enabled = True
  1121.     mnuPrevious.Enabled = True
  1122. Else
  1123.     mnuBack.Enabled = False
  1124.     mnuFirst.Enabled = False
  1125.     mnuGoTo.Enabled = False
  1126.     mnuLast.Enabled = False
  1127.     mnuNext.Enabled = False
  1128.     mnuPrevious.Enabled = False
  1129. End If
  1130.  
  1131. End Sub
  1132.  
  1133. Private Sub mnuOptions_Click()
  1134. 'Add your code here.
  1135. MsgBox "Function to be implemented by user."
  1136.  
  1137. End Sub
  1138.  
  1139.  
  1140. Private Sub mnuPageThumbnail_Click()
  1141. 'Show the thumbnails accross the top third of the
  1142. 'app window, and the current image in the bottom two
  1143. 'thirds of the window.
  1144.  
  1145. oleImgEdit1.Visible = True
  1146. oleImgThumbnail1.Visible = True
  1147.  
  1148. oleImgEdit1.Left = frmSample.ScaleLeft
  1149. oleImgEdit1.Top = frmSample.ScaleHeight / 3
  1150. oleImgEdit1.Width = frmSample.ScaleWidth
  1151. oleImgEdit1.Height = (frmSample.ScaleHeight * 2 / 3)
  1152.  
  1153. oleImgThumbnail1.Left = frmSample.ScaleLeft
  1154. oleImgThumbnail1.Top = frmSample.ScaleTop
  1155. oleImgThumbnail1.Width = frmSample.ScaleWidth
  1156. oleImgThumbnail1.Height = frmSample.ScaleHeight / 3
  1157.  
  1158. mnuThumbnail.Checked = False
  1159. mnuOnePage.Checked = False
  1160. mnuPageThumbnail.Checked = True
  1161.  
  1162. End Sub
  1163.  
  1164. Private Sub mnuPaste_Click()
  1165. 'Paste from the clipboard
  1166. If oleImgEdit1.IsClipboardDataAvailable = True Then
  1167.     oleImgEdit1.ClipboardPaste
  1168.     Selection = False
  1169. End If
  1170.  
  1171. End Sub
  1172.  
  1173. Private Sub mnuPrevious_Click()
  1174. 'Save current page if modified, then store the current
  1175. 'page number and display the previous page
  1176. Dim page As Long 'Page number place holder
  1177.  
  1178. If oleImgEdit1.ImageModified = True Then
  1179.     If MsgBox(ImageChanged, vbYesNo) = vbYes Then
  1180.         mnuSave_Click
  1181.     End If
  1182. End If
  1183. LastPage = oleImgEdit1.page
  1184. page = oleImgEdit1.page
  1185. If page = 1 Then
  1186.     MsgBox "First Page"
  1187.     Exit Sub
  1188. End If
  1189. page = page - 1
  1190. oleImgEdit1.page = page
  1191. oleImgEdit1.Display
  1192.  
  1193. 'Update the selected page thumbnail
  1194. oleImgThumbnail1.DeselectAllThumbs
  1195. oleImgThumbnail1.ThumbSelected(oleImgEdit1.page) = True
  1196.  
  1197. End Sub
  1198.  
  1199. Private Sub mnuPrint_Click()
  1200. 'Open ImgAdmin's Print dialog and call ImgEdit's
  1201. 'Print function with the user selected options.
  1202. Dim format As Integer
  1203. Dim Annotations As Boolean
  1204.  
  1205. On Error Resume Next 'handle errors ourselves in case of cancel
  1206. If oleImgEdit1.ImageModified = True Then
  1207.     If MsgBox("The Image must be saved first if changes are to be printed.  Do you want to save the image?", vbYesNo) = vbYes Then
  1208.         mnuSave_Click
  1209.     End If
  1210. End If
  1211. oleImgAdmin1.Flags = 0 'clear Flags so print dialog box will display
  1212. oleImgAdmin1.ShowPrintDialog frmSample.hWnd
  1213. If oleImgAdmin1.StatusCode = 0 Then 'OK button selected
  1214.     format = oleImgAdmin1.PrintOutputFormat
  1215.     Annotations = oleImgAdmin1.PrintAnnotations
  1216.         X = oleImgEdit1.PrintImage(oleImgAdmin1.PrintStartPage, oleImgAdmin1.PrintEndPage, format, Annotations)
  1217. Else
  1218.     If Err = ErrCancel Then '32755 = Cancel pressed
  1219.         Exit Sub
  1220.     Else
  1221.         MsgBox Err.Description + " Code = " + Hex(oleImgAdmin1.StatusCode), 16
  1222.     End If
  1223. End If
  1224. If oleImgEdit1.StatusCode <> 0 Then
  1225.     MsgBox Err.Description + " Code = " + Hex(oleImgEdit1.StatusCode), 16
  1226. End If
  1227.  
  1228. End Sub
  1229.  
  1230. Private Sub mnuPrintPage_Click()
  1231. 'Print the current page.
  1232.  
  1233. On Error Resume Next 'handle errors ourselves
  1234. X = oleImgEdit1.PrintImage(oleImgEdit1.page, oleImgEdit1.page)
  1235. If oleImgEdit1.StatusCode <> 0 Then
  1236.     MsgBox Err.Description + " Code = " + Hex(oleImgEdit1.StatusCode), 16
  1237. End If
  1238.  
  1239. End Sub
  1240.  
  1241.  
  1242. Private Sub mnuRescan_Click()
  1243. 'Add your code here.
  1244. MsgBox "Function to be implemented by user."
  1245.  
  1246. End Sub
  1247.  
  1248.  
  1249. Private Sub mnuRight_Click()
  1250. 'Rotate image 90 degrees to the right
  1251. oleImgEdit1.RotateRight
  1252.  
  1253. End Sub
  1254.  
  1255. Private Sub mnuSave_Click()
  1256. 'Save the current document
  1257. On Error Resume Next 'handle errors ourselves
  1258. If oleImgEdit1.Image = "" Then
  1259.     mnuSaveAs_Click
  1260. Else
  1261.     oleImgEdit1.Save (False)
  1262.     If oleImgEdit1.StatusCode <> 0 Then
  1263.         MsgBox Err.Description + " Code = " + Hex(oleImgEdit1.StatusCode), 16
  1264.     End If
  1265. End If
  1266.  
  1267. End Sub
  1268.  
  1269. Private Sub mnuSaveAs_Click()
  1270. 'Open ImgAdmin's SaveAs dialog
  1271. Dim FileType As Integer
  1272.  
  1273. On Error Resume Next 'handle errors ourselves
  1274.  
  1275. 'we can write tiff, bmp, and awd files, so set the admin file filter
  1276. 'to show only these types.
  1277. oleImgAdmin1.Filter = "TIFF files (*.tif)|*.tif|BMP files (*.bmp)|*.bmp|AWD files(*.awd)|*.awd|"
  1278. oleImgAdmin1.ShowFileDialog 1, frmSample.hWnd
  1279. If Err = ErrCancel Then '32755 = Cancel pressed
  1280.     Exit Sub
  1281. End If
  1282.  
  1283. If oleImgAdmin1.Image = oleImgEdit1.Image Then 'Save as current name
  1284.     oleImgEdit1.Save False
  1285. Else 'Save as newly selected name and change image name to selected name
  1286.     'determine from the filter index which file type was selected
  1287.     If oleImgAdmin1.FilterIndex = 1 Then
  1288.         FileType = TiffImage
  1289.     ElseIf oleImgAdmin1.FilterIndex = 2 Then
  1290.         FileType = BmpImage
  1291.     Else
  1292.         FileType = AwdImage
  1293.     End If
  1294.     oleImgEdit1.SaveAs oleImgAdmin1.Image, FileType
  1295.     oleImgEdit1.Image = oleImgAdmin1.Image
  1296.     oleImgAdmin1.Image = oleImgEdit1.Image 'this forces a refresh of the properties in the Admin control
  1297.     
  1298. End If
  1299. oleImgAdmin1.FilterIndex = 0
  1300. oleImgAdmin1.Filter = ""
  1301. If oleImgEdit1.StatusCode <> 0 Then
  1302.     MsgBox Err.Description + " Code = " + Hex(oleImgEdit1.StatusCode), 16
  1303.     Exit Sub
  1304. End If
  1305.  
  1306. End Sub
  1307.  
  1308. Private Sub mnuScaleToGray_Click()
  1309. 'toggle image in 4 bit grayscale
  1310. If mnuScaleToGray.Checked = True Then
  1311.     oleImgEdit1.DisplayScaleAlgorithm = 0
  1312.     oleImgEdit1.Refresh
  1313.     mnuScaleToGray.Checked = False
  1314. Else
  1315.     oleImgEdit1.DisplayScaleAlgorithm = 2
  1316.     oleImgEdit1.Refresh
  1317.     mnuScaleToGray.Checked = True
  1318. End If
  1319. End Sub
  1320.  
  1321.  
  1322.  
  1323. Private Sub mnuSelect_Click()
  1324. 'Add your code here.
  1325. MsgBox "Function to be implemented by user."
  1326.  
  1327. End Sub
  1328.  
  1329.  
  1330. Private Sub mnuSelectPointer_Click()
  1331. 'see documentation for the list of annotation types
  1332. oleImgEdit1.SelectTool AnnoSelection
  1333.  
  1334.  
  1335. 'Check the current annotation tool and uncheck all
  1336. 'the others
  1337. mnuNoTool.Checked = False
  1338. mnuSelectPointer.Checked = True
  1339. mnuAttachNote.Checked = False
  1340. mnuFillRect.Checked = False
  1341. mnuFreeHand.Checked = False
  1342. mnuHiLight.Checked = False
  1343. mnuHollowRect.Checked = False
  1344. mnuStamp.Checked = False
  1345. mnuStraightLine.Checked = False
  1346. mnuTextFromFile.Checked = False
  1347. mnuTypedText.Checked = False
  1348.  
  1349. End Sub
  1350.  
  1351.  
  1352. Private Sub mnuSend_Click()
  1353. 'Add your code here.
  1354. MsgBox "Function to be implemented by user."
  1355.  
  1356. End Sub
  1357.  
  1358. Private Sub mnuShowTools_Click()
  1359. 'If the tool palette is visible, close it.  If it's
  1360. 'not visible, open it.
  1361. If Annot8Visible = True Then
  1362.     oleImgEdit1.HideAnnotationToolPalette
  1363.     Annot8Visible = False
  1364.     mnuShowTools.Checked = False
  1365. Else
  1366.     oleImgEdit1.ShowAnnotationToolPalette
  1367.     Annot8Visible = True
  1368.     mnuShowTools.Checked = True
  1369. End If
  1370.  
  1371. End Sub
  1372.  
  1373.  
  1374. Private Sub mnuStamp_Click()
  1375. 'Bring up the Rubber Stamp Properties dialog to choose the stamp you want.
  1376. oleImgEdit1.ShowRubberStampDialog
  1377.  
  1378.  
  1379.  
  1380. 'Check the current annotation tool and uncheck all
  1381. 'the others
  1382. mnuNoTool.Checked = False
  1383. mnuSelectPointer.Checked = False
  1384. mnuAttachNote.Checked = False
  1385. mnuFillRect.Checked = False
  1386. mnuFreeHand.Checked = False
  1387. mnuHiLight.Checked = False
  1388. mnuHollowRect.Checked = False
  1389. mnuStamp.Checked = True
  1390. mnuStraightLine.Checked = False
  1391. mnuTextFromFile.Checked = False
  1392. mnuTypedText.Checked = False
  1393.  
  1394. End Sub
  1395.  
  1396.  
  1397. Private Sub mnuStraightLine_Click()
  1398. 'see documentation for the list of annotation types
  1399. oleImgEdit1.SelectTool AnnoStraightLine
  1400.  
  1401.  
  1402. 'Check the current annotation tool and uncheck all
  1403. 'the others
  1404. mnuNoTool.Checked = False
  1405. mnuSelectPointer.Checked = False
  1406. mnuAttachNote.Checked = False
  1407. mnuFillRect.Checked = False
  1408. mnuFreeHand.Checked = False
  1409. mnuHiLight.Checked = False
  1410. mnuHollowRect.Checked = False
  1411. mnuStamp.Checked = False
  1412. mnuStraightLine.Checked = True
  1413. mnuTextFromFile.Checked = False
  1414. mnuTypedText.Checked = False
  1415.  
  1416. End Sub
  1417.  
  1418. Private Sub mnuTextFromFile_Click()
  1419. 'see documentation for the list of annotation types
  1420. oleImgEdit1.SelectTool AnnoTextFromFile
  1421.  
  1422.  
  1423.  
  1424. 'Check the current annotation tool and uncheck all
  1425. 'the others
  1426. mnuNoTool.Checked = False
  1427. mnuSelectPointer.Checked = False
  1428. mnuAttachNote.Checked = False
  1429. mnuFillRect.Checked = False
  1430. mnuFreeHand.Checked = False
  1431. mnuHiLight.Checked = False
  1432. mnuHollowRect.Checked = False
  1433. mnuStamp.Checked = False
  1434. mnuStraightLine.Checked = False
  1435. mnuTextFromFile.Checked = True
  1436. mnuTypedText.Checked = False
  1437.  
  1438. End Sub
  1439.  
  1440. Private Sub mnuThumbnail_Click()
  1441. 'Size the thumbnail window to the app window and
  1442. 'display it. Hide the image window.
  1443. oleImgThumbnail1.Left = frmSample.ScaleLeft
  1444. oleImgThumbnail1.Top = frmSample.ScaleTop
  1445. oleImgThumbnail1.Width = frmSample.ScaleWidth
  1446. oleImgThumbnail1.Height = frmSample.ScaleHeight
  1447. oleImgThumbnail1.Visible = True
  1448. oleImgEdit1.Visible = False
  1449. 'oleImgThumbnail1.Image = oleImgEdit1.Image
  1450. mnuThumbnail.Checked = True
  1451. mnuOnePage.Checked = False
  1452. mnuPageThumbnail.Checked = False
  1453.  
  1454. End Sub
  1455.  
  1456. Private Sub mnuToolbar_Click()
  1457. 'Add your code here.
  1458. MsgBox "Function to be implemented by user."
  1459.  
  1460. End Sub
  1461.  
  1462.  
  1463. Private Sub mnuTypedText_Click()
  1464. 'see documentation for the list of annotation types
  1465. oleImgEdit1.SelectTool AnnoText
  1466.  
  1467.  
  1468. 'Check the current annotation tool and uncheck all
  1469. 'the others
  1470. mnuNoTool.Checked = False
  1471. mnuSelectPointer.Checked = False
  1472. mnuAttachNote.Checked = False
  1473. mnuFillRect.Checked = False
  1474. mnuFreeHand.Checked = False
  1475. mnuHiLight.Checked = False
  1476. mnuHollowRect.Checked = False
  1477. mnuStamp.Checked = False
  1478. mnuStraightLine.Checked = False
  1479. mnuTextFromFile.Checked = False
  1480. mnuTypedText.Checked = True
  1481.  
  1482. End Sub
  1483.  
  1484. Private Sub mnuZoomIn_Click()
  1485. 'Double the size of the image view
  1486. Dim zoomval As Single 'zoom value
  1487.  
  1488. zoomval = oleImgEdit1.Zoom
  1489. zoomval = zoomval * 2
  1490. If zoomval < ZoomMax Then
  1491.     oleImgEdit1.Zoom = zoomval
  1492.     oleImgEdit1.Refresh
  1493. Else
  1494.     MsgBox "At maximum zoom"
  1495. End If
  1496.  
  1497. 'uncheck the zoom menu picks.
  1498. mnuBestFit.Checked = False
  1499. mnuFitHeight.Checked = False
  1500. mnuFitWidth.Checked = False
  1501. mnuActual.Checked = False
  1502. mnu25.Checked = False
  1503. mnu50.Checked = False
  1504. mnu75.Checked = False
  1505. mnu100.Checked = False
  1506. mnu200.Checked = False
  1507. mnu400.Checked = False
  1508. End Sub
  1509.  
  1510. Private Sub mnuZoomOut_Click()
  1511. 'Reduce the image by half
  1512. Dim zoomval As Single 'zoom value
  1513.  
  1514. zoomval = oleImgEdit1.Zoom
  1515. zoomval = zoomval / 2
  1516. If zoomval >= ZoomMin Then
  1517.     oleImgEdit1.Zoom = zoomval
  1518.     oleImgEdit1.Refresh
  1519. Else
  1520.     MsgBox "At minimum zoom"
  1521. End If
  1522.  
  1523.  
  1524. 'uncheck the zoom menu picks.
  1525. mnuBestFit.Checked = False
  1526. mnuFitHeight.Checked = False
  1527. mnuFitWidth.Checked = False
  1528. mnuActual.Checked = False
  1529. mnu25.Checked = False
  1530. mnu50.Checked = False
  1531. mnu75.Checked = False
  1532. mnu100.Checked = False
  1533. mnu200.Checked = False
  1534. mnu400.Checked = False
  1535. End Sub
  1536.  
  1537. Private Sub mnuZoomToSelection_Click()
  1538. 'Zoom the part of the image in selection
  1539. 'rect to the size of the image window
  1540. If Selection = True Then
  1541.     oleImgEdit1.ZoomToSelection
  1542. End If
  1543.  
  1544. 'check the current menu pick and uncheck the others.
  1545. mnuBestFit.Checked = False
  1546. mnuFitHeight.Checked = False
  1547. mnuFitWidth.Checked = False
  1548. mnuActual.Checked = False
  1549. mnu25.Checked = False
  1550. mnu50.Checked = False
  1551. mnu75.Checked = False
  1552. mnu100.Checked = False
  1553. mnu200.Checked = False
  1554. mnu400.Checked = False
  1555. End Sub
  1556.  
  1557. Private Sub oleImgEdit1_SelectionRectDrawn(ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long)
  1558. 'Determine if a selection rect has been drawn
  1559. If Width = 0 And Height = 0 Then
  1560.     Selection = False
  1561. Else
  1562.     Selection = True
  1563. End If
  1564. End Sub
  1565.  
  1566. Private Sub oleImgEdit1_ToolPaletteHidden(ByVal Left As Long, ByVal Top As Long)
  1567. 'The tool palette has been hidden.  Uncheck its menu item.
  1568.     Annot8Visible = False
  1569.     mnuShowTools.Checked = False
  1570.  
  1571. End Sub
  1572.  
  1573.  
  1574. Private Sub oleImgThumbnail1_Click(ByVal ThumbNumber As Long)
  1575. 'Change the displayed page to the one represented by
  1576. 'the thumbnail that the user clicked on
  1577. If ThumbNumber > 0 Then
  1578.     frmSample.oleImgEdit1.page = ThumbNumber
  1579.     frmSample.oleImgEdit1.Display
  1580.     frmSample.oleImgThumbnail1.DeselectAllThumbs
  1581.     frmSample.oleImgThumbnail1.ThumbSelected(ThumbNumber) = True
  1582. End If
  1583. End Sub
  1584.  
  1585.  
  1586.