unit1.~dfm

本代码用于看电子书 文件 望大家共享

object Form1: TForm1
  Left = 283
  Top = 281
  Width = 699
  Height = 500
  Caption = 'Form1'
  Color = clCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 0
    Top = 0
    Width = 689
    Height = 433
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object OpenDialog1: TOpenDialog
    Left = 32
    Top = 64
  end
  object SaveDialog1: TSaveDialog
    Left = 64
    Top = 64
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 64
    object N1: TMenuItem
      Caption = #25991#20214
      object N4: TMenuItem
        Caption = #25171#24320
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #26032#24314
        OnClick = N5Click
      end
      object N13: TMenuItem
        Caption = #20445#23384
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #21478#23384#20026
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = #36864#20986
        OnClick = N15Click
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object N3: TMenuItem
        Caption = #31896#36148
        OnClick = N3Click
      end
      object N7: TMenuItem
        Caption = #22797#21046
        OnClick = N7Click
      end
      object N12: TMenuItem
        Caption = #21098#20999
        OnClick = N12Click
      end
      object N17: TMenuItem
        Caption = #26597#25214
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = #26367#25442
        OnClick = N18Click
      end
    end
    object N6: TMenuItem
      Caption = #26684#24335
      object N8: TMenuItem
        Caption = #23383#20307
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #39068#33394
        OnClick = N9Click
      end
    end
    object N10: TMenuItem
      Caption = #32972#26223
      OnClick = N10Click
    end
    object N16: TMenuItem
      Caption = #25171#21360
    end
    object N19: TMenuItem
      Caption = #24110#21161
      object N1231: TMenuItem
        Caption = #20851#20110
        OnClick = N1231Click
      end
    end
  end
  object ColorDialog1: TColorDialog
    Color = 33023
    CustomColors.Strings = (
      'ColorA=FFFFFFFF'
      'ColorB=FFFFFFFF'
      'ColorC=FFFFFFFF'
      'ColorD=FFFFFFFF'
      'ColorE=FFFFFFFF'
      'ColorF=FFFFFFFF'
      'ColorG=FFFFFFFF'
      'ColorH=FFFFFFFF'
      'ColorI=FFFFFFFF'
      'ColorJ=FFFFFFFF'
      'ColorK=FFFFFFFF'
      'ColorL=FFFFFFFF'
      'ColorM=FFFFFFFF'
      'ColorN=FFFFFFFF'
      'ColorO=FFFFFFFF'
      'ColorP=FFFFFFFF')
    Left = 88
    Top = 64
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 112
    Top = 64
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 136
    Top = 64
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = ReplaceDialog1Find
    OnReplace = ReplaceDialog1Replace
    Left = 160
    Top = 64
  end
end