Changeset 573 for GraphicTest/Methods/MethodMove.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/MethodMove.pas (moved) (moved from GraphicTest/Methods/UMethodMove.pas ) (5 diffs)

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.