paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:09:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Graeme Geldenhuys to fix some unused variables warnings

Browse Source 
git-svn-id: trunk@37053 -
This commit is contained in:
michael 2017-08-24 14:51:55 +00:00
parent df49642935
commit 4f6b0feda3
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-report/src/fpreport.pp
View File

@ -2614,6 +2614,7 @@ end;
function TFPReportBandFactory.RegisterPageClass(aClass: TFPReportCustomPageClass
): TFPReportCustomPageClass;
begin
Result := nil; // TODO: Why is this a function if no Result is ever returned?
If Not AClass.InheritsFrom(TFPReportCustomPage) then
raise EReportError.CreateFmt(SErrPageClassMustDescendFrom, [
TFPReportCustomPageClass.ClassName]);
@ -2663,13 +2664,9 @@ begin
FList.Delete(i);
end;
function TFPReportExportManager.ConfigExporter(AExporter: TFPReportExporter
): Boolean;
function TFPReportExportManager.ConfigExporter(AExporter: TFPReportExporter): Boolean;
Var
H : TFPReportExporterConfigHandler;
I : Integer;
begin
H:=ExporterConfigHandler(TFPReportExporterClass(AExporter.ClassType));
if (H=Nil) then
@ -6024,9 +6021,6 @@ end;
procedure TFPReportCustomPage.ReadElement(AReader: TFPReportStreamer);
var
E: TObject;
N : String;
D : TFPReportDataItem;
begin
inherited ReadElement(AReader);
E := AReader.FindChild('Margins');

1
packages/fcl-report/src/fpreportfpimageexport.pp
View File

@ -665,7 +665,6 @@ Function TFPReportExportfpImage.CreateHTMLFileForImage(Const ImageFile: String;
Var
PageDiv : THTMLElement;
ImgEl : THTMLElement;
begin
Result:=ChangeFileExt(ImageFile,'.html');