inherited FormEffectShape: TFormEffectShape ClientHeight = 233 ClientWidth = 392 Constraints.MinHeight = 150 Constraints.MinWidth = 342 KeyPreview = True OldCreateOrder = True OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object ShapeBox: TShapeBox Left = 4 Top = 4 Width = 384 Height = 198 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'ShapeBox' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] TabOrder = 0 XMax = 1 X2 = 1 YMax = 1 Y2 = 1 LeftMargin = 30 RightMargin = 6 TopMargin = 5 BottomMargin = 19 OnPointChange = ShapeBoxPointChange OnCoordChange = ShapeBoxCoordChange end object X: TNumEdit Left = 222 Top = 207 Width = 72 Height = 21 TabStop = True Max = 100 Decimal = 4 PageChange = 10 LineChange = 1 Label = 'X' Anchors = [akRight, akBottom] Caption = '0.0000' Enabled = False TabOrder = 7 MaxLength = 10 OnChange = XChange end object LabelX: TStaticText Left = 204 Top = 209 Width = 14 Height = 17 Alignment = taRightJustify Anchors = [akRight, akBottom] Caption = 'X:' FocusControl = X TabOrder = 6 end object Y: TNumEdit Left = 316 Top = 207 Width = 72 Height = 21 TabStop = True Value = 1 Min = 1 Max = 100 Decimal = 4 PageChange = 10 LineChange = 1 Label = 'Y' Anchors = [akRight, akBottom] Caption = '0.0000' TabOrder = 9 MaxLength = 10 OnChange = YChange end object LabelY: TStaticText Left = 298 Top = 209 Width = 14 Height = 17 Alignment = taRightJustify Anchors = [akRight, akBottom] Caption = 'Y:' FocusControl = Y TabOrder = 8 end object Point: TNumEdit Left = 102 Top = 207 Width = 29 Height = 21 TabStop = True Value = 1 Min = 1 Max = 2 PageChange = 10 LineChange = 1 Label = 'Point' Anchors = [akRight, akBottom] Caption = '1' TabOrder = 2 MaxLength = 5 OnChange = PointChange end object LabelPoint: TStaticText Left = 67 Top = 209 Width = 31 Height = 17 Alignment = taRightJustify Anchors = [akRight, akBottom] Caption = 'Point:' TabOrder = 1 end object PointUpDown: TBuddyUpDown Left = 131 Top = 207 Width = 15 Height = 21 Anchors = [akRight, akBottom] Associate = Point TabOrder = 3 end object AddPoint: TBitton Left = 152 Top = 208 Width = 20 Height = 20 Hint = 'Insert a new point after the current point' Image.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 88888888888888888888888888888880088888888888880FF08888888880080F F088888888800880088888888880088888888888000000008888888800000000 8888888888800888888888888880088888888888888008888888888888888888 8888888888888888888888888888888888888888888888888888} FocusAllowed = True Anchors = [akRight, akBottom] Caption = 'AddPoint' ParentShowHint = False ShowHint = True OnClick = AddPointClick TabStop = True TabOrder = 4 end object RemovePoint: TBitton Left = 177 Top = 208 Width = 20 Height = 20 Hint = 'Remove the current point' Image.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 88888888888888888888888888888880088888888888880AA08888888888880A A088888888888880088888888888888888888888000000008888888800000000 8888888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888888888888888} FocusAllowed = True Anchors = [akRight, akBottom] Caption = 'RemovePoint' ParentShowHint = False ShowHint = True OnClick = RemovePointClick TabStop = True TabOrder = 5 end end