⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 un_css.pas

📁 ReadWorld RSS 聚合新闻 阅读器 XML 欢迎使用ReadWorldRSS阅读器 1 这个程序更改了我上回发布的《聚合新闻（RSS）阅读器》的一些错误。 2 新增了频道列表的拖放
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
     SHtmlFile.Add('    <div id='''+'time'''+'>'+' '+'</div>');
    if C1.Count=D1.Count then
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+C1.Strings[i]+'</div><p>')
    else
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+'<没有摘要说明>'+'</div><p>');
    SHtmlFile.Add('    <div id='''+'readall'''+'>[<a href='+D1.Strings[i]+' target=_blank>阅读全文</a>]</div>');
    SHtmlFile.Add('</div>');
  end;
 SHtmlFile.Add('  </div>');
 SHtmlFile.Add('  </center>');
 SHtmlFile.Add('  </body></html>');
 SHtmlFile.SaveToFile(ExtractFilePath(Application.ExeName)+'Temp.htm');
 FMRss.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Temp.htm');
 SHtmlFile.Free;
end;
procedure SaveTempHTML2(A2, B2, C2, D2:TstringList;TitleName2:string;Counts2:integer);
var
 SHtmlFile:TStringList;
 i:integer;
begin
 SHtmlFile:=TStringList.Create ;
 SHtmlFile.Clear;
 SHtmlFile.Add('<html><head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">');
 SHtmlFile.Add('<style type="text/css">');
 SHtmlFile.Add('       td,p,li,input,select,div,span {font-size:12px;}');
 SHtmlFile.Add('       table,td,img,div,span{border: none;margin: 0px 0px 0px 0px;padding: 0px 0px 0px 0px;}');
 SHtmlFile.Add('       .f10 {font-size: 10px;}');
 SHtmlFile.Add('       .f12 {font-size: 12px;}');
 SHtmlFile.Add('       .f14 {font-size: 14px;}');
 SHtmlFile.Add('       .f16 {font-size: 16px;}');
 SHtmlFile.Add('       .lh17 {line-height:17px;}');
 SHtmlFile.Add('       .lh19 {line-height:19px;}');
 SHtmlFile.Add('       A:link {color:#00f;}');
 SHtmlFile.Add('       A:visited {color:#800080;}');
 SHtmlFile.Add('       A:active {color:#f00;}');
 SHtmlFile.Add('       A:hover {color:#f00;}');
 SHtmlFile.Add('       .tree a:link {text-decoration: none;color:#025EA7;font-weight: bold;}');
 SHtmlFile.Add('       .tree a:visited {text-decoration: none;color:#025EA7;font-weight: normal;}');
 SHtmlFile.Add('       .tree a:active,.tree a:hover {text-decoration: none;color:#CC0000;}');
 SHtmlFile.Add('       .tree {color:#222;line-height:19px;width:96%;text-align:left;}');
 SHtmlFile.Add('       .tree #channel{font-size:16px;font-weight:bold;color:#005FAB;text-align:center;padding:10px 0 10px 0;border:1px solid #AECBDB;border-top:5px solid #015FA9;clear:both;margin-bottom:5px;margin-top:5px;background-color:#F3F7F8;}');
 SHtmlFile.Add('       .tree #block{margin-bottom:5px;border:1px solid #AECBDB;background-color:#fff;clear:both;}');
 SHtmlFile.Add('       .tree #title{font-weight:bold;font-size:14px;clear:both;padding:7px 0 5px 5px;background-color:#F3F7F8;margin-bottom:7px;color:#025EA7;}');
 SHtmlFile.Add('       .tree #author{color:#808080;float:left;}');
 SHtmlFile.Add('       .tree #time{color:#808080;float:right;}');
 SHtmlFile.Add('       .tree #description{clear:both;}');
 SHtmlFile.Add('       .tree #readall{text-align:right;font-weight:bold;color:#025EA7;}');
 SHtmlFile.Add('       .tree #readall a{text-decoration:underline;font-weight: bold;}');
 SHtmlFile.Add('       .subBlk{padding:7px 10px 7px 10px;}');
 SHtmlFile.Add('</style>');
 SHtmlFile.Add('</head>');
 SHtmlFile.Add('<body bgcolor=#DAE5E9 topmargin=5 marginheight=5 leftmargin=5 marginwidth=5>');
 SHtmlFile.Add('<center>');
 SHtmlFile.Add('<div id='''+'list'''+' class='''+'tree'''+'>');
 if TitleName2<>'' then
   SHtmlFile.Add('<div id='''+'channel'''+'>'+TitleName2+'</div>');
 for i:=0 to counts2-1 do
  begin
    SHtmlFile.Add('<div id='''+'block'''+'>');
    SHtmlFile.Add('    <div id='''+'title'''+'>'+'·<a href='+D2.Strings[i]+' target=_blank>'+A2.Strings[i]+'</a></div>');
    SHtmlFile.Add('    <div class='''+'subBlk'''+'>');
    if B2.Count=D2.Count then
     SHtmlFile.Add('    <div id='''+'time'''+'>'+B2.Strings[i]+'</div>')
    else
     SHtmlFile.Add('    <div id='''+'time'''+'>'+' '+'</div>');
    if  C2.Count=D2.Count  then
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+C2.Strings[i]+'</div><p>')
    else
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+'<没有摘要说明>'+'</div><p>');
    SHtmlFile.Add('    <div id='''+'readall'''+'>[<a href='+D2.Strings[i]+' target=_blank>阅读全文</a>]</div>');
    SHtmlFile.Add('</div>');
    SHtmlFile.Add('</div>');
  end;
 SHtmlFile.Add('  </div>');
 SHtmlFile.Add('  </center>');
 SHtmlFile.Add('  </body></html>');
 SHtmlFile.SaveToFile(ExtractFilePath(Application.ExeName)+'Temp.htm');
 FMRss.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Temp.htm');
 SHtmlFile.Free;
