|
Draws a rectangle with rounded corners on the canvas.
Delphi syntax:
procedure RoundRect ( X1, Y1, X2, Y2, X3, Y3: Integer );
C++ syntax:
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.
Code Example
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.
|