*** empty log message ***svn2git-root

svn path=/trunk/Framestein/; revision=27

1 files changed, 48 insertions, 0 deletions

diff --git a/Source/fsspeedbutton.pas b/Source/fsspeedbutton.pas
new file mode 100644
index 0000000..da3d53a
--- /dev/null
+++ b/Source/fsspeedbutton.pas
@@ -0,0 +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.