Browse Source

+ Corrected alpha in colormap

michael 21 years ago
parent
commit
138027e76e
1 changed files with 6 additions and 2 deletions
  1. 6 2
      fcl/image/fpreadbmp.pp

+ 6 - 2
fcl/image/fpreadbmp.pp

@@ -57,7 +57,8 @@ begin
     Red   :=(R shl 8) or R;
     Red   :=(R shl 8) or R;
     Green :=(G shl 8) or G;
     Green :=(G shl 8) or G;
     Blue  :=(B shl 8) or B;
     Blue  :=(B shl 8) or B;
-    alpha :=A; //!! MVC: Used to be AlphaOpaque ???
+    Alpha :=255-A;
+    Alpha :=(Alpha shl 8) or Alpha
     end;
     end;
 end;
 end;
 
 
@@ -241,7 +242,10 @@ initialization
 end.
 end.
 {
 {
 $Log$
 $Log$
-Revision 1.11  2004-02-25 02:36:51  pierre
+Revision 1.12  2004-03-01 23:46:38  michael
++ Corrected alpha in colormap
+
+Revision 1.11  2004/02/25 02:36:51  pierre
 * fix compilation with 1.0 compiler
 * fix compilation with 1.0 compiler
 
 
 Revision 1.10  2004/02/20 23:12:57  michael
 Revision 1.10  2004/02/20 23:12:57  michael