From fe070b42d2ddea9ec14bb186b6cc0b6d11b490c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Tue, 3 Jun 2003 20:46:51 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=675
---
 Source/logunit.pas | 120 ++++++++++++++++++++++++++---------------------------
 1 file changed, 60 insertions(+), 60 deletions(-)

(limited to 'Source/logunit.pas')

diff --git a/Source/logunit.pas b/Source/logunit.pas
index 187684f..5357b08 100644
--- a/Source/logunit.pas
+++ b/Source/logunit.pas
@@ -1,60 +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.
+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.
-- 
cgit v1.2.1