FireMonkey 入门(11) - 控件居中、旋转、透明

减小字体 增大字体 作者:佚名  来源:万一的博客  发布时间:2011-10-20 12:28:22

RotationAngle、RotationCenter、Opacity 属性继承自 TControl(FMX.Types), 这些新属性成了控件的基本功能.

先在 HD 窗体上添加 TRectangle 和两个按钮...


procedure TForm1.FormCreate(Sender: TObject);
begin
  Rectangle1.Width := 100;
  Rectangle1.Height := 100;
  Rectangle1.Fill.Color := claYellow;
  Rectangle1.Stroke.Color := claRed;
  {居中; 喜欢这种带枚举名的赋值方式}
  Rectangle1.Align := TAlignLayout.alCenter;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  {旋转中心点: [0.5,0.5] 是默认值, 表示控件的中心点; [0,0] 和 [1,1] 分别表示控件的左上角和右下角}
  Rectangle1.RotationCenter.X := 0.5;
  Rectangle1.RotationCenter.Y := 0.5; //
  {旋转角度}
  Rectangle1.RotationAngle := 45;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  {透明度: 0.0 - 1.0}
  Rectangle1.Opacity := 0.5;
end;
 

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B