PC World Plus! (NZ) 2001 June/HDC50.iso/Runimage/Delphi50/Demos/Doc/Textedit/MDIEDIT.DFM/MDIEDIT.txt

Text File | 1999-08-11 | 4KB | 182 lines

object EditForm: TEditForm
  Left = 196
  Top = 112
  Width = 435
  Height = 308
  Caption = 'Untitled'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  PixelsPerInch = 96
  PopupMenu = PopupMenu1
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  TextHeight = 13
  object Editor: TRichEdit
    Left = 0
    Top = 0
    Width = 427
    Height = 262
    Align = alClient
    BorderStyle = bsNone
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 248
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open...'
        OnClick = Open1Click
      end
      object Close1: TMenuItem
        Caption = '&Close'
        OnClick = Close1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
      end
      object Saveas1: TMenuItem
        Caption = 'Save &as...'
        OnClick = Saveas1Click
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
      end
      object Printersetup1: TMenuItem
        Caption = 'Printer setup...'
        OnClick = Printersetup1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 1
      OnClick = Edit1Click
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        OnClick = Cut1Click
        ShortCutText = 'Ctrl+X'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = Copy1Click
        ShortCutText = 'Ctrl+C'
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = Paste1Click
        ShortCutText = 'Ctrl+V'
      end
      object Delete1: TMenuItem
        Caption = 'De&lete'
        OnClick = Delete1Click
        ShortCutText = 'Ctrl+D'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Selectall1: TMenuItem
        Caption = 'Select &all'
        OnClick = Selectall1Click
        ShortCutText = 'Ctrl+A'
      end
    end
    object Character1: TMenuItem
      Caption = '&Character'
      GroupIndex = 1
      object Left1: TMenuItem
        Caption = '&Left'
        Checked = True
        OnClick = AlignClick
      end
      object Right1: TMenuItem
        Caption = '&Right'
        OnClick = AlignClick
      end
      object Center1: TMenuItem
        Caption = '&Center'
        OnClick = AlignClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Wordwrap1: TMenuItem
        Caption = '&Word wrap'
        Checked = True
        OnClick = Wordwrap1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Font1: TMenuItem
        Caption = '&Font...'
        OnClick = Font1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = Edit1Click
    Left = 96
    Top = 64
    object Cut2: TMenuItem
      Caption = 'Cu&t'
      OnClick = Cut1Click
    end
    object Copy2: TMenuItem
      Caption = '&Copy'
      OnClick = Copy1Click
    end
    object Paste2: TMenuItem
      Caption = '&Paste'
      OnClick = Paste1Click
    end
  end
  object SaveFileDialog: TSaveDialog
    Filter =
      'Rich text files (*.rtf)|*.rtf|Plain text files (*.txt)|*.txt|All' +
      ' files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofNoReadOnlyReturn]
    Left = 56
    Top = 64
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 136
    Top = 64
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 176
    Top = 64
  end
  object PrintDialog1: TPrintDialog
    Left = 216
    Top = 64
  end
end