[fpc-devel] two changes to fcl 2.0.5

[Jesus Reyes]

Hi.

I'm finally tired of two bugs in fcl in 2.0.5, it could be possible
that these be made/merged back?.

1. TSQLQuery under 2.0.5 stores readonly published property IndexDefs
into lazarus lfm file. Lazarus is happy reading back the lfm file if
it was compiled with 2.0.5 but if it was compiled with 2.1.1 it
complains about the readonly property. I can fix that manually
removing the the IndexDefs property from the lfm file, I'm tired of
it.

This bug is fixed by this patch:
Index: sqldb.pp
===================================================================
--- sqldb.pp    (revisión: 5681)
+++ sqldb.pp    (copia de trabajo)
@@ -269,7 +269,7 @@
     property UpdateSQL : TStringlist read FUpdateSQL write
FUpdateSQL;
     property InsertSQL : TStringlist read FInsertSQL write
FInsertSQL;
     property DeleteSQL : TStringlist read FDeleteSQL write
FDeleteSQL;
-    property IndexDefs : TIndexDefs read GetIndexDefs;
+    property IndexDefs : TIndexDefs read GetIndexDefs stored false;
     property Params : TParams read FParams write FParams;
     property UpdateMode : TUpdateMode read FUpdateMode write
SetUpdateMode;
     property UsePrimaryKeyAsKey : boolean read FUsePrimaryKeyAsKey
write SetUsePrimaryKeyAsKey;

2. I use some png images in my project, every time that I need to do
changes on the form, a get "Invalid horizontal pixel index -1" error
message (TImage)" error, this bug is fixed in revision: 5355, what it
does?, see:
http://www.freepascal.org/cgi-bin/viewcvs.cgi/trunk/fcl/image/fpwritepng.pp?rev=5355&view=diff&r1=5355&r2=5354&p1=trunk/fcl/image/fpwritepng.pp&p2=/trunk/fcl/image/fpwritepng.pp

What you think?, can this happen?.

Thanks.

Jesus Reyes A.


	
	
		
___________________________________________________________ 
Do You Yahoo!? 
La mejor conexión a Internet y <b >2GB</b> extra a tu correo por $100 al mes. http://net.yahoo.com.mx