Changeset 573 for GraphicTest/Methods

Timestamp:

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

Author:

chronos

Message:

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

Location:

GraphicTest/Methods

Files:

• MethodBGRABitmap.pas (moved) (moved from GraphicTest/Methods/UMethodBGRABitmap.pas ) (3 diffs)
• MethodBitmapRawImageData.pas (moved) (moved from GraphicTest/Methods/UMethodBitmapRawImageData.pas ) (2 diffs)
• MethodBitmapRawImageDataMove.pas (moved) (moved from GraphicTest/Methods/UMethodBitmapRawImageDataMove.pas ) (2 diffs)
• MethodBitmapRawImageDataPaintBox.pas (moved) (moved from GraphicTest/Methods/UMethodBitmapRawImageDataPaintBox.pas ) (3 diffs)
• MethodBitmapScanline.pas (moved) (moved from GraphicTest/Methods/UMethodBitmapScanline.pas ) (1 diff)
• MethodCanvasPixels.pas (moved) (moved from GraphicTest/Methods/UMethodCanvasPixels.pas ) (2 diffs)
• MethodCanvasPixelsUpdateLock.pas (moved) (moved from GraphicTest/Methods/UMethodCanvasPixelsUpdateLock.pas ) (2 diffs)
• MethodDummy.pas (moved) (moved from GraphicTest/Methods/UMethodDummy.pas ) (3 diffs)
• MethodGraphics32.pas (moved) (moved from GraphicTest/Methods/UMethodGraphics32.pas ) (4 diffs)
• MethodLazIntfImageColorsCopy.pas (moved) (moved from GraphicTest/Methods/UMethodLazIntfImageColorsCopy.pas ) (3 diffs)
• MethodLazIntfImageColorsNoCopy.pas (moved) (moved from GraphicTest/Methods/UMethodLazIntfImageColorsNoCopy.pas ) (3 diffs)
• MethodMove.pas (moved) (moved from GraphicTest/Methods/UMethodMove.pas ) (5 diffs)
• MethodOpenGL.pas (moved) (moved from GraphicTest/Methods/UMethodOpenGL.pas ) (4 diffs)
• MethodOpenGLPBO.pas (moved) (moved from GraphicTest/Methods/UMethodOpenGLPBO.pas ) (3 diffs)

GraphicTest/Methods/MethodBGRABitmap.pas

@@ -1 @@
-unit UMethodBGRABitmap;
-
-{$mode delphi}
+unit MethodBGRABitmap;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, BGRABitmap, BGRABitmapTypes,
+  Classes, SysUtils, DrawMethod, FastBitmap, BGRABitmap, BGRABitmapTypes,
   Controls, Graphics;
 
@@ -44 +42 @@
 begin
   BGRABitmap.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -64 +62 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodBitmapRawImageData.pas

@@ -1 @@
-unit UMethodBitmapRawImageData;
-
-{$mode delphi}
+unit MethodBitmapRawImageData;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, GraphType;
+  Classes, SysUtils, DrawMethod, FastBitmap, Graphics, GraphType;
 
 type
@@ -60 +58 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodBitmapRawImageDataMove.pas

@@ -1 @@
-unit UMethodBitmapRawImageDataMove;
-
-{$mode delphi}
+unit MethodBitmapRawImageDataMove;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, GraphType;
+  Classes, SysUtils, DrawMethod, FastBitmap, Graphics, GraphType;
 
 type
@@ -48 +46 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodBitmapRawImageDataPaintBox.pas

@@ -1 @@
-unit UMethodBitmapRawImageDataPaintBox;
-
-{$mode delphi}
+unit MethodBitmapRawImageDataPaintBox;
 
 interface
 
 uses
-  {$IFDEF windows}Windows,{$ENDIF}Classes, SysUtils, Controls, UDrawMethod, UFastBitmap, Graphics, LCLType,
-  FPimage, IntfGraphics, GraphType;
+  {$IFDEF windows}Windows,{$ENDIF}Classes, SysUtils, Controls, DrawMethod,
+  FastBitmap, Graphics, LCLType, FPimage, IntfGraphics, GraphType;
 
 type
@@ -47 +45 @@
 begin
   FreeAndNil(TempBitmap);
-  inherited Done;
+  inherited;
 end;
 
@@ -94 +92 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodBitmapScanline.pas

@@ -1 @@
-unit UMethodBitmapScanline;
-
-{$mode delphi}
+unit MethodBitmapScanline;
 
 interface
 
 uses
-  LCLIntf, LCLType, Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics;
+  LCLIntf, LCLType, Classes, SysUtils, DrawMethod, FastBitmap, Controls, Graphics;
 
 type

GraphicTest/Methods/MethodCanvasPixels.pas

@@ -1 @@
-unit UMethodCanvasPixels;
-
-{$mode delphi}
+unit MethodCanvasPixels;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics;
+  Classes, SysUtils, DrawMethod, FastBitmap, Graphics;
 
 type
@@ -41 +39 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodCanvasPixelsUpdateLock.pas

