testメニューつけっぱなしだったので削除

diff --git a/Giko.dfm b/Giko.dfm
index 9a8a7a1..ef2bc4a 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -9162,10 +9162,6 @@ object GikoForm: TGikoForm
         Action = AboutAction
       end
     end
-    object test1: TMenuItem
-      Caption = 'test'
-      OnClick = test1Click
-    end
   end
   object BrowserPopupMenu: TPopupMenu
     Left = 68

diff --git a/Giko.pas b/Giko.pas
index 72410c0..91919a2 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -536,7 +536,6 @@ type
     SetFocusForBrowserAction: TAction;
     SetFocusForThreadListAction: TAction;
     SetFocusForCabinetAction: TAction;
-    test1: TMenuItem;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -859,7 +858,6 @@ type
     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
     procedure SetFocusForThreadListActionExecute(Sender: TObject);
     procedure SetFocusForCabinetActionExecute(Sender: TObject);
-    procedure test1Click(Sender: TObject);
        private
                { Private \90é\8c¾ }
         //RoundList : TRoundList;
@@ -10103,13 +10101,6 @@ begin
        TreeView.SetFocus;
 end;
 
-procedure TGikoForm.test1Click(Sender: TObject);
-begin
-//     FActiveContent.FBrowser.OleObject.Document.Body.Style.zoom := 1.5;
-//    newBrowser.OleObject.Document.Body.Style.zoom := 1.5;
-       BrowserNullTab.FBrowser.Navigate('http://8547.teacup.com/chigakubu/bbs/');
-end;
-
 initialization
                                OleInitialize(nil);
 finalization