全てのタブ閉じるの時に確認ダイアログを出すオプションと

レスアンカーでジャンプしないオプションの追加

diff --git a/Option.dfm b/Option.dfm
index 441a97e..705869c 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -51,9 +51,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = UserIDSheet
+    ActivePage = TabSheet2
     MultiLine = True
-    TabIndex = 12
+    TabIndex = 7
     TabOrder = 0
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -828,6 +828,22 @@ object OptionDialog: TOptionDialog
           OnClick = URLAppCheckBoxClick
         end
       end
+      object ResAnchorGroupBox: TGroupBox
+        Left = 12
+        Top = 263
+        Width = 477
+        Height = 49
+        Caption = #12524#12473#12450#12531#12459#12540#12463#12522#12483#12463#26178#21205#20316
+        TabOrder = 3
+        object ResAnchorCheckBox: TCheckBox
+          Left = 12
+          Top = 21
+          Width = 165
+          Height = 17
+          Caption = #12381#12398#12524#12473#12414#12391#12472#12515#12531#12503#12377#12427
+          TabOrder = 0
+        end
+      end
     end
     object TabSheet1: TTabSheet
       Caption = #12473#12524#12483#12489#65298
@@ -1083,7 +1099,7 @@ object OptionDialog: TOptionDialog
         Left = 12
         Top = 258
         Width = 478
-        Height = 52
+        Height = 79
         Caption = #30906#35469#12480#12452#12450#12525#12464
         TabOrder = 2
         object ShowDialogForEndCheckBox: TCheckBox
@@ -1094,6 +1110,14 @@ object OptionDialog: TOptionDialog
           Caption = #32066#20102#26178#12395#30906#35469#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
           TabOrder = 0
         end
+        object AllTabCloseCheckBox: TCheckBox
+          Left = 9
+          Top = 48
+          Width = 344
+          Height = 17
+          Caption = #20840#12390#12398#12479#12502#12434#38281#12376#12427#12392#12365#12395#30906#35469#12480#12452#12450#12525#12464#12434#34920#31034#12377#12427
+          TabOrder = 1
+        end
       end
     end
     object TabSheet4: TTabSheet

diff --git a/Option.pas b/Option.pas
index 3b20f4f..8f62954 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -177,6 +177,9 @@ type
     SambaGroupBox: TGroupBox;
     UseSambaCheckBox: TCheckBox;
     Label26: TLabel;
+    ResAnchorGroupBox: TGroupBox;
+    ResAnchorCheckBox: TCheckBox;
+    AllTabCloseCheckBox: TCheckBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -713,8 +716,11 @@ begin
 
        //\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
        ShowDialogForEndCheckBox.Checked := GikoSys.Setting.ShowDialogForEnd;
+       //AllTabClose
+       AllTabCloseCheckBox.Checked := GikoSys.Setting.ShowDialogForAllTabClose;
        //Samba
        UseSambaCheckBox.Checked := GikoSys.Setting.UseSamba;
+       ResAnchorCheckBox.Checked := GikoSys.Setting.ResAnchorJamp;
        //\83|\83b\83v\83A\83b\83v\88Ê\92u
        case GikoSys.Setting.PopupPosition of
                gppRightTop:            PopupPositionRadioGroup.ItemIndex := 0;
@@ -916,8 +922,11 @@ begin
        GikoSys.Setting.DeleteMsg := LogDeleteMessageCheckBox.Checked;
        //\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
        GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;
+       //AllTabClose
+       GikoSys.Setting.ShowDialogForAllTabClose := AllTabCloseCheckBox.Checked;
     //Samba
-    GikoSys.Setting.UseSamba := UseSambaCheckBox.Checked;
+       GikoSys.Setting.UseSamba := UseSambaCheckBox.Checked;
+       GikoSys.Setting.ResAnchorJamp := ResAnchorCheckBox.Checked;
        //\83|\83b\83v\83A\83b\83v\88Ê\92u
        case PopupPositionRadioGroup.ItemIndex of
                0: GikoSys.Setting.PopupPosition := gppRightTop;

