diff options
Diffstat (limited to 'Source/fsspeedbutton.pas')
-rw-r--r-- | Source/fsspeedbutton.pas | 96 |
1 files changed, 48 insertions, 48 deletions
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.
|