Browse Source

Changes requested by Jesus Reyes in message [email protected]
on fpc-devel:
* Merge 5355
+ Add stored false to indexdefs property in TSQLQuery

git-svn-id: branches/fixes_2_0@5910 -

daniel 19 years ago
parent
commit
58026ff536
2 changed files with 2 additions and 2 deletions
  1. 1 1
      fcl/db/sqldb/sqldb.pp
  2. 1 1
      fcl/image/fpwritepng.pp

+ 1 - 1
fcl/db/sqldb/sqldb.pp

@@ -269,7 +269,7 @@ type
     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;

+ 1 - 1
fcl/image/fpwritepng.pp

@@ -267,7 +267,7 @@ procedure TFPWriterPNG.DetermineHeader (var AHeader : THeaderChunk);
 var c : integer;
   function CountAlphas : integer;
   var none, half : boolean;
-      x,y : longword;
+      x,y : longint;  // warning, checks on <0 !
       p : integer;
       c : TFPColor;
       a : word;