www.pudn.com > Delphi_VC_JPEG2000.rar > Wavelet_Form.dfm
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