Changeset 573 for GraphicTest/Methods/MethodOpenGLPBO.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/MethodOpenGLPBO.pas (moved) (moved from GraphicTest/Methods/UMethodOpenGLPBO.pas ) (3 diffs)

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;