end;
procedure SaveTempHTML3(A3, B3, C3, D3: TstringList;
  TitleName3: string; Counts3: integer);
var
 SHtmlFile:TStringList;
 i:integer;
begin
 SHtmlFile:=TStringList.Create ;
 SHtmlFile.Clear;
 SHtmlFile.Add('<html><head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">');
 SHtmlFile.Add('<style type="text/css">');
 SHtmlFile.Add('       td,p,li,input,select,div,span {font-size:12px;}');
 SHtmlFile.Add('       table,td,img,div,span{border: none;margin: 0px 0px 0px 0px;padding: 0px 0px 0px 0px;}');
 SHtmlFile.Add('       .f10 {font-size: 10px;}');
 SHtmlFile.Add('       .f12 {font-size: 12px;}');
 SHtmlFile.Add('       .f14 {font-size: 14px;}');
 SHtmlFile.Add('       .f16 {font-size: 16px;}');
 SHtmlFile.Add('       .lh17 {line-height:17px;}');
 SHtmlFile.Add('       .lh19 {line-height:19px;}');
 SHtmlFile.Add('       A:link {color:#00f;}');
 SHtmlFile.Add('       A:visited {color:#800080;}');
 SHtmlFile.Add('       A:active {color:#f00;}');
 SHtmlFile.Add('       A:hover {color:#f00;}');
 SHtmlFile.Add('       .tree a:link{text-decoration: none;color:#CAFF67;font-weight: bold;}');
 SHtmlFile.Add('       .tree a:visited {text-decoration: none;color:#CAFF67;font-weight: normal;}');
 SHtmlFile.Add('       .tree a:active,.tree a:hover {text-decoration: none;color:#CCFFFF;}');
 SHtmlFile.Add('       .tree {color:#fff;line-height:19px;width:96%;text-align:left;}');
 SHtmlFile.Add('       .tree #channel{font-size:16px;font-weight:bold;color:#CAFF67;text-align:center;padding:5px 0 10px 0;margin-bottom:8px;margin-top:10px;}');
 SHtmlFile.Add('       .tree #block{margin-bottom:9px;padding-top:10px;border-top:2px dotted #CBCDCC;}');
 SHtmlFile.Add('       .tree #title{font-weight:bold;font-size:14px;clear:both;margin-bottom:5px;margin-top:5px;color:#CAFF67}');
 SHtmlFile.Add('       .tree #author{color:#CBCDCA;float:left;margin-bottom:5px;}');
 SHtmlFile.Add('       .tree #time{color:#CBCDCA;float:right;margin-bottom:5px;}');
 SHtmlFile.Add('       .tree #description{clear:both;}');
 SHtmlFile.Add('       .tree #readall{text-align:right;font-weight:bold;}');
 SHtmlFile.Add('       .tree ##readall a{text-decoration: underline;font-weight: bold;}');
 SHtmlFile.Add('</style>');
 SHtmlFile.Add('</head>');
 SHtmlFile.Add('<body bgcolor=#000000 topmargin=5 marginheight=5 leftmargin=5 marginwidth=5>');
 SHtmlFile.Add('<center>');
 SHtmlFile.Add('<div id='''+'list'''+' class='''+'tree'''+'>');
 if TitleName3<>'' then
   SHtmlFile.Add('<div id='''+'channel'''+'>'+TitleName3+'</div>');
 for i:=0 to counts3-1 do
  begin
    SHtmlFile.Add('<div id='''+'block'''+'>');
    SHtmlFile.Add('    <div id='''+'title'''+'>'+'·<a href='+D3.Strings[i]+' target=_blank>'+A3.Strings[i]+'</a></div>');
    if B3.Count=D3.Count then
      SHtmlFile.Add('    <div id='''+'time'''+'>'+B3.Strings[i]+'</div>')
    else
     SHtmlFile.Add('    <div id='''+'time'''+'>'+' '+'</div>');
    if C3.Count=D3.Count then
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+C3.Strings[i]+'</div><p>')
    else
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+'<没有摘要说明>'+'</div><p>');
    SHtmlFile.Add('    <div id='''+'readall'''+'>[<a href='+D3.Strings[i]+' target=_blank>阅读全文</a>]</div>');
    SHtmlFile.Add('</div>');
  end;
 SHtmlFile.Add('  </div>');
 SHtmlFile.Add('  </center>');
 SHtmlFile.Add('  </body></html>');
 SHtmlFile.SaveToFile(ExtractFilePath(Application.ExeName)+'Temp.htm');
 FMRss.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Temp.htm');
 SHtmlFile.Free;
