文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 246
阅读 11
收藏 0
本例分别用五种办法初始化了同样的一个矩形, 运行效果图:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = 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;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//使用 API 函数: SetRect
procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRect;
begin
  SetRect(R, 20, 20, 80, 80);
  Canvas.Pen.Color := clBlue;
  Canvas.Rectangle(R);
end;

//使用 Classes.Rect 函数
procedure TForm1.Button2Click(Sender: TObject);
var
  R: TRect;
begin
  R := Rect(20, 20, 80, 80);
  Canvas.Pen.Color := clFuchsia;
  Canvas.Rectangle(R);
end;

//使用 Classes.Rect 函数, 用两个点合成
procedure TForm1.Button3Click(Sender: TObject);
const
  pt1: TPoint = (x:20; y:20);
  pt2: TPoint = (x:80; y:80);
var
  R: TRect;
begin
  R := Rect(pt1, pt2);
  Canvas.Pen.Color := clSkyBlue;
  Canvas.Rectangle(R);
end;

//矩形常量
procedure TForm1.Button4Click(Sender: TObject);
const
  R: TRect = (Left:20; Top:20; Right:80; Bottom:80);
begin
  Canvas.Pen.Color := clTeal;
  Canvas.Rectangle(R);
end;

//使用 Classes.Bounds 函数, 我最喜欢这种办法
procedure TForm1.Button5Click(Sender: TObject);
var
  R: TRect;
begin
  R := Bounds(20, 20, 60, 60);
  Canvas.Pen.Color := clWhite;
  Canvas.Rectangle(R);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/23/1205628.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
PeekMessage&GetMessage

PeekMessage&GetMessage PeekMessage与GetMessage的对比 相同点: PeekMessage函数与GetMessage函数都用于查看应用程序消息队列,有消息时将队列中 的消息派发出去。 不同点: 无论应用程序消...

vga
2014/04/13
0
0
【Visual C++】PeekMessage与GetMessage的对比

PeekMessage与GetMessage的对比 相同点: PeekMessage函数与GetMessage函数都用于查看应用程序消息队列,有消息时将队列中 的消息派发出去。 不同点: 无论应用程序消息队列是否有消息,Pee...

长平狐
2012/11/12
106
0
多线程同步:互斥对象、事件对象、关键代码段

互斥对象、事件对象、关键代码段 一、互斥对象和事件对象属于内核对象,利用内核对象进行线程同步,速度较慢,但可以实现在多个进程中各线程间进行同步。 二、关键代码段式工作在用户方式下,...

Git_Android
2012/09/12
0
0
[Beautifulzzzz的博客目录] 快速索引点这儿O(∩_∩)O~~,红色标记的是不错的(⊙o⊙)哦~

3D相关开发 [direct-X] 1、direct-X最小框架 [OpenGL] 1、环境搭建及最小系统 [OpenGL] 2、企业版VC6.0自带的Win32-OpenGL工程浅析 51单片机 [51单片机] 1602液晶显示控制代码 [51单片机] 1...

史迪奇2号
2017/08/01
0
0
Windows API 线程同步 生产者消费者

/第一次使用windows API线程函数,还望给位大虾指教啊/ #include <windows.h> #include <stdio.h> #define BUFFER_SIZE 10 HANDLE hSemaphoreFull; HANDLE hSemaphoreEmpty; HANDLE hMutex; ......

519734425
2012/03/12
0
0

没有更多内容

加载失败,请刷新页面

加载更多

CDH5动静态资源池配置与回滚

关于动态 静态资源池的配置以前都有提过,可以从以下几篇了解: YARN动态资源池配置案例 https://yq.aliyun.com/ziliao/346856# Hadoop YARN配置参数剖析(4)—Fair Scheduler相关参数 Hadoop...

hblt-j
6分钟前
0
0
WordPress仿站实战教程

有一个月没有写blog了,一直在学习wordpress的知识,现在能够进行简单的政府企业门户网站的仿制,wordpress的主题订制,一般是对前端要求比较高,wordpress学会了,建站还是非常的快的。下面...

临江仙卜算子
9分钟前
0
0
图像库stb_image

https://github.com/nothings/stb 目前一般主流的图像格式也就是bmp,jpg,png,tga,dds,除了DDS一般是给DX用的,虽然一堆OpenGL程序也有用的,但是我一般只用png和tga, png不用说了,带a...

robslove
35分钟前
1
0
Spring 事务提交回滚源码解析

前言 在上篇文章 Spring 事务初始化源码分析 中分析了 Spring 事务初始化的一个过程,当初始化完成后,Spring 是如何去获取事务,当目标方法异常后,又是如何进行回滚的,又或是目标方法执行...

TSMYK
54分钟前
2
0
百度黄埔学院将培养一批首席AI架构师,为“国之重器”赋能

深度学习高端人才不仅是AI发展的重要养分,也是企业转型AI巨大推动力。2019年1月19日,百度黄埔学院——深度学习架构师培养计划在百度科技园举行开学典礼,深度学习技术及应用国家工程实验室...

深度学习之桨
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部