[fpc-devel]Code for tkBool in TWriter

[Mattias Gaertner]

On Tue, 3 Sep 2002 00:44:37 +0200
Mattias Gaertner <nc-gaertnma at netcologne.de> wrote:

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

Hoppla, this is the correct diff:

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
597a598
>   BoolValue, DefBoolValue: boolean;
787a789,803
>         end;
>       end;
>     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;


Mattias Gaertner