OSDN Git Service

(root) / gikonavigoeson / gikonavi.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5131975)
・CSS を使用していない場合の体裁を調整。
authoryoffy <yoffy>
Wed, 19 Nov 2003 06:32:17 +0000 (06:32 +0000)
committeryoffy <yoffy>
Wed, 19 Nov 2003 06:32:17 +0000 (06:32 +0000)
ExternalThreadItem.pas patch | blob | history

diff --git a/ExternalThreadItem.pas b/ExternalThreadItem.pas
index a4e239d..e7ad4c1 100644 (file)
--- a/ExternalThreadItem.pas
+++ b/ExternalThreadItem.pas
@@ -289,6 +289,7 @@ begin
        threadItem      := TThreadItem( inInstance );
        // \88ø\90\94\82ð\95ª\89ð
        res                                     := GikoSys.DivideStrLine( string( inDatRes ) );
+       res.FBody               := GikoSys.AddAnchorTag( res.FBody );
        no                                      := IntToStr( inResNo );
 
        try
@@ -306,8 +307,8 @@ begin
                                                GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte
                                        ), res, no
                                ) );
-               end else begin
-                       // CSS or \83f\83t\83H\83\8b\83g
+               end else if GikoSys.Setting.UseCSS then begin
+                       // CSS
                        if res.FName = '' then
                                res.FName := '&nbsp;';
                        if res.FMailTo = '' then
@@ -336,6 +337,14 @@ begin
                                                                + '<span class="date_label"> \93\8a\8de\93ú\81F</span>'
                                                                + '<span class="date"> ' + res.FDateTime+ '</span></div>'
                                                                + '<div class="mes">' + res.FBody + ' </div>' );
+               end else begin
+                       // \83f\83t\83H\83\8b\83g
+                       if res.FMailTo = '' then
+                               Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<font color="forestgreen"><b> ' + res.FName + ' </b></font> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
+                       else if GikoSys.Setting.ShowMail then
+                               Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> [' + res.FMailTo + '] \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
+                       else
+                               Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' );
                end;
        except
                Result := nil;
@@ -368,7 +377,7 @@ begin
                        skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.SizeByte );
                        if Length( optionalHeader ) > 0 then
                                skinHeader :=
-                                       StringReplace( skinHeader, '</head>', optionalHeader + '</head>', [] );
+                                       StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );
                end else if GikoSys.Setting.UseCSS then begin
                        // CSS
                        skinHeader :=
@@ -378,6 +387,7 @@ begin
                                optionalHeader +
                                '</head>' +
                                '<body>' +
+                               '<a name="top"></a>' +
                                '<div class="title">' + threadItem.Title + '</div>';
                end else begin
                        // \83f\83t\83H\83\8b\83g
@@ -386,8 +396,10 @@ begin
                                '<title>' + threadItem.Title + '</title>' +
                                optionalHeader +
                                '</head>' +
-                               '<body>' +
-                               '<div class="title">' + threadItem.Title + '</div>';
+                               '<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' +
+                               '<a name="top"></a>' +
+                               '<font size=+1 color="#FF0000">' + threadItem.Title + '</font>' +
+                               '<dl>';
                end;
        except
        end;
@@ -417,17 +429,28 @@ begin
 
        try
                if GikoSys.Setting.UseSkin then begin
+                       // \83X\83L\83\93
                        skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.SizeByte );
                        if Length( optionalFooter ) > 0 then
                                skinFooter :=
                                        StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );
+               end else if GikoSys.Setting.UseCSS then begin
+                       // CSS
+                       skinFooter :=
+                               '<a name="bottom"></a>' +
+                               optionalFooter +
+                               '</body></html>' +
+                               '<a name="last"></a>' +
+                               '</body></html>';
                end else begin
-                               skinFooter :=
-                                       '<a name="bottom"></a>' +
-                                       optionalFooter +
-                                       '</body></html>' +
-                                       '<a name="last"></a>' +
-                                       '</body></html>';
+                       // \83f\83t\83H\83\8b\83g
+                       skinFooter :=
+                               '</dl>' +
+                               '<a name="bottom"></a>' +
+                               optionalFooter +
+                               '</body></html>' +
+                               '<a name="last"></a>' +
+                               '</body></html>';
                end;
        except
        end;
About OSDN
Find Software
Develop Software
Help