unit_main.dfm

电子阅读器,适合处学者使用和学习.有意见联系我 .

    object StatusBar1: TStatusBar
      Left = 1
      Top = 441
      Width = 554
      Height = 16
      Panels = <
        item
          Width = 350
        end
        item
          Width = 100
        end
        item
          Width = 100
        end>
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 554
      Height = 29
      ButtonHeight = 25
      ButtonWidth = 25
      Caption = 'ToolBar1'
      Images = Image_Toolbar
      TabOrder = 1
      object Com_Front: TComboBox
        Left = 0
        Top = 4
        Width = 153
        Height = 20
        ImeName = #32043#20809#21326#23431#25340#38899'V5'
        ItemHeight = 12
        TabOrder = 0
        Text = 'Com_Front'
        OnChange = Com_FrontChange
      end
      object Com_Size: TComboBox
        Left = 153
        Top = 4
        Width = 73
        Height = 20
        ImeName = #32043#20809#21326#23431#25340#38899'V5'
        ItemHeight = 12
        TabOrder = 1
        Text = '10'
        OnChange = Com_SizeChange
        Items.Strings = (
          '8'
          '9'
          '10'
          '11'
          '12'
          '13'
          '14'
          '16'
          '18'
          '20'
          '22'
          '24'
          '26'
          '28'
          '36'
          '48'
          '72')
      end
      object ToolButton1: TToolButton
        Left = 226
        Top = 2
        Width = 8
        Caption = 'ToolButton1'
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 234
        Top = 2
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object TB: TToolButton
        Left = 242
        Top = 2
        Caption = 'B'
        ImageIndex = 0
        OnClick = TBClick
      end
      object TI: TToolButton
        Left = 267
        Top = 2
        Caption = 'TI'
        ImageIndex = 1
        OnClick = TIClick
      end
      object TU: TToolButton
        Left = 292
        Top = 2
        Caption = #24110#21161#20027#39064'(&H)'
        ImageIndex = 2
        OnClick = TUClick
      end
      object ToolButton6: TToolButton
        Left = 317
        Top = 2
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 325
        Top = 2
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 333
        Top = 2
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 341
        Top = 2
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton10: TToolButton
        Left = 349
        Top = 2
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object B_Bcolors: TBitBtn
        Left = 357
        Top = 2
        Width = 25
        Height = 25
        TabOrder = 2
        OnClick = B_BcolorsClick
        Glyph.Data = {
          42030000424D42030000000000003600000028000000110000000F0000000100
          1800000000000C03000000000000000000000000000000000000C8D0D4C8D0D4
          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
          D4C8D0D4C8D0D4C8D0D4C8D0D400C8D0D4C8D0D4000000C8D0D4C8D0D4C8D0D4
          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
          D400C8D0D4000000000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D400C8D0D4000000000000C8
          D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000BFBF00BFBF00000000C8D0D4C8D0D4
          C8D0D4C8D0D4C8D0D400000000000000000000C8D0D4C8D0D4C8D0D4C8D0D400
          0000000000000000BFBF00BFBF00000000C8D0D4C8D0D4C8D0D4C8D0D4000000
          00000000000000C8D0D4C8D0D4C8D0D4000000000000000000000000000000BF
          BF00BFBF00000000C8D0D4C8D0D4C8D0D400000000000000000000C8D0D4C8D0
          D4000000BFBF00000000000000000000000000000000BFBF00BFBF00000000C8
          D0D4C8D0D400000000000000000000C8D0D4C8D0D4000000BFBF00BFBF000000
          00000000000000000000000000BFBF00BFBF00000000C8D0D400000000000000
          C0C0C0000000000000BFBF00000000BFBF00BFBF000000000000000000000000
          00000000BFBF00000000C8D0D400000000000000C0C0C0000000BFBF00BFBF00
          BFBF00BFBF00BFBF00BFBF00000000000000000000000000000000C8D0D4C8D0
          D400000000000000000000C0C0C0000000BFBF00BFBF00BFBF00BFBF00BFBF00
          BFBF00000000000000000000C8D0D4C8D0D4C8D0D400C8D0D400000000000000
          0000C0C0C0000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000C8D0D4
          C8D0D4C8D0D4C8D0D400C8D0D4C8D0D4000000000000000000C8D0D4000000FF
          FFFFFFFFFFFFFFFF000000000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D400C8D0
          D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000FFFFFF000000C8D0D4C8
          D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D400C8D0D4C8D0D4C8D0D4C8D0D4C8D0
          D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
          D0D4C8D0D400}
      end
      object B_Colors: TBitBtn
        Left = 382
        Top = 2
        Width = 25
        Height = 25
        TabOrder = 3
        OnClick = B_ColorsClick
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
          000000000000FF00FF00000000000000000000000000FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
          0000FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
          000000000000000000000000000000000000FF00FF0000000000000000000000
          00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF0000000000FF00FF0000000000FF00FF000000000000FFFF00FFFFFF0000FF
          FF00FFFFFF0000FFFF000000000000000000FF00FF00FF00FF00FF00FF00FF00
          FF00000000000000000000000000FF00FF0000000000FF00FF0000000000FF00
          FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FF00FF00FF00FF00FF00
          FF00FF00FF0000000000FF00FF00FF00FF00FF00FF0000000000FFFF00000000
          0000FF00FF0000000000FF00FF0000FFFF0000000000FF00FF00FF00FF00FF00
          FF00FF00FF0000000000FF00FF00FF00FF0000000000FF00FF0000000000FF00
          FF00000000000000FF0000000000FFFFFF0000FFFF0000000000FF00FF00FF00
          FF00FF00FF00FF00FF0000000000000000000000000000FFFF00FFFFFF0000FF
          FF00FF00FF0000000000FF00FF0000FFFF00FFFFFF0000000000FF00FF00FF00
          FF00FF00FF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
          FF0000FFFF00FF00FF0000000000FF00FF0000FFFF0000000000FF00FF00FF00
          FF00FF00FF0000000000FFFFFF00FF00FF0000000000FF00FF00FFFFFF0000FF
          FF00FFFFFF0000000000FF00FF0000000000FFFFFF0000000000FF00FF00FF00
          FF00FF00FF000000000000FFFF00000000008000800000000000FF00FF000000
          0000FF00FF00FF00FF0000000000FF00FF0000FFFF0000000000FF00FF00FF00
          FF00FF00FF0000000000FFFFFF00FF00FF0000000000FF00FF0000000000FF00
          FF000000000000FFFF00FFFFFF0000FFFF0000000000FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF0000000000FFFFFF0000FFFF00FFFFFF00FF00FF000000
          0000FF00FF00FFFFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00000000000000000000FFFF00FFFFFF0000FF
          FF00FFFFFF000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
          000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      end
    end
    object MainText: TRichEdit2
      Left = 1
      Top = 50
      Width = 554
      Height = 391
      Align = alClient
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      HideSelection = False
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 2
      WantTabs = True
      OnMouseUp = MainTextMouseUp
      OnSelectionChange = MainTextSelectionChange
      HorRuler = HorRuler1
      AutoURLDetect = False
    end
    object HorRuler1: THorRuler
      Left = 1
      Top = 30
      Width = 554
      Height = 20
      Align = alTop
      Enabled = False
      Options = [roShowTabStops, roUseIntervalls, roDrawIndentLine]
      TextAreaColor = clWhite
      LabelColor = clBlack
      RulerTop = 4
      RulerWidth = 12
      RulerUnit = ruCentimeter
      DrawOptions = [doShowNumbers, doShowLines]
    end
    object PopupColors: TPopupPanel