fieldeditor.dfm

来自「MysqlFront的源码」· DFM 代码 · 共 954 行 · 第 1/4 页

object FieldEditForm: TFieldEditForm
  Left = 572
  Top = 111
  AutoSize = True
  BorderStyle = bsDialog
  BorderWidth = 5
  Caption = 'Field-Editor'
  ClientHeight = 321
  ClientWidth = 297
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 297
    Height = 289
    ActivePage = TabSheet1
    Align = alTop
    Images = ImageList1
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Fields'
      ImageIndex = 2
      object Label1: TLabel
        Left = 16
        Top = 40
        Width = 31
        Height = 13
        Caption = 'Name:'
      end
      object Label2: TLabel
        Left = 16
        Top = 64
        Width = 27
        Height = 13
        Caption = 'Type:'
      end
      object Label3: TLabel
        Left = 16
        Top = 88
        Width = 63
        Height = 13
        Caption = 'Length / Set:'
      end
      object Label5: TLabel
        Left = 16
        Top = 112
        Width = 37
        Height = 13
        Caption = 'Default:'
      end
      object Label8: TLabel
        Left = 16
        Top = 16
        Width = 40
        Height = 13
        Caption = 'Position:'
      end
      object EditDefault: TEdit
        Left = 88
        Top = 109
        Width = 185
        Height = 21
        TabOrder = 4
      end
      object EditLength: TEdit
        Left = 88
        Top = 85
        Width = 185
        Height = 21
        TabOrder = 3
      end
      object ComboBoxType: TComboBox
        Left = 88
        Top = 61
        Width = 185
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        OnChange = ComboBoxTypeChange
        Items.Strings = (
          'TINYINT'
          'SMALLINT'
          'MEDIUMINT'
          'INT'
          'BIGINT'
          'FLOAT'
          'DOUBLE'
          'DECIMAL'
          'DATE'
          'DATETIME'
          'TIMESTAMP'
          'TIME'
          'YEAR'
          'CHAR'
          'VARCHAR'
          'TINYBLOB'
          'TINYTEXT'
          'TEXT'
          'BLOB'
          'MEDIUMBLOB'
          'MEDIUMTEXT'
          'LONGBLOB'
          'LONGTEXT'
          'ENUM'
          'SET')
      end
      object EditFieldname: TEdit
        Left = 88
        Top = 37
        Width = 185
        Height = 21
        TabOrder = 1
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 136
        Width = 257
        Height = 113
        Caption = 'Attributes'
        TabOrder = 5
        object CheckBoxBinary: TCheckBox
          Left = 32
          Top = 24
          Width = 65
          Height = 17
          Caption = 'Binary'
          TabOrder = 0
        end
        object CheckBoxUnsigned: TCheckBox
          Left = 32
          Top = 48
          Width = 65
          Height = 17
          Caption = 'Unsigned'
          TabOrder = 1
        end
        object CheckBoxZerofill: TCheckBox
          Left = 32
          Top = 72
          Width = 57
          Height = 17
          Caption = 'Zerofill'
          TabOrder = 2
        end
        object CheckBoxNotNull: TCheckBox
          Left = 128
          Top = 24
          Width = 69
          Height = 17
          Caption = 'Not Null'
          TabOrder = 3
        end
        object CheckBoxAutoIncrement: TCheckBox
          Left = 128
          Top = 48
          Width = 97
          Height = 17
          Caption = 'AutoIncrement'
          TabOrder = 4
        end
      end
      object ComboBoxPosition: TComboBox
        Left = 88
        Top = 14
        Width = 185
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Indexes'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      object Label4: TLabel
        Left = 8
        Top = 10
        Width = 60
        Height = 13
        Caption = 'Index-Name:'
      end
      object Label6: TLabel
        Left = 8
        Top = 104
        Width = 69
        Height = 13
        Caption = 'Columns used:'
      end
      object Label7: TLabel
        Left = 168
        Top = 104
        Width = 89
        Height = 13
        Caption = 'Available Columns:'
      end
      object ComboBoxKeys: TComboBox
        Left = 72
        Top = 8
        Width = 209
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 0
        OnChange = ComboBoxKeysChange
        OnDrawItem = ComboBoxKeysDrawItem
      end
      object CheckBoxUnique: TCheckBox
        Left = 8
        Top = 72
        Width = 57
        Height = 17
        Caption = 'Unique'
        TabOrder = 1
        OnClick = CheckBoxUniqueClick
      end
      object ButtonAdd: TButton
        Left = 144
        Top = 32
        Width = 65
        Height = 25
        Caption = 'Add'
        TabOrder = 2
        OnClick = ButtonAddClick
      end