Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas

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

revision 1.8 by h677, Mon Nov 14 16:19:19 2005 UTC revision 1.9 by h677, Wed Nov 23 15:08:23 2005 UTC
# Line 573  begin Line 573  begin
573                  // ヘッダ                  // ヘッダ
574                  doc.Write( boardPlugIn.GetHeader( DWORD( threadItem ),                  doc.Write( boardPlugIn.GetHeader( DWORD( threadItem ),
575                          '<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) + #13#10 );                          '<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) + #13#10 );
576                  doc.Write('<p id="idSearch"></p>' + #13#10 );                  doc.Write('<p id="idSearch"></p>'#13#10 );
577    
578                  for i := 0 to threadItem.Count - 1 do begin                  for i := 0 to threadItem.Count - 1 do begin
579                          // 1 は必ず表示                          // 1 は必ず表示
# Line 599  begin Line 599  begin
599                                                  if FileExists( GikoSys.GetSkinNewmarkFileName ) then                                                  if FileExists( GikoSys.GetSkinNewmarkFileName ) then
600                                                          doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 )                                                          doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 )
601                                                  else                                                  else
602                                                          doc.Write( '<a name="new"></a>' + #13#10 );                                                          doc.Write( '<a name="new"></a>'#13#10 );
603                                          end else if GikoSys.Setting.UseCSS then begin                                          end else if GikoSys.Setting.UseCSS then begin
604                                                  doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>' + #13#10);                                                  doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'#13#10);
605                                          end else begin                                          end else begin
606                                                  doc.Write('</dl>');                                                  doc.Write('</dl>');
607                                                  doc.Write('<a name="new"></a>');                                                  doc.Write('<a name="new"></a>');
608                                                  doc.Write('<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>');                                                  doc.Write('<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>');
609                                                  doc.Write('<dl> + #13#10');                                                  doc.Write('<dl>'#13#10);
610                                          end;                                          end;
611                                  except                                  except
612                                          doc.Write( '<a name="new"></a>' + #13#10);                                          doc.Write( '<a name="new"></a>'#13#10);
613                                  end;                                  end;
614                          end;                          end;
615    
# Line 623  begin Line 623  begin
623                                                  if FileExists( GikoSys.GetSkinBookmarkFileName ) then                                                  if FileExists( GikoSys.GetSkinBookmarkFileName ) then
624                                                          doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 )                                                          doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 )
625                                                  else                                                  else
626                                                          doc.Write( '<a name="koko"></a>' + #13#10 );                                                          doc.Write( '<a name="koko"></a>'#13#10 );
627                                          end else if GikoSys.Setting.UseCSS then begin                                          end else if GikoSys.Setting.UseCSS then begin
628                                                  doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>' + #13#10 );                                                  doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>'#13#10 );
629                                          end else begin                                          end else begin
630                                                  doc.Write('</dl>');                                                  doc.Write('</dl>');
631                                                  doc.Write('<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>');                                                  doc.Write('<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>');
632                                                  doc.Write('<dl>' + #13#10 );                                                  doc.Write('<dl>'#13#10 );
633                                          end;                                          end;
634                                  except                                  except
635                                          doc.Write( '<a name="koko"></a>' + #13#10 );                                          doc.Write( '<a name="koko"></a>'#13#10 );
636                                  end;                                  end;
637                          end;                          end;
638                  end;                  end;
# Line 694  begin Line 694  begin
694                  except                  except
695                  end;                  end;
696    
697                  doc.Write('<p id="idSearch"></p>' + #13#10);                  doc.Write('<p id="idSearch"></p>'#13#10);
698                  doc.Write('<a name="top"></a>' + #13#10);                  doc.Write('<a name="top"></a>'#13#10);
699    
700                  for i := 0 to ReadList.Count - 1 do begin                  for i := 0 to ReadList.Count - 1 do begin
701                          // 1 は必ず表示                          // 1 は必ず表示
# Line 720  begin Line 720  begin
720                                          if FileExists( GikoSys.GetSkinNewmarkFileName ) then                                          if FileExists( GikoSys.GetSkinNewmarkFileName ) then
721                                                  doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size )  + #13#10)                                                  doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size )  + #13#10)
722                                          else                                          else
723                                                  doc.Write( '<a name="new"></a>' + #13#10 );                                                  doc.Write( '<a name="new"></a>'#13#10 );
724                                  except                                  except
725                                          doc.Write( '<a name="new"></a>' + #13#10 );                                          doc.Write( '<a name="new"></a>'#13#10 );
726                                  end;                                  end;
727                          end;                          end;
728    
# Line 752  begin Line 752  begin
752                                          if FileExists( GikoSys.GetSkinBookmarkFileName ) then                                          if FileExists( GikoSys.GetSkinBookmarkFileName ) then
753                                                  doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 )                                                  doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 )
754                                          else                                          else
755                                                  doc.Write( '<a name="koko"></a>' + #13#10 );                                                  doc.Write( '<a name="koko"></a>'#13#10 );
756                                  except                                  except
757                                          doc.Write( '<a name="koko"></a>' + #13#10 );                                          doc.Write( '<a name="koko"></a>'#13#10 );
758                                  end;                                  end;
759                          end;                          end;
760                  end;                  end;
761    
762                  doc.Write('<a name="bottom"></a>' + #13#10);                  doc.Write('<a name="bottom"></a>'#13#10);
763                  // スキン(フッタ)                  // スキン(フッタ)
764                  try                  try
765                          doc.Write( LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, ThreadItem.Size ) + #13#10 );                          doc.Write( LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, ThreadItem.Size ) + #13#10 );
# Line 788  begin Line 788  begin
788                  CSSFileName := GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName;                  CSSFileName := GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName;
789                  if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin                  if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin
790                          //CSS使用                          //CSS使用
791                          doc.Write('<html><head>' + #13#10);                          doc.Write('<html><head>'#13#10);
792                          doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' + #13#10);                          doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10);
793                          doc.Write('<title>' + sTitle + '</title>' + #13#10);                          doc.Write('<title>' + sTitle + '</title>'#13#10);
794                          doc.Write('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">' + #13#10);                          doc.Write('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'#13#10);
795                          if Length( UserOptionalStyle ) > 0 then                          if Length( UserOptionalStyle ) > 0 then
796                                  doc.Write('<style type="text/css">body {' + UserOptionalStyle + '}</style>' + #13#10);                                  doc.Write('<style type="text/css">body {' + UserOptionalStyle + '}</style>'#13#10);
797                          doc.Write('</head>' + #13#10);                          doc.Write('</head>'#13#10);
798                          doc.Write('<body>' + #13#10);                          doc.Write('<body>'#13#10);
799                          doc.Write('<a name="top"></a>' + #13#10);                          doc.Write('<a name="top"></a>'#13#10);
800                          doc.Write('<p id="idSearch"></p>' + #13#10);                          doc.Write('<p id="idSearch"></p>'#13#10);
801                          doc.Write('<div class="title">' + sTitle + '</div>' + #13#10);                          doc.Write('<div class="title">' + sTitle + '</div>'#13#10);
802                          for i := 0 to ReadList.Count - 1 do begin                          for i := 0 to ReadList.Count - 1 do begin
803                                  // 1 は必ず表示                                  // 1 は必ず表示
804                                  if i <> 0 then begin                                  if i <> 0 then begin
# Line 817  begin Line 817  begin
817                                  end;                                  end;
818    
819                                  if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin                                  if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
820                                          doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>' + #13#10);                                          doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'#13#10);
821                                  end;                                  end;
822    
823                                  if (Trim(ReadList[i]) <> '') then begin                                  if (Trim(ReadList[i]) <> '') then begin
# Line 832  begin Line 832  begin
832                                                                          + '<span class="name"><b>' + Res.FName + '</b></span> '                                                                          + '<span class="name"><b>' + Res.FName + '</b></span> '
833                                                                          + '<span class="date_label">投稿日:</span> '                                                                          + '<span class="date_label">投稿日:</span> '
834                                                                          + '<span class="date">' + Res.FDateTime+ '</span></div>'                                                                          + '<span class="date">' + Res.FDateTime+ '</span></div>'
835                                                                          + '<div class="mes">' + Res.FBody + ' </div>' + #13#10)                                                                          + '<div class="mes">' + Res.FBody + ' </div>'#13#10)
836                                          else if GikoSys.Setting.ShowMail then                                          else if GikoSys.Setting.ShowMail then
837                                                  doc.Write('<a name="' + No + '"></a>'                                                  doc.Write('<a name="' + No + '"></a>'
838                                                                          + '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>'                                                                          + '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>'
# Line 841  begin Line 841  begin
841                                                                          + '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>'                                                                          + '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>'
842                                                                          + '<span class="date_label"> 投稿日:</span>'                                                                          + '<span class="date_label"> 投稿日:</span>'
843                                                                          + '<span class="date"> ' + Res.FDateTime+ '</span></div>'                                                                          + '<span class="date"> ' + Res.FDateTime+ '</span></div>'
844                                                                          + '<div class="mes">' + Res.FBody + ' </div>' + #13#10)                                                                          + '<div class="mes">' + Res.FBody + ' </div>'#13#10)
845                                          else                                          else
846                                                  doc.Write('<a name="' + No + '"></a>'                                                  doc.Write('<a name="' + No + '"></a>'
847                                                                          + '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>'                                                                          + '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>'
# Line 850  begin Line 850  begin
850                                                                          + '<b>' + Res.FName + '</b></a>'                                                                          + '<b>' + Res.FName + '</b></a>'
851                                                                          + '<span class="date_label"> 投稿日:</span>'                                                                          + '<span class="date_label"> 投稿日:</span>'
852                                                                          + '<span class="date"> ' + Res.FDateTime+ '</span></div>'                                                                          + '<span class="date"> ' + Res.FDateTime+ '</span></div>'
853                                                                          + '<div class="mes">' + Res.FBody + ' </div>' + #13#10);                                                                          + '<div class="mes">' + Res.FBody + ' </div>'#13#10);
854                                  end;                                  end;
855    
856                                  if ThreadItem.Kokomade = (i + 1) then begin                                  if ThreadItem.Kokomade = (i + 1) then begin
857                                          doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>' + #13#10);                                          doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>'#13#10);
858                                  end;                                  end;
859    
860                          end;                          end;
861    
862                          doc.Write('<a name="bottom"></a>' + #13#10);                          doc.Write('<a name="bottom"></a>'#13#10);
863                          doc.Write('<a name="last"></a>' + #13#10);                          doc.Write('<a name="last"></a>'#13#10);
864                          doc.Write('</body></html>' + #13#10);                          doc.Write('</body></html>'#13#10);
865                  end;                  end;
866          finally          finally
867                  doc.Close;                  doc.Close;
# Line 879  begin Line 879  begin
879          try          try
880                  doc.charset := 'Shift_JIS';                  doc.charset := 'Shift_JIS';
881                  NewReceiveNo := ThreadItem.NewReceive;                  NewReceiveNo := ThreadItem.NewReceive;
882                  doc.Write('<html><head>' + #13#10);                  doc.Write('<html><head>'#13#10);
883                  doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' + #13#10);                  doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10);
884                  doc.Write('<title>' + sTitle + '</title></head>' + #13#10);                  doc.Write('<title>' + sTitle + '</title></head>'#13#10);
885                  doc.Write('<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + #13#10);                  doc.Write('<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">'#13#10);
886                  doc.Write('<a name="top"></a>' + #13#10);                  doc.Write('<a name="top"></a>'#13#10);
887                  doc.Write('<font size=+1 color="#FF0000">' + sTitle + '</font>' + #13#10);                  doc.Write('<font size=+1 color="#FF0000">' + sTitle + '</font>'#13#10);
888                  doc.Write('<dl>' + #13#10);                  doc.Write('<dl>'#13#10);
889                  doc.Write('<p id="idSearch"></p>' + #13#10);                  doc.Write('<p id="idSearch"></p>'#13#10);
890                  for i := 0 to ReadList.Count - 1 do begin                  for i := 0 to ReadList.Count - 1 do begin
891                          // 1 は必ず表示                          // 1 は必ず表示
892                          if i <> 0 then begin                          if i <> 0 then begin
# Line 905  begin Line 905  begin
905                          end;                          end;
906    
907                          if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin                          if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
908                                  doc.Write('</dl>' + #13#10);                                  doc.Write('</dl>'#13#10);
909                                  doc.Write('<a name="new"></a>' + #13#10);                                  doc.Write('<a name="new"></a>'#13#10);
910                                  doc.Write('<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>' + #13#10);                                  doc.Write('<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>'#13#10);
911                                  doc.Write('<dl>' + #13#10);                                  doc.Write('<dl>'#13#10);
912                          end;                          end;
913    
914                          if (Trim(ReadList[i]) <> '') then begin                          if (Trim(ReadList[i]) <> '') then begin
# Line 917  begin Line 917  begin
917                                  Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');                                  Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
918                                  Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);                                  Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
919                                  if Res.FMailTo = '' then                                  if Res.FMailTo = '' then
920                                          doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<font color="forestgreen"><b> ' + Res.FName + ' </b></font> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>' + #13#10)                                          doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<font color="forestgreen"><b> ' + Res.FName + ' </b></font> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10)
921                                  else if GikoSys.Setting.ShowMail then                                  else if GikoSys.Setting.ShowMail then
922                                          doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>' + #13#10)                                          doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10)
923                                  else                                  else
924                                          doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>' + #13#10);                                          doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10);
925                          end;                          end;
926                          if ThreadItem.Kokomade = (i + 1) then begin                          if ThreadItem.Kokomade = (i + 1) then begin
927                                  doc.Write('</dl>' + #13#10);                                  doc.Write('</dl>'#13#10);
928                                  doc.Write('<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>' + #13#10);                                  doc.Write('<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>'#13#10);
929                                  doc.Write('<dl>' + #13#10);                                  doc.Write('<dl>'#13#10);
930                          end;                          end;
931                  end;                  end;
932                  doc.Write('</dl>' + #13#10);                  doc.Write('</dl>'#13#10);
933                  doc.Write('<a name="bottom"></a>' + #13#10);                  doc.Write('<a name="bottom"></a>'#13#10);
934                  doc.Write('</body></html>' + #13#10);                  doc.Write('</body></html>'#13#10);
935          finally          finally
936                  doc.Close;                  doc.Close;
937          end;          end;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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