end;
procedure SaveTempHTML4(A4, B4, C4, D4: TstringList;
  TitleName4: string; Counts4: integer);
var
 SHtmlFile:TStringList;
 i:integer;
begin
 SHtmlFile:=TStringList.Create ;
 SHtmlFile.Clear;
 SHtmlFile.Add('<html><head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">');
 SHtmlFile.Add('<style type="text/css">');
 SHtmlFile.Add('       td,p,li,input,select,div,span {font-size:12px;}');
 SHtmlFile.Add('       table,td,img,div,span{border: none;margin: 0px 0px 0px 0px;padding: 0px 0px 0px 0px;}');
 SHtmlFile.Add('       .f10 {font-size: 10px;}');
 SHtmlFile.Add('       .f12 {font-size: 12px;}');
 SHtmlFile.Add('       .f14 {font-size: 14px;}');
 SHtmlFile.Add('       .f16 {font-size: 16px;}');
 SHtmlFile.Add('       .lh17 {line-height:17px;}');
 SHtmlFile.Add('       .lh19 {line-height:19px;}');
 SHtmlFile.Add('       A:link {color:#00f;}');
 SHtmlFile.Add('       A:visited {color:#800080;}');
 SHtmlFile.Add('       A:active {color:#f00;}');
 SHtmlFile.Add('       A:hover {color:#f00;}');
 SHtmlFile.Add(' 	.tree a:link {text-decoration: none;color:#025EA7;font-weight:bold;}');
 SHtmlFile.Add('	.tree a:visited {text-decoration: none;color:#025EA7;font-weight:normal;}');
 SHtmlFile.Add('	.tree a:active,.tree a:hover {text-decoration: none;color:#CC0000;}');
 SHtmlFile.Add('	.tree {color:#222;line-height:19px;width:96%;text-align:left;}');
 SHtmlFile.Add('	.tree #channel{font-size:16px;font-weight:bold;color:#015FA7;padding:12px 0 12px 20px;border:1px solid #98BFDC;clear:both;margin-bottom:8px;background-color:#DEE7EC;} ');
 SHtmlFile.Add('	.tree #block{margin-bottom:15px;width:48%;margin-right:1%;border:1px solid #98BFDC;background-color:#fff;float:left;}  ');
 SHtmlFile.Add('	.tree #title{font-size:14px;clear:both;padding:7px 0 5px 5px;background-color:#DEE7EC;margin-bottom:7px;color:#025EA7;}  ');
 SHtmlFile.Add('	.tree #author{color:#808080;float:left;} ');
 SHtmlFile.Add('	.tree #time{color:#808080;float:right;} ');
 SHtmlFile.Add('	.tree #description{clear:both;} ');
 SHtmlFile.Add('	.tree #readall{text-align:right;font-weight:bold;color:#025EA7;}');
 SHtmlFile.Add('	.tree #readall a{text-decoration:underline;font-weight:bold;}');
 SHtmlFile.Add('	.subBlk{padding:7px 10px 7px 10px;}');
 SHtmlFile.Add('	.blockAlt{margin-bottom:15px;width:100%;border:1px solid #98BFDC;background-color:#fff;float:left;}');
 SHtmlFile.Add('</style>');
 SHtmlFile.Add('<script language='''+'javascript'''+' type='''+'text/javascript'''+'>');
 SHtmlFile.Add('<!--');
 SHtmlFile.Add('function ReSize(){for(var i=0;i<document.images.length;i++){var toW = Math.floor(document.body.clientWidth*40/100);');
 SHtmlFile.Add('var fromW = document.images[i].width;var fromH = document.images[i].height;if(fromW>toW){document.images[i].width = toW;document.images[i].height = fromH*toW/fromW;}}var count = 2;if(count<2) GetObj('''+'block'''+').style.width='''+'100%'''+';}');
 SHtmlFile.Add('function GetObj(objName){if(document.getElementById){return eval('''+'document.getElementById("''' + '+objName+' + '''")'''+');}else{return eval('''+'document.all.'''+'+' + 'objName);}}');
 SHtmlFile.Add('//-->');
 SHtmlFile.Add('</script>');
 SHtmlFile.Add(' </head>');
 SHtmlFile.Add('<body bgcolor=#ffffff topmargin=5 marginheight=5 leftmargin=5 marginwidth=5 onLoad='''+'ReSize()'''+'>');
 SHtmlFile.Add('<center>');
 SHtmlFile.Add('<div id='''+'list'''+' class='''+'tree'''+'>');
 if TitleName4<>'' then
   SHtmlFile.Add('<div id='''+'channel'''+'>'+TitleName4+'</div>');
 for i:=0 to counts4-1 do
  begin
    SHtmlFile.Add('<div id='''+'block'''+'>');
    SHtmlFile.Add('    <div id='''+'title'''+'>'+'·<a href='+D4.Strings[i]+' target=_blank>'+A4.Strings[i]+'</a></div>');
    SHtmlFile.Add('    <div class='''+'subBlk'''+'>');
    if B4.Count=D4.Count then
      SHtmlFile.Add('    <div id='''+'time'''+'>'+B4.Strings[i]+'</div>')
    else
     SHtmlFile.Add('    <div id='''+'time'''+'>'+' '+'</div>');
    if C4.Count=D4.Count  then
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+C4.Strings[i]+'</div><p>')
    else
      SHtmlFile.Add('    <div id='''+'description'''+'>&nbsp;&nbsp;&nbsp;&nbsp;'+'<没有摘要说明>'+'</div><p>');
    SHtmlFile.Add('    <div id='''+'readall'''+'>[<a href='+D4.Strings[i]+' target=_blank>阅读全文</a>]</div>');
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -