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

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

View File

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