Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2002-09

Code for tkBool in TWriter

8 messages · 4 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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

Show quoted text 15 lines
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

Reply by email

Mattias Gaertner
to Mattias Gaertner
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

Show quoted text 15 lines
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

Reply by email

Mattias Gaertner
to Michael Van Canneyt
Show quoted text 15 lines
On Tue, 3 Sep 2002, Mattias Gaertner wrote: > On Tue, 3 Sep 2002 00:44:37 +0200 > Mattias Gaertner 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: Applied, thanks !

Can you also add it to the 1.0.7 branch?

thx in advance,
Mattias Gaertner

Reply by email

Michael Van Canneyt
to Mattias Gaertner
Mattias Gaertner wrote 20 lines
On Tue, 3 Sep 2002 09:53:34 +0200 (W. Europe Daylight Time) Michael Van Canneyt wrote: > > > On Tue, 3 Sep 2002, Mattias Gaertner wrote: > > > On Tue, 3 Sep 2002 00:44:37 +0200 > > Mattias Gaertner 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: > > Applied, thanks ! Can you also add it to the 1.0.7 branch?

There is no more branch in the FCL. the FIXES_1_0_0 tag is a fake tag, which is usually on the last version of a file.

People that retrieve the FCL via CVS should do a
cvs update -A fcl
so the sticky tag is removed.

Michael.

Reply by email

Alejandro Néstor Vargas
to Gene Buckle: Can someone point me to a code snippet that would illustrate the socket equivalent to a…

Gene Buckle dijo:

Can someone point me to a code snippet that would illustrate the socket equivalent to a keypressed function?

You should set the descriptor to non blocking access and try to read a byte. If it don't fails store the byte in a buffer to be red when it is needed.

Alejandro Néstor Vargas ICQ: 20528995. Departamento de Desarrollo X Net Cuyo S.A.

Reply by email

Gene Buckle
to Alejandro Néstor Vargas

I was actually pointed to a unit that will do the job. It's EleCOM and it looks pretty slock. http://www.elebbs.com

Thanks for the info though!

g.

Show quoted text 23 lines
Gene Buckle dijo: > > Can someone point me to a code snippet that would illustrate the socket > equivalent to a keypressed function? You should set the descriptor to non blocking access and try to read a byte. If it don't fails store the byte in a buffer to be red when it is needed. -- Alejandro N�stor Vargas ICQ: 20528995. Departamento de Desarrollo X Net Cuyo S.A. _______________________________________________ fpc-devel maillist - http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply by email