paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +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 function TExportFonts.AddItem(AFontName: string; AFontStyle: TFontStyles
): TExportFontItem; ): TExportFontItem;
var var
S1, S2, S3, S: String; S1, S2, S: String;
begin begin
Result:=FindItem(AFontName, AFontStyle); Result:=FindItem(AFontName, AFontStyle);
@ -245,7 +245,6 @@ begin
Result:=TExportFontItem.Create(Self, AFontName, AFontStyle); Result:=TExportFontItem.Create(Self, AFontName, AFontStyle);
S1:=ExtractFileDir(Result.FTTFFontInfo.FileName); S1:=ExtractFileDir(Result.FTTFFontInfo.FileName);
S2:=ExtractFileName(Result.FTTFFontInfo.FileName); S2:=ExtractFileName(Result.FTTFFontInfo.FileName);
S3:=AFontName;
FOwner.FPDFDocument.FontDirectory:=S1; FOwner.FPDFDocument.FontDirectory:=S1;
S:=MakePSName(AFontName, AFontStyle); S:=MakePSName(AFontName, AFontStyle);
Result.FPdfFont:=FOwner.FPDFDocument.AddFont(S2, S); Result.FPdfFont:=FOwner.FPDFDocument.AddFont(S2, S);
@ -368,7 +367,6 @@ begin
end; end;
var var
i: Integer;
sDefFontName:string; sDefFontName:string;
begin begin
sDefFontName:=DefFontName; sDefFontName:=DefFontName;
@ -599,7 +597,6 @@ end;
procedure TlrPdfExportFilter.DoBarCodeView(View: TfrCustomBarCodeView); procedure TlrPdfExportFilter.DoBarCodeView(View: TfrCustomBarCodeView);
var var
FBmp: TLazreportBitmap; FBmp: TLazreportBitmap;
X, Y: Integer;
begin begin
DrawRectView(View); DrawRectView(View);
FBmp:=View.GenerateBitmap; FBmp:=View.GenerateBitmap;