@@ -1 @@
-unit UMethodCanvasPixelsUpdateLock;
-
-{$mode delphi}
+unit MethodCanvasPixelsUpdateLock;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics;
+  Classes, SysUtils, DrawMethod, FastBitmap, Graphics;
 
 type
@@ -45 +43 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodDummy.pas

@@ -1 @@
-unit UMethodDummy;
-
-{$mode delphi}
+unit MethodDummy;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap;
+  Classes, SysUtils, DrawMethod, FastBitmap;
 
 type
@@ -23 +21 @@
 constructor TMethodDummy.Create;
 begin
-  inherited Create;
+  inherited;
   Caption := 'Dummy';
   Description.Add('This method doesn''t draw anything. It''s purpose is to measure ' +
@@ -33 +31 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodGraphics32.pas

@@ -1 @@
-unit UMethodGraphics32;
-
-{$mode delphi}
+unit MethodGraphics32;
 
 interface
 
 uses
-  Classes, SysUtils, UFastBitmap, UDrawMethod,
+  Classes, SysUtils, FastBitmap, DrawMethod,
   {$IFDEF GRAPHICS32}GR32, GR32_Image,{$ENDIF}
   Controls, Graphics;
@@ -31 +29 @@
 constructor TMethodGraphics32.Create;
 begin
-  inherited Create;
+  inherited;
   Caption := 'TGR32Image';
   Description.Add('Graphics32 is well implemented highly optimized Delphi graphic ' +
@@ -46 +44 @@
 destructor TMethodGraphics32.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -92 +90 @@
 begin
   FreeAndNil(Image);
-  inherited Done;
+  inherited;
 end;
 

GraphicTest/Methods/MethodLazIntfImageColorsCopy.pas

@@ -1 @@
-unit UMethodLazIntfImageColorsCopy;
-
-{$mode delphi}
+unit MethodLazIntfImageColorsCopy;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, IntfGraphics, GraphType,
+  Classes, SysUtils, DrawMethod, FastBitmap, IntfGraphics, GraphType,
   fpImage, Graphics;
 
@@ -33 +31 @@
 destructor TMethodLazIntfImageColorsCopy.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -53 +51 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodLazIntfImageColorsNoCopy.pas

@@ -1 @@
-unit UMethodLazIntfImageColorsNoCopy;
-
-{$mode delphi}
+unit MethodLazIntfImageColorsNoCopy;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, IntfGraphics, Graphics, Controls;
+  Classes, SysUtils, DrawMethod, FastBitmap, IntfGraphics, Graphics, Controls;
 
 type
@@ -42 +40 @@
 begin
   TempIntfImage.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -57 +55 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodMove.pas

@@ -1 @@
-unit UMethodMove;
-
-{$mode delphi}
+unit MethodMove;
 
 interface
 
 uses
-  LCLIntf, LCLType, Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics;
+  LCLIntf, LCLType, Classes, SysUtils, DrawMethod, FastBitmap, Controls, Graphics;
 
 type
@@ -27 +25 @@
 constructor TMethodMove.Create;
 begin
-  inherited Create;
+  inherited;
   FastBitmap2 := TFastBitmap.Create;
   Caption := 'Move';
@@ -37 +35 @@
 begin
   FreeAndNil(FastBitmap2);
-  inherited Destroy;
+  inherited;
 end;
 
@@ -49 +47 @@
 procedure TMethodMove.UpdateSettings;
 begin
-  inherited UpdateSettings;
+  inherited;
 end;
 
@@ -60 +58 @@
 end;
 
-
 end.
 

GraphicTest/Methods/MethodOpenGL.pas

@@ -1 @@
-unit UMethodOpenGL;
-
-{$mode delphi}
+unit MethodOpenGL;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap
+  Classes, SysUtils, DrawMethod, FastBitmap
   {$IFDEF OPENGL}, GL, GLExt, OpenGLContext{$ENDIF};
 
@@ -18 +16 @@
     procedure DrawFrame(FastBitmap: TFastBitmap); override;
   end;
-  {$ENDIF}
+{$ENDIF}
 
 
@@ -28 +26 @@
 constructor TMethodOpenGL.Create;
 begin
-  inherited Create;
+  inherited;
   Caption := 'OpenGL';
   PaintObject := poOpenGL;
@@ -37 +35 @@
 destructor TMethodOpenGL.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 

GraphicTest/Methods/MethodOpenGLPBO.pas

@@ -1 @@
-unit UMethodOpenGLPBO;
-
-{$mode delphi}
+unit MethodOpenGLPBO;
 
 interface
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics
+  Classes, SysUtils, DrawMethod, FastBitmap, Controls, Graphics
   {$IFDEF OPENGL}, GL, GLExt, OpenGLContext{$ENDIF};
 
@@ -63 +61 @@
 constructor TMethodOpenGLPBO.Create;
 begin
-  inherited Create;
+  inherited;
   Caption := 'OpenGL PBO';
   PaintObject := poOpenGL;
@@ -75 +73 @@
 destructor TMethodOpenGLPBO.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;