Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.150 by yoffy, Wed Nov 26 08:58:31 2003 UTC revision 1.151 by h677, Wed Nov 26 09:31:35 2003 UTC
# Line 1019  implementation Line 1019  implementation
1019    
1020  uses  uses
1021          About, Option, Round, Splash, Sort, ListSelect,          About, Option, Round, Splash, Sort, ListSelect,
1022          NewBoard;          NewBoard, MojuUtils;
1023    
1024  const  const
1025          CAPTION_NAME: string = 'ギコナビ';          CAPTION_NAME: string = 'ギコナビ';
# Line 2308  begin Line 2308  begin
2308  //                      RepStr := IntToStr(ThreadItem.No) + ': ' + ThreadItem.Title  //                      RepStr := IntToStr(ThreadItem.No) + ': ' + ThreadItem.Title
2309  //              else  //              else
2310                  RepStr := ThreadItem.Title;                  RepStr := ThreadItem.Title;
2311                  //RepStr := StringReplace(RepStr, '&amp;', '&', [rfReplaceAll]);                  RepStr := CustomStringReplace(RepStr, '&lt;', '<' );
2312                  RepStr := StringReplace(RepStr, '&lt;', '<', [rfReplaceAll]);                  RepStr := CustomStringReplace(RepStr, '&gt;', '>' );
2313                  RepStr := StringReplace(RepStr, '&gt;', '>', [rfReplaceAll]);                  RepStr := CustomStringReplace(RepStr, '&quot;', '"' );
2314                  RepStr := StringReplace(RepStr, '&quot;', '"', [rfReplaceAll]);                  RepStr := CustomStringReplace(RepStr, '&amp', '&' );
                 RepStr := StringReplace(RepStr, '&amp', '&', [rfReplaceAll]);  
2315                  //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);                  //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);
2316    
2317                  if Item.SubItems.Count <> 6 then begin                  if Item.SubItems.Count <> 6 then begin
# Line 5990  begin Line 5989  begin
5989          for i := 0 to Node.Count - 1 do begin          for i := 0 to Node.Count - 1 do begin
5990                  NewMenu := TFavoriteMenuItem.Create(Self);                  NewMenu := TFavoriteMenuItem.Create(Self);
5991                  NewMenu.AutoHotkeys := maAutomatic;                  NewMenu.AutoHotkeys := maAutomatic;
5992                  NewMenu.Caption := StringReplace(Node.Item[i].Text, '&', '&&', [rfReplaceAll]);                  NewMenu.Caption := CustomStringReplace(Node.Item[i].Text, '&', '&&');
5993                  TFavoriteMenuItem(NewMenu).Data := Node.Item[i].Data;                  TFavoriteMenuItem(NewMenu).Data := Node.Item[i].Data;
5994                  MenuItem.Add(NewMenu);                  MenuItem.Add(NewMenu);
5995    
# Line 6625  var Line 6624  var
6624  begin  begin
6625          Doc := Browser.Document as IHtmlDocument2;          Doc := Browser.Document as IHtmlDocument2;
6626          Range := Doc.selection.createRange as IHTMLTxtRange;          Range := Doc.selection.createRange as IHTMLTxtRange;
6627          s := StringReplace(Range.text, ' ', ' ', [rfReplaceAll]);          s := CustomStringReplace(Range.text, ' ', ' ');//全角空白を半角空白に
6628          s := GikoSys.ZenToHan(Trim(s));          s := GikoSys.ZenToHan(Trim(s));
6629          if GikoSys.IsNumeric(s) then begin          if GikoSys.IsNumeric(s) then begin
6630    
# Line 6656  var Line 6655  var
6655          Res: TResRec;          Res: TResRec;
6656          Header: string;          Header: string;
6657          Body: string;          Body: string;
   
                                 //Abonizer : TAbon;  
6658  begin  begin
6659          try          try
6660                  if StNum > ToNum then begin                  if StNum > ToNum then begin
# Line 6684  begin Line 6681  begin
6681                                  Res := GikoSys.DivideStrLine(tmp);                                  Res := GikoSys.DivideStrLine(tmp);
6682    
6683                                  Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;                                  Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;
6684                                    Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);
6685                                  Body := StringReplace(Res.FBody, '<br> ', #10, [rfIgnoreCase, rfReplaceAll]);                                  Body := CustomStringReplace(Body, '<br>', #10,true);
6686                                  Body := StringReplace(Body, '<br>', #10, [rfIgnoreCase, rfReplaceAll]);                                  Body := CustomStringReplace(Body, '</a>', '',true);
                                 Body := StringReplace(Body, '</a>', '', [rfIgnoreCase, rfReplaceAll]);  
6687                                  Body := GikoSys.DeleteLink(Body);                                  Body := GikoSys.DeleteLink(Body);
6688                                  Body := StringReplace(Body, '&lt;', '<', [rfReplaceAll]);                                  Body := CustomStringReplace(Body, '&lt;', '<');
6689                                  Body := StringReplace(Body, '&gt;', '>', [rfReplaceAll]);                                  Body := CustomStringReplace(Body, '&gt;', '>');
6690                                  Body := StringReplace(Body, '&quot;', '"', [rfReplaceAll]);                                  Body := CustomStringReplace(Body, '&quot;', '"');
6691                                  Body := StringReplace(Body, '&amp;', '&', [rfReplaceAll]);                                  Body := CustomStringReplace(Body, '&amp;', '&');
6692                                  FHint.Add(Header, Body);                                  FHint.Add(Header, Body);
6693  //                                                      s := StringReplace(s, '&amp', '&', [rfReplaceAll]);  //                                                      s := StringReplace(s, '&amp', '&', [rfReplaceAll]);
6694  //                                                      s := StringReplace(s, '@`', ',', [rfReplaceAll]);  //                                                      s := StringReplace(s, '@`', ',', [rfReplaceAll]);

Legend:
Removed from v.1.150  
changed lines
  Added in v.1.151

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