wavelet_form.dfm

在VC下实现的jpeg2000的编解码的程序

object FormWavelet: TFormWavelet
  Left = 270
  Top = 172
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Zerotree Entropy Encoding'
  ClientHeight = 352
  ClientWidth = 386
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBoxInput: TGroupBox
    Left = 0
    Top = 0
    Width = 97
    Height = 153
    Caption = 'Input:'
    TabOrder = 0
    object ButtonLoad: TButton
      Left = 8
      Top = 16
      Width = 81
      Height = 25
      Hint = 
        'Loads an image and adds its channels (if dimensions match) to th' +
        'e channel-list.'
      Caption = '&Load...'
      TabOrder = 0
      OnClick = ButtonLoadClick
    end
    object CheckBoxGreyScale: TCheckBox
      Left = 8
      Top = 96
      Width = 73
      Height = 17
      Hint = 'Load as greyscale or colour image'
      Caption = '&Greyscale'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBoxGreyScaleClick
    end
    object CheckBoxYCbCr: TCheckBox
      Left = 8
      Top = 56
      Width = 65
      Height = 17
      Hint = 'RGB -> YCbCr conversion on multi-channel images.'
      Caption = '&YCbCr'
      Checked = True
      State = cbChecked
      TabOrder = 2
      Visible = False
    end
    object ButtonClear: TButton
      Left = 8
      Top = 56
      Width = 81
      Height = 25
      Hint = 'Discards all channels.'
      Caption = '&Clear'
      TabOrder = 3
      OnClick = ButtonClearClick
    end
    object CheckBoxStayOnTop: TCheckBox
      Left = 8
      Top = 128
      Width = 80
      Height = 17
      Hint = 'Always stay on top?'
      Caption = 'On &Top'
      TabOrder = 4
      OnClick = CheckBoxStayOnTopClick
    end
  end
  object GroupBoxChannels: TGroupBox
    Left = 104
    Top = 0
    Width = 281
    Height = 153
    Caption = 'Directory'
    TabOrder = 1
    object TreeViewChannels: TTreeView
      Left = 8
      Top = 16
      Width = 265
      Height = 129
      Hint = 'List of loaded channels.'
      HideSelection = False
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnChange = TreeViewChannelsChange
    end
  end
  object PageControlSettings: TPageControl
    Left = 0
    Top = 216
    Width = 385
    Height = 105
    ActivePage = TabSheetQuality
    TabOrder = 2
    object TabSheetQuality: TTabSheet
      Caption = '&1 Quality'
      object GroupBoxQuality: TGroupBox
        Left = 0
        Top = 0
        Width = 377
        Height = 73
        Caption = 'Channel PSNR:'
        TabOrder = 0
        object Label6: TLabel
          Left = 240
          Top = 40
          Width = 55
          Height = 13
          Caption = 'PSNR (dB):'
        end
        object Label7: TLabel
          Left = 232
          Top = 88
          Width = 55
          Height = 13
          Caption = 'Mean Error:'
          Visible = False
        end
        object TrackBarPSNR: TTrackBar
          Left = 8
          Top = 16
          Width = 361
          Height = 25
          Max = 70000
          Orientation = trHorizontal
          PageSize = 1000
          Frequency = 1250
          Position = 0
          SelEnd = 0
          SelStart = 0
          TabOrder = 0
          ThumbLength = 10
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = TrackBarPSNRChange
        end
        object EditPSNR: TEdit
          Left = 304
          Top = 40
          Width = 65
          Height = 21
          Hint = 'Target "Peak Signal to Noise Ratio" in the compressed image.'
          ReadOnly = True
          TabOrder = 1
        end
        object EditMSE: TEdit
          Left = 296
          Top = 88
          Width = 65
          Height = 21
          Hint = 'Target "Root Mean Square Error" in the compressed image.'
          TabOrder = 2
          Visible = False
        end
      end
    end
    object TabSheetSize: TTabSheet
      Caption = '&2 Size'
      ImageIndex = 1
      TabVisible = False
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 377
        Height = 97
        Caption = 'Bits per Pixel / Channel:'
        TabOrder = 0
        Visible = False
        object Label4: TLabel
          Left = 240
          Top = 40
          Width = 54
          Height = 13
          Caption = 'BPP / Chn:'
        end
        object Label5: TLabel
          Left = 240
          Top = 64
          Width = 46
          Height = 13
          Caption = 'KiloBytes:'
        end
        object EditSizeBPP: TEdit
          Left = 304
          Top = 40
          Width = 65
          Height = 21
          Hint = 'Target "Bits / Pixel / Channel" for the compressed image.'
          ReadOnly = True
          TabOrder = 0
        end
        object TrackBarSizeBPP: TTrackBar
          Left = 8
          Top = 16
          Width = 345
          Height = 17
          Max = 16000
          Orientation = trHorizontal
          ParentShowHint = False
          PageSize = 100
          Frequency = 250
          Position = 1500
          SelEnd = 0
          SelStart = 0
          ShowHint = False
          TabOrder = 1
          ThumbLength = 10
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = TrackBarSizeBPPChange
        end
        object EditSizeSize: TEdit
          Left = 304
          Top = 64
          Width = 65
          Height = 21
          Hint = 'Target KiloBytes used for the compressed image.'
          ReadOnly = True
          TabOrder = 2
        end
        object UpDownSize: TUpDown
          Left = 352
          Top = 16
          Width = 16
          Height = 17
          Hint = 'Scales the bits / pixel / channel slider resolution.'
          Min = 0
          Increment = -1
          Position = 0
          TabOrder = 3
          Thousands = False
          Wrap = False
          OnChangingEx = UpDownSizeChangingEx
        end
        object GroupBox2: TGroupBox
          Left = 8
          Top = 40
          Width = 225
          Height = 49
          Caption = 'Channel Quality Boost (Mean Error):'
          TabOrder = 4
          object TrackBarDeltaMSE: TTrackBar
            Left = 8
            Top = 16
            Width = 153
            Height = 17
            Hint = 
              'Relative channel quality slider (can be used independently for e' +
              'ach channel).'
            Max = 10000
            Orientation = trHorizontal
            PageSize = 100
            Frequency = 500
            Position = 5000
            SelEnd = 0
            SelStart = 0
            TabOrder = 0
            ThumbLength = 10
            TickMarks = tmBottomRight
            TickStyle = tsAuto
            OnChange = TrackBarDeltaMSEChange
          end
          object EditDeltaMSE: TEdit
            Left = 168
            Top = 16
            Width = 49
            Height = 21
            Hint = 
              'Relative "Root Mean Square Error" (for the selected channel rela' +
              'tive to the others).'
            ReadOnly = True
            TabOrder = 1
          end
        end
      end
    end
  end
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 328
    Width = 369
    Height = 17
    Min = 0
    Max = 10000
    Smooth = True
    TabOrder = 3
  end
  object GroupBoxCompression: TGroupBox
    Left = 0
    Top = 160
    Width = 385
    Height = 49
    Caption = 'Compression:'
    TabOrder = 4
    object Label1: TLabel
      Left = 112
      Top = 16
      Width = 20
      Height = 13
      Caption = 'Bits:'
    end
    object Label10: TLabel
      Left = 248
      Top = 16
      Width = 54
      Height = 13
      Caption = 'PSNR (db):'
    end
    object ButtonKompress: TButton
      Left = 8
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Compress with the given settings.'
      Caption = 'Do it now !'
      Enabled = False
      TabOrder = 0
      OnClick = ButtonKompressClick
    end
    object EditBits: TEdit
      Left = 176
      Top = 16
      Width = 65
      Height = 21
      Hint = 'Bits used by the compressed image.'
      ReadOnly = True
      TabOrder = 1
    end
    object EditKiloBytes: TEdit
      Left = 168
      Top = 64
      Width = 65
      Height = 21
      Hint = 'KiloBytes used by the compressed image.'
      ReadOnly = True
      TabOrder = 2
      Visible = False
    end
    object EditBPP: TEdit
      Left = 176
      Top = 72
      Width = 65
      Height = 21
      Hint = '"Bits / Pixel / Channel" in the compressed image.'
      ReadOnly = True
      TabOrder = 3
      Visible = False
    end
    object EditOutPSNR: TEdit
      Left = 312
      Top = 16
      Width = 65
      Height = 21
      Hint = '"Peak Signal to Noise Ratio" in the compressed image.'
      ReadOnly = True
      TabOrder = 4
    end
    object EditOutRMSE: TEdit
      Left = 312
      Top = 64
      Width = 65
      Height = 21
      Hint = '"Root Mean Square Error" in the compressed image.'
      ReadOnly = True
      TabOrder = 5
      Visible = False
    end
    object EditOutMSE: TEdit
      Left = 312
      Top = 72
      Width = 65
      Height = 21
      Hint = '"Mean Square Error" in the compressed image.'
      ReadOnly = True
      TabOrder = 6
      Visible = False
    end
    object CheckBoxSave: TCheckBox
      Left = 8
      Top = 64
      Width = 89
      Height = 17
      Hint = 'Save the output into a file when compressing?'
      Caption = '&Save File'
      TabOrder = 7
      Visible = False
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      'Images (*.wko;*.bmp;*.jpg;*.jpeg)|*.wko;*.bmp;*.jpg;*.jpeg|Wavel' +
      'et Kompressed|*.wko|Bitmaps|*.bmp|JPEGs|*.jpg;*.jpeg|All Files (' +
      '*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Load an image...'
    Left = 272
    Top = 56
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'wko'
    Filter = 'Wavelet Kompressed (*.wko)|*.wko|Bitmaps (*.bmp)|*.bmp'
    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Save an image...'
    Left = 216
    Top = 56
  end
end