8288分类目录 8288分类目录 8288分类目录
  当前位置:海洋目录网 » 站长资讯 » 站长资讯 » 文章详细 订阅RssFeed

使用 IntraWeb (10) - CSS

来源:本站原创 浏览:124次 时间:2021-09-15
使用 IntraWeb (10) - CSS    


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     //Enabledproperty RenderPadding: Boolean    //property RenderBorder: Boolean     //property RenderAbsolute: Boolean   //property UseDisplay: Boolean       //当对应值为 False 时才可以使用相应的 CSS.-------------------------------------------------------------------}


CSS 的诸多操作类似与 JavaScript, 譬如:


procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWServerController.HTMLHeaders('');  Self.PreHeader.Add('');  Self.ExtraHeader.Add('');  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;


  推荐站点

  • At-lib分类目录At-lib分类目录

    At-lib网站分类目录汇集全国所有高质量网站,是中国权威的中文网站分类目录,给站长提供免费网址目录提交收录和推荐最新最全的优秀网站大全是名站导航之家

    www.at-lib.cn
  • 中国链接目录中国链接目录

    中国链接目录简称链接目录,是收录优秀网站和淘宝网店的网站分类目录,为您提供优质的网址导航服务,也是网店进行收录推广,站长免费推广网站、加快百度收录、增加友情链接和网站外链的平台。

    www.cnlink.org
  • 35目录网35目录网

    35目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向35目录推荐、提交优秀网站。

    www.35mulu.com
  • 就要爱网站目录就要爱网站目录

    就要爱网站目录,按主题和类别列出网站。所有提交的网站都经过人工审查,确保质量和无垃圾邮件的结果。

    www.912219.com
  • 伍佰目录伍佰目录

    伍佰网站目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向伍佰目录推荐、提交优秀网站。

    www.wbwb.net