RasterOpenDialog Class

Imports Leadtools
   Imports Leadtools.Codecs
   Imports Leadtools.WinForms.CommonDialogs.File

   Public Sub openDlg_Help(ByVal sender As Object, ByVal e As RasterDialogHelpEventArgs) Handles openDlg.Help
      Select Case e.Dialog
         Case RasterDialogHelpName.Open
            MessageBox.Show("Open dialog Help")
            Exit Select
         Case RasterDialogHelpName.LoadOptions
            MessageBox.Show("Load Options dialog Help")
            Exit Select
      End Select
   End Sub

   Public Sub openDlg_LoadProgress(ByVal sender As Object, ByVal e As RasterDialogLoadProgressEventArgs) Handles openDlg.LoadProgress
      Dim displayText As String

      displayText = "(" & e.FilePercent.ToString() & "%) of" & e.LoadRasterFileData.Name & "file is loaded"
      MessageBox.Show(displayText)

      displayText = "(" & e.TotalPercent.ToString() & "%) of all file(s) loading process is completed"
      MessageBox.Show(displayText)
   End Sub

   WithEvents openDlg As RasterOpenDialog


   Public Sub RasterOpenDialogExample()
      Dim rasterCodecs As RasterCodecs = New RasterCodecs()

      openDlg = New RasterOpenDialog(rasterCodecs)

      openDlg.Filter = New RasterOpenDialogLoadFormat() {New RasterOpenDialogLoadFormat("All Files", "*.*"), New RasterOpenDialogLoadFormat("LEAD", "*.cmp")}

      openDlg.CheckFileExists = True
      openDlg.CheckPathExists = True
      openDlg.DefaultExt = "cmp"
      openDlg.DereferenceLinks = True
      openDlg.EnableSizing = True
      openDlg.FileName = "Image.cmp"
      openDlg.FilterIndex = 2
      openDlg.GenerateThumbnail = False
      openDlg.InitialDirectory = LEAD_VARS.ImagesDir
      openDlg.InitialView = FileDialogInitialView.List
      openDlg.LoadCompressed = True
      openDlg.LoadFileImage = False
      openDlg.LoadOptions = False
      openDlg.LoadRotated = False
      openDlg.Multiselect = True
      openDlg.PreviewWindowVisible = True
      openDlg.ShowDeletePage = True
      openDlg.ShowFileInformation = True
      openDlg.ShowGeneralOptions = True
      openDlg.ShowHelp = True
      openDlg.ShowLoadCompressed = True
      openDlg.ShowLoadOptions = True
      openDlg.ShowLoadRotated = True
      openDlg.ShowMultipage = True
      openDlg.ShowPdfOptions = True
      openDlg.ShowXpsOptions = True
      openDlg.ShowXlsOptions = True
      openDlg.ShowVffOptions = True
      openDlg.ShowAnzOptions = True
      openDlg.ShowVectorOptions = True
      openDlg.ShowPreview = True
      openDlg.ShowProgressive = True
      openDlg.ShowRasterOptions = True
      openDlg.ShowTotalPages = True
      openDlg.Title = "Open Dialog"
      openDlg.UseFileStamptoPreview = True
      openDlg.LoadCorrupted = True

      If DialogResult.OK = openDlg.ShowDialog(Nothing) Then
         Dim i As Integer = 0
         Do While i < openDlg.OpenedFileData.Count
            Dim fileDataItem As RasterDialogFileData = CType(openDlg.OpenedFileData(i), RasterDialogFileData)

            ' this is not an image file.
            If fileDataItem.Options Is Nothing Then
               GoTo Continue1
            End If

            rasterCodecs.Options.RasterizeDocument.Load.PageWidth = fileDataItem.Options.RasterizeDocumentOptions.PageWidth
            rasterCodecs.Options.RasterizeDocument.Load.PageHeight = fileDataItem.Options.RasterizeDocumentOptions.PageHeight
            rasterCodecs.Options.RasterizeDocument.Load.LeftMargin = fileDataItem.Options.RasterizeDocumentOptions.LeftMargin
            rasterCodecs.Options.RasterizeDocument.Load.TopMargin = fileDataItem.Options.RasterizeDocumentOptions.TopMargin
            rasterCodecs.Options.RasterizeDocument.Load.RightMargin = fileDataItem.Options.RasterizeDocumentOptions.RightMargin
            rasterCodecs.Options.RasterizeDocument.Load.BottomMargin = fileDataItem.Options.RasterizeDocumentOptions.BottomMargin
            rasterCodecs.Options.RasterizeDocument.Load.Unit = fileDataItem.Options.RasterizeDocumentOptions.Unit
            rasterCodecs.Options.RasterizeDocument.Load.XResolution = fileDataItem.Options.RasterizeDocumentOptions.XResolution
            rasterCodecs.Options.RasterizeDocument.Load.YResolution = fileDataItem.Options.RasterizeDocumentOptions.YResolution
            rasterCodecs.Options.RasterizeDocument.Load.SizeMode = fileDataItem.Options.RasterizeDocumentOptions.SizeMode

            Select Case fileDataItem.Options.FileType
               Case RasterDialogFileOptionsType.Meta
                  If Not Nothing Is fileDataItem.Options.MetaOptions Then
                     rasterCodecs.Options.Wmf.Load.XResolution = fileDataItem.Options.MetaOptions.XResolution
                     rasterCodecs.Options.Wmf.Load.YResolution = fileDataItem.Options.MetaOptions.XResolution
                  End If
                  Exit Select

               Case RasterDialogFileOptionsType.Pdf
                  If (Not Nothing Is fileDataItem.Options.PdfOptions) AndAlso rasterCodecs.Options.Pdf.IsEngineInstalled Then
                     rasterCodecs.Options.Pdf.Load.DisplayDepth = fileDataItem.Options.PdfOptions.DisplayDepth
                     rasterCodecs.Options.Pdf.Load.GraphicsAlpha = fileDataItem.Options.PdfOptions.GraphicsAlpha

                     If Not fileDataItem.Options.PdfOptions.Password Is Nothing Then
                        rasterCodecs.Options.Pdf.Load.Password = fileDataItem.Options.PdfOptions.Password
                     End If

                     rasterCodecs.Options.Pdf.Load.TextAlpha = fileDataItem.Options.PdfOptions.TextAlpha
                     rasterCodecs.Options.Pdf.Load.UseLibFonts = fileDataItem.Options.PdfOptions.UseLibFonts
                  End If
                  Exit Select

               Case RasterDialogFileOptionsType.Misc
                  If Nothing Is fileDataItem.Options.MiscOptions Then
                     GoTo Continue1
                  End If

                  Select Case fileDataItem.FileInfo.Format
                     Case RasterImageFormat.Jbig
                        rasterCodecs.Options.Jbig.Load.Resolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _
                                                                                 fileDataItem.Options.MiscOptions.YResolution)
                        Exit Select

                     Case RasterImageFormat.Cmw
                        rasterCodecs.Options.Jpeg2000.Load.CmwResolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _
                                                                                        fileDataItem.Options.MiscOptions.YResolution)
                        Exit Select

                     Case RasterImageFormat.Jp2
                        rasterCodecs.Options.Jpeg2000.Load.Jp2Resolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _
                                                                                        fileDataItem.Options.MiscOptions.YResolution)
                        Exit Select

                     Case RasterImageFormat.J2k
                        rasterCodecs.Options.Jpeg2000.Load.J2kResolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _
                                                                                        fileDataItem.Options.MiscOptions.YResolution)
                        Exit Select
                  End Select
                  Exit Select
               Case RasterDialogFileOptionsType.Xls
                  rasterCodecs.Options.Xls.Load.MultiPageSheet = fileDataItem.Options.XlsOptions.MultiPageSheet
                  Exit Select
               Case RasterDialogFileOptionsType.Vff
                  rasterCodecs.Options.Vff.Load.View = fileDataItem.Options.VffOptions.View
                  Exit Select
               Case RasterDialogFileOptionsType.Anz
                  rasterCodecs.Options.Anz.Load.View = fileDataItem.Options.AnzOptions.View
                  Exit Select
               Case RasterDialogFileOptionsType.Vector
                  rasterCodecs.Options.Vector.Load.BackgroundColor = fileDataItem.Options.VectorOptions.Options.BackgroundColor
                  rasterCodecs.Options.Vector.Load.BitsPerPixel = fileDataItem.Options.VectorOptions.Options.BitsPerPixel
                  rasterCodecs.Options.Vector.Load.ForceBackgroundColor = fileDataItem.Options.VectorOptions.Options.ForceBackgroundColor
                  rasterCodecs.Options.Vector.Load.ViewHeight = fileDataItem.Options.VectorOptions.Options.ViewHeight
                  rasterCodecs.Options.Vector.Load.ViewMode = fileDataItem.Options.VectorOptions.Options.ViewMode
                  rasterCodecs.Options.Vector.Load.ViewWidth = fileDataItem.Options.VectorOptions.Options.ViewWidth
                  Exit Select
            End Select

            rasterCodecs.Options.Load.Passes = fileDataItem.Passes
            rasterCodecs.Options.Load.Rotated = fileDataItem.LoadRotated
            rasterCodecs.Options.Load.Compressed = fileDataItem.LoadCompressed

            Dim loadedImage As RasterImage = rasterCodecs.Load(fileDataItem.Name, 0, CodecsLoadByteOrder.BgrOrGray, fileDataItem.PageNumber, fileDataItem.PageNumber)

            ' COPY THE 'loadedImage' IMAGE.

            loadedImage.Dispose()
Continue1:
            i += 1
         Loop
      End If
   End Sub

   Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
   End Class