SaveJ2KUseColorTransform Example for Visual Basic
Dim nRet As Integer
Dim RasterIO As New LEADRasterIO
Dim LEADDlgFile1 As New LEADRasterDlgFile
LEADDlgFile1.DialogTitle = "Save a File"
LEADDlgFile1.FileDlgFlags = 0
LEADDlgFile1.InitialDir = "C:\"
LEADDlgFile1.UIFlags = SAVE_SHOW_FILEOPTIONS_PROGRESSIVE Or _
SAVE_SHOW_FILEOPTIONS_MULTIPAGE Or _
SAVE_SHOW_FILEOPTIONS_STAMP Or _
SAVE_SHOW_FILEOPTIONS_QFACTOR Or _
SAVE_SHOW_FILEOPTIONS_J2KOPTIONS Or _
SAVE_SHOW_FILEOPTIONS_BASICJ2KOPTIONS
LEADDlgFile1.Bitmap = LEADRasterView1.Raster.Bitmap
nRet = LEADDlgFile1.ShowSaveDlg (hWnd)
If (nRet = 0 And LEADDlgFile1.DialogStatus = DLG_OK) Then
If (LEADDlgFile1.SaveFormat = FILE_J2K) Or (LEADDlgFile1.SaveFormat = FILE_JP2) Then
RasterIO.J2KUseColorTransform = LEADDlgFile1.SaveJ2KUseColorTransform
RasterIO.J2KDerivedQuantization = LEADDlgFile1.SaveJ2KDerivedQuantization
RasterIO.J2KCompressionControl = LEADDlgFile1.SaveJ2KCompressionControl
RasterIO.J2KCompressionRatio = LEADDlgFile1.SaveJ2KCompressionRatio
RasterIO.J2KTargetFileSize = LEADDlgFile1.SaveJ2KTargetFileSize
RasterIO.J2KXOsiz = LEADDlgFile1.SaveJ2KXOsiz
RasterIO.J2KYOsiz = LEADDlgFile1.SaveJ2KYOsiz
RasterIO.J2KXTsiz = LEADDlgFile1.SaveJ2KXTsiz
RasterIO.J2KYTsiz = LEADDlgFile1.SaveJ2KYTsiz
RasterIO.J2KXTOsiz = LEADDlgFile1.SaveJ2KXTOsiz
RasterIO.J2KYTOsiz = LEADDlgFile1.SaveJ2KYTOsiz
RasterIO.J2KDecompLevel = LEADDlgFile1.SaveJ2KDecompLevel
RasterIO.J2KProgressOrder = LEADDlgFile1.SaveJ2KProgressOrder
RasterIO.J2KCodBlockWidth = LEADDlgFile1.SaveJ2KCodBlockWidth
RasterIO.J2KCodBlockHeight = LEADDlgFile1.SaveJ2KCodBlockHeight
RasterIO.J2KCBS_SelectiveACBypass = LEADDlgFile1.SaveJ2KCBS_SelectiveACBypass
RasterIO.J2KCBS_ResetContextOnBoundaries = LEADDlgFile1.SaveJ2KCBS_ResetContextOnBoundaries
RasterIO.J2KCBS_TerminationOnEachPass = LEADDlgFile1.SaveJ2KCBS_TerminationOnEachPass
RasterIO.J2KCBS_VerticallyCausalContext = LEADDlgFile1.SaveJ2KCBS_VerticallyCausalContext
RasterIO.J2KCBS_PredictableTermination = LEADDlgFile1.SaveJ2KCBS_PredictableTermination
RasterIO.J2KCBS_ErrorResilienceSymbol = LEADDlgFile1.SaveJ2KCBS_ErrorResilienceSymbol
RasterIO.J2KGuardBits = LEADDlgFile1.SaveJ2KGuardBits
RasterIO.J2KDerivedBaseMantissa = LEADDlgFile1.SaveJ2KDerivedBaseMantissa
RasterIO.J2KDerivedBaseExponent = LEADDlgFile1.SaveJ2KDerivedBaseExponent
RasterIO.J2KUseSOPMarker = LEADDlgFile1.SaveJ2KUseSOPMarker
RasterIO.J2KUseEPHMarker = LEADDlgFile1.SaveJ2KUseEPHMarker
RasterIO.Save LEADRasterView1.Raster, _
LEADDlgFile1.FileName, _
LEADDlgFile1.SaveFormat, _
LEADDlgFile1.SaveBitsPerPixel, _
LEADDlgFile1.SaveQFactor, _
LEADDlgFile1.SaveMulti
End If
End If
End Sub