unit1.dfm

秘密阅读工具

object Form1: TForm1
  Left = 376
  Top = 371
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 68
  ClientWidth = 295
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 274
    Height = 68
    Align = alClient
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 0
    object RichEdit1: TRichEdit
      Left = 0
      Top = 0
      Width = 274
      Height = 68
      Align = alClient
      BorderStyle = bsNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clSilver
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnKeyDown = RichEdit1KeyDown
      OnMouseWheel = RichEdit1MouseWheel
    end
    object RichEdit2: TRichEdit
      Left = 0
      Top = 0
      Width = 274
      Height = 68
      Align = alClient
      BorderStyle = bsNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Book Antiqua'
      Font.Style = []
      Lines.Strings = (
        '//-----------'
        '//for i:=0 to Treeview1.items.count-1 '
        'do'
        '//  begin //'#25913#21464#33410#28857#21517#31216
        '//    Treeview1.item[i].text:=StrText;'
        '//    Treeview1.item[i].data:=PData;'
        '//  end;')
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 1
      OnKeyDown = RichEdit2KeyDown
      OnMouseWheel = RichEdit2MouseWheel
    end
    object mmo1: TMemo
      Left = 216
      Top = 48
      Width = 57
      Height = 17
      Lines.Strings = (
        'mmo1')
      ScrollBars = ssBoth
      TabOrder = 2
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 274
    Top = 0
    Width = 21
    Height = 68
    Align = alRight
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 1
    OnDblClick = Panel2DblClick
    OnMouseDown = Panel2MouseDown
    OnMouseMove = Panel2MouseMove
    OnMouseUp = Panel2MouseUp
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 72
    Top = 14
  end
  object PopupMenu1: TPopupMenu
    Left = 104
    Top = 6
    object N3: TMenuItem
      Caption = #31896#36148
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #21024#38500
      OnClick = N4Click
    end
    object N1: TMenuItem
      Caption = #23383#20307
      OnClick = N1Click
    end
    object N5: TMenuItem
      Caption = #32534#36753
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21482#35835
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #20070#31614
      OnClick = N7Click
      object u1: TMenuItem
        Tag = 1
        Caption = #20070#31614'1'
        OnClick = u1Click
      end
      object N12: TMenuItem
        Tag = 2
        Caption = #20070#31614'2'
        OnClick = u1Click
      end
      object N17: TMenuItem
        Tag = 3
        Caption = #20070#31614'3'
        OnClick = u1Click
      end
      object N18: TMenuItem
        Tag = 4
        Caption = #20070#31614'4'
        OnClick = u1Click
      end
      object N19: TMenuItem
        Tag = 5
        Caption = #20070#31614'5'
        OnClick = u1Click
      end
    end
    object N22: TMenuItem
      Caption = #23450#20301
      OnClick = N22Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Caption = #23384#20020#26102#25991#20214
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = #35835#20020#26102#25991#20214
      OnClick = N10Click
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object N8: TMenuItem
      Caption = #20445#23384#25991#20214
      OnClick = N8Click
    end
    object N20: TMenuItem
      Caption = #35835#21462#25991#20214
      OnClick = N20Click
    end
    object N21: TMenuItem
      Caption = '-'
    end
    object N14: TMenuItem
      Caption = #30417#35270#21098#36148#26495