|
Draws a rectangle with rounded corners on the canvas.
Delphi 语法:
procedure RoundRect ( X1, Y1, X2, Y2, X3, Y3: Integer );
C++ 语法:
void __fastcall RoundRect ( int X1, int Y1, int X2, int Y2, int X3, int Y3);
说明
使用 RoundRect 绘制圆角矩形。矩形边由点 (X1,Y1)、(X2,Y1)、(X2,Y2)、(X1,Y2) 定义，但角会被削切形成圆角外观。圆角曲线匹配宽度 X3、高度 Y3 的椭圆曲率
To draw an ellipse instead, use Ellipse. To draw a true rectangle, use Rectangle.
代码示例
program RoundRect;
{$APPTYPE CONSOLE}
uses
SysUtils, Graphics, Classes, HPDFDoc;
var
HPDF: THotPDF;
const
DashArray: array[0..3] of Byte = (6, 4, 2, 4);
begin
HPDF := THotPDF.Create(nil);
try
HPDF.AutoLaunch := true; // PDF file will be shown automatically
HPDF.FileName := '\RoundRect.pdf'; // Set PDF filename
HPDF.BeginDoc; // Create PDF file
HPDF.CurrentPage.SetDash( DashArray, 0 ); // Set - . - dash pattern
HPDF.CurrentPage.RoundRect( 10, 10, 200, 100, 20, 20 ); // Draw round rect
HPDF.CurrentPage.Stroke; // and stroke
HPDF.EndDoc; // Close PDF file
finally
HPDF.Free;
end;
end.
|