[fpc-devel]Code for tkBool in TWriter

[Mattias Gaertner]

Hi devels,

TWriter lacks the code for writing boolean variables.
Here is the cvs diff of an implementation:

cvs server: Diffing .
Index: writer.inc
===================================================================
RCS file: /FPC/CVS/fpc/fcl/inc/writer.inc,v
retrieving revision 1.3
diff -r1.3 writer.inc
789a790,804
>     tkBool:
>       begin
>         BoolValue := GetOrdProp(Instance, PropInfo)<>0;
>         if HasAncestor then
>           DefBoolValue := GetOrdProp(Ancestor, PropInfo)<>0
>         else
>           DefBoolValue := false;
> 
>         if BoolValue <> DefBoolValue then
>         begin
>           Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);
>           WriteBoolean(BoolValue);
>           Driver.EndProperty;
>         end;
>       end;


Mattias Gaertner