{通过窗体的 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.
-------------------------------------------------------------------}
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;
使用 IntraWeb (10) - CSS,布布扣,bubuko.com
原文地址:http://www.cnblogs.com/del/p/3778833.html