Changeset 573 for GraphicTest/Methods/MethodOpenGL.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/Methods/MethodOpenGL.pas (moved) (moved from GraphicTest/Methods/UMethodOpenGL.pas ) (4 diffs)

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;