Context Navigation

Changeset 442 for GraphicTest/UFastBitmap.pas

Timestamp:

Nov 22, 2012, 9:37:20 AM (12 years ago)

Author:

chronos

Message:

Modified: OpenGL methods could be disabled by compiler define opengl.
Fixed: Range check error in pixel assignment. Type Cardinal used instead of type Integer.

Location:

GraphicTest

Files:

Property svn:ignore

-              r356
+              r442
 type
   TFastBitmapPixel = Integer;
+  TFastBitmapPixel = Cardinal;
   (*TFastBitmapPixel = record
     Blue: Byte;
 …
   end;
 function SwapBRComponent(Value: Integer): Integer; inline;
 function NoSwapBRComponent(Value: Integer): Integer; inline;
+function SwapBRComponent(Value: Cardinal): Cardinal; inline;
+function NoSwapBRComponent(Value: Cardinal): Cardinal; inline;
 implementation
 function SwapBRComponent(Value: Integer): Integer;
+function SwapBRComponent(Value: Cardinal): Cardinal;
 begin
 //  Result := (Value and $00ff00) or ((Value shr 16) and $ff) or ((Value and $ff) shl 16);
 …
 end;
 function NoSwapBRComponent(Value: Integer): Integer;
+function NoSwapBRComponent(Value: Cardinal): Cardinal;
 begin
 //  Result := (Value and $00ff00) or ((Value shr 16) and $ff) or ((Value and $ff) shl 16);
 …
     for Y := 0 to (Size.Y div 2) - 1 do
       for X := 0 to (Size.X div 3) - 1 do
         Pixels[X + (I * (Size.X div 3)), Y] := 255 shl (I * 8);
+        Pixels[X + (I * (Size.X div 3)), Y] := (255 shl (I * 8)) and $ffffff;
   for Y := (Size.Y div 2) to Size.Y - 1 do
     for X := 0 to Size.X - 1 do
       Pixels[X, Y] := Random(256) or (Random(256) shl 16) or (Random(256) shl 8);
+      Pixels[X, Y] := (Random(256) or (Random(256) shl 16) or (Random(256) shl 8)) and $ffffff;
 end;

Note: See TracChangeset for help on using the changeset viewer.