Delphi WinAPI: InflateRect - 改变矩形大小

本文整理自网络，侵删。

 
WinAPI: InflateRect - 改变矩形大小
//声明:
InflateRect(
  var lprc: TRect; {要修改的矩形}
  dx, dy: Integer  {变化值}
): BOOL;


//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
const
  s = '%d,%d,%d,%d';
begin
  R := Rect(60, 60, 200, 150);

  DrawFocusRect(Canvas.Handle, R);
  Canvas.TextOut(R.Left, R.Top-15, Format(s,[R.Left,R.Top,R.Right,R.Bottom]));

  InflateRect(R, 20, 20);
  DrawFocusRect(Canvas.Handle, R);
  Canvas.TextOut(R.Left, R.Top-15, Format(s,[R.Left,R.Top,R.Right,R.Bottom]));

  InflateRect(R, -40, -40);
  DrawFocusRect(Canvas.Handle, R);
  Canvas.TextOut(R.Left, R.Top-15, Format(s,[R.Left,R.Top,R.Right,R.Bottom]));
end;


//效果图:

 

相关阅读 >>

如何用Delphi实现windows xp中“本地连接”的启用和禁用

Delphi 检测判断字符串是否包含有中文字符

Delphi制作外挂的操作技巧

Delphi 写的经常用到的加解密函数

Delphi 把整个窗体保存为图片的方法

Delphi编写提取exe文件的ico图标

Delphi 字符串处理

Delphi Delphi写的一个上位机

Delphi cxdbtreelist1判断当父节点含有子节点时 不能删除此父节点

Delphi 实现窗体随着鼠标移动

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WinAPI: InflateRect - 改变矩形大小