14 lines
298 B
Plaintext
14 lines
298 B
Plaintext
type TSPdfRectRange = class(TSPdfAbstractRange)
|
|
public
|
|
function Do();override;
|
|
public
|
|
Page: PdfPage;
|
|
end;
|
|
|
|
function TSPdfRectRange.Do();override;
|
|
begin
|
|
self.Page.SetRGBStroke(1.0, 0.0, 0.0);
|
|
self.Page.Rectangle(self.X, self.Y - self.H, self.W, self.H);
|
|
self.Page.Stroke();
|
|
end;
|