unit1.dfm

delphi图形开发工具BlockEngine

        Editor = BlockEditor1
      end
    end
    object ToolBar5: TToolBar
      Left = 466
      Top = 105
      Width = 285
      Height = 24
      AutoSize = True
      Caption = 'ToolBar5'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 4
      object beFillColorBox1: TbeFillColorBox
        Left = 0
        Top = 2
        Width = 66
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 0
        Editor = BlockEditor1
      end
      object ToolButton54: TToolButton
        Left = 66
        Top = 2
        Width = 8
        Caption = 'ToolButton54'
        Style = tbsSeparator
      end
      object beFillStyleBox1: TbeFillStyleBox
        Left = 74
        Top = 2
        Width = 82
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 2
        Editor = BlockEditor1
      end
      object ToolButton58: TToolButton
        Left = 156
        Top = 2
        Width = 8
        Caption = 'ToolButton58'
        ImageIndex = 294
        Style = tbsSeparator
      end
      object beFillAlphaBox1: TbeFillAlphaBox
        Left = 164
        Top = 2
        Width = 111
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 1
        Editor = BlockEditor1
      end
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 129
    Width = 125
    Height = 397
    ActivePage = TabSheet1
    Align = alLeft
    MultiLine = True
    TabOrder = 2
    TabPosition = tpLeft
    object TabSheet1: TTabSheet
      Caption = 'Std'
      object ClassBlockLibrary1: TClassBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        Items.Data = {
          EE0000000800000000000000FFFFFFFFFFFFFFFF00000000A000B70904526563
          7401000000FFFFFFFFFFFFFFFF00000000D416560409526F756E645265637402
          000000FFFFFFFFFFFFFFFF0000000084BB530407456C6C6970736503000000FF
          FFFFFFFFFFFFFF0000000058B0B509044C696E6504000000FFFFFFFFFFFFFFFF
          00000000940CAA0908547269616E676C6505000000FFFFFFFFFFFFFFFF000000
          00345BAC090D5269676874547269616E676C6506000000FFFFFFFFFFFFFFFF00
          000000C4945704074469616D6F6E6407000000FFFFFFFFFFFFFFFF00000000DC
          772D040A48616C66436972636C65}
        TabOrder = 0
        Editor = BlockEditor1
        Blocks.Strings = (
          'Rect'
          'RoundRect'
          'Ellipse'
          'Line'
          'Triangle'
          'RightTriangle'
          'Diamond'
          'HalfCircle')
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Base'
      ImageIndex = 1
      object ClassBlockLibrary2: TClassBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        Items.Data = {
          450100000B00000000000000FFFFFFFFFFFFFFFF00000000001C50040850656E
          7461676F6E01000000FFFFFFFFFFFFFFFF000000003C6254040748657861676F
          6E02000000FFFFFFFFFFFFFFFF00000000A8FC2C04084865707461676F6E0300
          0000FFFFFFFFFFFFFFFF00000000F8CC5C040543726F737304000000FFFFFFFF
          FFFFFFFF00000000E8C02B04084C696E655374617205000000FFFFFFFFFFFFFF
          FF00000000447B2C040954687265655374617206000000FFFFFFFFFFFFFFFF00
          000000BC03AF0908466F75725374617207000000FFFFFFFFFFFFFFFF00000000
          A41AAF0908466976655374617208000000FFFFFFFFFFFFFFFF0000000044F92C
          040945696768745374617209000000FFFFFFFFFFFFFFFF00000000B4D6540407
          426967537461720A000000FFFFFFFFFFFFFFFF000000002C68B00909526F756E
          6453746172}
        TabOrder = 0
        Editor = BlockEditor1
        Blocks.Strings = (
          'Pentagon'
          'Hexagon'
          'Heptagon'
          'Cross'
          'LineStar'
          'ThreeStar'
          'FourStar'
          'FiveStar'
          'EightStar'
          'BigStar'
          'RoundStar')
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Arrows'
      ImageIndex = 3
      object ClassBlockLibrary3: TClassBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        Items.Data = {
          AF0000000600000000000000FFFFFFFFFFFFFFFF000000003455B00306417272
          6F773101000000FFFFFFFFFFFFFFFF00000000543F2C04064172726F77320200
          0000FFFFFFFFFFFFFFFF000000005CB02C04064172726F773303000000FFFFFF
          FFFFFFFFFF0000000014822A04064172726F773404000000FFFFFFFFFFFFFFFF
          0000000070FFAE09064172726F773505000000FFFFFFFFFFFFFFFF00000000E8
          2557040B4375727665644172726F77}
        TabOrder = 0
        Editor = BlockEditor1
        Blocks.Strings = (
          'Arrow1'
          'Arrow2'
          'Arrow3'
          'Arrow4'
          'Arrow5'
          'CurvedArrow')
      end
    end
    object TabSheet5: TTabSheet
      Caption = '3D'
      ImageIndex = 4
      object ClassBlockLibrary4: TClassBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        Items.Data = {
          010100000900000000000000FFFFFFFFFFFFFFFF00000000D865AF0307507972
          616D696401000000FFFFFFFFFFFFFFFF000000008CA15904064C616464657202
          000000FFFFFFFFFFFFFFFF0000000024F3AE0905486578334403000000FFFFFF
          FFFFFFFFFF0000000064D0AA09074D61696C626F7804000000FFFFFFFFFFFFFF
          FF00000000A89B2A040A547269616E676C65334405000000FFFFFFFFFFFFFFFF
          000000006C3BB50908536563746F72334406000000FFFFFFFFFFFFFFFF000000
          007C21AD09044375626507000000FFFFFFFFFFFFFFFF00000000E0B0B1090554
          6F72757308000000FFFFFFFFFFFFFFFF00000000BCC7B1090843796C696E6465
          72}
        TabOrder = 0
        Editor = BlockEditor1
        Blocks.Strings = (
          'Pyramid'
          'Ladder'
          'Hex3D'
          'Mailbox'
          'Triangle3D'
          'Sector3D'
          'Cube'
          'Torus'
          'Cylinder')
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Extra'
      ImageIndex = 5
      object ClassBlockLibrary5: TClassBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        Items.Data = {
          2F0100000B00000000000000FFFFFFFFFFFFFFFF000000008CDBB10905427275
          736801000000FFFFFFFFFFFFFFFF00000000E81D2C040350656E02000000FFFF
          FFFFFFFFFFFF00000000BCFB2B040653686561727303000000FFFFFFFFFFFFFF
          FF00000000DC71B4030550686F6E6504000000FFFFFFFFFFFFFFFF0000000004
          15AD0905506170657205000000FFFFFFFFFFFFFFFF00000000B894AF03085265
          6379636C656406000000FFFFFFFFFFFFFFFF000000006845B103054D6F757365
          07000000FFFFFFFFFFFFFFFF0000000010A75704075072696E74657208000000
          FFFFFFFFFFFFFFFF00000000F09455040448616E6409000000FFFFFFFFFFFFFF
          FF000000004CCA2C04084B6579626F6172640A000000FFFFFFFFFFFFFFFF0000
          0000C0A1B70908436F6D7075746572}
        TabOrder = 0
        Editor = BlockEditor1
        Blocks.Strings = (
          'Brush'
          'Pen'
          'Shears'
          'Phone'
          'Paper'
          'Recycled'
          'Mouse'
          'Printer'
          'Hand'
          'Keyboard'
          'Computer')
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Chart'
      ImageIndex = 6
      object ClassBlockLibrary6: TClassBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        Items.Data = {
          D50100000D00000000000000FFFFFFFFFFFFFFFF00000000D01352040D436861
          7274446F63756D656E7401000000FFFFFFFFFFFFFFFF00000000A4D9B1090943
          686172744461746102000000FFFFFFFFFFFFFFFF000000008CD5B1090F436861
          72744469726563744461746103000000FFFFFFFFFFFFFFFF00000000B011AF09
          13436861727453657175656E7469616C4461746104000000FFFFFFFFFFFFFFFF
          00000000E4F6AA091043686172744D616E75616C496E70757405000000FFFFFF
          FFFFFFFFFF00000000BCC8AA091443686172744D616E75616C4F706572617469
          6F6E06000000FFFFFFFFFFFFFFFF0000000088C4AA090F43686172744F666650
          61676552656607000000FFFFFFFFFFFFFFFF00000000F4D155040C4368617274
          446973706C617908000000FFFFFFFFFFFFFFFF00000000E40855040F43686172
          7453746F7265644461746109000000FFFFFFFFFFFFFFFF00000000B8DF55040E
          43686172745061706572546170650A000000FFFFFFFFFFFFFFFF000000009C92
          2C041043686172745072657061726174696F6E0B000000FFFFFFFFFFFFFFFF00
          000000CCE05404094368617274436172640C000000FFFFFFFFFFFFFFFF000000
          00D049B7090F43686172745465726D696E61746F72}
        TabOrder = 0
        Editor = BlockEditor1
        Blocks.Strings = (
          'ChartDocument'
          'ChartData'
          'ChartDirectData'
          'ChartSequentialData'
          'ChartManualInput'
          'ChartManualOperation'
          'ChartOffPageRef'
          'ChartDisplay'
          'ChartStoredData'
          'ChartPaperTape'
          'ChartPreparation'
          'ChartCard'
          'ChartTerminator')
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Custom'
      ImageIndex = 2
      object BlockLibrary1: TBlockLibrary
        Left = 0
        Top = 0
        Width = 97
        Height = 389
        Align = alClient
        BorderStyle = bsNone
        Columns = <>
        DragMode = dmAutomatic
        TabOrder = 0
        LibFileName = 'lib.bed'
        Editor = BlockEditor1
      end
    end
  end
  object Edit1: TEdit
    Left = 424
    Top = 208
    Width = 121
    Height = 21
    TabOrder = 3
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 14
    Top = 170
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Action = actnFileNew
      end
      object Open1: TMenuItem
        Action = actnFileOpen
      end
      object Save1: TMenuItem
        Action = actnFileSave
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Action = actnPrint
      end
      object PrintSetup1: TMenuItem
        Action = actnPageSetup
      end
      object Preview1: TMenuItem
        Action = actnPrintPreview
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = actnExit
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object KSDevHome1: TMenuItem
        Caption = 'KSDev Home'
        OnClick = KSDevHome1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = 'About...'
        OnClick = About1Click
      end
    end
  end