注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

使用 IntraWeb (10) - CSS  

2015-07-05 07:19:49|  分类: delphi xe8 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

IW 会把大多数的视觉属性转换为 CSS; 我们主动使用 CSS 要分两步:

第一步:
{通过窗体的 StyleSheet 属性指定要链接的 CSS 文件}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  StyleSheet.Filename := 'MyCss1.css'; //CSS 文件须放在 wwwroot 下
//  StyleSheet.URL := 'http://...';    //外链
end;

{假如站点级的 CSS ... TIWServerController.OnCreate}
procedure TIWServerController.IWServerControllerBaseCreate(Sender: TObject);
begin
  StyleSheet.Filename := 'MyCss1.css'; //CSS 文件须放在 wwwroot 下
//  StyleSheet.URL := 'http://...';    //外链
end;


第二步:
{为要使用样式的控件指定 Css 属性}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  StyleSheet.Filename := 'MyCss1.css';
  IWMemo1.Css := 'Class1'; //假如 MyCss1.css 中有个 Class1 的类, 如: .Class {font-size: 32px; }

  IWMemo1.StyleRenderOptions.RenderFont := False; //一般情况下, 还需要同时调整下 StyleRenderOptions 属性
end;

{------------------------------------------------------------------
关于 StyleRenderOptions 属性: 

如果我们给控件使用了 CSS, 就有可能和控件本身的属性发生冲突, 用哪一个呢? 这需要控件的 StyleRenderOptions 属性来决定!

它也是个类(IWTypes.TIWStyleRenderOptions < TPersistent < TObject), 该类只有几个布尔属性:
property RenderSize: Boolean       //
property RenderPosition: Boolean   //
property RenderFont: Boolean       //
property RenderZIndex: Boolean     //
property RenderVisibility: Boolean //
property RenderStatus: Boolean     //Enabled
property RenderPadding: Boolean    //
property RenderBorder: Boolean     //
property RenderAbsolute: Boolean   //
property UseDisplay: Boolean       //

当对应值为 False 时才可以使用相应的 CSS.
-------------------------------------------------------------------}


CSS 的诸多操作类似与 JavaScript, 譬如:
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWServerController.HTMLHeaders('<link type="text/css" rel="stylesheet" href="MyCss1.css"/>');
  Self.PreHeader.Add('<link type="text/css" rel="stylesheet" href="MyCss2.css"/>');
  Self.ExtraHeader.Add('<link type="text/css" rel="stylesheet" href="MyCss3.css"/>');

  IWServerController.ContentFiles.Add('MyCss4.css');
  Self.ContentFiles.Add('MyCss5.css');
end;


有没有可能直接在代码中写入 CSS 呢?
{使用 ExtraTagParams 属性}
IWLabel1.ExtraTagParams.Add('style = color: #f00; font-size:22px;');

{使用 OnHTMLTag 事件, 需要 uses IWHTMLTag}
procedure TIWForm1.IWLabel1HTMLTag(ASender: TObject; ATag: TIWHTMLTag);
begin
  ATag.AddStringParam('style', 'color: #f00; font-size:22px;');
end;
  评论这张
 
阅读(32)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017