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

LazReport: Remove a useless FillChar which had its parameters in wrong order. Issue #40402.

Browse Source
This commit is contained in:
Juha 2023-07-25 11:15:12 +03:00
parent cc4760393b
commit f208601bc7
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazreport/source/lr_class.pas
View File

@ -8114,11 +8114,8 @@ end;
constructor TfrPage.Create(AOwnerPage: TfrPage);
begin
inherited Create(AOwnerPage);
FillChar(Bands, 0, SizeOf(Bands));
fMargins:=TfrRect.Create;
BaseName:='Page';
List := TFpList.Create;
Objects := TFpList.Create;
RTObjects := TFpList.Create;