・スキンでskin30-2作者による

　o NAMEとMAILNAMEの前後に<b></b>がついていないようです。
　o SIZEKBとSIZEがともに0に変換されてしまうようです。
　o NewMark.htmlがないときに、<dt>・・・以降が出力されてしまうようです。
　o Footer.htmlやBookmark.htmlがない場合にはエラーがでるようです。
という問題を修正。

diff --git a/Giko.dfm b/Giko.dfm
index b59479d..652a2fa 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -92,7 +92,7 @@ object GikoForm: TGikoForm
         TabOrder = 0
         object TreeView: TTreeView
           Left = 4
-          Top = 96
+          Top = 80
           Width = 137
           Height = 167
           BorderStyle = bsNone
@@ -212,7 +212,7 @@ object GikoForm: TGikoForm
         end
         object FavoriteTreeView: TTreeView
           Left = 4
-          Top = 272
+          Top = 256
           Width = 137
           Height = 57
           BorderStyle = bsNone
@@ -7914,7 +7914,7 @@ object GikoForm: TGikoForm
       Category = #12450#12489#12524#12473#12496#12540
       Caption = #31227#21205
       Hint = #12450#12489#12524#12473#12496#12540#12395#34920#31034#12375#12390#12356#12427#12450#12489#12524#12473#12408#31227#21205#12377#12427
-      ImageIndex = 35
+      ImageIndex = 33
       OnExecute = MoveToActionExecute
     end
     object BrowserTabVisibleAction: TAction

diff --git a/GikoSystem.pas b/GikoSystem.pas
index a39273a..5f5c7e2 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -876,9 +876,9 @@ var
       Skin := StringReplace( Skin, '<NUMBER/>',
        '<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] );
       Skin := StringReplace( Skin, '<PLAINNUMBER/>', No, [rfReplaceAll] );
-      Skin := StringReplace( Skin, '<NAME/>', Res.FName, [rfReplaceAll] );
+      Skin := StringReplace( Skin, '<NAME/>', '<b>' + Res.FName + '</b>', [rfReplaceAll] );
       Skin := StringReplace( Skin, '<MAILNAME/>',
-       '<a href="mailo:' + Res.FMailTo + '">' + Res.FName + '</a>', [rfReplaceAll] );
+       '<a href="mailo:' + Res.FMailTo + '"><b>' + Res.FName + '</b></a>', [rfReplaceAll] );
       Skin := StringReplace( Skin, '<MAIL/>', Res.FMailTo, [rfReplaceAll] );
       Skin := StringReplace( Skin, '<DATE/>', Res.FDateTime, [rfReplaceAll] );
       Skin := StringReplace( Skin, '<MESSAGE/>', Res.FBody, [rfReplaceAll] );
@@ -887,9 +887,9 @@ var
       Skin := StringReplace( Skin, '&NUMBER',
        '<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] );
       Skin := StringReplace( Skin, '&PLAINNUMBER', No, [rfReplaceAll] );
-      Skin := StringReplace( Skin, '&NAME', Res.FName, [rfReplaceAll] );
+      Skin := StringReplace( Skin, '&NAME', '<b>' + Res.FName + '</b>', [rfReplaceAll] );
       Skin := StringReplace( Skin, '&MAILNAME',
-       '<a href="mailo:' + Res.FMailTo + '">' + Res.FName + '</a>', [rfReplaceAll] );
+       '<a href="mailo:' + Res.FMailTo + '"><b>' + Res.FName + '</b></a>', [rfReplaceAll] );
       Skin := StringReplace( Skin, '&MAIL', Res.FMailTo, [rfReplaceAll] );
       Skin := StringReplace( Skin, '&DATE', Res.FDateTime, [rfReplaceAll] );
       Skin := StringReplace( Skin, '&MESSAGE', Res.FBody, [rfReplaceAll] );
@@ -944,6 +944,8 @@ begin
                                FileExists( SkinHeaderFileName ) then begin
                                // \83X\83L\83\93\8eg\97p
 
+                               SizeByte := Length( SaveList.Text );
+
                                // \83X\83L\83\93\82Ì\90Ý\92è
         try
           SaveList.Add( LoadSkin( SkinHeaderFileName ) );
@@ -976,7 +978,7 @@ begin
                try
                SaveList.Add( LoadSkin( SkinNewmarkFileName ) );
               except
-               SaveList.Add( '<a name="new"></a><dt class="newmark">\90V\92\85\83\8c\83X <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></dt><dd style="display:none"></dd>' );
+               SaveList.Add( '<a name="new"></a>' );
               end;
             end;
 
@@ -990,8 +992,13 @@ begin
             except
             end;
 
-                                               if ThreadItem.Kokomade = (i + 1) then
+                                               if ThreadItem.Kokomade = (i + 1) then begin
+              // \82±\82±\82Ü\82Å\93Ç\82ñ\82¾
+               try
                SaveList.Add( LoadSkin( SkinBookmarkFileName ) );
+              except
+              end;
+            end;
                                        end;
 
                                        //if SaveList.Count > 50 then begin
@@ -1016,7 +1023,10 @@ begin
                                SaveList.Add('<a name="bottom"></a>');
 
                                // \83X\83L\83\93(\83t\83b\83^)
-        SaveList.Add( LoadSkin( SkinFooterFileName ) );
+        try
+               SaveList.Add( LoadSkin( SkinFooterFileName ) );
+        except
+        end;
 
                                doc.Write(SaveList.Text);
 

diff --git a/Option.pas b/Option.pas
index c557c58..58310b4 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -556,7 +556,7 @@ begin
        //\83X\83L\83\93\83t\83@\83C\83\8b\96¼\88ê\97\97
        FileList := TStringList.Create;
        try
-               GikoSys.GetDirectoryList(GikoSys.GetSkinDir, '*', FileList, True);
+               GikoSys.GetDirectoryList(GikoSys.GetSkinDir, '*', FileList, False);
 
     Idx := Length(GikoSys.GetSkinDir);
                FileList.Sort;