testunit1.dfm

Delphi中一直都没有能快速显示彩色文字信息的Memo控件而TRichEdit慢得无法在需要高速的场合使用

object Form1: TForm1
  Left = 259
  Top = 692
  Width = 493
  Height = 319
  Caption = 'Form1'
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 256
    Width = 485
    Height = 29
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
    object Button1: TButton
      Left = 4
      Top = 2
      Width = 75
      Height = 25
      Caption = 'Test'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object InfoMemo1: TInfoMemo
    Left = 0
    Top = 0
    Width = 485
    Height = 256
    ScrollBars = ssBoth
    Bitmapped = False
    ReadOnly = True
    Lines.Strings = (
      #20351#29992#27880#24847#20107#39033#65306
      #21482#33021#22312#21482#35835#23646#24615'ReadOnly'#20026#30495#30340#24773#20917#19979#25165#21487#20351#29992#24425#33394#25991#26412#21151#33021#65292#25991#26412#33394#24425#31561#23646#24615#20351#29992
      'SetLineAttribute'#25110#32773'SetLineAttributeEx'#20989#25968#36827#34892#35774#32622#65292#20854#20013'SetLineAttributeEx'
      #20250#26681#25454#21452#23383#33410#23383#31526#35843#25972#25991#23383#23646#24615#30340#36215#22987#21644#32467#26463#33539#22260#65292#27492#32452#20214#29992#20110#38656#35201#26174#31034#24425#33394#25991#23383#20449
      #24687#30340#36719#20214#12290
      
        '----------------------------------------------------------------' +
        '----------'
      '')
    AlwaysShowCaret = False
    LeftMargin = 2
    TopMargin = 0
    TabSize = 2
    Align = alClient
    Color = clWindow
    Constraints.MinHeight = 38
    Constraints.MinWidth = 32
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
  end
end