Explorar o código

* Fix from Paul Ishenin to fix assigning

git-svn-id: trunk@11291 -
michael %!s(int64=17) %!d(string=hai) anos
pai
achega
bf9e4971be
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-image/src/fppalette.inc

+ 1 - 1
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;