preferencesform1.lfm

object PreferencesForm: TPreferencesForm
  Left = 555
  Height = 409
  Top = 161
  Width = 435
  BorderStyle = bsDialog
  Caption = 'PreferencesForm'
  ClientHeight = 409
  ClientWidth = 435
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '0.9.30'
  object BitBtn1: TBitBtn
    Left = 333
    Height = 30
    Top = 314
    Width = 75
    Anchors = [akBottom]
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 0
  end
  object BitBtn2: TBitBtn
    Left = 333
    Height = 30
    Top = 354
    Width = 75
    Anchors = [akBottom]
    Cancel = True
    Caption = 'Cancel'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 1
  end
  object UnitsRG: TRadioGroup
    Left = 24
    Height = 41
    Top = 16
    Width = 185
    AutoFill = True
    Caption = 'Units'
    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 = 23
    ClientWidth = 181
    Columns = 2
    Items.Strings = (
      'English'
      'Metric'
    )
    OnClick = UnitsRGClick
    TabOrder = 2
  end
  object EnglishRG: TRadioGroup
    Left = 48
    Height = 40
    Top = 64
    Width = 274
    AutoFill = True
    Caption = 'English Measurements'
    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 = 22
    ClientWidth = 270
    Columns = 2
    Items.Strings = (
      'Decimal Feet'
      'Inches And Fractions'
    )
    OnClick = EnglishRGClick
    TabOrder = 3
  end
  object MetricRG: TRadioGroup
    Left = 48
    Height = 40
    Top = 104
    Width = 273
    AutoFill = True
    Caption = 'Metric Measurements'
    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 = 22
    ClientWidth = 269
    Columns = 2
    Items.Strings = (
      'Meters'
      'Centimeters'
    )
    OnClick = UnitsRGClick
    TabOrder = 4
  end
  object GroupBox1: TGroupBox
    Left = 24
    Height = 144
    Top = 160
    Width = 384
    Caption = 'Grid'
    ClientHeight = 126
    ClientWidth = 380
    TabOrder = 5
    object ShowGuidesCB: TCheckBox
      Left = 22
      Height = 17
      Top = 8
      Width = 44
      Caption = 'Show'
      TabOrder = 0
    end
    object SnapToGridCB: TCheckBox
      Left = 110
      Height = 17
      Top = 8
      Width = 57
      Caption = 'Snap To'
      TabOrder = 1
    end
    object FeetEdit: TLabeledEdit
      Left = 70
      Height = 21
      Top = 48
      Width = 80
      EditLabel.AnchorSideLeft.Control = FeetEdit
      EditLabel.AnchorSideBottom.Control = FeetEdit
      EditLabel.Left = 70
      EditLabel.Height = 14
      EditLabel.Top = 31
      EditLabel.Width = 23
      EditLabel.Caption = 'Feet'
      EditLabel.ParentColor = False
      TabOrder = 2
    end
    object InchesEdit: TLabeledEdit
      Left = 159
      Height = 21
      Top = 48
      Width = 80
      EditLabel.AnchorSideLeft.Control = InchesEdit
      EditLabel.AnchorSideBottom.Control = InchesEdit
      EditLabel.Left = 159
      EditLabel.Height = 14
      EditLabel.Top = 31
      EditLabel.Width = 33
      EditLabel.Caption = 'Inches'
      EditLabel.ParentColor = False
      TabOrder = 3
    end
    object FractionEdit: TLabeledEdit
      Left = 247
      Height = 21
      Top = 48
      Width = 48
      EditLabel.AnchorSideLeft.Control = FractionEdit
      EditLabel.AnchorSideBottom.Control = FractionEdit
      EditLabel.Left = 247
      EditLabel.Height = 14
      EditLabel.Top = 31
      EditLabel.Width = 40
      EditLabel.Caption = 'Fraction'
      EditLabel.ParentColor = False
      TabOrder = 4
    end
    object CentimeterEdit: TLabeledEdit
      Left = 71
      Height = 21
      Top = 96
      Width = 80
      EditLabel.AnchorSideLeft.Control = CentimeterEdit
      EditLabel.AnchorSideBottom.Control = CentimeterEdit
      EditLabel.Left = 71
      EditLabel.Height = 14
      EditLabel.Top = 79
      EditLabel.Width = 59
      EditLabel.Caption = 'Centimeters'
      EditLabel.ParentColor = False
      TabOrder = 5
    end
    object EngSignCB: TComboBox
      Left = 22
      Height = 21
      Top = 48
      Width = 37
      ItemHeight = 13
      Items.Strings = (
        '+'
        '-'
      )
      TabOrder = 6
    end
    object MetricSignCB: TComboBox
      Left = 22
      Height = 21
      Top = 96
      Width = 37
      ItemHeight = 13
      Items.Strings = (
        '+'
        '-'
      )
      TabOrder = 7
    end
    object FractLabel: TLabel
      Left = 302
      Height = 23
      Top = 48
      Width = 6
      Caption = '/'
      Font.CharSet = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Quality = fqDraft
      ParentColor = False
      ParentFont = False
    end
    object DivisorCB: TComboBox
      Left = 318
      Height = 21
      Top = 48
      Width = 40
      ItemHeight = 13
      ItemIndex = 0
      Items.Strings = (
        '2'
        '4'
        '8'
        '16'
        '32'
        '64'
      )
      TabOrder = 8
      Text = '2'
    end
  end
  object ZoomGB: TGroupBox
    Left = 24
    Height = 64
    Top = 320
    Width = 128
    Caption = 'Zoom'
    ClientHeight = 46
    ClientWidth = 124
    TabOrder = 6
    object ZoomCB: TComboBox
      Left = 22
      Height = 21
      Top = 8
      Width = 56
      ItemHeight = 13
      ItemIndex = 9
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '12'
        '15'
        '20'
        '25'
        '30'
        '40'
        '50'
        '60'
        '70'
        '80'
        '90'
        '100'
        '120'
        '150'
        '200'
      )
      OnChange = ZoomCBChange
      TabOrder = 0
      Text = '10'
    end
    object Label1: TLabel
      Left = 86
      Height = 17
      Top = 8
      Width = 18
      Caption = ': 1'
      Font.Height = -13
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
  end
  object ZoomGB1: TGroupBox
    Left = 176
    Height = 64
    Top = 320
    Width = 136
    Caption = 'Scale'
    ClientHeight = 46
    ClientWidth = 132
    TabOrder = 7
    OnClick = ZoomGB1Click
    object ScaleCB: TComboBox
      Left = 22
      Height = 21
      Top = 8
      Width = 56
      ItemHeight = 13
      OnChange = ZoomCBChange
      TabOrder = 0
    end
  end
end