paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 11:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: Fixed loading FreeReport files with TfrCheckBoxView (where CheckBox does not have Checked property).

Browse Source 
Patch by https://gitlab.com/michalgw, issue #41326.
This commit is contained in:
Maxim Ganetsky 2025-01-10 02:02:18 +03:00
parent 880cd91c00
commit 63dc9e6f2c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_chbox.pas
View File

@ -174,6 +174,8 @@ end;
procedure TfrCheckBoxView.LoadFromStream(Stream: TStream); procedure TfrCheckBoxView.LoadFromStream(Stream: TStream);
begin begin
inherited LoadFromStream(Stream); inherited LoadFromStream(Stream);
// CheckBox from FreeReport does not have "Checked" property
if frVersion > 23 then
Stream.Read(fChecked, SizeOf(fChecked)); Stream.Read(fChecked, SizeOf(fChecked));
end; end;