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