diff --git a/Setting.pas b/Setting.pas
index 87986df..8095444 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -285,6 +285,8 @@ type
 
                //\8fI\97¹\8e\9e\82É\8am\94F\83_\83C\83A\83\8d\83O\82ð\95\\8e¦\82·\82é\82©
                FShowDialogForEnd : Boolean;
+               //\91S\82Ä\82Ì\83^\83u\95Â\82¶\82é\82Ì\82Æ\82«\82É\8am\94F\83_\83C\83A\83\8d\83O\82ð\95\\8e¦\82·\82é
+               FShowDialogForAllTabClose: Boolean;
                //\8eæ\93¾\83\8c\83X\90\94\82Æ\83X\83\8c\83b\83h\82Ì\83\8c\83X\90\94\82ª\88Ù\82È\82Á\82½\82Æ\82«\82É\92Ê\8fí\94w\8ci\90F\82Æ\88á\82Á\82½\90F\82Ì\94w\8ci\90F\82ð\8eg\97p\82·\82é\82©
                FUseOddColorOddResNum: Boolean;
                FOddColor: TColor;
@@ -292,6 +294,9 @@ type
         //Samba24\91Î\8dô\8b@\94\\82ð\8eg\82¤\82©
         FUseSamba: Boolean;
 
+               //\83\8c\83X\83A\83\93\83J\81[\82ð\83N\83\8a\83b\83N\82µ\82Ä\83W\83\83\83\93\83v\82·\82é\82©
+               FResAnchorJamp: Boolean;
+
                function GetMainCoolSet(Index: Integer): TCoolSet;
                function GetBoardCoolSet(Index: Integer): TCoolSet;
                function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -461,7 +466,7 @@ type
                property EditWindowWidth: Integer read FEditWindowWidth write FEditWindowWidth;
                property EditWindowMax: Boolean read FEditWindowMax write FEditWindowMax;
                property EditWindowStay: Boolean read FEditWindowStay write FEditWindowStay;
-        property EditWindowTranslucent: Boolean read FEditWindowTranslucent write FEditWindowTranslucent;
+               property EditWindowTranslucent: Boolean read FEditWindowTranslucent write FEditWindowTranslucent;
 
                property ListViewNo: Boolean read FListViewNo write FListViewNo;
                property UseCSS: Boolean read FUseCSS write SetUseCSS;
@@ -490,7 +495,7 @@ type
                property UserID: string read FUserID write FUserID;
                property Password: string read FPassword write FPassword;
                property AutoLogin: Boolean read FAutoLogin write FAutoLogin;
-        property ForcedLogin: Boolean read FForcedLogin write FForcedLogin;
+               property ForcedLogin: Boolean read FForcedLogin write FForcedLogin;
                property DolibURL: string read FDolibURL write FDolibURL;
 
                property URLApp: Boolean read FURLApp write FURLApp;
@@ -519,8 +524,8 @@ type
                property PreviewWait: Integer read FPreviewWait write FPreviewWait;
 
                property ListIconVisible: Boolean read FListIconVisible write FListIconVisible;
-        property CreationTimeLogs: Boolean read FCreationTimeLogs write FCreationTimeLogs;
-        property FutureThread: Boolean read FFutureThread write FFutureThread;
+               property CreationTimeLogs: Boolean read FCreationTimeLogs write FCreationTimeLogs;
+               property FutureThread: Boolean read FFutureThread write FFutureThread;
 
                property UseMachineTime: Boolean read FUseMachineTime write FUseMachineTime;
                property TimeAdjustSec: Integer read FTimeAdjustSec write FTimeAdjustSec;
