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

LazReport: small cleanup in lrFclPDFExport addon

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-02-01 22:54:29 +03:00
parent 3da776592f
commit f5a6c63885
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
View File

@ -234,7 +234,7 @@ end;
function TExportFonts.AddItem(AFontName: string; AFontStyle: TFontStyles
): TExportFontItem;
var
S1, S2, S3, S: String;
S1, S2, S: String;
begin
Result:=FindItem(AFontName, AFontStyle);
@ -245,7 +245,6 @@ begin
Result:=TExportFontItem.Create(Self, AFontName, AFontStyle);
S1:=ExtractFileDir(Result.FTTFFontInfo.FileName);
S2:=ExtractFileName(Result.FTTFFontInfo.FileName);
S3:=AFontName;
FOwner.FPDFDocument.FontDirectory:=S1;
S:=MakePSName(AFontName, AFontStyle);
Result.FPdfFont:=FOwner.FPDFDocument.AddFont(S2, S);
@ -368,7 +367,6 @@ begin
end;
var
i: Integer;
sDefFontName:string;
begin
sDefFontName:=DefFontName;
@ -599,7 +597,6 @@ end;
procedure TlrPdfExportFilter.DoBarCodeView(View: TfrCustomBarCodeView);
var
FBmp: TLazreportBitmap;
X, Y: Integer;
begin
DrawRectView(View);
FBmp:=View.GenerateBitmap;