板更新時にタブが無いときにメッセージを出さないようにした。

diff --git a/Giko.pas b/Giko.pas
index 800dfb6..8752102 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -11091,8 +11091,10 @@ end;
 
 procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);
 begin
+
        if not SaveTabURLs then begin
-               ShowMessage('\95Û\91¶\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ');
+               if TabsSaveAction.Tag = 0 then
+                       ShowMessage('\95Û\91¶\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ');
        end;
 end;
 
@@ -11126,21 +11128,10 @@ end;
 procedure TGikoForm.TabsOpenActionExecute(Sender: TObject);
 begin
        if not LoadTabURLs then begin
-               ShowMessage('\95\\8e¦\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ\81B');
+               if TabsOpenAction.Tag = 0 then
+                       ShowMessage('\95\\8e¦\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ\81B');
        end;
 end;
-{
- procedure TGikoForm.FileTabSaveClick(Sender: TObject);
-var
-       SaveStringList: TStringList;
-begin
-                SaveTabList := TStringList.Create;
-                SaveTabList := GetTabURLs;
-                if TabSaveDialog.Execute then begin
-                                SaveTabList.SaveToFile(TabSaveDialog.FileName);
-                end;
-end;
-}
 
 function TGikoForm.LoadTabURLs : Boolean;
 var

diff --git a/NewBoard.pas b/NewBoard.pas
index 212f261..ce55a97 100644 (file)
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -70,9 +70,13 @@ begin
                if FAbort then
                        Exit;
                if Item.FContent <> '' then begin
+                       GikoForm.TabsSaveAction.Tag := 1;
+                       GikoForm.TabsOpenAction.Tag := 1;
                        GikoForm.TabsSaveAction.Execute;
                        UpdateURL(Item.FContent);
                        GikoForm.ReloadBBS;
+                       GikoForm.TabsSaveAction.Tag := 0;
+                       GikoForm.TabsOpenAction.Tag := 0;
                end else
                        MessageMemo.Lines.Add('\83_\83E\83\93\83\8d\81[\83h\82ª\8e¸\94s\82µ\82Ü\82µ\82½[' + IntToStr(Item.FResponseCode) + ']');
        finally

diff --git a/gikoNavi.res b/gikoNavi.res
index 581960a..7481946 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