27 lines
690 B
ObjectPascal
27 lines
690 B
ObjectPascal
/// sample program able to visualize .log files as created by TSynLog
|
|
program LogView;
|
|
|
|
{ Revision History:
|
|
|
|
Version 1.18
|
|
- Introducing thread identification
|
|
- Added "Search Previous" button
|
|
- Incremental search will now remain on the same line if it matches the entry
|
|
- "Server Launch" button allow the tool to run as a HTTP server, ready to
|
|
display remote logs, echoed from mORMot HTTP clients
|
|
|
|
}
|
|
uses
|
|
{$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads
|
|
Forms,
|
|
LogViewMain in 'LogViewMain.pas' {MainLogView};
|
|
|
|
{$R *.res}
|
|
{$R Vista.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TMainLogView, MainLogView);
|
|
Application.Run;
|
|
end.
|