paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 02:29:26 +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.

(cherry picked from commit 63dc9e6f2c)
This commit is contained in:
Maxim Ganetsky 2025-01-10 02:02:18 +03:00
parent a0ac8baed0
commit aebc30192c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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