文档章节

WinAPI: SetRectEmpty、IsRectEmpty

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 183
阅读 3
收藏 0
SetRectEmpty: 使矩形为空;

IsRectEmpty: 判断矩形是否为空;

所谓矩形为空就是矩形是无区域的, 或者说是 Right <= Left 或 Bottom <= Top 情形下的矩形.
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  R: TRect;
  buf: array[Byte] of Char;
begin
  R := Rect(10,20,-30,-40);
  ShowMessage(BoolToStr(IsRectEmpty(R), True)); {True; 是空矩形}

  R := Rect(10,20,30,40);
  ShowMessage(BoolToStr(IsRectEmpty(R), True)); {False}

  wvsprintf(buf, 'L:%d, T:%d, R:%d, B:%d', @R);
  ShowMessage(buf); {L:10, T:20, R:30, B:40}

  SetRectEmpty(R);

  ShowMessage(BoolToStr(IsRectEmpty(R), True)); {True}

  wvsprintf(buf, 'L:%d, T:%d, R:%d, B:%d', @R);
  ShowMessage(buf); {L:0, T:0, R:0, B:0}
end;

end.

 
 
 
 
 

 

 

  
关于 wvsprintf 函数请参见: http://www.cnblogs.com/del/archive/2008/04/18/1159045.html

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Go语言Windows程序设计(1)--简单弹出消息窗口

这几天公司比较空,又开始玩Go语言,发现它可以通过一个https://github.com/lxn/go-winapi go-winapi的库写windows程序,于是就开始玩了,当然,也已经有了很多基于它而进一步封装便于开发的...

卧雪Sirk
2016/03/19
39
0
如何调用WINAPI声明的动态库?

一个库的函数以 WINAPI声明 然后调的时侯就有问题 以WINAPI声明的函数 比如 long dlltest(); 就会变成long _dlltest@0() 试着用 typef long (stdcall *_pdlltest)(); 这样去导 结果导不出来 ...

我是你
2014/04/29
87
0
这段代码为什么会崩啊

CCriticalSection atrtest; list list2; void deleteList(); //线程1的入口函数 DWORD WINAPI Fun1Proc(LPVOID lpParameter)//thread data { while(TRUE) { deleteList(); } return 0; } //线......

智勇
2014/05/22
214
3
PNotes 这软件不错

这软件是纯C的WINAPI写的 支持换肤等功能 学习WINAPI的,可以好好研究一下源代码

fdasljlf
2011/04/24
1K
20
int WINAPI WinMain()函数

int WINAPI WinMain( HINSTANCE hInstance,//当前实例句柄 HINSTANCE hPrevInstance,//先前实例句柄 LPSTR lpCmdLine,//命令行参数 int nCmdShow //显示状态(最大化、最小化、隐藏) ); WIN...

我是一只鱼
2011/12/05
0
0

没有更多内容

加载失败,请刷新页面

加载更多

TypeScript基础入门之高级类型的可辨识联合(Discriminated Unions)

转发 TypeScript基础入门之高级类型的可辨识联合(Discriminated Unions) 高级类型 可辨识联合(Discriminated Unions) 你可以合并单例类型,联合类型,类型保护和类型别名来创建一个叫做 ...

durban
25分钟前
1
0
画图工具

目标是不要让我自己摆放,那样会打断我的思路。要自己会摆放,我写字就好。 纠结对齐的我在也不会因为一个像素的问题小心翼翼的移动鼠标了。因为它对不齐你也管不了。 Graphviz https://www...

郭大鹏
25分钟前
1
0
在Visual Studio中使用GitHub(使用篇)

上一篇中已经介绍了如何在windows下安装和配置Git,并且详细说明了如何和GitHub连接。 这里就详细的说明下如何在Visual Studio中使用GitHub。这里也是一个简单的Git教程。 注:非常非常简单的...

Jokeny
26分钟前
1
0
tomcat 在liunx系统中shutdown后进程仍然存在解决办法

这个在windows下没有碰到过,因为此前跑Tomcat都是以服务而不是命令脚本的形式跑的,而且已经换了一个项目,所以暂时不考察windows下是否存在该问题。 难道是Tomcat版本问题?或者用带内存泄...

乱舞
27分钟前
1
0
区块链10年了,还未落地,它失败了吗?

几乎每个人,甚至是对通证持怀疑态度的人,都对区块链的技术有积极的看法,因为它有可能改变世界。然而,区块链技术问世已经10年了,我们仍然没有真正的用上区块链技术。 有人说,比特币是建...

linux-tao
31分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部