Delphi XE5 如何设计并使用FireMonkeyStyle(转)

如何设计并使用FireMonkeyStyle

FireMonkey使用Style来控制控件的显示方式。

每个控件都有一个StyleLookup属性,FireMonkey就是通过控件的这个属性来在当前窗体的StyleBook控件中查找匹配的Style,如果找到了这个Style,那么控件就使用这个Style来显示。

StyleBook是一个Style的集合,里面可以有窗体的Style,按钮的Style,文本框的Style,等等。每个Style其实就是一个控件,像常用到的TLayout,TRectangle等等,只是这个控件需要设置它的StyleName。

比如我在StyleBook中设计这样一个按钮:

l   Layout:TLayout(StyleName设置为“defaultbutton”)

n   Rectangle:TRectangle(用来显示按钮背景)

u  Text:TLabel(用来显示按钮标题)

那么这个Layout就表示了一个名为“defaultbutton”的Style。如果这时候,窗体上放一个Button,然后将它的StyleLookup属性为“defaultbutton”,FireMonkey就会从当前窗体的StyleBook中遍历我们设计的所有控件,查找StyleName为Button的StyleLookup属性值的控件,也就是StyleName为“defaultbutton”的控件,就是我们刚才设计的Layout控件,查找到了之后,就返回一个Layout的克隆,也就是复制一个Layout(它的子控件也会复制进去),然后在Button上显示出来。

原理就讲这些了,下面我用举个例子来演示一下这些步骤:

这个例子是在TListBoxItm控件上使用我们设计的Style,

  1. 在组件面板(Tool Palette)上选择一个TStyleBook组件,将它拖放到窗体上,Name为StyleBook1,然后将窗体StyleBook属性设置为StyleBook1。

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

  1. 在窗体上放一个TListBox组件,将它拖放到窗体上,Name为ListBox1。

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

设置ListBox1的Align属性为alClient,

并右击ListBox1,在弹出的菜单中选中Items Editor…

点击Add Item按钮,会在ListBox1上面添加一个TListBoxItem,

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

  1. 双击StyleBook1,IDE会进入到Style Designer模式:

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

  1. 设计Style,首先在组件面板(Tool Palette)中选择一个TLayout组件(Layouts分类),拖动到左上角,

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

这时候结构视图显示如下:

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

在属性查看器中设置Layout的StyleName为defaultitemstyle:

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

然后我们在Layout下添加一个TRectangle做为背景:

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

将这个Rectangle的颜色设置为红色,也就是将它的Fill.Color设置为Red,并将Rectangle的Layout属性设置为alClient:

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

  1. 按一下FireMonkey Style Designer ToolBar上面的Apply and Close按钮,好了,一个名为defaultitemstyle的Style已经设计完成了。
  2. 然后选中我们之前添加的ListBoxItem1,在属性查看器中的StyleLookup属性值更改为defaultitemstyle。

看,这个ListBoxItem已经显示成我们设计的Style了(一个红色的矩形):

Delphi XE5  如何设计并使用FireMonkeyStyle(转)

上一篇:为什么使用 Redis及其产品定位 (转载自http://www.infoq.com/cn/articles/tq-why-choose-redis)


下一篇:C#各版本新功能