unit1.dfm

delphi图形开发工具BlockEngine

object Form1: TForm1
  Left = 290
  Top = 138
  Width = 763
  Height = 580
  Caption = 'BlockEngine Demo'
  Color = clBtnFace
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 44
    Top = 110
    Width = 105
    Height = 105
  end
  object Splitter1: TSplitter
    Left = 125
    Top = 129
    Height = 397
  end
  object BlockEditor1: TBlockEditor
    Left = 128
    Top = 129
    Width = 627
    Height = 397
    Align = alClient
    DoubleBuffered = False
    Scale = 1.000000000000000000
    GridKind = gkAuto
    GridVSize = 0.049999956041574500
    GridHSize = 0.049999956041574500
    ShowGrid = True
    ShowRulers = True
    ViewKind = vkPage
    UnitType = Inch
    Paper = A4
    Orientation = Portrait
    Smooth = True
    HorzScrollBar = True
    VertScrollBar = True
    OnMouseUp = BlockEditor1MouseUp
    BlockEditMode = bemResizeAndRotate
    BlockInsertMode = bimSelect
    SnapToGrid = False
    GripSize = 8
    HotTrack = True
    HotArrow = False
    CanModify = True
    OnBlockEditText = BlockEditor1BlockEditText
    OnBlockEditImage = BlockEditor1BlockEditImage
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 755
    Height = 129
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 24
        Width = 755
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 51
        Width = 755
      end
      item
        Control = ToolBar3
        ImageIndex = -1
        MinHeight = 24
        Width = 755
      end
      item
        Control = ToolBar4
        ImageIndex = -1
        MinHeight = 24
        Width = 455
      end
      item
        Break = False
        Control = ToolBar5
        ImageIndex = -1
        MinHeight = 24
        Width = 298
      end>
    EdgeBorders = []
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 742
      Height = 24
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Action = actnFileNew
      end
      object ToolButton2: TToolButton
        Left = 23
        Top = 2
        Action = actnFileOpen
      end
      object ToolButton3: TToolButton
        Left = 46
        Top = 2
        Action = actnFileSave
      end
      object ToolButton4: TToolButton
        Left = 69
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 77
        Top = 2
        Action = actnPageSetup
      end
      object ToolButton5: TToolButton
        Left = 100
        Top = 2
        Action = actnPrintPreview
      end
      object ToolButton7: TToolButton
        Left = 123
        Top = 2
        Action = actnPrint
      end
      object ToolButton8: TToolButton
        Left = 146
        Top = 2
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 154
        Top = 2
        Action = actnZoomIn
      end
      object ToolButton10: TToolButton
        Left = 177
        Top = 2
        Action = actnZoomOut
      end
      object ToolButton12: TToolButton
        Left = 200
        Top = 2
        Width = 8
        Caption = 'ToolButton12'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ScaleBox: TComboBox
        Left = 208
        Top = 2
        Width = 65
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        OnChange = ScaleBoxChange
        Items.Strings = (
          '25'
          '50'
          '75'
          '100'
          '125'
          '150'
          '200'
          '300'
          '400'
          '500'
          '600'
          '700'
          '800'
          '900')
      end
      object ToolButton11: TToolButton
        Left = 273
        Top = 2
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object ToolButton63: TToolButton
        Left = 281
        Top = 2
        Action = actnCopy
      end
      object ToolButton64: TToolButton
        Left = 304
        Top = 2
        Action = actnPaste
      end
      object ToolButton65: TToolButton
        Left = 327
        Top = 2
        Action = actnCut
      end
      object ToolButton69: TToolButton
        Left = 350
        Top = 2
        Action = actnDelete
      end
      object ToolButton66: TToolButton
        Left = 373
        Top = 2
        Width = 8
        Caption = 'ToolButton66'
        ImageIndex = 313
        Style = tbsSeparator
      end
      object ToolButton67: TToolButton
        Left = 381
        Top = 2
        Action = actnFlipHorz
      end
      object ToolButton68: TToolButton
        Left = 404
        Top = 2
        Action = actnFlipVert
      end
      object ToolButton75: TToolButton
        Left = 427
        Top = 2
        Width = 8
        Caption = 'ToolButton75'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton74: TToolButton
        Left = 435
        Top = 2
        Action = actnUndo
      end
      object ToolButton77: TToolButton
        Left = 458
        Top = 2
        Width = 8
        Caption = 'ToolButton77'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object ToolButton76: TToolButton
        Left = 466
        Top = 2
        Hint = 'Make backround'
        Caption = 'ToolButton76'
        ImageIndex = 36
        OnClick = ToolButton76Click
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 26
      Width = 742
      Height = 51
      AutoSize = True
      Caption = 'ToolBar2'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 1
      object btnPointer: TToolButton
        Left = 0
        Top = 2
        Action = actnPointer
      end
      object btnRotate: TToolButton
        Left = 23
        Top = 2
        Action = actnRotate
        Visible = False
      end
      object ToolButton30: TToolButton
        Left = 46
        Top = 2
        Action = actnSegment
      end
      object ToolButton15: TToolButton
        Left = 69
        Top = 2
        Width = 8
        Caption = 'ToolButton15'
        ImageIndex = 302
        Style = tbsSeparator
      end
      object ToolButton16: TToolButton
        Left = 77
        Top = 2
        Action = actnNewLine
      end
      object ToolButton17: TToolButton
        Left = 100
        Top = 2
        Action = actnNewRect
      end
      object ToolButton18: TToolButton
        Left = 123
        Top = 2
        Action = actnNewRoundRect
      end
      object ToolButton19: TToolButton
        Left = 146
        Top = 2
        Action = actnNewCircle
      end
      object ToolButton20: TToolButton
        Left = 169
        Top = 2
        Hint = 'Text'
        Action = actnNewText
      end
      object ToolButton78: TToolButton
        Left = 192
        Top = 2
        Action = actnStretchText
      end
      object ToolButton34: TToolButton
        Left = 215
        Top = 2
        Action = actnNewPolygon
      end
      object ToolButton71: TToolButton
        Left = 238
        Top = 2
        Action = actnNewPolyline
      end
      object ToolButton35: TToolButton
        Left = 261
        Top = 2
        Action = actnNewFillSpline
      end
      object ToolButton70: TToolButton
        Left = 284
        Top = 2
        Action = actnNewSpline
      end
      object ToolButton72: TToolButton
        Left = 307
        Top = 2
        Action = actnNewBezier
      end
      object ToolButton73: TToolButton
        Left = 330
        Top = 2
        Action = actnNewFillBezier