object MainForm: TMainForm Left = 254 Height = 623 Top = 244 Width = 623 Caption = 'Image Warping Example' ClientHeight = 604 ClientWidth = 623 Color = clBtnFace Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Menu = MainMenu OnClose = FormClose OnCreate = FormCreate Position = poScreenCenter LCLVersion = '1.0.1.4' object PnlMain: TPanel Left = 482 Height = 604 Top = 0 Width = 141 Align = alRight BevelOuter = bvNone BevelWidth = 2 Caption = 'PnlMain' ClientHeight = 604 ClientWidth = 141 TabOrder = 0 object PnlGeneral: TPanel Left = 0 Height = 73 Top = 0 Width = 141 Align = alTop ClientHeight = 73 ClientWidth = 141 TabOrder = 0 object LblGeneral: TLabel Left = 1 Height = 16 Top = 1 Width = 139 Align = alTop Alignment = taCenter AutoSize = False Caption = 'General' Color = clGray Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] Layout = tlCenter ParentColor = False ParentFont = False Transparent = False end object LblRemapScale: TLabel Left = 8 Height = 14 Top = 24 Width = 66 Caption = 'Remap Scale:' ParentColor = False end object ScaleBar: TGaugeBar Left = 8 Height = 15 Top = 40 Width = 121 Color = clScrollBar Backgnd = bgPattern LargeChange = 10 Max = 300 Min = -300 ShowHandleGrip = False Style = rbsMac Position = 100 OnMouseUp = ScaleBarMouseUp end end object PnlBrush: TPanel Left = 0 Height = 304 Top = 233 Width = 141 Align = alTop ClientHeight = 304 ClientWidth = 141 TabOrder = 1 object LblBrush: TLabel Left = 1 Height = 16 Top = 1 Width = 139 Align = alTop Alignment = taCenter AutoSize = False Caption = 'Brush' Color = clGray Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] Layout = tlCenter ParentColor = False ParentFont = False Transparent = False end object LblBrushFeather: TLabel Left = 8 Height = 14 Top = 88 Width = 43 Caption = 'Feather:' ParentColor = False end object LblBrushPressure: TLabel Left = 8 Height = 14 Top = 56 Width = 47 Caption = 'Pressure:' ParentColor = False end object LblBrushPinch: TLabel Left = 8 Height = 14 Top = 120 Width = 30 Caption = 'Pinch:' ParentColor = False end object LblBrushSize: TLabel Left = 8 Height = 14 Top = 24 Width = 24 Caption = 'Size:' ParentColor = False end object LblBrushMesh: TLabel Left = 8 Height = 14 Top = 160 Width = 60 Caption = 'Brush Mesh:' ParentColor = False end object FeatherBar: TGaugeBar Left = 8 Height = 15 Top = 104 Width = 121 Color = clScrollBar Backgnd = bgPattern LargeChange = 10 ShowHandleGrip = False Style = rbsMac Position = 12 OnChange = PressureBarChange end object PressureBar: TGaugeBar Left = 8 Height = 15 Top = 72 Width = 121 Color = clScrollBar Backgnd = bgPattern LargeChange = 10 ShowHandleGrip = False Style = rbsMac Position = 50 OnChange = PressureBarChange end object PinchBar: TGaugeBar Left = 8 Height = 15 Top = 136 Width = 121 Color = clScrollBar Backgnd = bgPattern LargeChange = 10 Min = -100 ShowHandleGrip = False Style = rbsMac Position = 0 OnChange = PressureBarChange end object SizeBar: TGaugeBar Left = 8 Height = 15 Top = 40 Width = 121 Color = clScrollBar Backgnd = bgPattern LargeChange = 10 Max = 500 Min = 5 ShowHandleGrip = False Style = rbsMac Position = 100 OnChange = SizeBarChange OnMouseUp = GaugeMouseUp end object BrushMeshPreview: TPaintBox32 Left = 8 Height = 121 Top = 176 Width = 121 TabOrder = 4 OnResize = BrushMeshPreviewResize end end object ToolPanel: TPanel Left = 0 Height = 160 Top = 73 Width = 141 Align = alTop ClientHeight = 160 ClientWidth = 141 TabOrder = 2 object LblWaroTool: TLabel Left = 1 Height = 16 Top = 1 Width = 139 Align = alTop Alignment = taCenter AutoSize = False Caption = 'Warp Tool' Color = clGray Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] Layout = tlCenter ParentColor = False ParentFont = False Transparent = False end object LblParam: TLabel Left = 8 Height = 14 Top = 88 Width = 31 Caption = 'Param' Enabled = False ParentColor = False end object RateLabel: TLabel Left = 8 Height = 14 Top = 120 Width = 28 Caption = 'Rate:' Enabled = False ParentColor = False end object ToolGroup: TRadioGroup Left = 8 Height = 57 Top = 24 Width = 121 AutoFill = True ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 39 ClientWidth = 117 Columns = 2 ItemIndex = 0 Items.Strings = ( 'Warp' 'Zoom' 'Twirl' 'Flower' ) OnClick = ToolGroupClick TabOrder = 0 end object ParamBar: TGaugeBar Left = 8 Height = 15 Top = 104 Width = 121 Color = clScrollBar Backgnd = bgPattern Enabled = False LargeChange = 10 ShowHandleGrip = False Style = rbsMac Position = 20 OnChange = PressureBarChange OnMouseUp = GaugeMouseUp end object RateBar: TGaugeBar Left = 8 Height = 15 Top = 136 Width = 121 Color = clScrollBar Backgnd = bgPattern Enabled = False LargeChange = 10 Max = 399 ShowHandleGrip = False Style = rbsMac Position = 350 OnChange = RateBarChange OnMouseUp = GaugeMouseUp end end end object DstImg: TImgView32 Left = 0 Height = 604 Top = 0 Width = 482 Align = alClient Bitmap.DrawMode = dmBlend Bitmap.ResamplerClassName = 'TNearestResampler' BitmapAlign = baCustom RepaintMode = rmOptimizer Scale = 1 ScaleMode = smScale ScrollBars.Color = clScrollBar ScrollBars.ShowHandleGrip = True ScrollBars.Style = rbsDefault ScrollBars.Size = 16 ScrollBars.Visibility = svAuto OverSize = 0 TabOrder = 1 OnMouseDown = DstImgMouseDown OnMouseMove = DstImgMouseMove OnMouseUp = DstImgMouseUp OnPaintStage = DstImgPaintStage end object OpenPictureDialog: TOpenPictureDialog left = 136 top = 8 end object UpdateTimer: TTimer Interval = 50 OnTimer = UpdateTimerTimer left = 344 top = 8 end object OpenMeshDialog: TOpenDialog Filter = 'Photoshop Liquify Mesh (*.msh)|*.msh' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] left = 240 top = 8 end object SaveMeshDialog: TSaveDialog Filter = 'Photoshop Liquify Mesh (*.msh)|*.msh' Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] left = 240 top = 64 end object SavePictureDialog: TSavePictureDialog DefaultExt = '.*.bmp' Filter = 'Bitmaps (*.bmp)|*.bmp' FilterIndex = 0 Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] left = 136 top = 64 end object MainMenu: TMainMenu left = 344 top = 64 object MnuFile: TMenuItem Caption = 'File' object MnuFileOpenImage: TMenuItem Caption = '&Open Image...' ShortCut = 16463 OnClick = MnuFileOpenImageClick end object MnuFileSaveImage: TMenuItem Caption = '&Save Image...' ShortCut = 16467 OnClick = MnuFileSaveImageClick end object N3: TMenuItem Caption = '-' end object MnuFileOpenMesh: TMenuItem Caption = 'Open Mesh...' OnClick = MnuFileOpenMeshClick end object MnuFileSaveMesh: TMenuItem Caption = 'Save Mesh...' OnClick = MnuFileSaveMeshClick end object MnuResetMesh: TMenuItem Caption = 'Reset Mesh' ShortCut = 16466 OnClick = MnuResetMeshClick end object N4: TMenuItem Caption = '-' end object MnuFileExit: TMenuItem Caption = 'Exit' OnClick = MnuFileExitClick end end object MnuSampling: TMenuItem Caption = 'Sampling' object MnuSupersampleNow: TMenuItem Caption = 'Supersample Now!' OnClick = MnuSupersampleNowClick end object N1: TMenuItem Caption = '-' end object MnuSamplingKernel: TMenuItem Caption = 'Sampling Kernel' end object MnuKernelMode: TMenuItem Caption = 'KernelMode' object MnuKernelModeDefault: TMenuItem AutoCheck = True Caption = 'kmDefault (slow, but exact)' RadioItem = True OnClick = MnuKernelModeClick end object MnuKernelModeTableNearest: TMenuItem Tag = 1 AutoCheck = True Caption = 'kmTableNearest (fastest, "curve" sampling)' RadioItem = True OnClick = MnuKernelModeClick end object MnuKernelModeTableLinear: TMenuItem Tag = 2 AutoCheck = True Caption = 'kmTableLinear (fast, "curve" approximation)' Checked = True RadioItem = True OnClick = MnuKernelModeClick end end object MnuSamplingGrid: TMenuItem Caption = 'Sampling Grid' object MnuSamplingGrid2x2: TMenuItem Tag = 2 AutoCheck = True Caption = '2x2' RadioItem = True OnClick = MnuSamplingGridClick end object MnuSamplingGrid3x3: TMenuItem Tag = 3 AutoCheck = True Caption = '3x3' Checked = True RadioItem = True OnClick = MnuSamplingGridClick end object MnuSamplingGrid5x5: TMenuItem Tag = 5 AutoCheck = True Caption = '5x5' RadioItem = True OnClick = MnuSamplingGridClick end object MnuSamplingGrid7x7: TMenuItem Tag = 7 AutoCheck = True Caption = '7x7' RadioItem = True OnClick = MnuSamplingGridClick end end object N2: TMenuItem Caption = '-' end object MnuBilinearWarp: TMenuItem AutoCheck = True Caption = 'Bilinear Warp' Checked = True OnClick = MnuBilinearWarpClick end end end end