Changeset 573 for GraphicTest/FastBitmap.pas

Timestamp:

Jun 25, 2024, 10:49:43 AM (4 months ago)

Author:

chronos

Message:

• Modified: Build with Lazarus 3.4.
• Modified: Removed U prefix from unit names.

File:

• GraphicTest/FastBitmap.pas (moved) (moved from GraphicTest/UFastBitmap.pas ) (6 diffs)

GraphicTest/FastBitmap.pas

@@ -1 @@
-unit UFastBitmap;
-
-{$mode objfpc}{$H+}
+unit FastBitmap;
 
 interface
@@ -73 +71 @@
 function NoSwapBRComponent(Value: Cardinal): Cardinal; inline;
 
+
 implementation
 
@@ -109 +108 @@
 begin
   FreeMem(FPixelsData);
-  inherited Destroy;
+  inherited;
 end;
 
@@ -143 +142 @@
 function TFastBitmap3.GetPixelAddress(X, Y: Integer): PFastBitmapPixel;
 begin
-  Result := PFastBitmapPixel(FPixelsData) + Y * FSize.X + X;
+  Result := PFastBitmapPixel(FPixelsData + Y * FSize.X + X);
 end;
 
@@ -201 +200 @@
 begin
   FreeMem(FPixelsData);
-  inherited Destroy;
+  inherited;
 end;
 
@@ -227 +226 @@
 end;
 
-
 end.