Showing FMO Explorer

diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm
index c97342d..26bcba8 100755 (executable)
--- a/bottleclient/MainForm.dfm
+++ b/bottleclient/MainForm.dfm
@@ -475,12 +475,6 @@ object frmSender: TfrmSender
       Hint = #12377#12409#12390#12434#36984#25246
       ShortCut = 16449
     end
-    object actTrans: TAction
-      Caption = #36865#20449#26178#24418#24335#12395#22793#25563
-      Hint = #12473#12463#12522#12503#12488#12434#36865#20449#26178#24418#24335#12395#22793#25563
-      ImageIndex = 6
-      ShortCut = 16468
-    end
     object actStart: TAction
       Caption = #12481#12515#12531#12493#12523#21442#21152'(&S)'
       Hint = #12481#12515#12531#12493#12523#21442#21152'|SSTP Bottle'#12469#12540#12496#12395#25509#32154#12375#12289#12481#12515#12531#12493#12523#12395#21442#21152
@@ -619,8 +613,8 @@ object frmSender: TfrmSender
     end
     object actFMOExplorer: TAction
       Caption = 'FMO'#12456#12463#12473#12503#12525#12540#12521
-      Enabled = False
       ImageIndex = 6
+      OnExecute = actFMOExplorerExecute
     end
   end
   object mnPopUp: TPopupMenu

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 5537885..0f90431 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -35,7 +35,6 @@ type
     mnPopCut: TMenuItem;
     mnPopCopy: TMenuItem;
     mnPopSelectAll: TMenuItem;
-    actTrans: TAction;
     N6: TMenuItem;
     mnPopConst: TMenuItem;
     mnEdit: TMenuItem;
@@ -223,6 +222,7 @@ type
     procedure timDisconnectCheckTimerTimer(Sender: TObject);
     procedure actDownloadLogExecute(Sender: TObject);
     procedure cbxTargetGhostChange(Sender: TObject);
+    procedure actFMOExplorerExecute(Sender: TObject);
   private
     FSleeping: boolean;
     FStatusText: String;
@@ -320,7 +320,7 @@ function Token(const Str: String; const Delimiter: char;
 implementation
 
 uses SendConfirm, SettingForm, ChannelListForm, LogForm,
-  MessageBox;
+  MessageBox, FMOExplorer;
 
 {$R *.DFM}
 
@@ -2324,4 +2324,9 @@ begin
   end;
 end;
 
+procedure TfrmSender.actFMOExplorerExecute(Sender: TObject);
+begin
+  frmFMOExplorer.Show;
+end;
+
 end.