mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-02 03:12:37 +02:00
49 lines
901 B
ObjectPascal
49 lines
901 B
ObjectPascal
unit frmlazreportimportlog;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, StdCtrls, reportdesignbaseforms;
|
|
|
|
type
|
|
|
|
{ TReportImportLogForm }
|
|
TForm = Class(TBaseImportReportForm);
|
|
|
|
TReportImportLogForm = class(TForm)
|
|
ButtonPanel1: TButtonPanel;
|
|
MLog: TMemo;
|
|
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
private
|
|
|
|
public
|
|
Procedure Log(Const Msg : String); override;
|
|
end;
|
|
|
|
var
|
|
ReportImportLogForm: TReportImportLogForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TReportImportLogForm }
|
|
|
|
procedure TReportImportLogForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
begin
|
|
CloseAction:=caFree;
|
|
end;
|
|
|
|
procedure TReportImportLogForm.Log(Const Msg : String);
|
|
begin
|
|
MLog.Lines.Add(Msg);
|
|
Application.ProcessMessages;
|
|
end;
|
|
|
|
initialization
|
|
ReportImportFormClass:=TReportImportLogForm;
|
|
end.
|
|
|