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.31 by h677, Sun Aug 27 16:30:02 2006 UTC revision 1.32 by h677, Mon Feb 12 16:06:36 2007 UTC
# Line 99  var Line 99  var
99  implementation  implementation
100    
101  uses  uses
102      Trip;      Trip, NGWordUnit;
103    
104  const  const
105          URL_CHAR: string = '0123456789'          URL_CHAR: string = '0123456789'
# Line 771  begin Line 771  begin
771    
772                  if (Trim(ReadList[i]) <> '') then begin                  if (Trim(ReadList[i]) <> '') then begin
773                          DivideStrLine(ReadList[i], @Res);                          DivideStrLine(ReadList[i], @Res);
774                          AddAnchorTag(@Res);              if (NGWordList.IsNG(@Res) = -1) then begin
775                          ConvRes(@Res, @ResLink);                          AddAnchorTag(@Res);
776                          Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);                          ConvRes(@Res, @ResLink);
777                            Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
778                          if NewReceiveNo <= (i + 1) then  
779                                  // 新着レス                              if NewReceiveNo <= (i + 1) then
780                                  html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1)))                                      // 新着レス
781                          else                                  html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1)))
782                                  // 通常のレス                          else
783                                  html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1)));                                  // 通常のレス
784                                    html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1)));
785                end else begin
786    {$IFDEF DEBUG}
787                    html.Add('<h4>あぼ〜ん</h4>');
788    {$ENDIF}
789                end;
790                  end;                  end;
791    
792                  if ThreadItem.Kokomade = (i + 1) then begin                  if ThreadItem.Kokomade = (i + 1) then begin
# Line 858  begin Line 864  begin
864                          if (Trim(ReadList[i]) <> '') then begin                          if (Trim(ReadList[i]) <> '') then begin
865                                  No := IntToStr(i + 1);                                  No := IntToStr(i + 1);
866                                  DivideStrLine(ReadList[i], @Res);                                  DivideStrLine(ReadList[i], @Res);
867                                  AddAnchorTag(@Res);                  if (NGWordList.IsNG(@Res) = -1) then begin
868                                  ConvRes(@Res, @ResLink);                      AddAnchorTag(@Res);
869                                  Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);                      ConvRes(@Res, @ResLink);
870                                  if Res.FMailTo = '' then                      Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
871                                          html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody]))                      if Res.FMailTo = '' then
872                                  else if GikoSys.Setting.ShowMail then                          html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody]))
873                                          html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody]))                      else if GikoSys.Setting.ShowMail then
874                                  else                          html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody]))
875                                          html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody]));                      else
876                          end;                          html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody]));
877                                end;
878                end else begin
879    {$IFDEF DEBUG}
880                    html.Add('<h4>あぼ〜ん</h4>');
881    {$ENDIF}
882                end;
883    
884                          if ThreadItem.Kokomade = (i + 1) then begin                          if ThreadItem.Kokomade = (i + 1) then begin
885                                  html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');                                  html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');
# Line 922  begin Line 934  begin
934                  if (Trim(ReadList[i]) <> '') then begin                  if (Trim(ReadList[i]) <> '') then begin
935                          No := IntToStr(i + 1);                          No := IntToStr(i + 1);
936                          DivideStrLine(ReadList[i], @Res);                          DivideStrLine(ReadList[i], @Res);
937    
938                          AddAnchorTag(@Res);                          AddAnchorTag(@Res);
939                          ConvRes(@Res, @ResLink);                          ConvRes(@Res, @ResLink);
940                          Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);                          Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
# Line 931  begin Line 944  begin
944                                  html.Add('<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)                                  html.Add('<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)
945                          else                          else
946                                  html.Add('<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);                                  html.Add('<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);
947                  end;          end else begin
948    {$IFDEF DEBUG}
949                    html.Add('<h4>あぼ〜ん</h4>');
950    {$ENDIF}
951            end;
952    
953                  if ThreadItem.Kokomade = (i + 1) then begin                  if ThreadItem.Kokomade = (i + 1) then begin
954                          html.Add('</dl>');                          html.Add('</dl>');
955                          html.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>');                          html.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>');
# Line 976  begin Line 994  begin
994                                                  ReadList.LoadFromFile(FileName);                                                  ReadList.LoadFromFile(FileName);
995                                                  ReadList.EndUpdate;                                                  ReadList.EndUpdate;
996                                                  GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG'));                                                  GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG'));
997                                                  GikoSys.FAbon.Execute(ReadList);                //       あぼ〜んして                                                  //GikoSys.FAbon.Execute(ReadList);              //       あぼ〜んして
998                                                  GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする                                                  GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする
999                                                  if ThreadItem.Title = '' then begin                                                  if ThreadItem.Title = '' then begin
1000                                                          DivideStrLine(ReadList[0], @Res);                                                          DivideStrLine(ReadList[0], @Res);

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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