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

* Fixed writing of default boolean values

Browse Source 
git-svn-id: trunk@11749 -
This commit is contained in:
michael 2008-09-11 19:37:18 +00:00
parent d77b2b2c0c
commit c94843c646
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/classes/writer.inc
View File

@ -798,7 +798,7 @@ begin
DefValue := GetOrdProp(Ancestor, PropInfo)
else
DefValue := PPropInfo(PropInfo)^.Default;
//writeln(PPropInfo(PropInfo)^.Name, ', HasAncestor=', ord(HasAncestor), ', Value=', Value, ', Default=', DefValue);
// writeln(PPropInfo(PropInfo)^.Name, ', HasAncestor=', ord(HasAncestor), ', Value=', Value, ', Default=', DefValue);
if (Value <> DefValue) or (DefValue=longint($80000000)) then
begin
Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);
@ -1030,8 +1030,12 @@ begin
if HasAncestor then
DefBoolValue := GetOrdProp(Ancestor, PropInfo)<>0
else
begin
DefBoolValue := PPropInfo(PropInfo)^.Default<>0;
if BoolValue <> DefBoolValue then
DefValue:=PPropInfo(PropInfo)^.Default;
end;
// writeln(PPropInfo(PropInfo)^.Name, ', HasAncestor=', ord(HasAncestor), ', Value=', Value, ', Default=', DefBoolValue);
if (BoolValue<>DefBoolValue) or (DefValue=longint($80000000)) then
begin
Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);
WriteBoolean(BoolValue);