lazarus/ideintf/newfield.lfm

object NewFieldFrm: TNewFieldFrm
  Left = 243
  Height = 376
  Top = 165
  Width = 262
  HorzScrollBar.Page = 261
  VertScrollBar.Page = 375
  ActiveControl = EditName
  BorderStyle = bsDialog
  Caption = 'Dialog'
  ClientHeight = 376
  ClientWidth = 262
  OnCreate = FormCreate
  ParentFont = True
  Position = poScreenCenter
  object Panel2: TPanel
    Height = 121
    Top = 64
    Width = 262
    Align = alTop
    ClientHeight = 121
    ClientWidth = 262
    FullRepaint = False
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Height = 105
      Top = 8
      Width = 244
      Caption = 'Field properties'
      ClientHeight = 86
      ClientWidth = 240
      TabOrder = 0
      object Label1: TLabel
        Left = 15
        Height = 14
        Top = 11
        Width = 32
        Caption = '&Name:'
        FocusControl = EditName
        ParentColor = False
      end
      object Label2: TLabel
        Left = 15
        Height = 14
        Top = 35
        Width = 29
        Caption = '&Type:'
        FocusControl = SelectType
        ParentColor = False
      end
      object Label3: TLabel
        Left = 15
        Height = 14
        Top = 59
        Width = 24
        Caption = '&Size:'
        FocusControl = EditSize
        ParentColor = False
      end
      object EditName: TEdit
        Left = 79
        Height = 21
        Hint = 'Field name'
        Top = 8
        Width = 145
        OnChange = EditNameChange
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object SelectType: TComboBox
        Left = 79
        Height = 21
        Hint = 'Field type'
        Top = 32
        Width = 145
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        Items.Strings = (
          'String'
          'Integer'
          'SmallInt'
          'Word'
          'Float'
          'Currency'
          'Boolean'
          'Date'
          'Time'
          'DateTime'
          'Blob'
          'Memo'
          'Graphic'
          'LargeInt'
        )
        MaxLength = 0
        OnChange = SelectTypeChange
        Style = csDropDownList
        TabOrder = 1
      end
      object EditSize: TEdit
        Left = 79
        Height = 21
        Hint = 'Field size'
        Top = 56
        Width = 145
        Enabled = False
        TabOrder = 2
      end
    end
  end
  object Panel3: TPanel
    Height = 144
    Top = 185
    Width = 262
    Align = alTop
    ClientHeight = 144
    ClientWidth = 262
    FullRepaint = False
    TabOrder = 1
    Visible = False
    object GroupBox2: TGroupBox
      Left = 8
      Height = 129
      Top = 8
      Width = 244
      Anchors = [akTop, akLeft, akRight, akBottom]
      Caption = 'Lookup definition'
      ClientHeight = 110
      ClientWidth = 240
      TabOrder = 0
      object Label4: TLabel
        Left = 16
        Height = 14
        Top = 10
        Width = 47
        Caption = '&Key fields'
        FocusControl = SelectKeyFields
        ParentColor = False
      end
      object Label5: TLabel
        Left = 16
        Height = 14
        Top = 58
        Width = 60
        Caption = 'L&ookup keys'
        FocusControl = SelectLookupKeys
        ParentColor = False
      end
      object Label6: TLabel
        Left = 16
        Height = 14
        Top = 82
        Width = 61
        Caption = '&Result Fields'
        FocusControl = SelectResultField
        ParentColor = False
      end
      object Label10: TLabel
        Left = 16
        Height = 14
        Top = 34
        Width = 39
        Caption = 'Dataset'
        ParentColor = False
      end
      object SelectKeyFields: TComboBox
        Left = 80
        Height = 21
        Hint = 'Key fields'
        Top = 7
        Width = 145
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        MaxLength = 0
        OnChange = SelectKeyFieldsChange
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object SelectLookupKeys: TComboBox
        Left = 80
        Height = 21
        Top = 55
        Width = 145
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        Enabled = False
        MaxLength = 0
        OnChange = SelectLookupKeysChange
        TabOrder = 2
      end
      object SelectResultField: TComboBox
        Left = 80
        Height = 21
        Top = 79
        Width = 145
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        Enabled = False
        MaxLength = 0
        OnChange = SelectResultFieldChange
        TabOrder = 3
      end
      object DataSetsCombo: TComboBox
        Left = 80
        Height = 21
        Hint = 'Lookup dataset'
        Top = 31
        Width = 145
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        MaxLength = 0
        OnChange = DataSetsComboChange
        ParentShowHint = False
        ShowHint = True
        Style = csDropDownList
        TabOrder = 1
      end
    end
  end
  object Panel4: TPanel
    Height = 47
    Top = 329
    Width = 262
    Align = alBottom
    ClientHeight = 47
    ClientWidth = 262
    FullRepaint = False
    TabOrder = 2
    object OKBtn: TButton
      Left = 56
      Height = 25
      Top = 11
      Width = 75
      Anchors = [akLeft, akBottom]
      Caption = 'OK'
      Default = True
      Enabled = False
      ModalResult = 1
      OnClick = OKBtnClick
      TabOrder = 0
    end
    object CancelBtn: TButton
      Left = 136
      Height = 25
      Top = 11
      Width = 75
      Anchors = [akLeft, akBottom]
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Height = 64
    Width = 262
    Align = alTop
    ClientHeight = 64
    ClientWidth = 262
    FullRepaint = False
    TabOrder = 3
    object NoteLbl: TLabel
      Left = 36
      Height = 28
      Top = 64
      Width = 216
      AutoSize = False
      Caption = 'NoteLbl'
      ParentColor = False
      Visible = False
      WordWrap = True
    end
    object RadioGroup1: TRadioGroup
      Left = 8
      Height = 48
      Top = 8
      Width = 244
      AutoFill = True
      Caption = 'Field Type'
      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 = 29
      ClientWidth = 240
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '&Calculated'
        '&Lookup'
      )
      OnClick = RadioGroup1Click
      TabOrder = 0
    end
  end
end