unit1.dfm

delphi图形开发工具BlockEngine

object frmMain: TfrmMain
  Left = 291
  Top = 233
  Width = 596
  Height = 492
  BorderWidth = 5
  Caption = 'BlockEngine Sample'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 578
    Height = 448
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Insert'
      DesignSize = (
        570
        420)
      object Label1: TLabel
        Left = 6
        Top = 8
        Width = 58
        Height = 13
        Caption = 'Insert block:'
      end
      object BlockEditor1: TBlockEditor
        Left = 142
        Top = 52
        Width = 424
        Height = 371
        Anchors = [akLeft, akTop, akRight, akBottom]
        DoubleBuffered = False
        Scale = 0.500000000000000000
        GridKind = gkAuto
        GridVSize = 143.999954223633000000
        GridHSize = 143.999954223633000000
        ShowGrid = True
        ShowRulers = True
        ViewKind = vkPage
        UnitType = Pt
        Paper = A4
        Orientation = Portrait
        Smooth = True
        HorzScrollBar = True
        VertScrollBar = True
        BlockEditMode = bemSegment
        BlockInsertMode = bimSelect
        SnapToGrid = False
        GripSize = 8
        HotTrack = True
        HotArrow = False
        CanModify = False
      end
      object ListBox1: TListBox
        Left = 6
        Top = 24
        Width = 127
        Height = 399
        Anchors = [akLeft, akTop, akBottom]
        ItemHeight = 13
        Items.Strings = (
          'Rect'
          'Elipse')
        TabOrder = 1
      end
      object Button1: TButton
        Left = 140
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Insert'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button5: TButton
        Left = 248
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Button5'
        TabOrder = 3
        OnClick = Button5Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Shape'
      ImageIndex = 1
      DesignSize = (
        570
        420)
      object Memo1: TMemo
        Left = 2
        Top = 6
        Width = 183
        Height = 417
        Anchors = [akLeft, akTop, akBottom]
        Lines.Strings = (
          'Hot to create new shape:'
          ''
          '1. Create document in Editor '
          '2. Group all blocks in document'
          '3. Load created document'
          '4. Use this group as new shape and '
          'add in to new document')
        TabOrder = 0
      end
      object PageControl2: TPageControl
        Left = 192
        Top = 6
        Width = 376
        Height = 419
        ActivePage = TabSheet4
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 1
        object TabSheet3: TTabSheet
          Caption = 'Loaded'
          object BlockViewer1: TBlockViewer
            Left = 0
            Top = 0
            Width = 357
            Height = 391
            Align = alClient
            DoubleBuffered = False
            Scale = 0.600000023841857900
            GridKind = gkAuto
            GridVSize = 0.050000000000000000
            GridHSize = 0.050000000000000000
            ShowGrid = False
            ShowRulers = True
            ViewKind = vkPage
            UnitType = Inch
            Paper = A4
            Orientation = Portrait
            Smooth = True
            HorzScrollBar = True
            VertScrollBar = True
          end
        end
        object TabSheet4: TTabSheet
          Caption = 'Add To Editor'
          ImageIndex = 1
          object BlockEditor2: TBlockEditor
            Left = 0
            Top = 0
            Width = 357
            Height = 391
            Align = alClient
            DoubleBuffered = False
            Scale = 0.600000023841857900
            GridKind = gkAuto
            GridVSize = 0.050000000000000000
            GridHSize = 0.050000000000000000
            ShowGrid = False
            ShowRulers = True
            ViewKind = vkPage
            UnitType = Inch
            Paper = A4
            Orientation = Portrait
            Smooth = True
            HorzScrollBar = True
            VertScrollBar = True
            BlockEditMode = bemResize
            BlockInsertMode = bimSelect
            SnapToGrid = False
            GripSize = 8
            HotTrack = True
            HotArrow = True
            CanModify = False
          end
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Link'
      ImageIndex = 2
      DesignSize = (
        570
        420)
      object Button2: TButton
        Left = 6
        Top = 6
        Width = 75
        Height = 25
        Caption = 'Link'
        TabOrder = 0
        OnClick = Button2Click
      end
      object BlockEditor3: TBlockEditor
        Left = 6
        Top = 36
        Width = 558
        Height = 387
        Anchors = [akLeft, akTop, akRight, akBottom]
        DoubleBuffered = False
        Scale = 0.600000023841857900
        GridKind = gkAuto
        GridVSize = 144.000000000000000000
        GridHSize = 144.000000000000000000
        ShowGrid = True
        ShowRulers = True
        ViewKind = vkPage
        UnitType = Pt
        Paper = A4
        Orientation = Portrait
        Smooth = True
        HorzScrollBar = True
        VertScrollBar = True
        BlockEditMode = bemResize
        BlockInsertMode = bimSelect
        SnapToGrid = False
        GripSize = 8
        HotTrack = True
        HotArrow = False
        CanModify = False
      end
    end
    object TabSheet6: TTabSheet
      BorderWidth = 5
      Caption = 'Active Blocks'
      ImageIndex = 3
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 549
        Height = 41
        Align = alTop
        BevelOuter = bvLowered
        TabOrder = 0
        object Button3: TButton
          Left = 8
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Start'
          TabOrder = 0
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 88
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Stop'
          TabOrder = 1
          OnClick = Button4Click
        end
      end
      object BlockViewer2: TBlockEditor
        Left = 0
        Top = 41
        Width = 549
        Height = 369
        Align = alClient
        DoubleBuffered = False
        Scale = 0.400000005960464500
        GridKind = gkAuto
        GridVSize = 0.049999993294477500
        GridHSize = 0.049999993294477500
        ShowGrid = True
        ShowRulers = False
        ViewKind = vkPage
        UnitType = Inch
        Paper = A4
        Orientation = Portrait
        Smooth = True
        HorzScrollBar = True
        VertScrollBar = True
        BlockEditMode = bemResize
        BlockInsertMode = bimSelect
        SnapToGrid = False
        GripSize = 8
        HotTrack = True
        HotArrow = False
        CanModify = False
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Controls'
      ImageIndex = 4
      DesignSize = (
        570
        420)
      object BlockEditor4: TBlockEditor
        Left = 6
        Top = 166
        Width = 560
        Height = 249
        Anchors = [akLeft, akTop, akRight, akBottom]
        DoubleBuffered = False
        Scale = 1.000000000000000000
        GridKind = gkAuto
        GridVSize = 3.599999427795410000
        GridHSize = 3.599999427795410000
        ShowGrid = True
        ShowRulers = False
        ViewKind = vkBlank
        UnitType = Pt
        Paper = A4
        Orientation = Portrait
        Smooth = True
        HorzScrollBar = True
        VertScrollBar = True
        BlockEditMode = bemResize
        BlockInsertMode = bimSelect
        SnapToGrid = False
        GripSize = 8
        HotTrack = True
        HotArrow = False
        CanModify = False
      end
      object GroupBox1: TGroupBox
        Left = 6
        Top = 4
        Width = 199
        Height = 151
        Caption = 'Stroke:'
        TabOrder = 1
        object Label2: TLabel
          Left = 10
          Top = 22
          Width = 31
          Height = 13
          Caption = 'Width:'
        end
        object Label3: TLabel
          Left = 10
          Top = 48
          Width = 22
          Height = 13
          Caption = 'Cap:'
        end
        object Label4: TLabel
          Left = 10
          Top = 72
          Width = 37
          Height = 13
          Caption = 'Pattern:'
        end
        object Label5: TLabel
          Left = 10
          Top = 100
          Width = 27
          Height = 13
          Caption = 'Color:'
        end
        object Label6: TLabel
          Left = 10
          Top = 126
          Width = 68
          Height = 13
          Caption = 'Transparency:'
        end
        object beStrokeWidthBox1: TbeStrokeWidthBox
          Left = 46
          Top = 16
          Width = 145
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 0
          Editor = BlockEditor4
        end
        object beStrokeCapBox1: TbeStrokeCapBox
          Left = 38
          Top = 42
          Width = 153
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 1
          Editor = BlockEditor4
        end
        object beStrokePatternBox1: TbeStrokePatternBox
          Left = 54
          Top = 68
          Width = 137
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 2
          Editor = BlockEditor4
        end
        object beStrokeColorBox1: TbeStrokeColorBox
          Left = 42
          Top = 94
          Width = 149
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 3
          Editor = BlockEditor4
        end
        object beStrokeAlphaBox1: TbeStrokeAlphaBox
          Left = 82
          Top = 120
          Width = 109
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 4
          Editor = BlockEditor4
        end
      end
      object GroupBox2: TGroupBox
        Left = 208
        Top = 4
        Width = 193
        Height = 151
        Caption = 'Fill:'
        TabOrder = 2
        object Label7: TLabel
          Left = 6
          Top = 20
          Width = 26
          Height = 13
          Caption = 'Style:'
        end
        object Label8: TLabel
          Left = 6
          Top = 48
          Width = 27
          Height = 13
          Caption = 'Color:'
        end
        object Label9: TLabel
          Left = 6
          Top = 74
          Width = 68
          Height = 13
          Caption = 'Transparency:'
        end
        object beFillColorBox1: TbeFillColorBox
          Left = 36
          Top = 42
          Width = 147
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 0
          Editor = BlockEditor4
        end
        object beFillStyleBox1: TbeFillStyleBox
          Left = 38
          Top = 16
          Width = 145
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 1
          Editor = BlockEditor4
        end
        object beFillAlphaBox1: TbeFillAlphaBox
          Left = 78
          Top = 68
          Width = 105
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 2
          Editor = BlockEditor4
        end
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'Custom background'
      ImageIndex = 5
      object BlockEditor5: TBlockEditor
        Left = 0
        Top = 0
        Width = 559
        Height = 420
        Align = alClient
        DoubleBuffered = False
        Scale = 1.000000000000000000
        GridKind = gkAuto
        GridVSize = 0.049999993294477500
        GridHSize = 0.049999993294477500
        ShowGrid = False
        ShowRulers = True
        ViewKind = vkPage
        UnitType = Inch
        Paper = A4
        Orientation = Portrait
        Smooth = True
        HorzScrollBar = True
        VertScrollBar = True
        OnPaint = BlockEditor5Paint
        BlockEditMode = bemResize
        BlockInsertMode = bimSelect
        SnapToGrid = False
        GripSize = 8
        HotTrack = True
        HotArrow = False
        CanModify = False
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 20
    OnTimer = Timer1Timer
    Left = 443
    Top = 41
  end
end