Changeset 318 for GraphicTest/UFastBitmap.pas

Timestamp:

Feb 1, 2012, 3:33:59 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Exchanged numeric values in table columns for Duration and FPS.

File:

• GraphicTest/UFastBitmap.pas (modified) (3 diffs)

GraphicTest/UFastBitmap.pas

@@ -9 +9 @@
 
 type
- TFastBitmapPixel = Integer;
- PFastBitmapPixel = ^TFastBitmapPixel;
-
- TFastBitmapPixelComponents = packed record
-   B, G, R, A: Byte;
- end;
-
- { TFastBitmap }
+
+  TFastBitmapPixel = Integer;
+  (*TFastBitmapPixel = record
+    Blue: Byte;
+    Green: Byte;
+    Red: Byte;
+  end;*)
+  PFastBitmapPixel = ^TFastBitmapPixel;
+
+  TFastBitmapPixelComponents = packed record
+    B, G, R, A: Byte;
+  end;
+
+const
+  FastPixelSize = SizeOf(TFastBitmapPixel);
+
+type
+  { TFastBitmap }
 
   TFastBitmap = class
@@ -166 +176 @@
 function TFastBitmap.GetPixel(X, Y: Integer): TFastBitmapPixel;
 begin
-  Result := PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * SizeOf(TFastBitmapPixel))^;
+  Result := PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * FastPixelSize)^;
 end;
 
 procedure TFastBitmap.SetPixel(X, Y: Integer; const AValue: TFastBitmapPixel);
 begin
-  PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * SizeOf(TFastBitmapPixel))^ := AValue;
+  PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * FastPixelSize)^ := AValue;
 end;
 
@@ -178 +188 @@
   if (FSize.X = AValue.X) and (FSize.Y = AValue.X) then Exit;
   FSize := AValue;
-  FPixelsData := ReAllocMem(FPixelsData, FSize.X * FSize.Y * SizeOf(TFastBitmapPixel));
+  FPixelsData := ReAllocMem(FPixelsData, FSize.X * FSize.Y * FastPixelSize);
 end;