compform.dfm.txt

源代码

        item
          Command = ecEditorTop
          ShortCut = 16420
        end
        item
          Command = ecSelEditorTop
          ShortCut = 24612
        end
        item
          Command = ecLineEnd
          ShortCut = 35
        end
        item
          Command = ecSelLineEnd
          ShortCut = 8227
        end
        item
          Command = ecEditorBottom
          ShortCut = 16419
        end
        item
          Command = ecSelEditorBottom
          ShortCut = 24611
        end
        item
          Command = ecToggleMode
          ShortCut = 45
        end
        item
          Command = ecCopy
          ShortCut = 16429
        end
        item
          Command = ecPaste
          ShortCut = 8237
        end
        item
          Command = ecDeleteChar
          ShortCut = 46
        end
        item
          Command = ecCut
          ShortCut = 8238
        end
        item
          Command = ecDeleteLastChar
          ShortCut = 8
        end
        item
          Command = ecDeleteLastChar
          ShortCut = 8200
        end
        item
          Command = ecDeleteLastWord
          ShortCut = 16392
        end
        item
          Command = ecUndo
          ShortCut = 32776
        end
        item
          Command = ecRedo
          ShortCut = 40968
        end
        item
          Command = ecLineBreak
          ShortCut = 13
        end
        item
          Command = ecLineBreak
          ShortCut = 8205
        end
        item
          Command = ecTab
          ShortCut = 9
        end
        item
          Command = ecShiftTab
          ShortCut = 8201
        end
        item
          Command = ecSelectAll
          ShortCut = 16449
        end
        item
          Command = ecCopy
          ShortCut = 16451
        end
        item
          Command = ecBlockIndent
          ShortCut = 24649
        end
        item
          Command = ecLineBreak
          ShortCut = 16461
        end
        item
          Command = ecInsertLine
          ShortCut = 16462
        end
        item
          Command = ecDeleteWord
          ShortCut = 16468
        end
        item
          Command = ecBlockUnindent
          ShortCut = 24661
        end
        item
          Command = ecPaste
          ShortCut = 16470
        end
        item
          Command = ecCut
          ShortCut = 16472
        end
        item
          Command = ecDeleteLine
          ShortCut = 16473
        end
        item
          Command = ecDeleteEOL
          ShortCut = 24665
        end
        item
          Command = ecUndo
          ShortCut = 16474
        end
        item
          Command = ecRedo
          ShortCut = 24666
        end
        item
          Command = ecGotoMarker0
          ShortCut = 16432
        end
        item
          Command = ecGotoMarker1
          ShortCut = 16433
        end
        item
          Command = ecGotoMarker2
          ShortCut = 16434
        end
        item
          Command = ecGotoMarker3
          ShortCut = 16435
        end
        item
          Command = ecGotoMarker4
          ShortCut = 16436
        end
        item
          Command = ecGotoMarker5
          ShortCut = 16437
        end
        item
          Command = ecGotoMarker6
          ShortCut = 16438
        end
        item
          Command = ecGotoMarker7
          ShortCut = 16439
        end
        item
          Command = ecGotoMarker8
          ShortCut = 16440
        end
        item
          Command = ecGotoMarker9
          ShortCut = 16441
        end
        item
          Command = ecSetMarker0
          ShortCut = 24624
        end
        item
          Command = ecSetMarker1
          ShortCut = 24625
        end
        item
          Command = ecSetMarker2
          ShortCut = 24626
        end
        item
          Command = ecSetMarker3
          ShortCut = 24627
        end
        item
          Command = ecSetMarker4
          ShortCut = 24628
        end
        item
          Command = ecSetMarker5
          ShortCut = 24629
        end
        item
          Command = ecSetMarker6
          ShortCut = 24630
        end
        item
          Command = ecSetMarker7
          ShortCut = 24631
        end
        item
          Command = ecSetMarker8
          ShortCut = 24632
        end
        item
          Command = ecSetMarker9
          ShortCut = 24633
        end
        item
          Command = ecNormalSelect
          ShortCut = 24654
        end
        item
          Command = ecColumnSelect
          ShortCut = 24643
        end
        item
          Command = ecLineSelect
          ShortCut = 24652
        end
        item
          Command = ecMatchBracket
          ShortCut = 24642
        end>
      Options = [eoAutoIndent, eoDragDropEditing, eoDropFiles, eoGroupUndo, eoKeepCaretX, eoScrollPastEol, eoShowScrollHint, eoTabsToSpaces, eoTrimTrailingSpaces]
      RightEdge = 0
      WantTabs = True
      OnChange = MemoChange
      OnDropFiles = MemoDropFiles
      OnPaint = MemoPaint
      OnSpecialLineColors = MemoSpecialLineColors
      OnStatusChange = MemoStatusChange
    end
    object SplitPanel: TPanel
      Left = 0
      Top = 109
      Width = 361
      Height = 4
      Cursor = crSizeNS
      Align = alBottom
      BevelOuter = bvNone
      FullRepaint = False
      TabOrder = 1
      Visible = False
      OnMouseMove = SplitPanelMouseMove
    end
    object StatusPanel: TPanel
      Left = 0
      Top = 113
      Width = 361
      Height = 104
      Align = alBottom
      BevelOuter = bvNone
      FullRepaint = False
      TabOrder = 2
      Visible = False
      object SpacerPaintBox: TPaintBox
        Left = 0
        Top = 82
        Width = 361
        Height = 2
        Align = alBottom
      end
      object DebugOutputList: TListBox
        Left = 0
        Top = 0
        Width = 361
        Height = 82
        Align = alClient
        ItemHeight = 13
        PopupMenu = ListPopupMenu
        Style = lbOwnerDrawFixed
        TabOrder = 1
        Visible = False
        OnDrawItem = DebugOutputListDrawItem
      end
      object CompilerOutputList: TListBox
        Left = 0
        Top = 0
        Width = 361
        Height = 82
        Align = alClient
        ItemHeight = 13
        PopupMenu = ListPopupMenu
        TabOrder = 0
      end
      object TabSet: TNewTabSet
        Left = 0
        Top = 84
        Width = 361
        Height = 20
        Align = alBottom
        TabIndex = 0
        Tabs.Strings = (
          'Compiler Output'
          'Debug Output')
        OnClick = TabSetClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 245
    Width = 361
    Height = 20
    Panels = <
      item
        Alignment = taCenter
        Text = '   1:   1'
        Width = 64
      end
      item
        Alignment = taCenter
        Width = 64
      end
      item
        Alignment = taCenter
        Text = 'Insert'
        Width = 64
      end
      item
        Style = psOwnerDraw
        Width = 23
      end
      item
        Style = psOwnerDraw
        Width = 128
      end
      item
        Width = 50
      end>
    SimplePanel = False
    OnDrawPanel = StatusBarDrawPanel
    OnResize = StatusBarResize
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'iss'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 72
    Top = 48
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 48
    object FMenu: TMenuItem
      Caption = '&File'
      OnClick = FMenuClick
      object FNew: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = FNewClick
      end
      object FOpen: TMenuItem
        Caption = '&Open...'
        ShortCut = 16463
        OnClick = FOpenClick
      end
      object FSave: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = FSaveClick
      end
      object FSaveAs: TMenuItem
        Caption = 'Save &As...'
        OnClick = FSaveAsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FMRUSep: TMenuItem
        Caption = '-'
        Visible = False
      end
      object FExit: TMenuItem
        Caption = 'E&xit'
        OnClick = FExitClick
      end
    end
    object EMenu: TMenuItem