unit1.dfm

delphi图形开发工具BlockEngine

      end
      object ToolButton29: TToolButton
        Left = 353
        Top = 2
        Action = actnNewArrow
      end
      object ToolButton37: TToolButton
        Left = 376
        Top = 2
        Action = actnNewImage
      end
      object ToolButton36: TToolButton
        Left = 399
        Top = 2
        Action = actnNewSnapPoint
      end
      object ToolButton21: TToolButton
        Left = 0
        Top = 2
        Width = 8
        Caption = 'ToolButton21'
        ImageIndex = 261
        Wrap = True
        Style = tbsSeparator
      end
      object ToolButton22: TToolButton
        Left = 0
        Top = 29
        Action = actnShowGrid
      end
      object ToolButton23: TToolButton
        Left = 23
        Top = 29
        Action = actnSnapToGrid
      end
      object ToolButton24: TToolButton
        Left = 46
        Top = 29
        Action = actnShowRulers
      end
      object ToolButton25: TToolButton
        Left = 69
        Top = 29
        Action = actnShowPage
      end
      object ToolButton61: TToolButton
        Left = 92
        Top = 29
        Action = actnHotTrack
      end
      object ToolButton62: TToolButton
        Left = 115
        Top = 29
        Action = actnShowArrow
      end
      object ToolButton26: TToolButton
        Left = 138
        Top = 29
        Width = 8
        Caption = 'ToolButton26'
        ImageIndex = 42
        Style = tbsSeparator
      end
      object ToolButton27: TToolButton
        Left = 146
        Top = 29
        Action = actnGroup
      end
      object ToolButton28: TToolButton
        Left = 169
        Top = 29
        Action = actnUngroup
      end
      object ToolButton31: TToolButton
        Left = 192
        Top = 29
        Width = 8
        Caption = 'ToolButton31'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton32: TToolButton
        Left = 200
        Top = 29
        Action = actnBringToFront
      end
      object ToolButton33: TToolButton
        Left = 223
        Top = 29
        Action = actnSendToBack
      end
      object ToolButton60: TToolButton
        Left = 246
        Top = 29
        Width = 8
        Caption = 'ToolButton60'
        ImageIndex = 304
        Style = tbsSeparator
      end
      object CheckBox1: TCheckBox
        Left = 254
        Top = 29
        Width = 82
        Height = 22
        Caption = 'High quality'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CheckBox1Click
      end
      object ToolButton80: TToolButton
        Left = 336
        Top = 29
        Width = 8
        Caption = 'ToolButton80'
        ImageIndex = 305
        Style = tbsSeparator
      end
      object cbNewStyle: TCheckBox
        Left = 344
        Top = 29
        Width = 97
        Height = 22
        Caption = 'Visio 2003 Style'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = cbNewStyleClick
      end
      object Button1: TButton
        Left = 441
        Top = 29
        Width = 75
        Height = 22
        Caption = 'Button1'
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object ToolBar3: TToolBar
      Left = 9
      Top = 79
      Width = 742
      Height = 24
      AutoSize = True
      Caption = 'ToolBar3'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 2
      object cbFontList: TComboBox
        Left = 0
        Top = 2
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = cbFontListChange
      end
      object ToolButton38: TToolButton
        Left = 145
        Top = 2
        Width = 8
        Caption = 'ToolButton38'
        Style = tbsSeparator
      end
      object cbFontSize: TComboBox
        Left = 153
        Top = 2
        Width = 62
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        OnChange = cbFontSizeChange
        Items.Strings = (
          '8'
          '10'
          '12'
          '14'
          '16'
          '18'
          '20'
          '22'
          '24'
          '26'
          '28'
          '30'
          '36'
          '42'
          '54'
          '68'
          '72'
          '88')
      end
      object ToolButton50: TToolButton
        Left = 215
        Top = 2
        Width = 8
        Caption = 'ToolButton50'
        ImageIndex = 101
        Style = tbsSeparator
      end
      object cbFontColor: TComboBox
        Left = 223
        Top = 2
        Width = 100
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 2
        OnChange = cbFontColorChange
        OnDrawItem = cbFontColorDrawItem
      end
      object ToolButton39: TToolButton
        Left = 323
        Top = 2
        Width = 8
        Caption = 'ToolButton39'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object ToolButton40: TToolButton
        Left = 331
        Top = 2
        Action = actnFontBold
      end
      object ToolButton41: TToolButton
        Left = 354
        Top = 2
        Action = actnFontItalic
      end
      object ToolButton42: TToolButton
        Left = 377
        Top = 2
        Width = 8
        Caption = 'ToolButton42'
        ImageIndex = 307
        Style = tbsSeparator
      end
      object ToolButton43: TToolButton
        Left = 385
        Top = 2
        Action = actnTextAlignLeft
      end
      object ToolButton44: TToolButton
        Left = 408
        Top = 2
        Action = actnTextAlignCenter
      end
      object ToolButton45: TToolButton
        Left = 431
        Top = 2
        Action = actnTextAlignRight
      end
      object ToolButton49: TToolButton
        Left = 454
        Top = 2
        Width = 8
        Caption = 'ToolButton49'
        ImageIndex = 313
        Style = tbsSeparator
      end
      object ToolButton46: TToolButton
        Left = 462
        Top = 2
        Action = actnTextAlignTop
      end
      object ToolButton47: TToolButton
        Left = 485
        Top = 2
        Action = actnTextAlignMiddle
      end
      object ToolButton48: TToolButton
        Left = 508
        Top = 2
        Action = actnTextAlignBottom
      end
    end
    object ToolBar4: TToolBar
      Left = 9
      Top = 105
      Width = 442
      Height = 24
      AutoSize = True
      Caption = 'ToolBar4'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 3
      object beStrokeWidthBox1: TbeStrokeWidthBox
        Left = 0
        Top = 2
        Width = 113
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 0
        Editor = BlockEditor1
      end
      object ToolButton51: TToolButton
        Left = 113
        Top = 2
        Width = 8
        Caption = 'ToolButton51'
        Style = tbsSeparator
      end
      object beStrokeCapBox1: TbeStrokeCapBox
        Left = 121
        Top = 2
        Width = 64
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 1
        Editor = BlockEditor1
      end
      object ToolButton59: TToolButton
        Left = 185
        Top = 2
        Width = 8
        Caption = 'ToolButton59'
        ImageIndex = 295
        Style = tbsSeparator
      end
      object beStrokePatternBox1: TbeStrokePatternBox
        Left = 193
        Top = 2
        Width = 60
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 2
        Editor = BlockEditor1
      end
      object ToolButton52: TToolButton
        Left = 253
        Top = 2
        Width = 8
        Caption = 'ToolButton52'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object beStrokeColorBox2: TbeStrokeColorBox
        Left = 261
        Top = 2
        Width = 60
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 3
        Editor = BlockEditor1
      end
      object ToolButton13: TToolButton
        Left = 321
        Top = 2
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object beStrokeAlphaBox1: TbeStrokeAlphaBox
        Left = 329
        Top = 2
        Width = 106
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 4