Changeset 210 for GraphicTest/UDrawMethod.pas

Timestamp:

Mar 19, 2011, 12:26:06 PM (13 years ago)

Author:

george

Message:

• Fixed: Displaying BGRABitmap on Linux.

File:

• GraphicTest/UDrawMethod.pas (modified) (2 diffs)

GraphicTest/UDrawMethod.pas

@@ -133 +133 @@
     P := PInteger(BGRABitmap.ScanLine[Y]);
     for X := 0 to Size.X - 1 do begin
-      P^ := NoSwapBRComponent(Pixels[X, Y]);
+      P^ := NoSwapBRComponent(Pixels[X, Y]) or $ff000000;
       (*P^.red := Pixels[X, Y];
       P^.green := Pixels[X, Y];
@@ -141 +141 @@
     end;
   end;
-  //BGRABitmap.InvalidateBitmap; // changed by direct access
+  BGRABitmap.InvalidateBitmap; // changed by direct access
   //BGRABitmap.Draw(Bitmap.Canvas, 0, 0, True);
   BGRABitmap.Draw(PaintBox.Canvas, 0, 0, True);