THPDFPage.Rectangle

THPDFPage

 

Viršus  Ankstesnis  Kitas

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 );

 

Aprašas

Naudokite Rectangle, kad nupieštumėte stačiakampį. Nurodykite stačiakampio koordinates ir dydį. Coordinates apibrėžia viršutinį kairį kampą taške (X, Y), o plotį ir aukštį

Norėdami užpildyti stačiakampę sritį, naudokite Fill. Norėdami apibrėžti stačiakampę sritį jos neužpildydami, naudokite Stroke. Norėdami nubrėžti stačiakampį užapvalintais kampais, naudokite 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.