main.dfm

一个很不错的系统信息控件

object wnd_dm_Main: Twnd_dm_Main
  Left = 0
  Top = 0
  Anchors = [akLeft, akBottom]
  Caption = 'Device Monitor'
  ClientHeight = 404
  ClientWidth = 600
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Box: TListBox
    Left = 11
    Top = 8
    Width = 578
    Height = 349
    Style = lbOwnerDrawVariable
    Anchors = [akLeft, akTop, akRight, akBottom]
    ItemHeight = 15
    TabOrder = 0
    OnDblClick = BoxDblClick
    OnDrawItem = BoxDrawItem
  end
  object Button1: TButton
    Left = 514
    Top = 368
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Close'
    Default = True
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 11
    Top = 368
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Save...'
    TabOrder = 1
    OnClick = Button2Click
  end
  object cbxAll: TCheckBox
    Left = 370
    Top = 372
    Width = 130
    Height = 17
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Capture all messages'
    TabOrder = 5
  end
  object Button3: TButton
    Left = 92
    Top = 368
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Clear'
    TabOrder = 2
    OnClick = Button3Click
  end
  object cbxACtive: TCheckBox
    Left = 194
    Top = 372
    Width = 55
    Height = 17
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Active'
    Checked = True
    State = cbChecked
    TabOrder = 3
    OnClick = cbxACtiveClick
  end
  object cbxUSB: TCheckBox
    Left = 263
    Top = 372
    Width = 82
    Height = 17
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Log only USB'
    Checked = True
    State = cbChecked
    TabOrder = 4
  end
  object DeviceMonitor: TMiTeC_DeviceMonitor
    Active = True
    OnMessage = DeviceMonitorMessage
    OnDeviceConnect = DeviceMonitorDeviceConnect
    OnDeviceDisconect = DeviceMonitorDeviceDisconect
    OnVolumeConnect = DeviceMonitorVolumeConnect
    OnVolumeDisconnect = DeviceMonitorVolumeDisconnect
    Left = 174
    Top = 148
  end
  object sd: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 241
    Top = 146
  end
end