Merged revisions 11291 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r11291 | michael | 2008-06-27 19:45:08 +0200 (Fri, 27 Jun 2008) | 1 line
  
  * Fix from Paul Ishenin to fix assigning
........

git-svn-id: branches/fixes_2_2@11306 -

packages/fcl-image/src/fppalette.inc

@@ -217,7 +217,7 @@ var Col : TFPColor;
 begin
   fppal:=TFPPalette.Create(256);
   Col.Alpha:=AlphaOpaque;
-  for i:=$FF downto 0 do
+  for i:=0 to $FF do
   begin
     Col.Red:=i;
     Col.Red:=(Col.Red shl 8) + Col.Red;