editor.xfm

《Kylix程序设计》一书中附带的例程源代码

object FrmEditor: TFrmEditor
  Left = 164
  Top = 187
  Width = 596
  Height = 284
  VertScrollBar.Range = 48
  ActiveControl = Memo
  Caption = 'Text Editor'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 15
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Menu = MainMenu
  ParentFont = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 109
  TextHeight = 17
  TextWidth = 7
  object Memo: TMemo
    Left = 0
    Top = 29
    Width = 596
    Height = 209
    Align = alClient
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'adobe-helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    ScrollBars = ssAutoBoth
    TabOrder = 1
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 238
    Width = 596
    Height = 19
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    Panels = <>
    ParentFont = False
    SimplePanel = True
    SimpleText = 'Welcome to Kylix world!'
    SizeGrip = False
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 596
    Height = 29
    ButtonHeight = 23
    Caption = 'ToolBar'
    Images = ImageList
    Indent = 4
    TabOrder = 2
    object TolBtnNew: TToolButton
      Left = 4
      Top = 4
      Height = 23
      Caption = 'TolBtnNew'
      ImageIndex = 0
      OnClick = MnuItmFileNewClick
    end
    object TolBtnOpen: TToolButton
      Left = 27
      Top = 4
      Height = 23
      Caption = 'TolBtnOpen'
      ImageIndex = 1
      OnClick = MnuItmFileOpenClick
    end
    object TolBtnSave: TToolButton
      Left = 50
      Top = 4
      Height = 23
      Caption = 'TolBtnSave'
      ImageIndex = 2
      OnClick = MnuItmFileSaveClick
    end
    object TolBtnExit: TToolButton
      Left = 73
      Top = 4
      Height = 23
      Caption = 'TolBtnExit'
      ImageIndex = 3
      OnClick = MnuItmFileExitClick
    end
    object ToolButton5: TToolButton
      Left = 96
      Top = 4
      Width = 8
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton5'
      ImageIndex = 4
    end
    object TolBtnCut: TToolButton
      Left = 104
      Top = 4
      Height = 23
      Caption = 'TolBtnCut'
      ImageIndex = 4
      OnClick = MnuItmEditCutClick
    end
    object TolBtnCopy: TToolButton
      Left = 127
      Top = 4
      Height = 23
      Caption = 'TolBtnCopy'
      ImageIndex = 5
      OnClick = MnuItmEditCopyClick
    end
    object TolBtnPaste: TToolButton
      Left = 150
      Top = 4
      Height = 23
      Caption = 'TolBtnPaste'
      ImageIndex = 6
      OnClick = MnuItmEditPasteClick
    end
    object ToolButton9: TToolButton
      Left = 173
      Top = 4
      Width = 8
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton9'
      ImageIndex = 7
    end
    object TolBtnFind: TToolButton
      Left = 181
      Top = 4
      Height = 23
      Caption = 'TolBtnFind'
      ImageIndex = 7
      OnClick = MnuItmSearchFindClick
    end
    object TolBtnReplace: TToolButton
      Left = 204
      Top = 4
      Height = 23
      Caption = 'TolBtnReplace'
      ImageIndex = 8
      OnClick = MnuItmSearchReplaceClick
    end
    object ToolButton12: TToolButton
      Left = 227
      Top = 4
      Width = 8
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton12'
      ImageIndex = 9
    end
    object TolBtnFont: TToolButton
      Left = 235
      Top = 4
      Height = 23
      Caption = 'TolBtnFont'
      ImageIndex = 9
      OnClick = MnuItmOptionsFontClick
    end
  end
  object MainMenu: TMainMenu
    Images = ImageList
    Left = 368
    Top = 72
    object MnuFile: TMenuItem
      Caption = '&File'
      object MnuItmFileNew: TMenuItem
        Caption = '&New'
        ImageIndex = 0
        ShortCut = 16462
        OnClick = MnuItmFileNewClick
      end
      object MnuItmFileOpen: TMenuItem
        Caption = '&Open...'
        ImageIndex = 1
        ShortCut = 16463
        OnClick = MnuItmFileOpenClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MnuItmFileSave: TMenuItem
        Caption = '&Save'
        ImageIndex = 2
        ShortCut = 16467
        OnClick = MnuItmFileSaveClick
      end
      object MnuItmFileSaveAs: TMenuItem
        Caption = 'Save &As...'
        OnClick = MnuItmFileSaveAsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MnuItmFileExit: TMenuItem
        Caption = 'E&xit'
        ImageIndex = 3
        OnClick = MnuItmFileExitClick
      end
    end
    object MnuEdit: TMenuItem
      Caption = '&Edit'
      object MnuItmEditCut: TMenuItem
        Caption = 'Cu&t'
        ImageIndex = 4
        ShortCut = 16472
        OnClick = MnuItmEditCutClick
      end
      object MnuItmEditCopy: TMenuItem
        Caption = '&Copy'
        ImageIndex = 5
        ShortCut = 16451
        OnClick = MnuItmEditCopyClick
      end
      object MnuItmEditPaste: TMenuItem
        Caption = '&Paste'
        ImageIndex = 6
        ShortCut = 16470
        OnClick = MnuItmEditPasteClick
      end
      object MnuItmEditDelete: TMenuItem
        Caption = '&Delete'
        ShortCut = 20487
        OnClick = MnuItmEditDeleteClick
      end
      object MnuItmEditSelectAll: TMenuItem
        Caption = 'Se&lect All'
        ShortCut = 16449
        OnClick = MnuItmEditSelectAllClick
      end
    end
    object MnuSearch: TMenuItem
      Caption = '&Search'
      object MnuItmSearchFind: TMenuItem
        Caption = '&Find...'
        ImageIndex = 7
        ShortCut = 16454
        OnClick = MnuItmSearchFindClick
      end
      object MnuItmSearchReplace: TMenuItem
        Caption = '&Replace...'
        ImageIndex = 8
        ShortCut = 16466
        OnClick = MnuItmSearchReplaceClick
      end
    end
    object MnuOptions: TMenuItem
      Caption = '&Options'
      object MnuItmOptionsFont: TMenuItem
        Caption = '&Font...'
        ImageIndex = 9
        OnClick = MnuItmOptionsFontClick
      end
    end
    object MnuHelp: TMenuItem
      Caption = '&Help'
      object MnuItmHelpAbout: TMenuItem
        Caption = '&About'
        OnClick = MnuItmHelpAboutClick
      end
    end
  end
  object FindDialog: TFindDialog
    Title = 'Find'
    OnFind = FindDialogFind
    Left = 276
    Top = 72
  end
  object ReplaceDialog: TReplaceDialog
    Options = []
    Title = 'Replace'
    OnFind = ReplaceDialogFind
    OnReplace = ReplaceDialogReplace
    Left = 316
    Top = 72
  end
  object FontDialog: TFontDialog
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    Left = 232
    Top = 68
  end
  object SaveDialog: TSaveDialog
    Title = 'Save As'
    Left = 156
    Top = 72
  end
  object OpenDialog: TOpenDialog
    Title = 'Open'
    Left = 188
    Top = 72
  end
  object ImageList: TImageList
    Left = 408
    Top = 72
    Bitmap = {