首页 > OOP语言 > Delphi > 正文

Delphi的绘图功能[9] - TextRect
2012-08-22 18:52:19   来源:www.bianceng.cn   评论:0 点击:

暂时无描述信息
//第一种重载的声明:
TextRect(
Rect: TRect; {矩形}
X, Y: Integer; {相对于窗体的位置}
const Text: string {文本}
);
{如果要输出的文本超出指定的矩形将 不被显示}
------------------------------------------------------------------------------ --
//第一种重载的举例:
procedure TForm1.Button1Click(Sender: TObject);
const
R: TRect = (Left:0; Top:0; Right:60; Bottom:60);
s = '万一的 Delphi 博客';
begin
Canvas.Brush.Color := clWhite;
Canvas.FillRect(R);
Canvas.TextRect(R, 10, 10, s);
end;

//效果图:

\

相关热词搜索:

上一篇:Delphi的绘图功能[10] - TFONT类
下一篇:Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight

分享到: 收藏