paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, cairo export, cleanup

Browse Source 
git-svn-id: trunk@41011 -
This commit is contained in:
jesus 2013-05-03 05:52:40 +00:00
parent 58422ca971
commit 27b19e929c
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazreport/source/addons/cairoexport/lr_e_cairo.pas
View File

@ -41,10 +41,8 @@ type
TlrCairoExportFilter = class(TfrExportFilter)
private
fBackend: TlrCairoBackend;
NewPage: Boolean;
fCairoPrinter: TCairoFilePrinter;
FPageNo : Integer;
DummyControl: TForm;
ScaleX,ScaleY: Double;
DataRect: TRect;
fImageList: TfpList;
@ -85,9 +83,6 @@ implementation
// missing cairo functions to make shared images posible
const
CAIRO_MIME_TYPE_JPEG = 'image/jpeg';
CAIRO_MIME_TYPE_PNG = 'image/png';
CAIRO_MIME_TYPE_JP2 = 'image/jp2';
CAIRO_MIME_TYPE_URI = 'text/x-uri';
{$IFDEF CAIRO_HAS_MIME_TYPE_UNIQUE}
CAIRO_MIME_TYPE_UNIQUE = 'application/x-cairo.uuid'
{$ENDIF}
@ -526,8 +521,7 @@ end;
procedure TlrCairoExportFilter.ShowPicture(View: TfrPictureView; x, y, h,
w: integer);
var
cr: pcairo_t;
sf, isf: pcairo_surface_t;
isf: pcairo_surface_t;
m: TMemoryStream;
item: PImageItem;
@ -545,9 +539,6 @@ begin
picw := Picture.Graphic.Width;
pich := Picture.Graphic.Height;
cr := pcairo_t(fCairoPrinter.Canvas.Handle);
sf := cairo_get_target(cr);
ImageShared := (View.SharedName<>'') and (Backend=cePDF);
AddToList := false;
@ -727,8 +718,7 @@ procedure TlrCairoExportFilter.OnText(X, Y: Integer; const Text: string;
var
nx, ny, gapx, gapy, sgapx, sgapy: Integer;
aStyle: TTextStyle;
OldClipping: Boolean;
OldClipRect, R: TRect;
R: TRect;
begin
// The text drawn in this function is enclosed in a view frame