WinAPI: SetRectEmpty、IsRectEmpty

最新推荐文章于 2024-06-19 07:04:25 发布

转载最新推荐文章于 2024-06-19 07:04:25 发布 · 84 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/320084

本文通过Delphi代码示例介绍了如何使用SetRectEmpty与IsRectEmpty函数来设置和检测矩形是否为空。并演示了如何利用这些函数进行矩形操作。

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

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

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