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.33 by yoffy, Wed Sep 24 09:50:17 2003 UTC revision 1.34 by yoffy, Wed Sep 24 14:03:07 2003 UTC
# Line 876  var Line 876  var
876        Skin := StringReplace( Skin, '<NUMBER/>',        Skin := StringReplace( Skin, '<NUMBER/>',
877          '<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] );          '<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] );
878        Skin := StringReplace( Skin, '<PLAINNUMBER/>', No, [rfReplaceAll] );        Skin := StringReplace( Skin, '<PLAINNUMBER/>', No, [rfReplaceAll] );
879        Skin := StringReplace( Skin, '<NAME/>', Res.FName, [rfReplaceAll] );        Skin := StringReplace( Skin, '<NAME/>', '<b>' + Res.FName + '</b>', [rfReplaceAll] );
880        Skin := StringReplace( Skin, '<MAILNAME/>',        Skin := StringReplace( Skin, '<MAILNAME/>',
881          '<a href="mailo:' + Res.FMailTo + '">' + Res.FName + '</a>', [rfReplaceAll] );          '<a href="mailo:' + Res.FMailTo + '"><b>' + Res.FName + '</b></a>', [rfReplaceAll] );
882        Skin := StringReplace( Skin, '<MAIL/>', Res.FMailTo, [rfReplaceAll] );        Skin := StringReplace( Skin, '<MAIL/>', Res.FMailTo, [rfReplaceAll] );
883        Skin := StringReplace( Skin, '<DATE/>', Res.FDateTime, [rfReplaceAll] );        Skin := StringReplace( Skin, '<DATE/>', Res.FDateTime, [rfReplaceAll] );
884        Skin := StringReplace( Skin, '<MESSAGE/>', Res.FBody, [rfReplaceAll] );        Skin := StringReplace( Skin, '<MESSAGE/>', Res.FBody, [rfReplaceAll] );
# Line 887  var Line 887  var
887        Skin := StringReplace( Skin, '&NUMBER',        Skin := StringReplace( Skin, '&NUMBER',
888          '<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] );          '<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] );
889        Skin := StringReplace( Skin, '&PLAINNUMBER', No, [rfReplaceAll] );        Skin := StringReplace( Skin, '&PLAINNUMBER', No, [rfReplaceAll] );
890        Skin := StringReplace( Skin, '&NAME', Res.FName, [rfReplaceAll] );        Skin := StringReplace( Skin, '&NAME', '<b>' + Res.FName + '</b>', [rfReplaceAll] );
891        Skin := StringReplace( Skin, '&MAILNAME',        Skin := StringReplace( Skin, '&MAILNAME',
892          '<a href="mailo:' + Res.FMailTo + '">' + Res.FName + '</a>', [rfReplaceAll] );          '<a href="mailo:' + Res.FMailTo + '"><b>' + Res.FName + '</b></a>', [rfReplaceAll] );
893        Skin := StringReplace( Skin, '&MAIL', Res.FMailTo, [rfReplaceAll] );        Skin := StringReplace( Skin, '&MAIL', Res.FMailTo, [rfReplaceAll] );
894        Skin := StringReplace( Skin, '&DATE', Res.FDateTime, [rfReplaceAll] );        Skin := StringReplace( Skin, '&DATE', Res.FDateTime, [rfReplaceAll] );
895        Skin := StringReplace( Skin, '&MESSAGE', Res.FBody, [rfReplaceAll] );        Skin := StringReplace( Skin, '&MESSAGE', Res.FBody, [rfReplaceAll] );
# Line 944  begin Line 944  begin
944                                  FileExists( SkinHeaderFileName ) then begin                                  FileExists( SkinHeaderFileName ) then begin
945                                  // スキン使用                                  // スキン使用
946    
947                                    SizeByte := Length( SaveList.Text );
948    
949                                  // スキンの設定                                  // スキンの設定
950          try          try
951            SaveList.Add( LoadSkin( SkinHeaderFileName ) );            SaveList.Add( LoadSkin( SkinHeaderFileName ) );
# Line 976  begin Line 978  begin
978                  try                  try
979                  SaveList.Add( LoadSkin( SkinNewmarkFileName ) );                  SaveList.Add( LoadSkin( SkinNewmarkFileName ) );
980                except                except
981                  SaveList.Add( '<a name="new"></a><dt class="newmark">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></dt><dd style="display:none"></dd>' );                  SaveList.Add( '<a name="new"></a>' );
982                end;                end;
983              end;              end;
984    
# Line 990  begin Line 992  begin
992              except              except
993              end;              end;
994    
995                                                  if ThreadItem.Kokomade = (i + 1) then                                                  if ThreadItem.Kokomade = (i + 1) then begin
996                  // ここまで読んだ
997                    try
998                  SaveList.Add( LoadSkin( SkinBookmarkFileName ) );                  SaveList.Add( LoadSkin( SkinBookmarkFileName ) );
999                  except
1000                  end;
1001                end;
1002                                          end;                                          end;
1003    
1004                                          //if SaveList.Count > 50 then begin                                          //if SaveList.Count > 50 then begin
# Line 1016  begin Line 1023  begin
1023                                  SaveList.Add('<a name="bottom"></a>');                                  SaveList.Add('<a name="bottom"></a>');
1024    
1025                                  // スキン(フッタ)                                  // スキン(フッタ)
1026          SaveList.Add( LoadSkin( SkinFooterFileName ) );          try
1027                    SaveList.Add( LoadSkin( SkinFooterFileName ) );
1028            except
1029            end;
1030    
1031                                  doc.Write(SaveList.Text);                                  doc.Write(SaveList.Text);
1032    

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

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