unit1.dfm

delphi图形开发工具BlockEngine

  object ActionList1: TActionList
    Images = ImageList1
    Left = 50
    Top = 170
    object actnFileNew: TAction
      Category = 'file'
      Caption = 'New'
      ImageIndex = 0
      OnExecute = actnFileNewExecute
    end
    object actnFileOpen: TAction
      Category = 'file'
      Caption = 'Open...'
      ImageIndex = 1
      OnExecute = actnFileOpenExecute
    end
    object actnFileSave: TAction
      Category = 'file'
      Caption = 'Save'
      ImageIndex = 2
      OnExecute = actnFileSaveExecute
    end
    object actnSegment: TAction
      Category = 'edit'
      Caption = 'actnSegment'
      ImageIndex = 12
      OnExecute = actnSegmentExecute
      OnUpdate = actnSegmentUpdate
    end
    object actnPrint: TAction
      Category = 'file'
      Caption = 'Print'
      ImageIndex = 5
    end
    object actnPrintPreview: TAction
      Category = 'file'
      Caption = 'Preview...'
      ImageIndex = 4
      OnExecute = actnPrintPreviewExecute
    end
    object actnPageSetup: TAction
      Category = 'file'
      Caption = 'Page setup...'
      ImageIndex = 3
      OnExecute = actnPageSetupExecute
    end
    object actnExit: TAction
      Category = 'file'
      Caption = 'Exit'
    end
    object actnPointer: TAction
      Category = 'edit'
      Caption = 'Pointer'
      Checked = True
      ImageIndex = 88
      OnExecute = actnPointerExecute
    end
    object actnRotate: TAction
      Category = 'edit'
      Caption = 'Rotate'
      ImageIndex = 301
      OnExecute = actnRotateExecute
    end
    object actnNewLine: TAction
      Category = 'edit'
      Caption = 'New line'
      ImageIndex = 261
      OnExecute = actnNewLineExecute
    end
    object actnNewCircle: TAction
      Category = 'edit'
      Caption = 'New circle'
      ImageIndex = 267
      OnExecute = actnNewCircleExecute
    end
    object actnNewRect: TAction
      Category = 'edit'
      Caption = 'New rect'
      ImageIndex = 265
      OnExecute = actnNewRectExecute
    end
    object actnNewText: TAction
      Category = 'edit'
      Caption = 'New text'
      ImageIndex = 260
      OnExecute = actnNewTextExecute
    end
    object actnNewRoundRect: TAction
      Category = 'edit'
      Caption = 'New round rect'
      ImageIndex = 266
      OnExecute = actnNewRoundRectExecute
    end
    object actnGroup: TAction
      Category = 'shape'
      Caption = 'Group'
      ImageIndex = 307
      OnExecute = actnGroupExecute
    end
    object actnUngroup: TAction
      Category = 'shape'
      Caption = 'Ungroup'
      ImageIndex = 308
      OnExecute = actnUngroupExecute
    end
    object actnZoomIn: TAction
      Category = 'edit'
      Caption = 'Zoomin'
      ImageIndex = 7
      OnExecute = actnZoomInExecute
    end
    object actnZoomOut: TAction
      Category = 'edit'
      Caption = 'Zoom out'
      ImageIndex = 6
      OnExecute = actnZoomOutExecute
    end
    object actnShowGrid: TAction
      Category = 'settings'
      Caption = 'Show grid'
      Checked = True
      ImageIndex = 14
      OnExecute = actnShowGridExecute
    end
    object actnSnapToGrid: TAction
      Category = 'settings'
      Caption = 'Snap to grid'
      Checked = True
      ImageIndex = 72
      OnExecute = actnSnapToGridExecute
    end
    object actnShowPage: TAction
      Category = 'settings'
      Caption = 'Show page'
      Checked = True
      ImageIndex = 41
      OnExecute = actnShowPageExecute
    end
    object actnShowRulers: TAction
      Category = 'settings'
      Caption = 'Show rulers'
      Checked = True
      ImageIndex = 13
      OnExecute = actnShowRulersExecute
    end
    object actnNewArrow: TAction
      Category = 'edit'
      Caption = 'New arrow'
      ImageIndex = 274
      OnExecute = actnNewArrowExecute
    end
    object actnNewSnapPoint: TAction
      Category = 'edit'
      Caption = 'actnNewSnapPoint'
      Hint = 'Add snap point'
      ImageIndex = 16
      OnExecute = actnNewSnapPointExecute
    end
    object actnNewPolygon: TAction
      Category = 'edit'
      Caption = 'actnNewPolygon'
      Hint = 'Polygon'
      ImageIndex = 291
      OnExecute = actnNewPolygonExecute
    end
    object actnNewSpline: TAction
      Category = 'edit'
      Caption = 'actnNewSpline'
      Hint = 'Spline'
      ImageIndex = 247
      OnExecute = actnNewSplineExecute
    end
    object actnBringToFront: TAction
      Category = 'edit'
      Caption = 'actnBringToFront'
      ImageIndex = 302
      OnExecute = actnBringToFrontExecute
    end
    object actnSendToBack: TAction
      Category = 'edit'
      Caption = 'actnSendToBack'
      ImageIndex = 303
      OnExecute = actnSendToBackExecute
    end
    object actnNewImage: TAction
      Category = 'edit'
      Caption = 'actnNewImage'
      ImageIndex = 304
      OnExecute = actnNewImageExecute
    end
    object actnFontBold: TAction
      Category = 'text'
      Caption = 'actnFontBold'
      ImageIndex = 305
      OnExecute = actnFontBoldExecute
    end
    object actnFontItalic: TAction
      Category = 'text'
      Caption = 'actnFontItalic'
      ImageIndex = 306
      OnExecute = actnFontItalicExecute
    end
    object actnTextAlignLeft: TAction
      Category = 'text'
      Caption = 'a'
      ImageIndex = 95
      OnExecute = actnTextAlignLeftExecute
    end
    object actnTextAlignRight: TAction
      Category = 'text'
      Caption = 'actnTextAlignRight'
      ImageIndex = 96
      OnExecute = actnTextAlignRightExecute
    end
    object actnTextAlignCenter: TAction
      Category = 'text'
      Caption = 'actnTextAlignCenter'
      ImageIndex = 97
      OnExecute = actnTextAlignCenterExecute
    end
    object actnTextAlignTop: TAction
      Category = 'text'
      Caption = 'actnTextAlignTop'
      ImageIndex = 95
      OnExecute = actnTextAlignTopExecute
    end
    object actnTextAlignMiddle: TAction
      Category = 'text'
      Caption = 'actnTextAlignMiddle'
      ImageIndex = 105
      OnExecute = actnTextAlignMiddleExecute
    end
    object actnTextAlignBottom: TAction
      Category = 'text'
      Caption = 'actnTextAlignBottom'
      ImageIndex = 100
      OnExecute = actnTextAlignBottomExecute
    end
    object actnStokeColor: TAction
      Category = 'style'
      Caption = 'actnStokeColor'
      ImageIndex = 293
    end
    object actnFillColor: TAction
      Category = 'style'
      Caption = 'actnFillColor'
      ImageIndex = 293
    end
    object actnFillForeColor: TAction
      Category = 'style'
      Caption = 'actnFillForeColor'
      ImageIndex = 293
    end
    object actnSmooth: TAction
      Category = 'settings'
      Caption = 'Smooth'
    end
    object actnShowArrow: TAction
      Category = 'settings'
      Caption = 'actnShowArrow'
      Hint = 'Arrow mode'
      ImageIndex = 309
      OnExecute = actnShowArrowExecute
    end
    object actnHotTrack: TAction
      Category = 'settings'
      Caption = 'actnHotTrack'
      Checked = True
      Hint = 'Hot track mode'
      ImageIndex = 112
      OnExecute = actnHotTrackExecute
    end
    object actnCopy: TAction
      Category = 'edit'
      Caption = 'actnCopy'
      ImageIndex = 310
      OnExecute = actnCopyExecute
    end
    object actnPaste: TAction
      Category = 'edit'
      Caption = 'actnPaste'
      ImageIndex = 311
      OnExecute = actnPasteExecute
    end
    object actnCut: TAction
      Category = 'edit'
      Caption = 'actnCut'
      ImageIndex = 312
      OnExecute = actnCutExecute
    end
    object actnFlipHorz: TAction
      Category = 'edit'
      Caption = 'actnFlipHorz'
      OnExecute = actnFlipHorzExecute
    end
    object actnFlipVert: TAction
      Category = 'edit'
      Caption = 'actnFlipVert'
      OnExecute = actnFlipVertExecute
    end
    object actnDelete: TAction
      Category = 'edit'
      Caption = 'actnDelete'
      ImageIndex = 313
      OnExecute = actnDeleteExecute
    end
    object actnNewFillSpline: TAction
      Category = 'edit'
      Caption = 'actnNewFillSpline'
      Hint = 'Closed Spline'
      ImageIndex = 44
      OnExecute = actnNewFillSplineExecute
    end
    object actnNewPolyline: TAction
      Category = 'edit'
      Caption = 'actnNewPolyline'
      Hint = 'Polyline'
      ImageIndex = 180
      OnExecute = actnNewPolylineExecute
    end
    object actnNewBezier: TAction
      Category = 'edit'
      Caption = 'actnNewBezier'
      Hint = 'Bezier line'
      ImageIndex = 254
      OnExecute = actnNewBezierExecute
    end
    object actnNewFillBezier: TAction
      Category = 'edit'
      Caption = 'actnNewFillBezier'
      Hint = 'Fill bezier line'
      ImageIndex = 254
      OnExecute = actnNewFillBezierExecute
    end
    object actnUndo: TAction
      Category = 'edit'
      Caption = 'actnUndo'
      Hint = 'Undo'
      ImageIndex = 8
      OnExecute = actnUndoExecute
      OnUpdate = actnUndoUpdate
    end
    object actnStretchText: TAction
      Category = 'edit'
      Caption = 'actnStretchText'
      ImageIndex = 260
      OnExecute = actnStretchTextExecute
    end
  end
  object ImageList1: TImageList
    Left = 98
    Top = 174
    Bitmap = {
      494C01013A013F01040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000000005000001002000000000000000
      0500000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000