(*//

标题:<<Delphi6函数大全-Types.pas>>

格式:text

大小:3816

制作:Zswang

日期:2002-04-19

//*)

首部  function EqualRect(const R1, R2: TRect): Boolean; $[Types.pas

功能  返回两个矩形区域是否相等

说明  Result := (R1.Left = R2.Left) and (R1.Right = R2.Right) and (R1.Top = R2.Top) and (R1.Bottom = R2.Bottom);

参考  <NULL>

例子  CheckBox1.Checked := EqualRect(Bevel1.BoundsRect, Bevel2.BoundsRect);

━━━━━━━━━━━━━━━━━━━━━  

首部  function Rect(Left, Top, Right, Bottom: Integer): TRect; $[Types.pas

功能  返回左、顶、右、底部位置相应的矩形区域

说明  如果左界大于右界或底部小于顶部则区域将看作非法,但不触发异常

参考  <NULL>

例子  Bevel1.BoundsRect := Rect(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value, SpinEdit4.Value);

━━━━━━━━━━━━━━━━━━━━━  

首部  function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect; $[Types.pas

功能  返回左、上位置急及宽度、高度相应的矩形区域

说明  <NULL>

参考  <NULL>

例子  Bevel1.BoundsRect := Bounds(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value, SpinEdit4.Value);

━━━━━━━━━━━━━━━━━━━━━  

首部  function Point(X, Y: Integer): TPoint; $[Types.pas

功能  返回坐标相应的点

说明  <NULL>

参考  <NULL>

例子  Mouse.CursorPos := Point(SpinEdit1.Value, SpinEdit2.Value);

━━━━━━━━━━━━━━━━━━━━━  

首部  function PtInRect(const Rect: TRect; const P: TPoint): Boolean; $[Types.pas

功能  返回矩形区域Rect中是否包含点P

说明  Result := (P.X >= Rect.Left) and (P.X < Rect.Right) and (P.Y >= Rect.Top) and (P.Y < Rect.Bottom);

参考  <NULL>

例子  CheckBox1.Checked := PtInRect(BoundsRect, Mouse.CursorPos);

━━━━━━━━━━━━━━━━━━━━━  

首部  function IntersectRect(out Rect: TRect; const R1, R2: TRect): Boolean; $[Types.pas

功能  返回获取两个矩形区域交接是否成功

说明  当交接失败时则返回False并且Rect将设置为空

参考  function Types.IsRectEmpty;procedure System.FillChar;function System.SizeOf

例子  

///////Begin IntersectRect

procedure TForm1.Button1Click(Sender: TObject);

var

 vRect: TRect;

begin

 IntersectRect(vRect, Bevel1.BoundsRect, Bevel2.BoundsRect);

 Canvas.Brush.Color := clRed;

 Canvas.FillRect(vRect);

end;

///////End IntersectRect

━━━━━━━━━━━━━━━━━━━━━  

首部  function UnionRect(out Rect: TRect; const R1, R2: TRect): Boolean; $[Types.pas

功能  返回获取两个矩形区域联合是否成功

说明  <NULL>

参考  function Types.IsRectEmpty;procedure System.FillChar;function System.SizeOf

例子  当联合失败时则返回False并且Rect将设置为空

///////Begin UnionRect

procedure TForm1.Button1Click(Sender: TObject);

var

 vRect: TRect;

begin

 UnionRect(vRect, Bevel1.BoundsRect, Bevel2.BoundsRect);

 Canvas.Brush.Color := clRed;

 Canvas.FillRect(vRect);

end;

///////End UnionRect

━━━━━━━━━━━━━━━━━━━━━  

首部  function IsRectEmpty(const Rect: TRect): Boolean; $[Types.pas

功能  返回矩形区域是否为空

说明  Result := (Rect.Right <= Rect.Left) or (Rect.Bottom <= Rect.Top);

参考  <NULL>

例子  CheckBox1.Checked := IsRectEmpty(Bevel1.BoundsRect);

━━━━━━━━━━━━━━━━━━━━━  

首部  function OffsetRect(var Rect: TRect; DX: Integer; DY: Integer): Boolean; $[Types.pas

功能  返回偏移一个矩形区域Rect是否成功

说明  参数DX指定横向偏移量;参数DY指定竖向偏移量

参考  function System.Inc

例子  

///////Begin OffsetRect

procedure TForm1.Button1Click(Sender: TObject);

var

 vRect: TRect;

begin

 vRect := BoundsRect;

 OffsetRect(vRect, 10, 10);

 BoundsRect := vRect;

end;

///////End OffsetRect

━━━━━━━━━━━━━━━━━━━━━  

首部  function CenterPoint(const Rect: TRect): TPoint; $[Types.pas

功能  返回矩形区域中心的坐标

说明  <NULL>

参考  <NULL>

例子  Mouse.CursorPos := CenterPoint(BoundsRect);

━━━━━━━━━━━━━━━━━━━━━