object MarksForm: TMarksForm Left = 983 Height = 511 Top = 279 Width = 535 AutoSize = True BorderStyle = bsDialog Caption = 'MarksForm' ClientHeight = 511 ClientWidth = 535 OnCreate = FormCreate OnShow = FormShow LCLVersion = '2.3.0.0' object ButtonPanel: TButtonPanel Left = 6 Height = 34 Top = 471 Width = 523 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 1 ShowButtons = [pbOK, pbCancel] end object Panel1: TPanel Left = 16 Height = 439 Top = 16 Width = 503 Align = alClient AutoSize = True BorderSpacing.Around = 16 BevelOuter = bvNone ClientHeight = 439 ClientWidth = 503 TabOrder = 0 object gbShapeBrushPenMargins: TGroupBox AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = gbLabelFont AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 0 Height = 193 Top = 178 Width = 272 BorderSpacing.Top = 16 Caption = 'gbShapeBrushPenMargins' TabOrder = 1 end object gbLinkPen: TGroupBox AnchorSideLeft.Control = gbShapeBrushPenMargins AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 AnchorSideRight.Control = gbArrow AnchorSideRight.Side = asrBottom Left = 296 Height = 105 Top = 0 Width = 207 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 24 Caption = 'gbLinkPen' TabOrder = 2 end object gbArrow: TGroupBox AnchorSideLeft.Control = gbShapeBrushPenMargins AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbLinkPen AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 296 Height = 138 Top = 121 Width = 207 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 24 BorderSpacing.Top = 16 Caption = 'gbArrow' TabOrder = 3 end object gbLabelFont: TGroupBox AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 0 Height = 162 Top = 0 Width = 272 Caption = 'gbLabelFont' TabOrder = 0 end object gbPosition: TGroupBox AnchorSideLeft.Control = gbShapeBrushPenMargins AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbArrow AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbArrow AnchorSideRight.Side = asrBottom Left = 296 Height = 117 Top = 275 Width = 207 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 24 BorderSpacing.Top = 16 Caption = 'Position' ClientHeight = 97 ClientWidth = 203 TabOrder = 4 object lblDistance: TLabel AnchorSideLeft.Control = gbPosition AnchorSideTop.Control = seDistance AnchorSideTop.Side = asrCenter Left = 8 Height = 15 Top = 12 Width = 45 BorderSpacing.Left = 8 Caption = 'Distance' end object seDistance: TSpinEdit AnchorSideLeft.Control = lblDistance AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbPosition AnchorSideRight.Control = gbPosition AnchorSideRight.Side = asrBottom Left = 77 Height = 23 Top = 8 Width = 118 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 24 BorderSpacing.Top = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 MaxValue = 1000 OnChange = seDistanceChange TabOrder = 0 end object lblPosition: TLabel AnchorSideLeft.Control = lblDistance AnchorSideTop.Control = cmbMarkPositions AnchorSideTop.Side = asrCenter Left = 8 Height = 15 Top = 43 Width = 43 Caption = 'Position' end object cmbMarkPositions: TComboBox AnchorSideLeft.Control = seDistance AnchorSideTop.Control = seDistance AnchorSideTop.Side = asrBottom AnchorSideRight.Control = seDistance AnchorSideRight.Side = asrBottom Left = 77 Height = 23 Top = 39 Width = 118 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 BorderSpacing.Bottom = 8 ItemHeight = 15 Items.Strings = ( 'Outside' 'Positive' 'Negative' 'Inside' ) OnChange = cmbMarkPositionsChange TabOrder = 1 Text = 'cmbMarkPositions' end object cbMarksCentered: TCheckBox AnchorSideLeft.Control = lblPosition AnchorSideTop.Control = cmbMarkPositions AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 70 Width = 112 BorderSpacing.Top = 6 BorderSpacing.Bottom = 8 Caption = 'Position centered' OnChange = cbMarksCenteredChange TabOrder = 2 end end end end