Changeset 573 for GraphicTest/Methods/MethodGraphics32.pas

Timestamp:

Jun 25, 2024, 10:49:43 AM (6 days ago)

Author:

chronos

Message:

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

File:

• GraphicTest/Methods/MethodGraphics32.pas (moved) (moved from GraphicTest/Methods/UMethodGraphics32.pas ) (4 diffs)

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;