Delphi XE2 之 FireMonkey 入门(6) - TLine、TEllipse、TCircle、TPie、TArc、TRectangle、TRoundRect、TCalloutRectangle
它们都是继承自 TShape 类, 共同拥有如下属性:
Fill : TBrush; //填充
Stroke : TBrush; //边线(画笔)
StrokeThickness : Single; //厚度(边线宽度)
StrokeCap : TStrokeCap; //线帽样式, TStrokeCap (枚举)类型
StrokeDash : TStrokeDash; //虚线样式, TStrokeDash(枚举)类型
StrokeJoin : TStrokeJoin; //拐点结合样式, TStrokeJoin(枚举)类型
ShapeRect : TRectF; //可填充范围的矩形(相对于当前图形)
TLine 用不着 Fill, 但增加了 LineType 属性(TLineType 枚举类型);
procedure TForm1.Button1Click(Sender: TObject);
begin
Line1.LineType := TLineType.ltDiagonal; //斜线
Line2.LineType := TLineType.ltTop; //横线
Line3.LineType := TLineType.ltLeft; //竖线
end;
TElipse 和 TCircle 没有新属性, 应该也用不着 StrokeCap、StrokeJoin.
procedure TForm1.Button1Click(Sender: TObject);
begin
Ellipse1.StrokeDash := TStrokeDash.sdDot; //虚线样式
Circle1.Fill.Kind := TBrushKind.bkNone; //取消填充
end;
TArc 和 TPie 增加了 StartAngle、EndAngle 属性.
TRectangle 增加了控制圆角的 XRadius、YRadius 属性、控制边线的 Sides 属性、控制四个角的 Corners、CornerType 属性;
TRoundRect 只加了 Corners 属性; 看来要做更随意的圆角矩形得用 TRectangle 而不是 TRoundRect.
procedure TForm1.Button1Click(Sender: TObject);
begin
Rectangle1.Position.X := ;
Rectangle1.Position.Y := ;
Rectangle1.Width := ;
Rectangle1.Height := ;
Rectangle1.StrokeThickness := ;
Rectangle1.Fill.Color := $80FF0000;
Rectangle1.Stroke.Color := $800000FF; Rectangle1.XRadius := ;
Rectangle1.YRadius := ;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
Rectangle2.Position.X := ;
Rectangle2.Position.Y := ;
Rectangle2.Width := ;
Rectangle2.Height := ;
Rectangle2.StrokeThickness := ;
Rectangle2.Fill.Color := claRed;
Rectangle2.Stroke.Color := claBlack; Rectangle2.CornerType := TCornerType.ctBevel;
Rectangle2.Corners := [TCorner.crBottomLeft, TCorner.crBottomRight];
Rectangle2.Sides := [TSide.sdBottom, TSide.sdRight]; //关于 Corners 和 Sides 还有两个非常方便的常量: AllCorners、AllSides
end;
TCalloutRectangle 很有意思, 矩形外带一个三角, 应该是用于图形化的注释.
给它增加的 CalloutWidth、CalloutLength、CalloutPosition、CalloutOffset 四个属性都是用于控制三角的.
procedure TForm1.Button1Click(Sender: TObject);
begin
CalloutRectangle1.Width := ;
CalloutRectangle1.Height := ;
CalloutRectangle1.CalloutPosition := TCalloutPosition.cpBottom;
CalloutRectangle1.CalloutWidth := CalloutRectangle1.Width / ;
CalloutRectangle1.CalloutLength := CalloutRectangle1.Height / ;
CalloutRectangle1.CalloutOffset := -CalloutRectangle1.Width / ;
end;
这其中需要进一步学习的是 Fill、Stroke 属性, 它们都是 TBrush 类型, 会涉及到 TBitmap、TBitmapObject、TCanvas 等等.
Delphi XE2 之 FireMonkey 入门(6) - TLine、TEllipse、TCircle、TPie、TArc、TRectangle、TRoundRect、TCalloutRectangle的更多相关文章
- Delphi XE2 之 FireMonkey 入门(45Finally) - 结题与问题
Delphi XE2 之 FireMonkey 入门(45Finally) - 结题与问题 很喜欢 FMX 的一些新控件, 如: TExpander.TArcDial.TComboTrackBar.T ...
- Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView、TTreeViewItem
Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView.TTreeViewItem TScrollBox -> TCustomTreeView -> ...
- Delphi XE2 之 FireMonkey 入门(43) - 控件基础: TStringGrid、TGrid
Delphi XE2 之 FireMonkey 入门(43) - 控件基础: TStringGrid.TGrid TStringGrid.TGrid 都是从 TCustomGrid 继承; 区别有:1 ...
- Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox、TComboEdit
Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox.TComboEdit TListBox 有两个兄弟 TComboListBox.TComboEditL ...
- Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox
Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox TScrollBox -> TCustomListBox -> TListBox; 其元素项 ...
- Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo
Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo 值得注意的变化: 1.其父类 TScrollBox 的许多特性也很有用处, 如: Memo1.UseSma ...
- Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox、TVertScrollBox、TFramedScrollBox、TFramedVertScrollBox
Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox.TVertScrollBox.TFramedScrollBox.TFramedVertScrollB ...
- Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu、TMenuItem、TMenuBar、TMainMenu
Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu.TMenuItem.TMenuBar.TMainMenu 相关控件: TMenuBar.TPopup ...
- Delphi XE2 之 FireMonkey 入门(37) - 控件基础: TControl 概览
Delphi XE2 之 FireMonkey 入门(37) - 控件基础: TControl 概览 { TControl } public constructor Create(...); ov ...
随机推荐
- ECCV2014 Accepted paper
今天早上看到小伙伴们说ECCV2014结果出来了, 自己于是赶紧看了下, 感觉ECCV2014显著性的文章和以往的不太一样. 1.Salient Montages from Unconstrained ...
- Neo4j清空所有数据
两种方法: 一.用下列 Cypher 语句: match (n) detach delete n 二. 1.停掉服务: 2.删除 graph.db 目录: 3.重启服务. 原文地址:http://ne ...
- FreeIPA部署及基本使用
FreeIPA是一个集成安全信息管理解决方案,FreeIPA服务器通过存储管理计算机网络安全方面所需的用户.组.主机和其他对象的数据,提供集中的身份验证.授权和账户信息.结合了Linux.Direct ...
- Java数据封装成树形结构,多级
参考地址:https://blog.csdn.net/chendu500qiang/article/details/91493147 1.实体类 @data public class PublishS ...
- CSP2019 题解
CSP2019 题解 D1T1 格雷码(code) 题目传送门 https://loj.ac/problem/3208 题解 按照题意模拟就可以了. 对于第 \(i\) 位,如果 \(k \geq 2 ...
- spring mvc 数据校验(bean实体注解实现)
spring mvc 数据校验 1.添加个jar (jar与一版本会冲突) <dependency> <groupId>com.fasterxml</groupId> ...
- 循环结构for语句-求和思想
循环结构for语句的练习-求和思想:需求1:求出1到10之间的数据和 public static void main(String[] args) { int sum = 0; for(int i = ...
- 【bzoj1336/1337/2823】最小圆覆盖
题目描述: 给出平面上N个点,请求出一个半径最小的圆覆盖住所有的点 输入: 第一行给出数字N,现在N行,每行两个实数x,y表示其坐标. 输出: 输出最小半径,输出保留三位小数. 样例输入: 4 1 0 ...
- vim 复制
要复制到别的地方,用 "+y 来复制,注意是三个字符.gg"+yG 1.复制 1)单行复制 在命令模式下,将光标移动到将要复制的行处,按“yy”进行复制: 2)多行复制 在命令模式 ...
- HDU 1002 A - A + B Problem II (大数问题)
原题代号:HDU 1002 原题链接:http://acm.hdu.edu.cn/showproblem.php?pid=1002 原题描述: Problem Description I have a ...