歡迎來到Linux教程網
Linux教程網
Linux教程網
Linux教程網
您现在的位置: Linux教程網 >> UnixLinux >  >> Linux編程 >> Linux編程

Delphi中對TRichEdit控件的每一行設置不同的顏色

今天在做一個Delphi小程序,要求界面顯示出不用的日志信息用不同的顏色進行顯示,於是我就用了TRichEdit控件來實現:

代碼如下:

procedure Tfrichedit.FormCreate(Sender: TObject);
begin
  redt.Lines.Clear;
  redt.Font.Size := 12;  //設置字體大小
  redt.SelAttributes.Color := clRed;
  redt.Lines.Add('[ERROR|報盤監控參數3設置失敗!!!]');
  redt.SelAttributes.Color := clRed;
  redt.Lines.Add('[ERROR|報盤監控參數2設置失敗!!!]');
  redt.SelAttributes.Color := clRed;
  redt.Lines.Add('[ERROR|報盤監控參數1設置失敗!!!]');
  redt.SelAttributes.Color := clRed;
  redt.Lines.Add('[ERROR|報盤監控參數設置失敗!!!]');
  redt.SelAttributes.Color:=clGreen; //顏色
  redt.Lines.Add('[INFOR|報盤監控線程啟動成功!!!]');
  redt.Lines.Add('[DEBUG|報盤監控指標下載成功!!!]');
  redt.Lines.Add('[DEBUG|報盤監控指標設置成功!!!]');
  redt.SelAttributes.Color := clRed;
  redt.Lines.Add('[ERROR|報盤監控參數4設置失敗!!!]');
  redt.SelAttributes.Color := clRed;
  redt.Lines.Add('[ERROR|報盤監控參數5設置失敗!!!]');

  end;

運行結果如圖所示:

那麼大家可以根據自己的需要進行對不同的信息設置不同的顏色。

好了,今天的TRichEdit就講到這裡。

Copyright © Linux教程網 All Rights Reserved