mainfrm.~dfm

Delphi插件程序示例

object MainForm: TMainForm
  Left = 192
  Top = 107
  AutoScroll = False
  Caption = #36719#20214#22823#25340#30424
  ClientHeight = 525
  ClientWidth = 784
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object slMain: TSplitter
    Left = 185
    Top = 62
    Height = 463
    Beveled = True
  end
  object PnlTitle: TPanel
    Left = 0
    Top = 0
    Width = 784
    Height = 33
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = #36719#20214#22823#25340#30424
    TabOrder = 0
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 33
    Width = 784
    Height = 29
    Caption = 'tbMain'
    TabOrder = 1
  end
  object PnlLeft: TPanel
    Left = 0
    Top = 62
    Width = 185
    Height = 463
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object tvMain: TTreeView
      Left = 0
      Top = 0
      Width = 185
      Height = 463
      Align = alClient
      AutoExpand = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Indent = 19
      ParentFont = False
      ReadOnly = True
      ShowRoot = False
      TabOrder = 0
      OnClick = tvMainClick
      Items.Data = {
        010000001D0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
        04C0E0B1F0}
    end
  end
  object PnlRight: TPanel
    Left = 188
    Top = 62
    Width = 596
    Height = 463
    Align = alClient
    BevelOuter = bvNone
    Caption = 'PnlRight'
    TabOrder = 3
    object lvMain: TListView
      Left = 0
      Top = 0
      Width = 596
      Height = 463
      Align = alClient
      Columns = <
        item
          Caption = #21517#31216
          Width = 200
        end
        item
          Caption = #21151#33021#31616#36848
          Width = 350
        end
        item
          Caption = #25554#20214#25991#20214
          MaxWidth = 1
          Width = 0
        end>
      ColumnClick = False
      FlatScrollBars = True
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = lvMainDblClick
    end
  end
end