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

Fix from Mattias Gaertner, boolean streaming now respects default

Browse Source
This commit is contained in:
michael 2002-09-04 13:33:58 +00:00
parent 2d6d2d48db
commit 1b77a3df68
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/writer.inc
View File

@ -794,7 +794,7 @@ begin
if HasAncestor then
DefBoolValue := GetOrdProp(Ancestor, PropInfo)<>0
else
DefBoolValue := false;
DefBoolValue := PPropInfo(PropInfo)^.Default<>0;
if BoolValue <> DefBoolValue then
begin
Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);
@ -823,7 +823,10 @@ end;}
{
$Log$
Revision 1.4 2002-09-03 06:02:57 michael
Revision 1.5 2002-09-04 13:33:58 michael
Fix from Mattias Gaertner, boolean streaming now respects default
Revision 1.4 2002/09/03 06:02:57 michael
+ Applied patch from Matthias Gaertner to stream booleans
Revision 1.3 2000/12/21 09:10:16 sg