paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 16:08:14 +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 implementation
type
TDocAccess=class(TCairoPrinterCanvas)
end;
function TCairoFilePrinter.GetCanvas: TCanvas; function TCairoFilePrinter.GetCanvas: TCanvas;
begin begin
result := fCairoCanvas; result := fCairoCanvas;
@ -117,9 +113,7 @@ procedure TCairoFilePrinter.SetCairoBackend(AValue: TCairoBackend);
begin begin
if fCairoBackend=AValue then if fCairoBackend=AValue then
Exit; Exit;
CheckDoc('CairoBackend'); CheckDoc('CairoBackend');
fCairoBackend := AValue; fCairoBackend := AValue;
end; end;
@ -127,9 +121,7 @@ procedure TCairoFilePrinter.SetFilename(AValue: string);
begin begin
if fFileName=AValue then if fFileName=AValue then
Exit; Exit;
CheckDoc('Filename'); CheckDoc('Filename');
fFileName:=AValue; fFileName:=AValue;
end; end;
@ -137,9 +129,7 @@ procedure TCairoFilePrinter.SetOptions(AValue: TCairoPrinterOptions);
begin begin
if fOptions=AValue then if fOptions=AValue then
Exit; Exit;
CheckDoc('Options'); CheckDoc('Options');
fOptions:=AValue; fOptions:=AValue;
end; end;
@ -163,9 +153,7 @@ procedure TCairoFilePrinter.SetStream(AValue: TStream);
begin begin
if fStream=AValue then if fStream=AValue then
Exit; Exit;
CheckDoc('Stream'); CheckDoc('Stream');
fStream:=AValue; fStream:=AValue;
end; end;
@ -173,9 +161,7 @@ procedure TCairoFilePrinter.SetXDPI(AValue: Integer);
begin begin
if fXDPI=AValue then if fXDPI=AValue then
exit; exit;
CheckDoc('XDPI'); CheckDoc('XDPI');
fXDPI := AValue; fXDPI := AValue;
end; end;
@ -183,9 +169,7 @@ procedure TCairoFilePrinter.SetYDPI(AValue: Integer);
begin begin
if YDPI=AValue then if YDPI=AValue then
exit; exit;
CheckDoc('YDPI'); CheckDoc('YDPI');
fYDPI := AValue; fYDPI := AValue;
end; end;
@ -235,14 +219,14 @@ begin
Include(fStatus, csDoc); Include(fStatus, csDoc);
{%H-}TDocAccess(fCairoCanvas).XDPI:=fXDPI; fCairoCanvas.XDPI:=fXDPI;
{%H-}TDocAccess(fCairoCanvas).YDPI:=fYDPI; fCairoCanvas.YDPI:=fYDPI;
{%H-}TDocAccess(fCairoCanvas).BeginDoc; fCairoCanvas.BeginDoc;
end; end;
procedure TCairoFilePrinter.EndDoc; procedure TCairoFilePrinter.EndDoc;
begin begin
{%H-}TDocAccess(fCairoCanvas).EndDoc; fCairoCanvas.EndDoc;
Exclude(fStatus, csDoc); Exclude(fStatus, csDoc);
fCairoCanvas.Free; fCairoCanvas.Free;
fCairoCanvas:=nil; fCairoCanvas:=nil;
@ -250,7 +234,7 @@ end;
procedure TCairoFilePrinter.NewPage; procedure TCairoFilePrinter.NewPage;
begin begin
{%H-}TDocAccess(fCairoCanvas).NewPage; fCairoCanvas.NewPage;
end; end;