optionsmodel.xfm

功能强大的ER图建模工具的源代码。 可以代替ERWin了

object OptionsModelForm: TOptionsModelForm
  Left = 221
  Top = 225
  ActiveControl = PageControl
  AutoScroll = False
  BorderStyle = fbsToolWindow
  Caption = 'Model Options'
  ClientHeight = 307
  ClientWidth = 743
  Color = clBackground
  FormStyle = fsStayOnTop
  Position = poOwnerFormCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  object PageControlTitleShape: TShape
    Left = 169
    Top = 14
    Width = 555
    Height = 23
    Brush.Color = clBackground
    Brush.Style = bsClear
  end
  object PageControl: TPageControl
    Left = 164
    Top = 42
    Width = 563
    Height = 223
    ActivePage = EditOptionsSheet
    Style = tsNoTabs
    TabOrder = 0
    OnChange = PageControlChange
    object GeneralSheet: TTabSheet
      Caption = 'GeneralSheet'
      object Label11: TLabel
        Left = 348
        Top = 32
        Width = 66
        Height = 13
        Caption = 'Region Colors'
      end
      object Label10: TLabel
        Left = 348
        Top = 168
        Width = 153
        Height = 13
        Caption = '(Format: Colorname=#RRGGBB)'
        Color = clBackground
        Font.Color = clGray
        Font.Height = 11
        Font.Name = 'MS Shell Dlg'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = False
        ParentFont = False
      end
      object RegionColorsMemo: TMemo
        Left = 348
        Top = 46
        Width = 207
        Height = 119
        ScrollBars = ssVertical
        TabOrder = 4
      end
      object Label1: TLabel
        Left = 20
        Top = 8
        Width = 63
        Height = 13
        Alignment = taRightJustify
        Caption = 'Model Name:'
      end
      object ModelNameEd: TEdit
        Left = 88
        Top = 4
        Width = 195
        Height = 21
        TabOrder = 0
      end
      object Label2: TLabel
        Left = 348
        Top = 8
        Width = 61
        Height = 13
        Alignment = taRightJustify
        Caption = 'Default Font:'
      end
      object FontCBox: TComboBox
        Left = 416
        Top = 4
        Width = 137
        Height = 21
        DropDownCount = 16
        ItemHeight = 15
        TabOrder = 3
      end
      object Label12: TLabel
        Left = 31
        Top = 68
        Width = 52
        Height = 13
        Alignment = taRightJustify
        Caption = 'Comments:'
      end
      object ModelCommentsMemo: TMemo
        Left = 88
        Top = 68
        Width = 195
        Height = 111
        TabOrder = 2
      end
      object VersionEd: TEdit
        Left = 88
        Top = 32
        Width = 195
        Height = 21
        TabOrder = 1
      end
      object Label13: TLabel
        Left = 45
        Top = 36
        Width = 38
        Height = 13
        Alignment = taRightJustify
        Caption = 'Version:'
      end
    end
    object EditOptionsSheet: TTabSheet
      Caption = 'EditOptionsSheet'
      ImageIndex = 3
      object GroupBox1: TGroupBox
        Left = 396
        Top = 0
        Width = 159
        Height = 83
        Caption = ' '
        TabOrder = 0
        object GridWidthLbl: TLabel
          Left = 17
          Top = 24
          Width = 50
          Height = 13
          Alignment = taRightJustify
          Caption = 'Grid width:'
        end
        object GridXEd: TEdit
          Left = 72
          Top = 20
          Width = 39
          Height = 21
          TabOrder = 1
        end
        object GridHeightLbl: TLabel
          Left = 13
          Top = 52
          Width = 54
          Height = 13
          Alignment = taRightJustify
          Caption = 'Grid height:'
        end
        object GridYEd: TEdit
          Left = 72
          Top = 48
          Width = 39
          Height = 21
          TabOrder = 3
        end
        object GridWidthUnitsLbl: TLabel
          Left = 116
          Top = 24
          Width = 24
          Height = 13
          Caption = 'Units'
        end
        object GridHeightUnitsLbl: TLabel
          Left = 116
          Top = 52
          Width = 24
          Height = 13
          Caption = 'Units'
        end
      end
      object UsePosGridCBox: TCheckBox
        Left = 406
        Top = -3
        Width = 121
        Height = 19
        Caption = 'Enable Snap to Grid'
        TabOrder = 1
        OnClick = UsePosGridCBoxClick
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 0
        Width = 375
        Height = 55
        Caption = 'Default Table Settings'
        TabOrder = 2
        object Label18: TLabel
          Left = 21
          Top = 24
          Width = 94
          Height = 13
          Caption = 'Default Table Type:'
        end
        object DefaultTableTypeCBox: TComboBox
          Left = 123
          Top = 20
          Width = 214
          Height = 21
          Style = csDropDownList
          ItemHeight = 15
          Items.Strings = (
            'MYISAM  (Standard)'
            'InnoDB  (Transaction-safe tables with row locking)'
            'HEAP  (The data for this table is only stored in memory)'
            'BDB  (Transaction-safe tables with page locking)'
            'ISAM  (The original (old) table handler)'
            'MERGE  (A collection of MyISAM tables used as one table)')
          ItemIndex = 0
          TabOrder = 1
          Text = 'MYISAM  (Standard)'
        end
      end
      object GroupBox3: TGroupBox
        Left = 2
        Top = 66
        Width = 375
        Height = 145
        Caption = 'Default Relation Settings / Foreign Keys Settings'
        TabOrder = 3
        object Label19: TLabel
          Left = 41
          Top = 64
          Width = 289
          Height = 13
          Caption = 'Reference Definition is activated for the Relation (for InnoDB)'
          Masked = True
          Transparent = True
        end
        object TableNameInRefsCBox: TCheckBox
          Left = 22
          Top = 85
          Width = 309
          Height = 19
          Hint = 
            'The name of the soure table will be included in the foreign key ' +
            'columns'#39' name'
          Caption = 'Add Source Table Name to Foreign Key Columns'#39' Names'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object Label23: TLabel
          Left = 22
          Top = 113
          Width = 88
          Height = 13
          Caption = 'Foreign Key Prefix:'
        end
        object FKPrefixEd: TEdit
          Left = 114
          Top = 109
          Width = 43
          Height = 21
          Hint = 'Prefix that will be added to all foreign key columns'#39' name'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
        end
        object Label24: TLabel
          Left = 171
          Top = 113
          Width = 93
          Height = 13
          Caption = 'Foreign Key Postfix:'
        end
        object FKPostfixEd: TEdit
          Left = 268
          Top = 109
          Width = 43
          Height = 21
          Hint = 'Postfix that will be added to all foreign key columns'#39' name'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object CreateFKRefDefIndexCBox: TCheckBox
          Left = 22
          Top = 47
          Width = 317
          Height = 19
          Hint = 
            'The Reference Definition will be turned on by default for new Re' +
            'lations'
          Caption = 'Automatically create Index on FK Fields in Destination Table if'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
        end
        object ActivateRefDefForNewRelationsCBox: TCheckBox
          Left = 22
          Top = 21
          Width = 289
          Height = 19
          Hint = 
            'The Reference Definition will be turned on by default for new Re' +
            'lations'
          Caption = 'Activate Reference Definitions for all new Relations'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
        end
      end
      object GroupBox4: TGroupBox
        Left = 396
        Top = 94
        Width = 159
        Height = 85
        Caption = 'Canvas Size'
        TabOrder = 4
        object Label20: TLabel
          Left = 36
          Top = 24
          Width = 31
          Height = 13
          Alignment = taRightJustify
          Caption = 'Width:'
        end
        object CanvasWidthEd: TEdit
          Left = 72
          Top = 20
          Width = 39
          Height = 21
          TabOrder = 1
          OnChange = CanvasWidthEdChange
        end
        object Label21: TLabel
          Left = 116
          Top = 24
          Width = 24
          Height = 13
          Caption = 'Units'
        end
        object Label22: TLabel
          Left = 33
          Top = 53
          Width = 34
          Height = 13
          Alignment = taRightJustify
          Caption = 'Height:'
        end
        object CanvasHeightEd: TEdit
          Left = 72
          Top = 49
          Width = 39