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/fsspeedbutton.pas | 96 ++++++++++++++++++++++++------------------------
 1 file changed, 48 insertions(+), 48 deletions(-)

(limited to 'Source/fsspeedbutton.pas')

diff --git a/Source/fsspeedbutton.pas b/Source/fsspeedbutton.pas
index da3d53a..d680a19 100644
--- a/Source/fsspeedbutton.pas
+++ b/Source/fsspeedbutton.pas
@@ -1,48 +1,48 @@
-unit fsspeedbutton;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Buttons;
-
-type
-  TFSSpeedButton = class(TSpeedButton)
-  private
-    { Private declarations }
-    procedure MyOnClick(Sender: TObject);
-  protected
-    { Protected declarations }
-  public
-    { Public declarations }
-    Receivename: String;
-    constructor Create(AOwner: TComponent); override;
-  published
-    { Published declarations }
-  end;
-
-procedure Register;
-
-implementation
-
-uses
-  mainunit;
-
-procedure Register;
-begin
-end;
-
-{ TFSSpeedButton }
-
-constructor TFSSpeedButton.Create(AOwner: TComponent);
-begin
-  inherited;
-  OnClick := MyOnClick;
-end;
-
-procedure TFSSpeedButton.MyOnClick(Sender: TObject);
-begin
-  main.SendReturnValues(Receivename+'=1');
-end;
-
-end.
+unit fsspeedbutton;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  Buttons;
+
+type
+  TFSSpeedButton = class(TSpeedButton)
+  private
+    { Private declarations }
+    procedure MyOnClick(Sender: TObject);
+  protected
+    { Protected declarations }
+  public
+    { Public declarations }
+    Receivename: String;
+    constructor Create(AOwner: TComponent); override;
+  published
+    { Published declarations }
+  end;
+
+procedure Register;
+
+implementation
+
+uses
+  mainunit;
+
+procedure Register;
+begin
+end;
+
+{ TFSSpeedButton }
+
+constructor TFSSpeedButton.Create(AOwner: TComponent);
+begin
+  inherited;
+  OnClick := MyOnClick;
+end;
+
+procedure TFSSpeedButton.MyOnClick(Sender: TObject);
+begin
+  main.SendReturnValues(Receivename+'=1');
+end;
+
+end.
-- 
cgit v1.2.1