unit1.dfm

KSDev.BlockEngine.v3.03.rar 界面控件

      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 = {
          EE0000000800000000000000FFFFFFFFFFFFFFFF000000001486660304526563
          7401000000FFFFFFFFFFFFFFFF00000000CC918C0309526F756E645265637402
          000000FFFFFFFFFFFFFFFF00000000B086660307456C6C6970736503000000FF
          FFFFFFFFFFFFFF00000000048C6603044C696E6504000000FFFFFFFFFFFFFFFF
          0000000048435F0308547269616E676C6505000000FFFFFFFFFFFFFFFF000000
          0030C361030D5269676874547269616E676C6506000000FFFFFFFFFFFFFFFF00
          000000ECC86103074469616D6F6E6407000000FFFFFFFFFFFFFFFF00000000F4
          D560030A48616C66436972636C65}
        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 = {
          450100000B00000000000000FFFFFFFFFFFFFFFF0000000000BC5F030850656E
          7461676F6E01000000FFFFFFFFFFFFFFFF0000000024485F030748657861676F
          6E02000000FFFFFFFFFFFFFFFF00000000A04E5F03084865707461676F6E0300
          0000FFFFFFFFFFFFFFFF00000000D0AB5E030543726F737304000000FFFFFFFF
          FFFFFFFF00000000D44B6603084C696E655374617205000000FFFFFFFFFFFFFF
          FF00000000E0A75E030954687265655374617206000000FFFFFFFFFFFFFFFF00
          000000C047660308466F75725374617207000000FFFFFFFFFFFFFFFF00000000
          B0B05F0308466976655374617208000000FFFFFFFFFFFFFFFF00000000147D66
          030945696768745374617209000000FFFFFFFFFFFFFFFF00000000248A650307
          426967537461720A000000FFFFFFFFFFFFFFFF00000000E4A0650309526F756E
          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 = {
          AF0000000600000000000000FFFFFFFFFFFFFFFF00000000D0BA650306417272
          6F773101000000FFFFFFFFFFFFFFFF0000000098796603064172726F77320200
          0000FFFFFFFFFFFFFFFF000000009CAD6503064172726F773303000000FFFFFF
          FFFFFFFFFF00000000B8C56903064172726F773404000000FFFFFFFFFFFFFFFF
          00000000ACDC6903064172726F773505000000FFFFFFFFFFFFFFFF00000000D4
          F269030B4375727665644172726F77}
        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 = {
          010100000900000000000000FFFFFFFFFFFFFFFF0000000064F44D0307507972
          616D696401000000FFFFFFFFFFFFFFFF000000002CC46003064C616464657202
          000000FFFFFFFFFFFFFFFF0000000038D9690305486578334403000000FFFFFF
          FFFFFFFFFF00000000F40B6503074D61696C626F7804000000FFFFFFFFFFFFFF
          FF00000000A82265030A547269616E676C65334405000000FFFFFFFFFFFFFFFF
          000000004C2D650308536563746F72334406000000FFFFFFFFFFFFFFFF000000
          00301F6503044375626507000000FFFFFFFFFFFFFFFF00000000983A65030554
          6F72757308000000FFFFFFFFFFFFFFFF00000000288864030843796C696E6465
          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 = {
          2F0100000B00000000000000FFFFFFFFFFFFFFFF00000000BCA2640305427275
          736801000000FFFFFFFFFFFFFFFF00000000C8B864030350656E02000000FFFF
          FFFFFFFFFFFF000000002C3565030653686561727303000000FFFFFFFFFFFFFF
          FF00000000249A64030550686F6E6504000000FFFFFFFFFFFFFFFF0000000060
          078D0305506170657205000000FFFFFFFFFFFFFFFF000000002C0D6403085265
          6379636C656406000000FFFFFFFFFFFFFFFF00000000F4236403054D6F757365
          07000000FFFFFFFFFFFFFFFF00000000A82E6403075072696E74657208000000
          FFFFFFFFFFFFFFFF00000000480864030448616E6409000000FFFFFFFFFFFFFF
          FF00000000543C6403084B6579626F6172640A000000FFFFFFFFFFFFFFFF0000
          00005C09E50708436F6D7075746572}
        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 = {
          D50100000D00000000000000FFFFFFFFFFFFFFFF00000000F023E5070D436861
          7274446F63756D656E7401000000FFFFFFFFFFFFFFFF00000000D039E5070943
          686172744461746102000000FFFFFFFFFFFFFFFF00000000E03564030F436861
          72744469726563744461746103000000FFFFFFFFFFFFFFFF00000000AC34E507
          13436861727453657175656E7469616C4461746104000000FFFFFFFFFFFFFFFF
          00000000B003E5071043686172744D616E75616C496E70757405000000FFFFFF
          FFFFFFFFFF00000000C84CE5071443686172744D616E75616C4F706572617469
          6F6E06000000FFFFFFFFFFFFFFFF000000009863E5070F43686172744F666650
          61676552656607000000FFFFFFFFFFFFFFFF00000000786EE5070C4368617274
          446973706C617908000000FFFFFFFFFFFFFFFF000000001C48E5070F43686172
          7453746F7265644461746109000000FFFFFFFFFFFFFFFF000000002C7CE5070E
          43686172745061706572546170650A000000FFFFFFFFFFFFFFFF000000004889
          E5071043686172745072657061726174696F6E0B000000FFFFFFFFFFFFFFFF00
          00000038A0E507094368617274436172640C000000FFFFFFFFFFFFFFFF000000
          00ECB6E5070F43686172745465726D696E61746F72}
        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 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
  object ActionList1: TActionList
    Images = ImageList1
    Left = 50
    Top = 170
    object actnFileNew: TAction
      Category = 'file'
      Caption = 'New'
      ImageIndex = 0
      OnExecute = actnFileNewExecute
    end