* better color conversion (White didn't stay white)

fcl/image/fpreadbmp.pp

@@ -87,10 +87,10 @@ procedure TFPReaderBMP.InternalRead(Stream:TStream; Img:TFPCustomImage);
               with aLine[Coulumn],aColor do
                 begin
 {Use only the high byte to convert the color}
-                  Red:=R shl 8;
-                  Green:=G shl 8;
-                  Blue:=B shl 8;
-                  alpha:=AlphaOpaque;
+                  Red := (R shl 8) + R;
+                  Green := (G shl 8) + G;
+                  Blue := (B shl 8) + B;
+                  alpha := AlphaOpaque;
                   img.colors[Coulumn,Row]:=aColor;
                 end;
             Stream.Read(aLine{$IFNDEF UseDynArray}^{$ENDIF UseDynArray},ReadSize);
@@ -122,7 +122,10 @@ initialization
 end.
 {
 $Log$
-Revision 1.4  2003-09-30 06:17:38  mazen
+Revision 1.5  2003-09-30 14:17:05  luk
+* better color conversion (White didn't stay white)
+
+Revision 1.4  2003/09/30 06:17:38  mazen
 - all common defintions are now included into bmpcomn unit
 
 Revision 1.3  2003/09/15 11:39:01  mazen