|
Draws a rectangle.
Delphi syntax:
procedure Rectangle ( X, Y, Width, Height: Single );
C++ syntax:
void __fastcall Rectangle ( float X, float Y, float Width, float Height );
الوصف
استخدم Rectangle لرسم مستطيل. حدد إحداثيات المستطيل وحجمه. تحدد الإحداثيات الزاوية العلوية اليسرى عند النقطة (X, Y) والعرض والارتفاع
To fill a rectangular region use Fill. To outline a rectangular region without filling it, use Stroke. To draw a rectangle with rounded corners, use RoundRect.
Code Example
program HelloWorld;
{$APPTYPE CONSOLE}
uses
SysUtils, Graphics, Classes, HPDFDoc;
var
HPDF: THotPDF;
begin
HPDF := THotPDF.Create(nil);
try
HPDF.AutoLaunch := true; // PDF file will be shown automatically
HPDF.FileName := 'Rectangle.pdf'; // Set PDF filename
HPDF.BeginDoc; // Create PDF file
HPDF.CurrentPage.Rectangle( 10, 10, 100, 100 ); // Draw rectangle and fill
HPDF.CurrentPage.ClosePathEoFillAndStroke;
HPDF.EndDoc; // Close PDF file
finally
HPDF.Free;
end;
end.
|