レスアンカー(>)でポップアップしなくなったので修正

[gikonavigoeson/gikonavi.git] / Setting.pas

diff --git a/Setting.pas b/Setting.pas
index d7b30cd..0a7ea21 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -538,9 +538,10 @@ type
                procedure WriteLogFolder(AVal : String);
                function GetInputAssistFileName : String;
         function GetReplaceFileName: String;
+        function GetExtprevieFileName: String;
         {
         \brief  \83\8a\83\93\83N\97\9a\97ð\82Ì\95Û\8e\9d\83T\83C\83Y\82Ìsetter
-        \param  AVal    \90Ý\92è\82·\82é\83T\83C\83Y( >0) 
+        \param  AVal    \90Ý\92è\82·\82é\83T\83C\83Y( >0)
         }
         procedure SetMoveHistorySize(AVal : Integer);
                //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
@@ -858,8 +859,9 @@ const
        SPAMFILTER_FILE_NAME                                    = 'SpamFilter.ini';
                LANGUAGE_FILE_NAME    = 'language.ini';
        INPUTASSIST_FILE_NAME   = 'InputAssist.ini';
-    FIXED_COOKIE =           'hana=mogera';
+    FIXED_COOKIE =           '';
     REPLACE_FILE_NAME = 'replace.ini';
+    EXT_PREVIEW_FILE_NAME = 'extpreview.ini';
 
 implementation
 
@@ -993,15 +995,15 @@ end;
 //\83f\83X\83g\83\89\83N\83^
 destructor TSetting.Destroy();
 begin
-    FreeAndNil(FSkinFiles);
-       FreeAndNil(FGestures);
-       FreeAndNil(FBoardColumnOrder);
-       FreeAndNil(FCategoryColumnOrder);
-       FreeAndNil(FBBSColumnOrder);
-       FreeAndNil(FBoardURLs);
-       FreeAndNil(FSelectTextList);
-       FreeAndNil(FMailList);
-       FreeAndNil(FNameList);
+       FBoardColumnOrder.Free;
+       FCategoryColumnOrder.Free;
+       FBBSColumnOrder.Free;
+       FSelectTextList.Free;
+       FBoardURLs.Free;
+       FMailList.Free;
+       FNameList.Free;
+       FGestures.Free;
+    FSkinFiles.Free;
        inherited;
 end;
 
@@ -1216,8 +1218,16 @@ begin
                if Exists then begin
                        for i := 0 to GetSoundCount - 1 do begin
                                SoundFileName[i] := ini.ReadString('Sound', SoundName[i], '');
-                               if not FileExists(SoundFileName[i]) then
-                                       SoundFileName[i] := '';
+                // \91\8a\91Î\8eQ\8fÆ\91Î\8dô
+                s := SoundFileName[i];
+                if (AnsiPos('.\', SoundFileName[i]) = 1) then begin
+                    s := GetAppDir
+                            + Copy(SoundFileName[i], 2, Length(SoundFileName[i]));
+                end;
+                // \83t\83@\83C\83\8b\82Ì\91¶\8dÝ\83`\83F\83b\83N
+                if not FileExists(SoundFileName[i]) then begin
+                    SoundFileName[i] := '';
+                end;
                        end;
                end else begin
                        s := GetAppDir + '\sound\';
@@ -1870,6 +1880,11 @@ begin
        for i := 0 to GetSoundCount - 1 do begin
                if SoundName[i] = Name then begin
                        Result := SoundFileName[i];
+            // \91\8a\91Î\83p\83X\91Î\8dô
+            if (AnsiPos('.\', Result) = 1) then begin
+                Result := GetAppDir
+                    + Copy(Result, 2, Length(Result));
+            end;
                        Exit;
                end;
        end;
@@ -2167,6 +2182,10 @@ function TSetting.GetReplaceFileName: String;
 begin
     Result := GetConfigDir + REPLACE_FILE_NAME;
 end;
+function TSetting.GetExtprevieFileName: String;
+begin
+    Result := GetConfigDir + EXT_PREVIEW_FILE_NAME;
+end;
 procedure TSetting.SetMoveHistorySize(AVal : Integer);
 begin
     if (AVal > 0) then begin