文档章节

使用 IntraWeb (14) - 基本控件之 TIWHRule、TIWRectangle

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 237
阅读 20
收藏 0

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;


本文转载自:http://www.cnblogs.com/del/p/3784873.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
界面控件包TMS IntraWeb Component Pack Pro Script Edition发布v5.8.8.1

TMS IntraWeb Component Pack Pro Script Edition允许从Delphi IDE直接在IntraWeb表格上编辑设计期间的网页。IntraWeb的TMS控件允许以RAD方法用Delphi进行网页应用程序的开发。这使得网页开发...

Harriet666
2017/10/20
0
0
使用delphi 开发 web(一) webbroke 简介

从delphi 3 开始,就可以支持使用webbroke 技术开发基于web 服务器。当时主要是支持CGI和ISAPI. CGI 其实就是一个类似控制台的可执行程序,将其放入web 服务器的可执行目录,每次web 服务器调...

xalion
2012/01/04
0
0
《Silverlight 2完美征程》:书稿目录

内容简介 本书详细介绍了微软下一代富互联网开发技术Silverlight,分为基础篇、进阶篇、高级篇和案例篇四个部分,共22个章节,以Silverlight 2为主要版本从不同的层面进行了阐释,第一部分介...

lihuijun
2009/04/24
0
0
VB.NET与VB6.0区别初认识

VB.NET看完曹祖圣老师的视频,一口的台湾话,连PPT都不是简体中文的,听起来颇有意思。(.NET说是当内,第一次还想什么是当内呢。哈哈)不过话又说回来,这套视频和平常的视频不太一样,好像是...

晨曦之光
2012/04/24
496
0
强大的基于XML/JSON的Flash金融图表解决方案AnyStock

AnyStock是一款基于XML/JSON的Flash金融图表解决方案,转换你的实时数据为具有交互功能的顶级图表,使你的数据直观地展现在Web页面上,控件支持滚动、下拉、动缩放效果等,并且提供了一系列金...

netkongjian
2014/04/23
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Swift-系统默认UICollectionViewController的基本用法

不用xib创建时,需要重写 override init(collectionViewLayout layout: UICollectionViewLayout){} 在调用时需传 UICollectionViewLayout值,不然就会报错 let layout = UICollectionViewFlow......

west_zll
11分钟前
1
0
Spring Boot 最核心的 3 个注解详解

最近面试一些 Java 开发者,他们其中有些在公司实际用过 Spring Boot, 有些是自己兴趣爱好在业余自己学习过。然而,当我问他们 Spring Boot 最核心的 3 个注解是什么,令我失望的是鲜有人能答...

Java技术栈
12分钟前
1
0
Sqoop 增量导入导出及Job操作示例

增量导入 递增列的增量导入append # 第一次导入[root@node222 ~]# /usr/local/sqoop-1.4.7/bin/sqoop import --connect jdbc:mysql://192.168.0.200:3306/sakila?useSSL=false --table ac......

PeakFang-BOK
18分钟前
1
0
Thread中断的理解

★中断的理解:1)中断可以理解为线程的一个标识位属性;2)表示一个运行中的线程是否被其他线程进行了中断操作 中断好比其他线程向该线程打了个招呼,其他线程通过调用该线程的interrupt()...

karma123
26分钟前
1
0
App store 侵权投诉

App Store Content Dispute 侵权投诉 https://www.apple.com/legal/internet-services/itunes/appstorenotices/#?lang=zh...

壹峰
50分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部