Chip 2001 February/Chip_2001-02_cd1.bin/sharewar/vecad/examples/bcb/editor/Main.dfm/Main.txt

Text File | 2000-10-13 | 11.0 KB | 444 lines

object Form1: TForm1
  Left = 192
  Top = 108
  Width = 544
  Height = 375
  Caption = 'Editor'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu: TMainMenu
    Left = 104
    Top = 88
    object N1: TMenuItem
      Caption = 'File'
      object MenuItem1: TMenuItem
        Caption = 'New'
        OnClick = MenuItem1Click
      end
      object Open1: TMenuItem
        Caption = 'Open...'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = 'Save'
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save As...'
        OnClick = SaveAs1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Properties1: TMenuItem
        Caption = 'Close'
        OnClick = Properties1Click
      end
      object CloseAll1: TMenuItem
        Caption = 'Close All'
        OnClick = CloseAll1Click
      end
      object List1: TMenuItem
        Caption = 'List...'
        OnClick = List1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Importfrom1: TMenuItem
        Caption = 'Import from'
        object AutoCADDXF1: TMenuItem
          Caption = 'AutoCAD DXF'
          OnClick = AutoCADDXF1Click
        end
      end
      object Exportto1: TMenuItem
        Caption = 'Export to'
        object AutoCADDXF2: TMenuItem
          Caption = 'AutoCAD DXF'
          OnClick = AutoCADDXF2Click
        end
        object HPGL1: TMenuItem
          Caption = 'HPGL'
          OnClick = HPGL1Click
        end
        object RasterImage1: TMenuItem
          Caption = 'Raster Image'
          OnClick = RasterImage1Click
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = 'Print...'
        OnClick = Print1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Undo2: TMenuItem
        Caption = 'Undo'
        ShortCut = 16474
        OnClick = Undo2Click
      end
      object Redo2: TMenuItem
        Caption = 'Redo'
        OnClick = Redo2Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cut'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy2: TMenuItem
        Caption = 'Copy'
        ShortCut = 16451
        OnClick = Copy2Click
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object ObjectsProperties1: TMenuItem
        Caption = 'Properties...'
        OnClick = ObjectsProperties1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        OnClick = Copy1Click
      end
      object Move1: TMenuItem
        Caption = 'Move'
        OnClick = Move1Click
      end
      object Rotate1: TMenuItem
        Caption = 'Rotate'
        OnClick = Rotate1Click
      end
      object Scale1: TMenuItem
        Caption = 'Scale'
        OnClick = Scale1Click
      end
      object Mirror1: TMenuItem
        Caption = 'Mirror'
        OnClick = Mirror1Click
      end
      object Explode1: TMenuItem
        Caption = 'Explode'
        OnClick = Explode1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Group1: TMenuItem
        Caption = 'Create Block'
        OnClick = Group1Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Erase1: TMenuItem
        Caption = 'Erase'
        OnClick = Erase1Click
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object ZoomAll1: TMenuItem
        Caption = 'Zoom All'
        ShortCut = 16449
        OnClick = ZoomAll1Click
      end
      object ZoomWindow1: TMenuItem
        Caption = 'Zoom Window'
        ShortCut = 16471
        OnClick = ZoomWindow1Click
      end
      object ZoomPage2: TMenuItem
        Caption = 'Zoom Page'
        ShortCut = 16467
        OnClick = ZoomPage2Click
      end
      object ZoomIn1: TMenuItem
        Caption = 'Zoom In'
        OnClick = ZoomIn1Click
      end
      object ZoomOut1: TMenuItem
        Caption = 'Zoom Out'
        OnClick = ZoomOut1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object PageFirst1: TMenuItem
        Caption = 'Page First'
        OnClick = PageFirst1Click
      end
      object PageLasttEnd1: TMenuItem
        Caption = 'Page Last'
        OnClick = PageLasttEnd1Click
      end
      object PageNext1: TMenuItem
        Caption = 'Page Next'
        OnClick = PageNext1Click
      end
      object PagePrevious1: TMenuItem
        Caption = 'Page Previous'
        OnClick = PagePrevious1Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object SelectPage1: TMenuItem
        Caption = 'Select Page...'
        ShortCut = 16464
        OnClick = SelectPage1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object SavecurrentView1: TMenuItem
        Caption = 'Save current View...'
        OnClick = SavecurrentView1Click
      end
      object ViewsList1: TMenuItem
        Caption = 'Views List...'
        OnClick = ViewsList1Click
      end
    end
    object Format1: TMenuItem
      Caption = 'Format'
      object Page1: TMenuItem
        Caption = 'Page...'
        OnClick = Page1Click
      end
      object Layer1: TMenuItem
        Caption = 'Layer...'
        OnClick = Layer1Click
      end
      object Linetype1: TMenuItem
        Caption = 'Line Style...'
        OnClick = Linetype1Click
      end
      object TextStyle1: TMenuItem
        Caption = 'Text Style...'
        OnClick = TextStyle1Click
      end
      object PointStyle1: TMenuItem
        Caption = 'Point Style...'
        OnClick = PointStyle1Click
      end
      object HatchStyle1: TMenuItem
        Caption = 'Hatch Style...'
        OnClick = HatchStyle1Click
      end
      object Blocks1: TMenuItem
        Caption = 'Blocks...'
        OnClick = Blocks1Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object DimensionStyle1: TMenuItem
        Caption = 'Dimension Style...'
        OnClick = DimensionStyle1Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object Grid1: TMenuItem
        Caption = 'Grid...'
        OnClick = Grid1Click
      end
      object ObjectSnap1: TMenuItem
        Caption = 'Object Snap...'
        OnClick = ObjectSnap1Click
      end
      object AngleSnap1: TMenuItem
        Caption = 'Angle Snap...'
        OnClick = AngleSnap1Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object Units1: TMenuItem
        Caption = 'Units...'
        OnClick = Units1Click
      end
      object Private1: TMenuItem
        Caption = 'Private...'
        OnClick = Private1Click
      end
      object Preferences1: TMenuItem
        Caption = 'Preferences...'
        OnClick = Preferences1Click
      end
    end
    object Draw1: TMenuItem
      Caption = 'Draw'
      object Point1: TMenuItem
        Caption = 'Point'
        OnClick = Point1Click
      end
      object Line1: TMenuItem
        Caption = 'Line'
        OnClick = Line1Click
      end
      object Polyline1: TMenuItem
        Caption = 'Polyline'
        OnClick = Polyline1Click
      end
      object Spline1: TMenuItem
        Caption = 'Spline'
        OnClick = Spline1Click
      end
      object Circle1: TMenuItem
        Caption = 'Circle'
        object centerradius1: TMenuItem
          Caption = 'Center, Radius'
          OnClick = centerradius1Click
        end
        object CenterDiameter1: TMenuItem
          Caption = 'Center, Diameter'
          OnClick = CenterDiameter1Click
        end
        object N2Points1: TMenuItem
          Caption = '2 Points'
          OnClick = N2Points1Click
        end
        object N3point1: TMenuItem
          Caption = '3 Points'
          OnClick = N3point1Click
        end
      end
      object Arc1: TMenuItem
        Caption = 'Arc'
        object ArcCSE: TMenuItem
          Caption = 'Center, Start, End'
          OnClick = ArcCSEClick
        end
        object ArcSEM: TMenuItem
          Caption = 'Start, End, Middle'
          OnClick = ArcSEMClick
        end
        object ArcSME: TMenuItem
          Caption = 'Start, Middle, End'
          OnClick = ArcSMEClick
        end
      end
      object Ellipse1: TMenuItem
        Caption = 'Ellipse'
        OnClick = Ellipse1Click
      end
      object Rectangle1: TMenuItem
        Caption = 'Rectangle'
        OnClick = Rectangle1Click
      end
      object Dimension1: TMenuItem
        Caption = 'Dimension'
        object Horizontal1: TMenuItem
          Caption = 'Horizontal'
          OnClick = Horizontal1Click
        end
        object Vertical1: TMenuItem
          Caption = 'Vertical'
          OnClick = Vertical1Click
        end
        object Parallel1: TMenuItem
          Caption = 'Parallel'
          OnClick = Parallel1Click
        end
        object Angular1: TMenuItem
          Caption = 'Angular'
          OnClick = Angular1Click
        end
        object Radius1: TMenuItem
          Caption = 'Radius'
          OnClick = Radius1Click
        end
        object Diameter1: TMenuItem
          Caption = 'Diameter'
          OnClick = Diameter1Click
        end
        object Ordinate1: TMenuItem
          Caption = 'Ordinate'
          OnClick = Ordinate1Click
        end
      end
      object Hatch1: TMenuItem
        Caption = 'Hatch'
        OnClick = Hatch1Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object Text1: TMenuItem
        Caption = 'Text...'
        OnClick = Text1Click
      end
      object Symbol1: TMenuItem
        Caption = 'TTF Symbol...'
        OnClick = Symbol1Click
      end
      object InsertBlock1: TMenuItem
        Caption = 'Block...'
        OnClick = InsertBlock1Click
      end
      object InsertImage1: TMenuItem
        Caption = 'Raster Image...'
        OnClick = InsertImage1Click
      end
    end
    object Tools1: TMenuItem
      Caption = 'Tools'
      object DistanceArea1: TMenuItem
        Caption = 'Distance / Area...'
        OnClick = DistanceArea1Click
      end
      object PrintRectangles1: TMenuItem
        Caption = 'Split drawing for print...'
        OnClick = PrintRectangles1Click
      end
      object Statistics1: TMenuItem
        Caption = 'Statistics...'
        OnClick = Statistics1Click
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Caption = 'About...'
        OnClick = About1Click
      end
    end
  end
end