terminal.~dfm

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

object DebugMsgForm: TDebugMsgForm
  Left = 47
  Top = 33
  Width = 582
  Height = 374
  Caption = '调试终端'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 574
    Height = 29
    BorderWidth = 1
    ButtonHeight = 23
    ButtonWidth = 25
    Caption = 'ToolBar'
    Flat = True
    Images = ImageList
    Indent = 5
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object cmdNew: TToolButton
      Left = 5
      Top = 0
      Action = ActionNew
    end
    object cmdOpen: TToolButton
      Left = 30
      Top = 0
      Action = ActionOpen
    end
    object cmdSave: TToolButton
      Left = 55
      Top = 0
      Action = ActionSave
    end
    object Toolbar0: TToolButton
      Left = 80
      Top = 0
      Width = 8
      Caption = 'Toolbar0'
      Style = tbsDivider
    end
    object cmdClear: TToolButton
      Left = 88
      Top = 0
      Action = ActionCut
    end
    object cmdCopy: TToolButton
      Left = 113
      Top = 0
      Action = ActionCopy
    end
    object cmdPaste: TToolButton
      Left = 138
      Top = 0
      Action = ActionPaste
    end
    object Toolbar1: TToolButton
      Left = 163
      Top = 0
      Width = 8
      Caption = 'Toolbar1'
      ImageIndex = 1
      Style = tbsDivider
    end
    object cmdListen: TToolButton
      Left = 171
      Top = 0
      Action = ActionListen
    end
    object cmdTray: TToolButton
      Left = 196
      Top = 0
      Action = ActionTray
    end
    object Toolbar2: TToolButton
      Left = 221
      Top = 0
      Width = 8
      Caption = 'Toolbar2'
      ImageIndex = 0
      Style = tbsDivider
    end
    object cmdAbout: TToolButton
      Left = 229
      Top = 0
      Action = ActionAbout
    end
  end
  object lvMessage: TListView
    Left = 0
    Top = 29
    Width = 574
    Height = 280
    Align = alClient
    Color = clWhite
    Columns = <
      item
        Caption = '序号'
        Width = 70
      end
      item
        Caption = '计数'
        Width = 100
      end
      item
        Caption = '时间'
        Width = 100
      end
      item
        Caption = '消息'
        Width = 500
      end>
    GridLines = True
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = lvMessageDblClick
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 309
    Width = 574
    Height = 19
    Hint = '关于本程序'
    Panels = <>
    SimplePanel = True
    OnClick = ActionAboutExecute
  end
  object mnuMain: TMainMenu
    Images = ImageList
    Left = 64
    Top = 88
    object mnuFile: TMenuItem
      Caption = '文件(&F)'
      object mnuNew: TMenuItem
        Action = ActionNew
      end
      object mnuOpen: TMenuItem
        Action = ActionOpen
      end
      object mnuSave: TMenuItem
        Action = ActionSave
      end
      object mnuSaveAs: TMenuItem
        Action = ActionSaveAs
      end
      object mnuFileBar0: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Action = ActionExit
      end
    end
    object mnuOperate: TMenuItem
      Caption = '操作(&O)'
      object mnuClear: TMenuItem
        Action = ActionCut
      end
      object mnuCopy: TMenuItem
        Action = ActionCopy
      end
      object mnuPaste: TMenuItem
        Action = ActionPaste
      end
      object mnuOperateBar0: TMenuItem
        Caption = '-'
      end
      object C1: TMenuItem
        Action = ActionClear
      end
      object mnuSelectAll: TMenuItem
        Action = ActionSelectAll
      end
      object mnuOperateBar1: TMenuItem
        Caption = '-'
      end
      object mnuListen: TMenuItem
        Action = ActionListen
      end
      object mnuTray: TMenuItem
        Action = ActionTray
        Caption = '隐藏(&T)'
      end
    end
    object mnuHelp: TMenuItem
      Caption = '帮助(&H)'
      object mnuAbout: TMenuItem
        Action = ActionAbout
      end
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'txt'
    Filter = '文本文件 (*.txt)|*.txt'
    Left = 32
    Top = 56
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'txt'
    Filter = '文本文件 (*.txt)|*.txt'
    Left = 64
    Top = 56
  end
  object ActionList: TActionList
    Images = ImageList
    Left = 32
    Top = 88
    object ActionNew: TAction
      Caption = '新建(&N)'
      Hint = '创建新窗口'
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = ActionNewExecute
    end
    object ActionOpen: TAction
      Caption = '打开(&O)'
      Hint = '打开调试日志'
      ImageIndex = 1
      ShortCut = 16463
      OnExecute = ActionOpenExecute
    end
    object ActionSave: TAction
      Caption = '保存(&S)'
      Hint = '保存调试日志'
      ImageIndex = 2
      ShortCut = 16467
      OnExecute = ActionSaveExecute
    end
    object ActionSaveAs: TAction
      Caption = '另存为(&A)...'
      Hint = '另存调试日志'
      OnExecute = ActionSaveAsExecute
    end
    object ActionExit: TAction
      Caption = '退出(&X)'
      Hint = '退出程序'
      OnExecute = ActionExitExecute
    end
    object ActionCopy: TAction
      Caption = '复制(&C)'
      Hint = '复制到剪贴板'
      ImageIndex = 3
      ShortCut = 16451
      OnExecute = ActionCopyExecute
    end
    object ActionCut: TAction
      Caption = '剪切(&C)'
      Hint = '剪切到剪贴板'
      ImageIndex = 4
      ShortCut = 16472
      OnExecute = ActionCutExecute
    end
    object ActionPaste: TAction
      Caption = '粘贴(&P)'
      Hint = '从剪贴板粘贴'
      ImageIndex = 8
      ShortCut = 16470
      OnExecute = ActionPasteExecute
    end
    object ActionSelectAll: TAction
      Caption = '全选(&A)'
      Hint = '选择所有项目'
      ShortCut = 16449
      OnExecute = ActionSelectAllExecute
    end
    object ActionClear: TAction
      Caption = '清除(&L)'
      Hint = '清除调试信息'
      ShortCut = 115
      OnExecute = ActionClearExecute
    end
    object ActionListen: TAction
      Caption = '监听(&L)'
      Checked = True
      Hint = '监听调试'
      ImageIndex = 5
      ShortCut = 113
      OnExecute = ActionListenExecute
    end
    object ActionTray: TAction
      Caption = '图标(&T)'
      Hint = '隐藏终端'
      ImageIndex = 6
      ShortCut = 114
      OnExecute = ActionTrayExecute
    end
    object ActionAbout: TAction
      Caption = '关于(&A)'
      Hint = '关于本程序'
      ImageIndex = 7