actAbout implemented

diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm
index 89d94af..540f8fe 100755 (executable)
--- a/bottleclient/MainForm.dfm
+++ b/bottleclient/MainForm.dfm
@@ -846,6 +846,7 @@ object frmSender: TfrmSender
       Caption = #12496#12540#12472#12519#12531#24773#22577'(&A)...'
       Hint = #12496#12540#12472#12519#12531#24773#22577#12480#12452#12450#12525#12464#12434#34920#31034
       ImageIndex = 15
+      OnExecute = actAboutClick
     end
   end
   object mnPopUp: TPopupMenu

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index db7cf38..879c15c 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -178,7 +178,7 @@ type
     procedure actStartClick(Sender: TObject);
     procedure actStopExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure mnAboutClick(Sender: TObject);
+    procedure actAboutClick(Sender: TObject);
     procedure actExitClientExecute(Sender: TObject);
     procedure actClearExecute(Sender: TObject);
     procedure memScriptChange(Sender: TObject);
@@ -903,7 +903,7 @@ begin
       '\8fÚ\8d×\82Í\83w\83\8b\83v\82ð\82²\97\97\89º\82³\82¢\81B');
 end;
 
-procedure TfrmSender.mnAboutClick(Sender: TObject);
+procedure TfrmSender.actAboutClick(Sender: TObject);
 var Str: String;
 begin
   Str := VersionString + #13#10 + BottleDisclaimer + #13#10#13#10;