WinAPI: SetRect 及初始化矩形的几种办法

为什么80%的码农都做不了架构师？>>>

本例分别用五种办法初始化了同样的一个矩形, 运行效果图:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}//使用 API 函数: SetRect
procedure TForm1.Button1Click(Sender: TObject);
varR: TRect;
beginSetRect(R, 20, 20, 80, 80);Canvas.Pen.Color := clBlue;Canvas.Rectangle(R);
end;//使用 Classes.Rect 函数
procedure TForm1.Button2Click(Sender: TObject);
varR: TRect;
beginR := Rect(20, 20, 80, 80);Canvas.Pen.Color := clFuchsia;Canvas.Rectangle(R);
end;//使用 Classes.Rect 函数, 用两个点合成
procedure TForm1.Button3Click(Sender: TObject);
constpt1: TPoint = (x:20; y:20);pt2: TPoint = (x:80; y:80);
varR: TRect;
beginR := Rect(pt1, pt2);Canvas.Pen.Color := clSkyBlue;Canvas.Rectangle(R);
end;//矩形常量
procedure TForm1.Button4Click(Sender: TObject);
constR: TRect = (Left:20; Top:20; Right:80; Bottom:80);
beginCanvas.Pen.Color := clTeal;Canvas.Rectangle(R);
end;//使用 Classes.Bounds 函数, 我最喜欢这种办法
procedure TForm1.Button5Click(Sender: TObject);
varR: TRect;
beginR := Bounds(20, 20, 60, 60);Canvas.Pen.Color := clWhite;Canvas.Rectangle(R);
end;end.

转载于:https://my.oschina.net/hermer/blog/319761

WinAPI: SetRect 及初始化矩形的几种办法相关推荐

在 Java 中初始化 List 的五种方法
转载自在 Java 中初始化 List 的五种方法 Java 中经常需要使用到 List,下面简单介绍几种常见的初始化方式. 1.构造 List 后使用 List.add 初始化 List< ...
JAVA中初始化线程的两种方法_java中最简单的方式新起一个线程
启动一个线程在一个方法中启动一个线程,有两种方法第一种是让类实现Runable接口,这样的话编译器就会提示你实现里面的未实现的方法(就是run方法) 第二种是,现在方法中new一个线程,然后直接调 ...
leetcode84- 柱状图中最大的矩形（三种思路：暴力，单调栈+哨兵（详解），分治）
leetcode84- 柱状图中最大的矩形(三种思路:暴力,单调栈+哨兵(详解),分治) 介绍题目解题思路解法一:暴力向两边搜索解法二:单调栈画图演示宽度计算: 解法三:单调栈+哨兵解法 ...
c#初始化数组的四种方式
//作者:鸟哥 qq1833183060 //初始化数组的四种方式 //参考:https://www.cnblogs.com/afei-24/p/6738128.html //csharp讨论群:11 ...
html中怎么给长方形填充颜色,PS怎么在一个矩形里填充两种颜色 ps给矩形填充两种颜色的教程...
PS怎么在一个矩形里填充两种颜色?看到别人设计的作品中,一个矩形被填充了两种不同颜色,这是如何操作的呢?ps小白们或许还不太清楚吧,今天,小编为大家带来了ps给矩形填充两种颜色的教程.感兴趣的朋友快来 ...
Java 初始化 List 的几种方法
最常见的初始化 List 方法为: List<String> languages = new ArrayList<>(); languages.add("Java&q ...
输入一个整数n，统计1-n之间的奇数和。你有几种办法实现？
此专栏是希望通过各种小练习来增强python的知识运用,会不断更新.有同样需求的小伙伴可以实时关注,一起进步. 你行你上,话不多说,直接上题. 问题: 输入一个整数n,统计1~n之间的奇数和.你有几种 ...
Excel绘制带象限散点图的4种办法
散点图经常要绘制成4个象限的样子,以对各数据点所处的位置分别进行评判,这里总结用Excel绘制这样的散点图的4种办法. 样例数据如下: 方法一:设置坐标轴格式,将横.纵坐标交叉于指定的刻度首先用系统 ...
css实现1px的几种办法
css实现1px的几种办法背景物理像素和逻辑像素为什么css设置1px,但是在移动端上显示却感觉有些粗呢? css如何实现1px的物理像素法一:利用box-shadow 法二:设置 borde ...

WinAPI: SetRect 及初始化矩形的几种办法

WinAPI: SetRect 及初始化矩形的几种办法相关推荐

最新文章

热门文章