元件的变形

在下面这个例子中，我们介绍如何对元件设计特定的变形方法。

先绘制三个矩形，排列如下：

这个图形是由两边的两个矩形A和B以及中间的一个矩形C组合而成。

把三个图形组合起来形成一个元件。

我们试着用鼠标拉伸一下这个元件，图形变成这样:

可见,元件的变形在默认状态下是内部各图形等比例变形的。

如果我们希望图形拉伸时变成下面这样，A和B不变形，只是B移位，C变形，应该怎么办呢？

在元件上方按右键，选择菜单“Edit element”，在函数事件中找到OnResize事件，编写如下代码：

A.SetBounds( Left, Top, A.Width, Height )
B.SetBounds( Right - B.Width, Top, B.Width, Height )
C.SetBounds( A.Right, Top + Height / 2 - C.Height / 2, Width - A.Width - B.Width, C.Height )

这个事件中的程序，即使在绘图状态下也执行。当我们用鼠标拉伸元件，改变其大小的时候就执行上面的代码。