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.34 by h677, Tue Feb 13 16:45:18 2007 UTC revision 1.35 by h677, Wed Feb 14 15:12:06 2007 UTC
# Line 100  var Line 100  var
100  implementation  implementation
101    
102  uses  uses
103      Trip, NGWordUnit;      Trip;
104    
105  const  const
106          URL_CHAR: string = '0123456789'          URL_CHAR: string = '0123456789'
# Line 771  begin Line 771  begin
771                  end;                  end;
772    
773                  if (Trim(ReadList[i]) <> '') then begin                  if (Trim(ReadList[i]) <> '') then begin
   
774                          DivideStrLine(ReadList[i], @Res);                          DivideStrLine(ReadList[i], @Res);
775  {$IFDEF NEWNGWORD}              AddAnchorTag(@Res);
776              if (NGWordList.IsNG(@Res) = -1) then begin              ConvRes(@Res, @ResLink);
777  {$ENDIF}              Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
778                          AddAnchorTag(@Res);  
779                          ConvRes(@Res, @ResLink);              if NewReceiveNo <= (i + 1) then
780                          Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);                  // 新着レス
781                    html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1)))
782                              if NewReceiveNo <= (i + 1) then              else
783                                      // 新着レス                  // 通常のレス
784                                  html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1)))                  html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1)));
                         else  
                                 // 通常のレス  
                                 html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1)));  
 {$IFDEF NEWNGWORD}  
             end else begin  
                 html.Add('<h4>あぼ〜ん</h4>');  
             end;  
 {$ENDIF}  
785                  end;                  end;
786    
787                  if ThreadItem.Kokomade = (i + 1) then begin                  if ThreadItem.Kokomade = (i + 1) then begin
# Line 868  begin Line 859  begin
859                          if (Trim(ReadList[i]) <> '') then begin                          if (Trim(ReadList[i]) <> '') then begin
860                                  No := IntToStr(i + 1);                                  No := IntToStr(i + 1);
861                                  DivideStrLine(ReadList[i], @Res);                                  DivideStrLine(ReadList[i], @Res);
862  {$IFDEF NEWNGWORD}                  AddAnchorTag(@Res);
863                  if (NGWordList.IsNG(@Res) = -1) then begin                  ConvRes(@Res, @ResLink);
864  {$ENDIF}                  Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
865                      AddAnchorTag(@Res);                  if Res.FMailTo = '' then
866                      ConvRes(@Res, @ResLink);                      html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody]))
867                      Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);                  else if GikoSys.Setting.ShowMail then
868                      if Res.FMailTo = '' then                      html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody]))
869                          html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody]))                  else
870                      else if GikoSys.Setting.ShowMail then                      html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody]));
                         html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody]))  
                     else  
                         html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody]));  
 {$IFDEF NEWNGWORD}  
                             end else begin  
                     html.Add('<h4>あぼ〜ん</h4>');  
                 end;  
 {$ENDIF}  
871              end;              end;
872                          if ThreadItem.Kokomade = (i + 1) then begin                          if ThreadItem.Kokomade = (i + 1) then begin
873                                  html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');                                  html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');
# Line 939  begin Line 922  begin
922                  if (Trim(ReadList[i]) <> '') then begin                  if (Trim(ReadList[i]) <> '') then begin
923                          No := IntToStr(i + 1);                          No := IntToStr(i + 1);
924                          DivideStrLine(ReadList[i], @Res);                          DivideStrLine(ReadList[i], @Res);
925  {$IFDEF NEWNGWORD}              AddAnchorTag(@Res);
926              if (NGWordList.IsNG(@Res) = -1) then begin              ConvRes(@Res, @ResLink);
927  {$ENDIF}              Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
928                              AddAnchorTag(@Res);              if Res.FMailTo = '' then
929                          ConvRes(@Res, @ResLink);                  html.Add('<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)
930                          Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);              else if GikoSys.Setting.ShowMail then
931                          if Res.FMailTo = '' then                  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)
932                                  html.Add('<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)              else
933                          else if GikoSys.Setting.ShowMail then                  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> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10)  
                         else  
                                 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);  
 {$IFDEF NEWNGWORD}  
             end else begin  
                 html.Add('<h4>あぼ〜ん</h4>');  
             end;  
 {$ENDIF}  
934          end;          end;
935                  if ThreadItem.Kokomade = (i + 1) then begin                  if ThreadItem.Kokomade = (i + 1) then begin
936                          html.Add('</dl>');                          html.Add('</dl>');
# Line 1002  begin Line 977  begin
977                                                  ReadList.LoadFromFile(FileName);                                                  ReadList.LoadFromFile(FileName);
978                                                  ReadList.EndUpdate;                                                  ReadList.EndUpdate;
979                                                  GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG'));                                                  GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG'));
                         {$IFNDEF NEWNGWORD}  
980                                                  GikoSys.FAbon.Execute(ReadList);                //       あぼ〜んして                                                  GikoSys.FAbon.Execute(ReadList);                //       あぼ〜んして
                         {$ENDIF}  
981                                                  GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする                                                  GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする
982                                                  if ThreadItem.Title = '' then begin                                                  if ThreadItem.Title = '' then begin
983                                                          DivideStrLine(ReadList[0], @Res);                                                          DivideStrLine(ReadList[0], @Res);

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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