viewer.dfm

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

object mdi_wmie_Viewer: Tmdi_wmie_Viewer
  Left = 0
  Top = 0
  Caption = 'mdi_wmie_Viewer'
  ClientHeight = 397
  ClientWidth = 573
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  OldCreateOrder = False
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 221
    Top = 0
    Height = 397
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 221
    Height = 397
    Align = alLeft
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = ' '
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 0
      Top = 266
      Width = 217
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object TreeHeader: TPanel
      Left = 0
      Top = 0
      Width = 217
      Height = 18
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = 'Classes in namespace'
      Color = clGray
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 0
      Top = 269
      Width = 217
      Height = 124
      Align = alBottom
      BevelOuter = bvNone
      Caption = ' '
      TabOrder = 1
      object ListHeader: TPanel
        Left = 0
        Top = 0
        Width = 217
        Height = 18
        Align = alTop
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = 'Class properties'
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object List: TListView
        Left = 0
        Top = 18
        Width = 217
        Height = 106
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = 'Name'
            Width = 100
          end
          item
            Caption = 'Type'
            Width = 100
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        SortType = stText
        TabOrder = 1
        ViewStyle = vsReport
      end
    end
    object pc: TPageControl
      Left = 0
      Top = 18
      Width = 217
      Height = 248
      Cursor = crHandPoint
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = ' All'
        object Tree: TTreeView
          Left = 0
          Top = 0
          Width = 209
          Height = 220
          Align = alClient
          HideSelection = False
          Images = ImageList1
          Indent = 19
          SortType = stText
          TabOrder = 0
          OnChange = TreeChange
          OnDblClick = TreeDblClick
        end
      end
      object TabSheet2: TTabSheet
        Caption = ' Favorites '
        ImageIndex = 1
        object FavList: TListView
          Left = 0
          Top = 0
          Width = 209
          Height = 220
          Align = alClient
          Columns = <
            item
              AutoSize = True
            end>
          ColumnClick = False
          HideSelection = False
          ReadOnly = True
          RowSelect = True
          ShowColumnHeaders = False
          SmallImages = ImageList1
          SortType = stText
          TabOrder = 0
          ViewStyle = vsReport
          OnChange = FavListChange
          OnDblClick = FavListDblClick
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 224
    Top = 0
    Width = 349
    Height = 397
    Align = alClient
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 1
    object Splitter3: TSplitter
      Left = 0
      Top = 126
      Width = 349
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object Editor: TMemo
      Left = 0
      Top = 18
      Width = 349
      Height = 108
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      WordWrap = False
    end
    object sg: TStringGrid
      Left = 0
      Top = 129
      Width = 349
      Height = 268
      Align = alClient
      Color = clInfoBk
      ColCount = 2
      DefaultColWidth = 150
      DefaultRowHeight = 16
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing, goThumbTracking]
      TabOrder = 1
    end
    object WQLHeader: TPanel
      Left = 0
      Top = 0
      Width = 349
      Height = 18
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = '  WQL'
      Color = clGray
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnDblClick = acExecuteExecute
      object Image1: TImage
        Left = 326
        Top = 0
        Width = 23
        Height = 18
        Cursor = crHandPoint
        Hint = 'Execute'
        Align = alRight
        Center = True
        ParentShowHint = False