home *** CD-ROM | disk | FTP | other *** search
Text File | 2002-06-17 | 39.6 KB | 1,723 lines |
- object fPreviews: TfPreviews
- Left = 876
- Top = 469
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Previews'
- ClientHeight = 390
- ClientWidth = 521
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 1
- Width = 37
- Height = 13
- Caption = 'Source:'
- end
- object Label2: TLabel
- Left = 231
- Top = 1
- Width = 33
- Height = 13
- Caption = 'Result:'
- end
- object SpeedButton1: TSpeedButton
- Left = 432
- Top = 109
- Width = 25
- Height = 25
- Hint = 'Lock preview'
- AllowAllUp = True
- GroupIndex = 2
- Down = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
- 333333333F777773FF333333008888800333333377333F3773F3333077870787
- 7033333733337F33373F3308888707888803337F33337F33337F330777880887
- 7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
- 7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
- 0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
- 03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
- 033333337F73FF737F33B33B778000877333333373F777337333333B30888880
- 33333333373FFFF73333333B3300000333333333337777733333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton1Click
- end
- object Button1: TButton
- Left = 432
- Top = 15
- Width = 87
- Height = 23
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 432
- Top = 44
- Width = 87
- Height = 23
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object PageControl1: TPageControl
- Left = 8
- Top = 161
- Width = 420
- Height = 225
- ActivePage = TabSheet4
- HotTrack = True
- TabOrder = 2
- TabPosition = tpBottom
- OnChange = PageControl1Change
- object TabSheet1: TTabSheet
- Tag = 1
- Caption = 'Contrast'
- object Label3: TLabel
- Left = 8
- Top = 12
- Width = 42
- Height = 13
- Caption = '&Contrast:'
- FocusControl = Edit1
- end
- object Label22: TLabel
- Left = 8
- Top = 52
- Width = 52
- Height = 13
- Caption = '&Brightness:'
- FocusControl = Edit21
- end
- object Edit1: TEdit
- Left = 69
- Top = 9
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit1Change
- end
- object TrackBar1: TTrackBar
- Left = 104
- Top = 6
- Width = 275
- Height = 18
- Max = 100
- Min = -100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 1
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object Edit21: TEdit
- Left = 69
- Top = 49
- Width = 33
- Height = 21
- TabOrder = 2
- Text = '0'
- OnChange = Edit1Change
- end
- object TrackBar12: TTrackBar
- Left = 104
- Top = 46
- Width = 275
- Height = 18
- Max = 100
- Min = -100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- end
- object TabSheet5: TTabSheet
- Tag = 5
- Caption = 'HSV'
- object Label10: TLabel
- Left = 8
- Top = 12
- Width = 40
- Height = 13
- Caption = '&Hue (H):'
- FocusControl = Edit19
- end
- object Label11: TLabel
- Left = 8
- Top = 40
- Width = 67
- Height = 13
- Caption = '&Saturation (S):'
- FocusControl = Edit18
- end
- object Label12: TLabel
- Left = 8
- Top = 68
- Width = 46
- Height = 13
- Caption = '&Value (V):'
- FocusControl = Edit17
- end
- object Label13: TLabel
- Left = 11
- Top = 96
- Width = 53
- Height = 13
- Caption = 'Base color:'
- ParentShowHint = False
- ShowHint = True
- end
- object Label14: TLabel
- Left = 156
- Top = 96
- Width = 51
- Height = 13
- Caption = 'New color:'
- end
- object Edit17: TEdit
- Left = 92
- Top = 65
- Width = 33
- Height = 21
- TabOrder = 2
- Text = '0'
- OnChange = Edit19Change
- end
- object Edit18: TEdit
- Left = 92
- Top = 37
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = Edit19Change
- end
- object Edit19: TEdit
- Left = 92
- Top = 9
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit19Change
- end
- object TrackBar9: TTrackBar
- Left = 128
- Top = 6
- Width = 285
- Height = 18
- Max = 180
- Min = -180
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar9Change
- end
- object TrackBar10: TTrackBar
- Left = 128
- Top = 34
- Width = 285
- Height = 18
- Max = 100
- Min = -100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar9Change
- end
- object TrackBar11: TTrackBar
- Left = 128
- Top = 62
- Width = 285
- Height = 18
- Max = 100
- Min = -100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 5
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar9Change
- end
- object Panel3: TPanel
- Left = 9
- Top = 113
- Width = 97
- Height = 59
- BevelOuter = bvLowered
- TabOrder = 6
- object HSVBox3: THSVBox
- Left = 1
- Top = 1
- Width = 95
- Height = 57
- OnChange = HSVBox3Change
- Align = alClient
- end
- end
- object Panel4: TPanel
- Left = 155
- Top = 113
- Width = 98
- Height = 60
- BevelOuter = bvLowered
- TabOrder = 7
- object HSVBox1: THSVBox
- Left = 1
- Top = 1
- Width = 96
- Height = 58
- OnChange = HSVBox3Change
- Align = alClient
- end
- end
- end
- object TabSheet2: TTabSheet
- Tag = 2
- Caption = 'HSL'
- object Label4: TLabel
- Left = 8
- Top = 12
- Width = 40
- Height = 13
- Caption = '&Hue (H):'
- FocusControl = Edit4
- end
- object Label5: TLabel
- Left = 8
- Top = 44
- Width = 67
- Height = 13
- Caption = '&Saturation (S):'
- FocusControl = Edit2
- end
- object Label6: TLabel
- Left = 8
- Top = 76
- Width = 67
- Height = 13
- Caption = '&Luminosity (L):'
- FocusControl = Edit3
- end
- object Edit3: TEdit
- Left = 101
- Top = 73
- Width = 33
- Height = 21
- TabOrder = 2
- Text = '0'
- OnChange = Edit4Change
- end
- object Edit2: TEdit
- Left = 101
- Top = 41
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = Edit4Change
- end
- object Edit4: TEdit
- Left = 101
- Top = 9
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit4Change
- end
- object TrackBar2: TTrackBar
- Left = 136
- Top = 6
- Width = 275
- Height = 18
- Max = 180
- Min = -180
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- object TrackBar3: TTrackBar
- Left = 136
- Top = 38
- Width = 275
- Height = 18
- Max = 100
- Min = -100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- object TrackBar5: TTrackBar
- Left = 136
- Top = 70
- Width = 275
- Height = 18
- Max = 100
- Min = -100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 5
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- end
- object TabSheet3: TTabSheet
- Tag = 3
- Caption = 'RGB'
- object Label7: TLabel
- Left = 8
- Top = 12
- Width = 40
- Height = 13
- Caption = '&Red (R):'
- FocusControl = Edit7
- end
- object Label8: TLabel
- Left = 8
- Top = 44
- Width = 49
- Height = 13
- Caption = '&Green (G):'
- FocusControl = Edit6
- end
- object Label9: TLabel
- Left = 8
- Top = 76
- Width = 40
- Height = 13
- Caption = '&Blue (B):'
- FocusControl = Edit5
- end
- object Edit5: TEdit
- Left = 72
- Top = 73
- Width = 33
- Height = 21
- TabOrder = 2
- Text = '0'
- OnChange = Edit7Change
- end
- object Edit6: TEdit
- Left = 72
- Top = 41
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = Edit7Change
- end
- object Edit7: TEdit
- Left = 72
- Top = 9
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit7Change
- end
- object TrackBar6: TTrackBar
- Left = 107
- Top = 6
- Width = 275
- Height = 18
- Max = 255
- Min = -255
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar6Change
- end
- object TrackBar7: TTrackBar
- Left = 107
- Top = 38
- Width = 275
- Height = 18
- Max = 255
- Min = -255
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar6Change
- end
- object TrackBar8: TTrackBar
- Left = 107
- Top = 70
- Width = 275
- Height = 18
- Max = 255
- Min = -255
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 5
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar6Change
- end
- end
- object TabSheet4: TTabSheet
- Tag = 4
- Caption = 'User filter'
- object GroupBox1: TGroupBox
- Left = 248
- Top = 24
- Width = 269
- Height = 149
- Caption = ' Filter values'
- TabOrder = 0
- Visible = False
- object Label15: TLabel
- Left = 206
- Top = 32
- Width = 35
- Height = 13
- Caption = 'Divisor:'
- end
- object Edit8: TEdit
- Left = 8
- Top = 19
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit9: TEdit
- Tag = 3
- Left = 8
- Top = 46
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit10: TEdit
- Tag = 6
- Left = 8
- Top = 73
- Width = 33
- Height = 21
- TabOrder = 2
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit11: TEdit
- Tag = 1
- Left = 75
- Top = 19
- Width = 33
- Height = 21
- TabOrder = 3
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit12: TEdit
- Tag = 4
- Left = 75
- Top = 46
- Width = 33
- Height = 21
- TabOrder = 4
- Text = '1'
- OnChange = Edit8Change
- end
- object Edit13: TEdit
- Tag = 7
- Left = 75
- Top = 73
- Width = 33
- Height = 21
- TabOrder = 5
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit14: TEdit
- Tag = 2
- Left = 142
- Top = 19
- Width = 33
- Height = 21
- TabOrder = 6
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit15: TEdit
- Tag = 5
- Left = 142
- Top = 46
- Width = 33
- Height = 21
- TabOrder = 7
- Text = '0'
- OnChange = Edit8Change
- end
- object Edit16: TEdit
- Tag = 8
- Left = 142
- Top = 73
- Width = 33
- Height = 21
- TabOrder = 8
- Text = '0'
- OnChange = Edit8Change
- end
- object UpDown1: TUpDown
- Left = 41
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit8
- Min = -100
- Position = 0
- TabOrder = 10
- Thousands = False
- Wrap = False
- end
- object UpDown2: TUpDown
- Left = 41
- Top = 46
- Width = 15
- Height = 21
- Associate = Edit9
- Min = -100
- Position = 0
- TabOrder = 11
- Thousands = False
- Wrap = False
- end
- object UpDown3: TUpDown
- Left = 41
- Top = 73
- Width = 15
- Height = 21
- Associate = Edit10
- Min = -100
- Position = 0
- TabOrder = 12
- Thousands = False
- Wrap = False
- end
- object UpDown4: TUpDown
- Left = 108
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit11
- Min = -100
- Position = 0
- TabOrder = 13
- Thousands = False
- Wrap = False
- end
- object UpDown5: TUpDown
- Left = 108
- Top = 46
- Width = 15
- Height = 21
- Associate = Edit12
- Min = -100
- Position = 1
- TabOrder = 14
- Thousands = False
- Wrap = False
- end
- object UpDown6: TUpDown
- Left = 108
- Top = 73
- Width = 15
- Height = 21
- Associate = Edit13
- Min = -100
- Position = 0
- TabOrder = 15
- Thousands = False
- Wrap = False
- end
- object UpDown7: TUpDown
- Left = 175
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit14
- Min = -100
- Position = 0
- TabOrder = 16
- Thousands = False
- Wrap = False
- end
- object UpDown8: TUpDown
- Left = 175
- Top = 46
- Width = 15
- Height = 21
- Associate = Edit15
- Min = -100
- Position = 0
- TabOrder = 17
- Thousands = False
- Wrap = False
- end
- object UpDown9: TUpDown
- Left = 175
- Top = 73
- Width = 15
- Height = 21
- Associate = Edit16
- Min = -100
- Position = 0
- TabOrder = 18
- Thousands = False
- Wrap = False
- end
- object Button4: TButton
- Left = 8
- Top = 112
- Width = 70
- Height = 21
- Caption = '&Load'
- TabOrder = 19
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 88
- Top = 112
- Width = 70
- Height = 21
- Caption = '&Save'
- TabOrder = 20
- OnClick = Button5Click
- end
- object Edit20: TEdit
- Tag = 9
- Left = 206
- Top = 46
- Width = 33
- Height = 21
- TabOrder = 9
- Text = '0'
- OnChange = Edit8Change
- end
- object UpDown10: TUpDown
- Left = 239
- Top = 46
- Width = 15
- Height = 21
- Associate = Edit20
- Min = -100
- Position = 0
- TabOrder = 21
- Thousands = False
- Wrap = False
- end
- end
- object GroupBox3: TGroupBox
- Left = 8
- Top = 8
- Width = 389
- Height = 149
- Caption = ' Presets'
- TabOrder = 1
- object ListBox1: TListBox
- Left = 8
- Top = 18
- Width = 373
- Height = 127
- ItemHeight = 13
- Items.Strings = (
- 'No Filter'
- 'Blur'
- 'Find Edges'
- 'Emboss'
- 'Sharpen 1'
- 'Shapren 2'
- 'Sharpen 3'
- 'Unsharpen 1'
- 'Unsharpen 2')
- TabOrder = 0
- OnClick = ListBox1Click
- end
- end
- end
- object TabSheet6: TTabSheet
- Tag = 6
- Caption = 'Equalization'
- object Label16: TLabel
- Left = 8
- Top = 144
- Width = 6
- Height = 13
- Caption = '0'
- end
- object Label17: TLabel
- Left = 280
- Top = 144
- Width = 18
- Height = 13
- Caption = '255'
- end
- object Label18: TLabel
- Left = 120
- Top = 144
- Width = 47
- Height = 13
- Caption = 'Threshold'
- end
- object Label19: TLabel
- Left = 120
- Top = 0
- Width = 57
- Height = 13
- Caption = 'Equalization'
- end
- object Label20: TLabel
- Left = 8
- Top = 1
- Width = 6
- Height = 13
- Caption = '0'
- end
- object Label21: TLabel
- Left = 280
- Top = 1
- Width = 18
- Height = 13
- Caption = '255'
- end
- object SpeedButton3: TSpeedButton
- Left = 326
- Top = 115
- Width = 73
- Height = 25
- AllowAllUp = True
- GroupIndex = 1
- Caption = 'Equalize'
- OnClick = SpeedButton3Click
- end
- object Panel5: TPanel
- Left = 8
- Top = 16
- Width = 293
- Height = 123
- BevelOuter = bvNone
- BorderStyle = bsSingle
- TabOrder = 0
- object RulerBox2: TRulerBox
- Left = 0
- Top = 0
- Width = 289
- Height = 13
- Background = clSilver
- GripsDir = gdDown
- Ruler = False
- DotPerUnit = 1.133333333333333000
- Frequency = 16.000000000000000000
- LabelFreq = 32.000000000000000000
- RulerColor = clGray
- ViewMax = 255.000000000000000000
- OnRulerPosChange = RulerBox2RulerPosChange
- FitInView = True
- GripsCount = 2
- Align = alTop
- end
- object RulerBox1: TRulerBox
- Left = 0
- Top = 87
- Width = 289
- Height = 32
- Background = clSilver
- DotPerUnit = 1.133333333333330000
- Frequency = 16.000000000000000000
- LabelFreq = 32.000000000000000000
- RulerColor = clSilver
- ViewMax = 255.000000000000000000
- OnRulerPosChange = RulerBox1RulerPosChange
- GripsCount = 2
- Align = alBottom
- end
- object HistogramBox1: THistogramBox
- Left = 0
- Top = 14
- Width = 289
- Height = 67
- AttachedImageEnProc = ImageEnProc1
- Background = clSilver
- Labels = []
- end
- end
- object GroupBox4: TGroupBox
- Left = 325
- Top = 10
- Width = 74
- Height = 88
- Caption = ' Histogram '
- TabOrder = 1
- object CheckListBox1: TCheckListBox
- Left = 8
- Top = 21
- Width = 57
- Height = 56
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- ItemHeight = 13
- Items.Strings = (
- 'Red'
- 'Green'
- 'Blue'
- 'Gray')
- ParentCtl3D = False
- TabOrder = 0
- OnClick = CheckListBox1Click
- end
- end
- end
- object TabSheet7: TTabSheet
- Tag = 7
- Caption = 'Bump map'
- object Label25: TLabel
- Left = 16
- Top = 144
- Width = 125
- Height = 13
- Caption = 'Source image quantity (%):'
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 8
- Width = 287
- Height = 118
- Caption = ' Light '
- TabOrder = 0
- object Label23: TLabel
- Left = 8
- Top = 70
- Width = 31
- Height = 13
- Caption = 'Width:'
- end
- object Label24: TLabel
- Left = 8
- Top = 95
- Width = 34
- Height = 13
- Caption = 'Height:'
- end
- object Label26: TLabel
- Left = 144
- Top = 16
- Width = 27
- Height = 13
- Caption = 'Color:'
- end
- object Label27: TLabel
- Left = 8
- Top = 22
- Width = 21
- Height = 13
- Caption = 'Left:'
- end
- object Label28: TLabel
- Left = 8
- Top = 46
- Width = 22
- Height = 13
- Caption = 'Top:'
- end
- object Panel1: TPanel
- Left = 143
- Top = 34
- Width = 134
- Height = 77
- BevelOuter = bvLowered
- TabOrder = 0
- object HSVBox2: THSVBox
- Left = 1
- Top = 1
- Width = 132
- Height = 75
- OnChange = HSVBox2Change
- Align = alClient
- end
- end
- object Edit22: TEdit
- Left = 64
- Top = 19
- Width = 41
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = Edit22Change
- end
- object UpDown11: TUpDown
- Left = 105
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit22
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 2
- Thousands = False
- Wrap = False
- end
- object UpDown12: TUpDown
- Left = 105
- Top = 43
- Width = 15
- Height = 21
- Associate = Edit23
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 3
- Thousands = False
- Wrap = False
- end
- object Edit23: TEdit
- Left = 64
- Top = 43
- Width = 41
- Height = 21
- TabOrder = 4
- Text = '0'
- OnChange = Edit22Change
- end
- object Edit24: TEdit
- Left = 64
- Top = 67
- Width = 41
- Height = 21
- TabOrder = 5
- Text = '0'
- OnChange = Edit22Change
- end
- object UpDown13: TUpDown
- Left = 105
- Top = 67
- Width = 15
- Height = 21
- Associate = Edit24
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 6
- Thousands = False
- Wrap = False
- end
- object Edit25: TEdit
- Left = 64
- Top = 91
- Width = 41
- Height = 21
- TabOrder = 7
- Text = '0'
- OnChange = Edit22Change
- end
- object UpDown14: TUpDown
- Left = 105
- Top = 91
- Width = 15
- Height = 21
- Associate = Edit25
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 8
- Thousands = False
- Wrap = False
- end
- end
- object Edit26: TEdit
- Left = 187
- Top = 141
- Width = 32
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = Edit22Change
- end
- object UpDown15: TUpDown
- Left = 219
- Top = 141
- Width = 15
- Height = 21
- Associate = Edit26
- Min = 0
- Increment = 10
- Position = 0
- TabOrder = 2
- Thousands = False
- Wrap = False
- end
- end
- object TabSheet8: TTabSheet
- Tag = 8
- Caption = 'Lens'
- object GroupBox5: TGroupBox
- Left = 8
- Top = 8
- Width = 385
- Height = 129
- Caption = ' Lens '
- TabOrder = 0
- object Label29: TLabel
- Left = 8
- Top = 70
- Width = 31
- Height = 13
- Caption = 'Width:'
- end
- object Label30: TLabel
- Left = 8
- Top = 95
- Width = 34
- Height = 13
- Caption = 'Height:'
- end
- object Label32: TLabel
- Left = 8
- Top = 22
- Width = 21
- Height = 13
- Caption = 'Left:'
- end
- object Label33: TLabel
- Left = 8
- Top = 46
- Width = 22
- Height = 13
- Caption = 'Top:'
- end
- object Label31: TLabel
- Left = 144
- Top = 22
- Width = 52
- Height = 13
- Caption = 'Refraction:'
- end
- object Edit27: TEdit
- Left = 64
- Top = 19
- Width = 41
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit27Change
- end
- object UpDown16: TUpDown
- Left = 105
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit27
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 1
- Thousands = False
- Wrap = False
- end
- object UpDown17: TUpDown
- Left = 105
- Top = 43
- Width = 15
- Height = 21
- Associate = Edit28
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 2
- Thousands = False
- Wrap = False
- end
- object Edit28: TEdit
- Left = 64
- Top = 43
- Width = 41
- Height = 21
- TabOrder = 3
- Text = '0'
- OnChange = Edit27Change
- end
- object Edit29: TEdit
- Left = 64
- Top = 67
- Width = 41
- Height = 21
- TabOrder = 4
- Text = '0'
- OnChange = Edit27Change
- end
- object UpDown18: TUpDown
- Left = 105
- Top = 67
- Width = 15
- Height = 21
- Associate = Edit29
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 5
- Thousands = False
- Wrap = False
- end
- object Edit30: TEdit
- Left = 64
- Top = 91
- Width = 41
- Height = 21
- TabOrder = 6
- Text = '0'
- OnChange = Edit27Change
- end
- object UpDown19: TUpDown
- Left = 105
- Top = 91
- Width = 15
- Height = 21
- Associate = Edit30
- Min = 0
- Max = 32767
- Increment = 10
- Position = 0
- TabOrder = 7
- Thousands = False
- Wrap = False
- end
- object UpDown20: TUpDown
- Left = 247
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit31
- Min = 0
- Max = 32767
- Position = 0
- TabOrder = 8
- Thousands = False
- Wrap = False
- end
- object Edit31: TEdit
- Left = 206
- Top = 19
- Width = 41
- Height = 21
- TabOrder = 9
- Text = '0'
- OnChange = Edit27Change
- end
- end
- end
- object TabSheet9: TTabSheet
- Tag = 9
- Caption = 'Wave'
- object GroupBox6: TGroupBox
- Left = 8
- Top = 8
- Width = 385
- Height = 153
- Caption = ' Wave '
- TabOrder = 0
- object Label34: TLabel
- Left = 12
- Top = 22
- Width = 49
- Height = 13
- Caption = 'Amplitude:'
- end
- object Label35: TLabel
- Left = 12
- Top = 54
- Width = 64
- Height = 13
- Caption = 'Wave length:'
- end
- object Label36: TLabel
- Left = 12
- Top = 86
- Width = 33
- Height = 13
- Caption = 'Phase:'
- end
- object Edit32: TEdit
- Left = 128
- Top = 19
- Width = 41
- Height = 21
- TabOrder = 0
- Text = '0'
- OnChange = Edit32Change
- end
- object UpDown21: TUpDown
- Left = 169
- Top = 19
- Width = 15
- Height = 21
- Associate = Edit32
- Min = 0
- Max = 32767
- Position = 0
- TabOrder = 1
- Thousands = False
- Wrap = False
- end
- object UpDown22: TUpDown
- Left = 169
- Top = 51
- Width = 15
- Height = 21
- Associate = Edit33
- Min = 0
- Max = 32767
- Position = 0
- TabOrder = 2
- Thousands = False
- Wrap = False
- end
- object Edit33: TEdit
- Left = 128
- Top = 51
- Width = 41
- Height = 21
- TabOrder = 3
- Text = '0'
- OnChange = Edit32Change
- end
- object Edit34: TEdit
- Left = 128
- Top = 83
- Width = 41
- Height = 21
- TabOrder = 4
- Text = '0'
- OnChange = Edit32Change
- end
- object UpDown23: TUpDown
- Left = 169
- Top = 83
- Width = 15
- Height = 21
- Associate = Edit34
- Min = 0
- Max = 359
- Position = 0
- TabOrder = 5
- Thousands = False
- Wrap = False
- end
- object CheckBox2: TCheckBox
- Left = 10
- Top = 118
- Width = 129
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Reflective'
- TabOrder = 6
- OnClick = Edit32Change
- end
- end
- end
- object TabSheet10: TTabSheet
- Tag = 10
- Caption = 'Morph filters'
- object GroupBox7: TGroupBox
- Left = 8
- Top = 8
- Width = 385
- Height = 161
- Caption = ' Morph filters '
- TabOrder = 0
- object Label37: TLabel
- Left = 8
- Top = 24
- Width = 25
- Height = 13
- Caption = 'Filter:'
- end
- object Label38: TLabel
- Left = 176
- Top = 24
- Width = 63
- Height = 13
- Caption = 'Window size:'
- end
- object ListBox2: TListBox
- Left = 56
- Top = 24
- Width = 113
- Height = 81
- ItemHeight = 13
- TabOrder = 0
- OnClick = Edit35Change
- end
- object Edit35: TEdit
- Left = 280
- Top = 21
- Width = 41
- Height = 21
- TabOrder = 1
- Text = '1'
- OnChange = Edit35Change
- end
- object UpDown24: TUpDown
- Left = 321
- Top = 21
- Width = 15
- Height = 21
- Associate = Edit35
- Min = 1
- Max = 64
- Position = 1
- TabOrder = 2
- Thousands = False
- Wrap = False
- end
- end
- end
- object TabSheet11: TTabSheet
- Caption = 'Rotate'
- object LabelFlip: TLabel
- Left = 8
- Top = 76
- Width = 16
- Height = 13
- Caption = 'Flip'
- end
- object SpeedButtonFlipHor: TSpeedButton
- Left = 77
- Top = 72
- Width = 102
- Height = 25
- Hint = 'Flip Horizontally'
- AllowAllUp = True
- GroupIndex = 5
- Caption = 'Horizontally'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 333333333333333333333333333333333333333333F333F33333333330333033
- 33333333F833383FF333333009333900333333F8833333883FF3300999333999
- 0033388333333333883F099999333999990383FF333333333F83300999333999
- 00333883FF33333F88333330093339003333333883F333883333333330333033
- 3333333338333833333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = False
- OnClick = SpeedButtonFlipHorClick
- end
- object SpeedButtonFlipVer: TSpeedButton
- Left = 193
- Top = 72
- Width = 102
- Height = 25
- Hint = 'Flip Vertically'
- AllowAllUp = True
- GroupIndex = 6
- Caption = 'Vertically'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 3333333333383F33333333333309033333333333338F8F333333333333090333
- 33333333338383F333333333309990333333333338F338F33333333330999033
- 333333333833383F333333330999990333333333833333833333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 333333333F33333F33333333099999033333333383F333833333333330999033
- 3333333338F338F3333333333099903333333333383F38333333333333090333
- 33333333338F8F33333333333309033333333333338383333333333333303333
- 3333333333383333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = False
- OnClick = SpeedButtonFlipHorClick
- end
- object LabelRotate: TLabel
- Left = 8
- Top = 23
- Width = 35
- Height = 13
- Caption = '&Rotate:'
- FocusControl = EditRotate
- end
- object TrackBarRotate: TTrackBar
- Left = 128
- Top = 17
- Width = 267
- Height = 18
- Max = 18000
- Min = -18000
- Orientation = trHorizontal
- Frequency = 500
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBarRotateChange
- end
- object EditRotate: TEdit
- Left = 77
- Top = 20
- Width = 52
- Height = 21
- TabOrder = 1
- Text = '0'
- OnChange = EditRotateChange
- end
- end
- object TabSheet12: TTabSheet
- Caption = 'FFT'
- object GroupBox8: TGroupBox
- Left = 8
- Top = 8
- Width = 233
- Height = 180
- Caption = ' Frequency domain image '
- TabOrder = 0
- object ImageEnView1: TImageEnView
- Left = 2
- Top = 15
- Width = 229
- Height = 153
- ParentCtl3D = False
- BorderStyle = bsNone
- ScrollBars = ssBoth
- Center = True
- MouseInteract = [miZoom, miSelect]
- SelectionBase = iesbBitmap
- Align = alClient
- TabOrder = 0
- end
- object ProgressBar1: TProgressBar
- Left = 2
- Top = 168
- Width = 229
- Height = 10
- Align = alBottom
- Min = 0
- Max = 100
- TabOrder = 1
- end
- end
- object Clear: TButton
- Left = 247
- Top = 13
- Width = 75
- Height = 25
- Caption = 'Clear'
- TabOrder = 1
- OnClick = ClearClick
- end
- object Button7: TButton
- Left = 247
- Top = 45
- Width = 75
- Height = 25
- Caption = 'Reset'
- TabOrder = 2
- OnClick = Button7Click
- end
- object CheckBox1: TCheckBox
- Left = 249
- Top = 85
- Width = 97
- Height = 17
- Caption = 'Gray scale'
- Checked = True
- State = cbChecked
- TabOrder = 3
- OnClick = CheckBox1Click
- end
- end
- end
- object Button6: TButton
- Left = 206
- Top = 65
- Width = 21
- Height = 25
- Hint = 'Copy Result to Source'
- Caption = '<<'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Visible = False
- OnClick = Button6Click
- end
- object Button3: TButton
- Left = 432
- Top = 76
- Width = 87
- Height = 23
- Caption = '&Preview'
- TabOrder = 4
- Visible = False
- OnClick = Button3Click
- end
- object ImageEn1: TImageEn
- Left = 9
- Top = 17
- Width = 191
- Height = 135
- Cursor = 1782
- ParentCtl3D = False
- OnViewChange = ImageEn1ViewChange
- Center = True
- MouseInteract = [miZoom, miScroll]
- TabOrder = 5
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- end
- object ImageEn2: TImageEn
- Left = 233
- Top = 17
- Width = 191
- Height = 135
- Cursor = 1780
- ParentCtl3D = False
- Center = True
- TabOrder = 6
- OnMouseDown = ImageEn2MouseUp
- OnMouseUp = ImageEn2MouseUp
- AutoUndo = False
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'flt'
- Filter = 'Filter (*.flt)|*.flt'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Title = 'Load filter'
- Left = 336
- Top = 59
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'flt'
- Filter = 'Filter (*.flt)|*.flt'
- Options = [ofHideReadOnly, ofPathMustExist]
- Title = 'Save filter'
- Left = 264
- Top = 58
- end
- object ImageEnProc1: TImageEnProc
- AttachedImageEn = ImageEn1
- AutoUndo = False
- Background = clBtnFace
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 280
- Top = 121
- end
- object ImageEnProc2: TImageEnProc
- AttachedImageEn = ImageEnView1
- Background = clBtnFace
- OnProgress = ImageEnProc2Progress
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 118
- Top = 270
- end
- end
-