Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.71 by yoffy, Tue Nov 18 17:39:11 2003 UTC revision 1.72 by yoffy, Wed Nov 19 06:30:43 2003 UTC
# Line 1021  begin Line 1021  begin
1021                                  // ヘッダ                                  // ヘッダ
1022                                  SaveList.Add( boardPlugIn.GetHeader( DWORD( threadItem ),                                  SaveList.Add( boardPlugIn.GetHeader( DWORD( threadItem ),
1023                                          '<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) );                                          '<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) );
                                 SaveList.Add('<a name="top"></a>');  
1024    
1025                                  for i := 0 to threadItem.Count - 1 do begin                                  for i := 0 to threadItem.Count - 1 do begin
1026                                          if (OnlyAHundredRes = true) and ( i <> 0 ) and ( (threadItem.Count-i) > 101 ) then begin                                          if (OnlyAHundredRes = true) and ( i <> 0 ) and ( (threadItem.Count-i) > 101 ) then begin
# Line 1031  begin Line 1030  begin
1030                                          // 新着マーク                                          // 新着マーク
1031                                          if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin                                          if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
1032                                                  try                                                  try
1033                                                          SaveList.Add( LoadSkin( GetSkinNewmarkFileName ) );                                                          if GikoSys.Setting.UseSkin then begin
1034                                                                    SaveList.Add( LoadSkin( GetSkinNewmarkFileName ) );
1035                                                            end else if GikoSys.Setting.UseCSS then begin
1036                                                                    SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>');
1037                                                            end else begin
1038                                                                    SaveList.Add('</dl>');
1039                                                                    SaveList.Add('<a name="new"></a>');
1040                                                                    SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>新着レス ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>');
1041                                                                    SaveList.Add('<dl>');
1042                                                            end;
1043                                                  except                                                  except
1044                                                          SaveList.Add( '<a name="new"></a>' );                                                          SaveList.Add( '<a name="new"></a>' );
1045                                                  end;                                                  end;
# Line 1043  begin Line 1051  begin
1051                                          if ThreadItem.Kokomade = (i + 1) then begin                                          if ThreadItem.Kokomade = (i + 1) then begin
1052                                                  // ここまで読んだ                                                  // ここまで読んだ
1053                                                  try                                                  try
1054                                                          SaveList.Add( LoadSkin( GetSkinBookmarkFileName ) );                                                          if GikoSys.Setting.UseSkin then begin
1055                                                                    SaveList.Add( LoadSkin( GetSkinBookmarkFileName ) );
1056                                                            end else if GikoSys.Setting.UseCSS then begin
1057                                                                    SaveList.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');
1058                                                            end else begin
1059                                                                    SaveList.Add('</dl>');
1060                                                                    SaveList.Add('<a name="koko"></a><table width="100%" bgcolor="#55AA55" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#77CC77" valign="middle"><font size="-1" color="#ffffff"><b>ココまで読んだ</b></font></td></tr></table>');
1061                                                                    SaveList.Add('<dl>');
1062                                                            end;
1063                                                  except                                                  except
1064                                                          SaveList.Add( '<a name="koko"></a>' );                                                          SaveList.Add( '<a name="koko"></a>' );
1065                                                  end;                                                  end;
# Line 1293  begin Line 1309  begin
1309    
1310                                                  if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin                                                  if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
1311                                                          SaveList.Add('</dl>');                                                          SaveList.Add('</dl>');
1312                                                                                                                  SaveList.Add('<a name="new"></a>');                                                          SaveList.Add('<a name="new"></a>');
1313                                                                                                                  SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>新着レス ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>');                                                          SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>新着レス ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>');
1314                                                                                                                  SaveList.Add('<dl>');                                                          SaveList.Add('<dl>');
1315                                                  end;                                                  end;
1316                                                  Res := DivideStrLine(ReadList[i]);                                                  Res := DivideStrLine(ReadList[i]);
1317                                                  Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');                                                  Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26