使用 IntraWeb (14) - 基本控件之 TIWHRule、TIWRectangle
使用 IntraWeb (14) - 基本控件之 TIWHRule、TIWRectangle
涂孟超 发表于4年前
使用 IntraWeb (14) - 基本控件之 TIWHRule、TIWRectangle
  • 发表于 4年前
  • 阅读 15
  • 收藏 0
  • 点赞 0
  • 评论 0

【腾讯云】买域名送云解析+SSL证书+建站!>>>   


TIWHRule     //一条横线, 对应 Html 中的 <hr/>
TIWRectangle //矩形; 中间可以有行文本, 文本可任意对齐


TIWHRule 所在单元及继承链:
IWHTMLControls.TIWHRule < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

它没什么特别的成员, 下面是通过样式表把它改成红线:
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWHRule1.Width := Width div 2;
  IWHRule1.Height := 3;
  IWHRule1.Left := (Width - IWHRule1.Width) div 2;
  IWHRule1.Top := 60;
  IWHRule1.Anchors := [akLeft, akTop, akRight];
end;

procedure TIWForm1.IWHRule1HTMLTag(ASender: TObject; ATag: TIWHTMLTag);
begin
  ATag.Params.Values['style'] := ATag.Params.Values['style'] + 'background-color: red; border:0;';
end;



TIWRectangle 所在单元及继承链:
IWCompRectangle.TIWRectangle < TIWCustomRectangle < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:
property BorderOptions: TIWBorderOptions //边框选项; 主要是 Width 和 Color
property Color: TIWColor                 //矩形的颜色
property Alignment: TAlignment           //文本水平对齐方式
property VAlign: TIWVerticalAlignment    //文本垂直对齐方式
property Text: TCaption                  //文本


示例:
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWRectangle1.BorderOptions.Width := 1;
  IWRectangle1.BorderOptions.Color := $0000FF;
  IWRectangle1.Color := $F0E0E0;

  IWRectangle1.Text := '万一的 Delphi 博客';
  IWRectangle1.Font.Color := $0000FF;
  IWRectangle1.Font.Size := 16;

  IWRectangle1.Alignment := taCenter;
  IWRectangle1.VAlign := vaMiddle;
end;


  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: