使ってない変数の削除等

diff --git a/Editor.pas b/Editor.pas
index 8549d42..434616e 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1888,10 +1888,6 @@ end;
 
 procedure TEditorForm.CalcCapasityActionExecute(Sender: TObject);
 var
-       SessionID: string;
-       s: string;
-       SendTime: Integer;
-       Adjust: Integer;
        Board: TBoard;
        body: String;
 begin

diff --git a/Giko.dfm b/Giko.dfm
index b4ad813..6341aa0 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -2995,7 +2995,7 @@ object GikoForm: TGikoForm
     Left = 4
     Top = 244
     Bitmap = {
-      494C010135003600040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010135003600040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000040000000E000000001001000000000000070
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -3951,13 +3951,14 @@ object GikoForm: TGikoForm
       00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
       000000000000861F800000000000C20FC00100000000E007F81F00000000F043
       F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
-      F81FE0FFE007FFFFF83FFFFFF81FFFFF}
+      F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
+      000000000000}
   end
   object ToobarImageList: TImageList
     Left = 36
     Top = 244
     Bitmap = {
-      494C010135003600040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010135003600040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000040000000E000000001001000000000000070
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -4913,7 +4914,8 @@ object GikoForm: TGikoForm
       00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
       000000000000861F800000000000C20FC00100000000E007F81F00000000F043
       F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
-      F81FE0FFE007FFFFF83FFFFFF81FFFFF}
+      F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
+      000000000000}
   end
   object ItemImageList: TImageList
     Left = 4
@@ -7380,6 +7382,12 @@ object GikoForm: TGikoForm
     object A3: TMenuItem
       Action = NotSelectTabCloseAction
     end
+    object N72: TMenuItem
+      Action = LeftTabCloseAction
+    end
+    object N73: TMenuItem
+      Action = RightTabCloseAction
+    end
     object N18: TMenuItem
       Caption = '-'
     end

diff --git a/Giko.pas b/Giko.pas
index 054bf45..e7501eb 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -595,6 +595,8 @@ type
     N71: TMenuItem;
     MuteAction: TAction;
     ToolButton22: TToolButton;
+    N72: TMenuItem;
+    N73: TMenuItem;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -6357,7 +6359,6 @@ var
        wkIntTo: Integer;
        firstElement: IHTMLElement;
        document: IHTMLDocument2;
-       doc : Variant;
 begin
 
        Cancel := True;
@@ -11096,6 +11097,7 @@ const
 var
        SaveStringList: TStringList;
 begin
+    Result := false;
        if FileExists( GikoSys.GetAppDir + Filename) then begin
                if FileExists( GikoSys.GetAppDir + bFilename) then
                        DeleteFile(GikoSys.GetAppDir + bFilename);

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 98461a4..cafcd97 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -3857,9 +3857,6 @@ end;
 function TGikoSys.GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem):string;
 var
        i: integer;
-       ReadList: TStringList;
-       Res: TResRec;
-       boardPlugIn : TBoardPlugIn;
        body: TStringList;
 begin
        Result := '';
@@ -3914,9 +3911,6 @@ end;
 function TGikoSys.GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem):string;
 var
        i: integer;
-       ReadList: TStringList;
-       Res: TResRec;
-       boardPlugIn : TBoardPlugIn;
        body: TStringList;
 begin
        Result := '';
@@ -3936,7 +3930,6 @@ end;
 
 procedure TGikoSys.GetSameIDRes(AIDNum : Integer; ThreadItem: TThreadItem;var body: TStringList);
 var
-       i: integer;
        Res: TResRec;
        boardPlugIn : TBoardPlugIn;
        AID : String;