diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-07-06 17:50:18 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-07-06 17:50:18 +0000 |
commit | 4d64e4cd434426234a5c313c151cd79b6afc299e (patch) | |
tree | 5c23dd6acc65b869741d3bb9d33912d74bb7407d /Source/logunit.pas |
*** empty log message ***svn2git-root
svn path=/trunk/Framestein/; revision=27
Diffstat (limited to 'Source/logunit.pas')
-rw-r--r-- | Source/logunit.pas | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/Source/logunit.pas b/Source/logunit.pas new file mode 100644 index 0000000..187684f --- /dev/null +++ b/Source/logunit.pas @@ -0,0 +1,60 @@ +unit logunit; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ComCtrls, ExtCtrls; + +type + Tlog = class(TForm) + PanelLog: TPanel; + Panel2: TPanel; + ButtonClear: TButton; + RELog: TRichEdit; + PanelConsole: TPanel; + Panel1: TPanel; + Panel3: TPanel; + ButtonClose: TButton; + procedure ButtonClearClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ButtonCloseClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + procedure add(const s: String); + end; + +var + log: Tlog; + +implementation + +uses mainunit; + +{$R *.DFM} + +procedure Tlog.add(const s: String); +begin + RELog.Lines.Add(s); +end; + +procedure Tlog.ButtonCloseClick(Sender: TObject); +begin + main.MiLog.Click; +end; + +procedure Tlog.ButtonClearClick(Sender: TObject); +begin + main.REConsole.Lines.Clear; + RELog.Lines.Clear; +end; + +procedure Tlog.FormCreate(Sender: TObject); +begin + main.REConsole.Parent := PanelConsole; + main.REConsole.Align := alClient; +end; + +end. |