330 lines
7.2 KiB
Plaintext
330 lines
7.2 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 615
|
|
Top = 0
|
|
Caption = 'ChromaKey Demo - www.ImageEn.com'
|
|
ClientHeight = 775
|
|
ClientWidth = 854
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
WindowState = wsMaximized
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 313
|
|
Height = 662
|
|
Align = alLeft
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
object lblBackgrounds: TLabel
|
|
Left = 9
|
|
Top = 8
|
|
Width = 66
|
|
Height = 13
|
|
Caption = 'Backgrounds:'
|
|
end
|
|
object lblForegrounds: TLabel
|
|
Left = 9
|
|
Top = 151
|
|
Width = 62
|
|
Height = 13
|
|
Caption = 'Foregrounds:'
|
|
end
|
|
object lblTolerance: TLabel
|
|
Left = 9
|
|
Top = 503
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Tolerance:'
|
|
end
|
|
object lblSaturation: TLabel
|
|
Left = 9
|
|
Top = 537
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Saturation:'
|
|
end
|
|
object lblEdgeFeather: TLabel
|
|
Left = 9
|
|
Top = 574
|
|
Width = 81
|
|
Height = 13
|
|
Caption = 'Edge Feathering:'
|
|
end
|
|
object lblBackground: TLabel
|
|
Left = 9
|
|
Top = 475
|
|
Width = 61
|
|
Height = 13
|
|
Caption = 'Background:'
|
|
end
|
|
object lblHueReduction: TLabel
|
|
Left = 9
|
|
Top = 603
|
|
Width = 75
|
|
Height = 13
|
|
Caption = 'Hue Reduction:'
|
|
end
|
|
object lbxBackgrounds: TListBox
|
|
Left = 9
|
|
Top = 24
|
|
Width = 294
|
|
Height = 113
|
|
ItemHeight = 13
|
|
Sorted = True
|
|
TabOrder = 0
|
|
OnClick = lbxBackgroundsClick
|
|
end
|
|
object lbxForegrounds: TListBox
|
|
Left = 9
|
|
Top = 167
|
|
Width = 294
|
|
Height = 152
|
|
ItemHeight = 13
|
|
Sorted = True
|
|
TabOrder = 1
|
|
OnClick = lbxForegroundsClick
|
|
end
|
|
object trkTolerance: TTrackBar
|
|
Left = 88
|
|
Top = 498
|
|
Width = 219
|
|
Height = 29
|
|
Hint = 'How closely colors similar to the background color are removed'
|
|
Max = 1000
|
|
Min = 1
|
|
PageSize = 10
|
|
Frequency = 10
|
|
Position = 800
|
|
TabOrder = 4
|
|
TickStyle = tsManual
|
|
OnChange = trkToleranceChange
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 7
|
|
Top = 696
|
|
Width = 195
|
|
Height = 17
|
|
TabOrder = 11
|
|
Visible = False
|
|
end
|
|
object chkRemoveNoise: TCheckBox
|
|
Left = 9
|
|
Top = 627
|
|
Width = 106
|
|
Height = 17
|
|
Hint = 'Remove isolated pixels'
|
|
Caption = 'Remove Noise'
|
|
TabOrder = 9
|
|
OnClick = ControlChange
|
|
end
|
|
object trkSaturation: TTrackBar
|
|
Left = 88
|
|
Top = 533
|
|
Width = 219
|
|
Height = 26
|
|
Hint =
|
|
'Limit the removal of background to pixels of a similar saturatio' +
|
|
'n '
|
|
Max = 99
|
|
Frequency = 5
|
|
Position = 50
|
|
TabOrder = 5
|
|
OnChange = ControlChange
|
|
end
|
|
object pnlKeyColor: TPanel
|
|
Left = 95
|
|
Top = 470
|
|
Width = 26
|
|
Height = 23
|
|
Hint = 'The "Green-Screen" (background) color'
|
|
ParentBackground = False
|
|
TabOrder = 3
|
|
end
|
|
object btnReset: TButton
|
|
Left = 227
|
|
Top = 631
|
|
Width = 75
|
|
Height = 25
|
|
Hint = 'Return to default settings'
|
|
Caption = 'Reset'
|
|
TabOrder = 10
|
|
OnClick = btnResetClick
|
|
end
|
|
object edtEdgeFeather: TEdit
|
|
Left = 98
|
|
Top = 570
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'Soften the edges of the subject'
|
|
TabStop = False
|
|
ReadOnly = True
|
|
TabOrder = 6
|
|
Text = '0'
|
|
OnChange = ControlChange
|
|
end
|
|
object updEdgeFeather: TUpDown
|
|
Left = 131
|
|
Top = 570
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtEdgeFeather
|
|
Max = 8
|
|
TabOrder = 7
|
|
end
|
|
object memInfo: TMemo
|
|
Left = 9
|
|
Top = 341
|
|
Width = 294
|
|
Height = 79
|
|
TabStop = False
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Ctl3D = True
|
|
Lines.Strings = (
|
|
'METHOD:'
|
|
'1. Select background color'
|
|
'2. Adjust tolerance until foreground is fully visible'
|
|
'3. Adjust saturation to remove any remaining background'
|
|
'4. If necessary, remove hue, noise and adjust feathering')
|
|
ParentCtl3D = False
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
object cmbHueReduction: TComboBox
|
|
Left = 98
|
|
Top = 599
|
|
Width = 84
|
|
Height = 21
|
|
Hint = 'Reduce the amount of background hue within the image'
|
|
Style = csDropDownList
|
|
TabOrder = 8
|
|
OnChange = ControlChange
|
|
Items.Strings = (
|
|
'None'
|
|
'1 (Min)'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5 (Max)')
|
|
end
|
|
object rdbSetBackground: TRadioButton
|
|
Left = 9
|
|
Top = 418
|
|
Width = 128
|
|
Height = 17
|
|
Caption = 'Set background color:'
|
|
Checked = True
|
|
TabOrder = 12
|
|
TabStop = True
|
|
OnClick = CursorControlChange
|
|
end
|
|
object rdbMoveForeground: TRadioButton
|
|
Left = 9
|
|
Top = 443
|
|
Width = 158
|
|
Height = 17
|
|
Caption = 'Move Foreground (subject)'
|
|
TabOrder = 13
|
|
OnClick = CursorControlChange
|
|
end
|
|
object cmbSetBackground: TComboBox
|
|
Left = 136
|
|
Top = 416
|
|
Width = 166
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 14
|
|
OnChange = CursorControlChange
|
|
Items.Strings = (
|
|
'Click on Background'
|
|
'Select Region of Background'
|
|
'Select Foreground (subject)')
|
|
end
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 313
|
|
Top = 0
|
|
Width = 541
|
|
Height = 662
|
|
Background = clBtnFace
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
SelectionOptions = [iesoAnimated, iesoSizeable, iesoMoveable, iesoCanScroll, iesoRightButtonTerminatePolySelect]
|
|
OnSelectionChange = ImageEnView1SelectionChange
|
|
OnProgress = ImageEnView1Progress
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
OnMouseDown = ImageEnView1MouseDown
|
|
OnMouseMove = ImageEnView1MouseMove
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 662
|
|
Width = 854
|
|
Height = 113
|
|
Align = alBottom
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
854
|
|
113)
|
|
object lblDetail: TLabel
|
|
Left = 8
|
|
Top = 8
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'lblDetail'
|
|
end
|
|
object trkZoom: TTrackBar
|
|
Left = 624
|
|
Top = 48
|
|
Width = 217
|
|
Height = 30
|
|
Anchors = [akTop, akRight]
|
|
Max = 1000
|
|
Frequency = 100
|
|
Position = 100
|
|
TabOrder = 0
|
|
OnChange = trkZoomChange
|
|
end
|
|
object btnFit: TButton
|
|
Left = 565
|
|
Top = 48
|
|
Width = 49
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Fit'
|
|
TabOrder = 1
|
|
OnClick = btnFitClick
|
|
end
|
|
object HistogramBox1: THistogramBox
|
|
Left = 8
|
|
Top = 25
|
|
Width = 529
|
|
Height = 81
|
|
HistogramKind = [hkHue]
|
|
end
|
|
end
|
|
object tmrUpdateChromaKey: TTimer
|
|
Enabled = False
|
|
Interval = 125
|
|
OnTimer = tmrUpdateChromaKeyTimer
|
|
Left = 248
|
|
Top = 552
|
|
end
|
|
end
|