237 lines
5.2 KiB
Plaintext
237 lines
5.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 200
|
|
Top = 116
|
|
Caption =
|
|
'Replace Parts Demo - Replace selected area with a color/texture ' +
|
|
'- www.ImageEn.com'
|
|
ClientHeight = 595
|
|
ClientWidth = 936
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 672
|
|
Top = 0
|
|
Width = 264
|
|
Height = 595
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Left = 24
|
|
Top = 568
|
|
Width = 66
|
|
Height = 13
|
|
Caption = 'Zoom (100%)'
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 16
|
|
Top = 40
|
|
Width = 241
|
|
Height = 249
|
|
Caption = ' Select '
|
|
TabOrder = 1
|
|
object SelRectangle: TSpeedButton
|
|
Left = 80
|
|
Top = 20
|
|
Width = 97
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Down = True
|
|
Caption = 'Rectangle'
|
|
OnClick = SelRectangleClick
|
|
end
|
|
object SelEllipse: TSpeedButton
|
|
Left = 80
|
|
Top = 48
|
|
Width = 97
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'Ellipse'
|
|
OnClick = SelRectangleClick
|
|
end
|
|
object SelPolygon: TSpeedButton
|
|
Left = 80
|
|
Top = 76
|
|
Width = 97
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'Polygon'
|
|
OnClick = SelRectangleClick
|
|
end
|
|
object SelMagic1: TSpeedButton
|
|
Left = 80
|
|
Top = 104
|
|
Width = 97
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'MagicWand 1'
|
|
OnClick = SelRectangleClick
|
|
end
|
|
object SelMagic2: TSpeedButton
|
|
Left = 80
|
|
Top = 132
|
|
Width = 97
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'MagicWand 2'
|
|
OnClick = SelRectangleClick
|
|
end
|
|
object SelMagic3: TSpeedButton
|
|
Left = 80
|
|
Top = 160
|
|
Width = 97
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'MagicWand 3'
|
|
OnClick = SelRectangleClick
|
|
end
|
|
object Button5: TButton
|
|
Left = 72
|
|
Top = 213
|
|
Width = 113
|
|
Height = 25
|
|
Caption = 'Make soft selection'
|
|
TabOrder = 0
|
|
OnClick = Button5Click
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 16
|
|
Top = 296
|
|
Width = 241
|
|
Height = 250
|
|
Caption = ' Replace with '
|
|
TabOrder = 2
|
|
object PageControl1: TPageControl
|
|
Left = 8
|
|
Top = 21
|
|
Width = 225
|
|
Height = 177
|
|
ActivePage = TabColor
|
|
TabOrder = 0
|
|
object TabColor: TTabSheet
|
|
Caption = 'Color'
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 8
|
|
Width = 59
|
|
Height = 13
|
|
Caption = 'Select color:'
|
|
end
|
|
object pnlColor: TShape
|
|
Left = 129
|
|
Top = 5
|
|
Width = 65
|
|
Height = 17
|
|
Brush.Color = clRed
|
|
end
|
|
object Button1: TButton
|
|
Left = 80
|
|
Top = 0
|
|
Width = 33
|
|
Height = 25
|
|
Caption = '...'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
end
|
|
object TabImage: TTabSheet
|
|
Caption = 'Image'
|
|
object ImageEnView2: TImageEnView
|
|
Left = 96
|
|
Top = 16
|
|
Width = 113
|
|
Height = 105
|
|
AutoFit = True
|
|
EnableInteractionHints = True
|
|
TabOrder = 0
|
|
end
|
|
object Button3: TButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Load'
|
|
TabOrder = 1
|
|
OnClick = Button3Click
|
|
end
|
|
end
|
|
object TabTile: TTabSheet
|
|
Caption = 'Tile'
|
|
object Button4: TButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Load'
|
|
TabOrder = 0
|
|
OnClick = Button4Click
|
|
end
|
|
object ImageEnView3: TImageEnView
|
|
Left = 96
|
|
Top = 16
|
|
Width = 113
|
|
Height = 105
|
|
AutoFit = True
|
|
EnableInteractionHints = True
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object Button2: TButton
|
|
Left = 72
|
|
Top = 212
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'Replace'
|
|
TabOrder = 1
|
|
OnClick = Button2Click
|
|
end
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 96
|
|
Top = 563
|
|
Width = 161
|
|
Height = 22
|
|
Max = 2000
|
|
Min = 1
|
|
Frequency = 100
|
|
Position = 100
|
|
TabOrder = 3
|
|
OnChange = TrackBar1Change
|
|
end
|
|
object Button6: TButton
|
|
Left = 92
|
|
Top = 10
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'Load Image'
|
|
TabOrder = 0
|
|
OnClick = Button6Click
|
|
end
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 672
|
|
Height = 595
|
|
MouseInteract = [miSelect]
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
end
|
|
object ColorDialog1: TColorDialog
|
|
Left = 250
|
|
Top = 58
|
|
end
|
|
end
|