@@ -532,7 +537,7 @@ type
                property PopUpAbon               : Boolean read FPopUpAbon write FPopUpAbon;
                property ShowNGLinesNum : Boolean read FShowNGLinesNum write FShowNGLinesNum;
                property AddResAnchor : Boolean read FAddResAnchor write FAddResAnchor;
-        property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria;
+               property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria;
                // \83X\83\8c\83b\83h\8di\8d\9e\83t\83B\81[\83\8b\83h\82Ì\95\9d
                property SelectComboBoxWidth : Integer read FSelectComboBoxWidth write FSelectComboBoxWidth;
 
@@ -544,11 +549,12 @@ type
 
                //\8fI\97¹\8e\9e\82É\8am\94F\83_\83C\83A\83\8d\83O\82ð\95\\8e¦\82·\82é\82©
                property ShowDialogForEnd : Boolean read FShowDialogForEnd write FShowDialogForEnd;
-        //\8eæ\93¾\83\8c\83X\90\94\82Æ\83X\83\8c\83b\83h\82Ì\83\8c\83X\90\94\82ª\88Ù\82È\82Á\82½\82Æ\82«\82É\92Ê\8fí\94w\8ci\90F\82Æ\88á\82Á\82½\90F\82Ì\94w\8ci\90F\82ð\8eg\97p\82·\82é\82©
-        property UseOddColorOddResNum: Boolean read FUseOddColorOddResNum write FUseOddColorOddResNum;
-        property OddColor: TColor read FOddColor write FOddColor;
+               property ShowDialogForAllTabClose: Boolean read FShowDialogForAllTabClose write FShowDialogForAllTabClose;
+               //\8eæ\93¾\83\8c\83X\90\94\82Æ\83X\83\8c\83b\83h\82Ì\83\8c\83X\90\94\82ª\88Ù\82È\82Á\82½\82Æ\82«\82É\92Ê\8fí\94w\8ci\90F\82Æ\88á\82Á\82½\90F\82Ì\94w\8ci\90F\82ð\8eg\97p\82·\82é\82©
+               property UseOddColorOddResNum: Boolean read FUseOddColorOddResNum write FUseOddColorOddResNum;
+               property OddColor: TColor read FOddColor write FOddColor;
                property UseSamba: Boolean read FUseSamba write FUseSamba;
-
+        property ResAnchorJamp: Boolean read FResAnchorJamp write FResAnchorJamp;
        end;
 
 
@@ -838,8 +844,12 @@ begin
                FDeleteMsg := ini.ReadBool('Function', 'LogDeleteMessage', True);
                //\8fI\97¹\8am\94F
                FShowDialogForEnd := ini.ReadBool('Function','ShowDialogForEnd',false);
+               //AllTabClose
+               FShowDialogForAllTabClose := ini.ReadBool('Function','ShowDialogForAllTabClose',false);
         //Samba
-        FUseSamba := ini.ReadBool('Function','UseSamba', True);
+               FUseSamba := ini.ReadBool('Function','UseSamba', True);
+               //ResAnchorjamp
+               ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True);
                //\83\8d\83O\83t\83H\83\8b\83_
                FLogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log');
                NewLogFolder := '';
@@ -1105,8 +1115,12 @@ begin
                ini.WriteBool('Function', 'LogDeleteMessage', FDeleteMsg);
                //\8fI\97¹\8am\94F
                ini.WriteBool('Function','ShowDialogForEnd',FShowDialogForEnd);
+               //AllTabClose
+               ini.WriteBool('Function','ShowDialogForAllTabClose', FShowDialogForAllTabClose);
                //Samba
                ini.WriteBool('Function','UseSamba', FUseSamba);
+               //ResAnchorjamp
+               ini.WriteBool('Function', 'ResAnchoJamp', ResAnchorJamp);
 
                //\94ñ\83A\83N\83e\83B\83u\8e\9e\83|\83b\83v\83A\83b\83v\95\\8e¦
                ini.WriteBool('Thread', 'UnActivePopup', FUnActivePopup);