|
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.
|