paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

CairoCanvas: Remove a useless accessor class hack.

Browse Source 
git-svn-id: trunk@60207 -
This commit is contained in:
juha 2019-01-24 20:19:18 +00:00
parent 3d405210f9
commit 9930e4fcde
1 changed files with 5 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/cairocanvas/cairoprinter.pas
View File

@ -94,10 +94,6 @@ type
implementation
type
TDocAccess=class(TCairoPrinterCanvas)
end;
function TCairoFilePrinter.GetCanvas: TCanvas;
begin
result := fCairoCanvas;
@ -117,9 +113,7 @@ procedure TCairoFilePrinter.SetCairoBackend(AValue: TCairoBackend);
begin
if fCairoBackend=AValue then
Exit;
CheckDoc('CairoBackend');
fCairoBackend := AValue;
end;
@ -127,9 +121,7 @@ procedure TCairoFilePrinter.SetFilename(AValue: string);
begin
if fFileName=AValue then
Exit;
CheckDoc('Filename');
fFileName:=AValue;
end;
@ -137,9 +129,7 @@ procedure TCairoFilePrinter.SetOptions(AValue: TCairoPrinterOptions);
begin
if fOptions=AValue then
Exit;
CheckDoc('Options');
fOptions:=AValue;
end;
@ -163,9 +153,7 @@ procedure TCairoFilePrinter.SetStream(AValue: TStream);
begin
if fStream=AValue then
Exit;
CheckDoc('Stream');
fStream:=AValue;
end;
@ -173,9 +161,7 @@ procedure TCairoFilePrinter.SetXDPI(AValue: Integer);
begin
if fXDPI=AValue then
exit;
CheckDoc('XDPI');
fXDPI := AValue;
end;
@ -183,9 +169,7 @@ procedure TCairoFilePrinter.SetYDPI(AValue: Integer);
begin
if YDPI=AValue then
exit;
CheckDoc('YDPI');
fYDPI := AValue;
end;
@ -235,14 +219,14 @@ begin
Include(fStatus, csDoc);
{%H-}TDocAccess(fCairoCanvas).XDPI:=fXDPI;
{%H-}TDocAccess(fCairoCanvas).YDPI:=fYDPI;
{%H-}TDocAccess(fCairoCanvas).BeginDoc;
fCairoCanvas.XDPI:=fXDPI;
fCairoCanvas.YDPI:=fYDPI;
fCairoCanvas.BeginDoc;
end;
procedure TCairoFilePrinter.EndDoc;
begin
{%H-}TDocAccess(fCairoCanvas).EndDoc;
fCairoCanvas.EndDoc;
Exclude(fStatus, csDoc);
fCairoCanvas.Free;
fCairoCanvas:=nil;
@ -250,7 +234,7 @@ end;
procedure TCairoFilePrinter.NewPage;
begin
{%H-}TDocAccess(fCairoCanvas).NewPage;
fCairoCanvas.NewPage;
end;