网站建设费如何核算,手机网站域名解析,做网站如何不被忽悠,网站seo排名目录 一、前言
二、实现方法
1. 第一步
2. 第二步
3. 第三步
三、主程序代码
四、下载
1. 可执行程序
2. 程序源代码 一、前言 在用Delphi做日常开发的时候#xff0c;经常需要显示程序运行的日志#xff0c;一般我们会使用TMemo#xff0c;使用起来简单#xff0c…
目录 一、前言
二、实现方法
1. 第一步
2. 第二步
3. 第三步
三、主程序代码
四、下载
1. 可执行程序
2. 程序源代码 一、前言 在用Delphi做日常开发的时候经常需要显示程序运行的日志一般我们会使用TMemo使用起来简单方便。但是缺点也很明显就是只能显示单色文字字体也只能统一设置无法实现个性颜色和字体。 但是我们看大的一些系统日志则非常美观、漂亮、专业。 例如Delphi的编译日志如下 那么我们能收实现这样的日志显示框呢当然可以而且非常简单无需使用任何第三方控件使用Delphi自带的TRichEdit就可以。
二、实现方法 通过对TRichEdit进行Helper构造增加一个显示多颜色的命令即可。
1. 第一步 编写一个uTRichEdit_Helper.pas单元在该单元中增加一个Add_Color_Log方法该方法有5个参数
序号参数类别默认说明1msgstring无需要显示的消息字符串2FontColorTColorclBlack黑色字体显示的颜色3FontSizeByte9字体大小4FontStyleTFontStyles[ ]字体格式5LeftMarginByte4左边预留空格
{******************************************************** 时间2023-12-03* 作者sensor wu* 功能实现TRichEdit的彩色可编程 Log 功能** 此处为 VCLFMX不支持该控件** 说明* msg: 需要显示的消息内容* FontColor: 需要现实的颜色默认黑色* FontSize : 字体大小默认9号字体* FontStyle: 字体是否加粗、斜体等显示默认不是* LeftMargin: 左边留空格数量默认是4** 快捷用法* 1. RichEdit.Add_Color_log(编译成功#13#10, clGreen); //显示一行绿色* 2. RichEdit.Add_Color_log(编译错误:);* RichEdit.Add_Color_log(23行缺少逗号...#13#10,clRed); //显示一行编译错误: 23行缺少逗号... 前面黑色后面红色*******************************************************}
unit uTRichEdit_Helper;interface
usesVcl.Graphics, //TColorWinapi.Messages, //消息常量例如EM_SCROLLCARET ,为了减少空间可以不引该单元直接使用数字解开Winapi.Windows, //消息常量例如SB_ENDSCROLLVcl.ComCtrls;typeTRichEditHelper class helper for TRichEditpublicprocedure Add_Color_log(msg: string; FontColor : TColor clBlack; FontSize : Byte 9; FontStyle : TFontStyles []; LeftMargin: Byte 4);end;implementation{ TRichEditHelper }procedure TRichEditHelper.Add_Color_log(msg: string; FontColor: TColor;FontSize: Byte; FontStyle: TFontStyles; LeftMargin: Byte);
begin//此处省略了实现代码
end;end.2. 第二步 在主程序中引用该单元
implementationusesuTRichEdit_Helper;
3. 第三步 使用 RichEdit1.Add_Color_log(#13#10);RichEdit1.Add_Color_log(Checking project dependencies...#13#10,clBlack,9,[fsBold]);RichEdit1.Add_Color_log(Compiling RichEdit_Helper_Demo.dproj (Debug,Win32)#13#10,clBlack,9,[fsBold]);RichEdit1.Add_Color_log(brcc32 command line for RicheEdit_Helper_Demo.vrc#13#10,clBlack);RichEdit1.Add_Color_log(dcc32 command line for RicheEdit_Helper_Demo.dpr#13#10,clBlack);RichEdit1.Add_Color_log(Success#13#10,clGreen,9,[fsBold]);RichEdit1.Add_Color_log(Elapsed time: 00:00:01.2#13#10);
三、主程序代码
unit uMainForm_RichEdit;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdUDPServer, IdGlobal, IdSocketHandle,Vcl.ExtCtrls, IdUDPClient, System.ImageList, Vcl.ImgList,Vcl.VirtualImageList, Vcl.BaseImageCollection, Vcl.ImageCollection,IdBaseComponent, IdComponent, IdUDPBase, Vcl.Menus, Vcl.ExtActns,System.Actions, Vcl.ActnList, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.VirtualImage,Vcl.Buttons;typeTForm_RichEdit class(TForm)Panel_Command: TPanel;SpeedButton6: TSpeedButton;SpeedButton1: TSpeedButton;SpeedButton2: TSpeedButton;SpeedButton7: TSpeedButton;SpeedButton10: TSpeedButton;VirtualImage1: TVirtualImage;Panel_Client: TPanel;Panel_LeftCommand: TPanel;SpeedButton4: TSpeedButton;RichEdit1: TRichEdit;ActionList1: TActionList;Action_Start: TAction;Action_Stop: TAction;Action_RegService: TAction;Action_UnRegService: TAction;Action_SetParams: TAction;SendMail1: TSendMail;ImageCollection1: TImageCollection;VirtualImageList1: TVirtualImageList;procedure SpeedButton4Click(Sender: TObject);procedure Action_StartExecute(Sender: TObject);procedure Action_SetParamsExecute(Sender: TObject);procedure Action_StopExecute(Sender: TObject);procedure Action_RegServiceExecute(Sender: TObject);procedure Action_UnRegServiceExecute(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm_RichEdit: TForm_RichEdit;implementationusesuTRichEdit_Helper;{$R *.dfm}procedure TForm_RichEdit.Action_RegServiceExecute(Sender: TObject);
beginRichEdit1.Add_Color_log(Web服务端口号: );RichEdit1.Add_Color_log(8080#13#10,clBlue,9,[]);
end;procedure TForm_RichEdit.Action_SetParamsExecute(Sender: TObject);
beginRichEdit1.Add_Color_log(#13#10);RichEdit1.Add_Color_log(Checking project dependencies...#13#10,clBlack,9,[fsBold]);RichEdit1.Add_Color_log(Compiling RichEdit_Helper_Demo.dproj (Debug,Win32)#13#10,clBlack,9,[fsBold]);RichEdit1.Add_Color_log(brcc32 command line for RicheEdit_Helper_Demo.vrc#13#10,clBlack);RichEdit1.Add_Color_log(dcc32 command line for RicheEdit_Helper_Demo.dpr#13#10,clBlack);RichEdit1.Add_Color_log(Success#13#10,clGreen,9,[fsBold]);RichEdit1.Add_Color_log(Elapsed time: 00:00:01.2#13#10);
end;procedure TForm_RichEdit.Action_StartExecute(Sender: TObject);
beginRichEdit1.Add_Color_log(服务已经成功启动 (绿色)#13#10,clGreen,9,[]);
end;procedure TForm_RichEdit.Action_StopExecute(Sender: TObject);
beginRichEdit1.Add_Color_log(服务已经成功停止 (红色)#13#10,clRed,9,[]);
end;procedure TForm_RichEdit.Action_UnRegServiceExecute(Sender: TObject);
beginRichEdit1.Add_Color_log(UDP在这个端口);RichEdit1.Add_Color_log(8192,clGreen,9,[fsBold,fsItalic]);RichEdit1.Add_Color_log(收到数据);RichEdit1.Add_Color_log(( FormatDateTime(YYYY-MM-DD hh:mm:ss,Now) )#13#10,clGray,9,[]);
end;procedure TForm_RichEdit.SpeedButton4Click(Sender: TObject);
beginRichEdit1.Clear;
end;end.四、下载
1. 可执行程序 下载EXE程序
2. 程序源代码 下载源程序14.9
