Changeset 454 for GraphicTest/Methods/UOpenGLPBOMethod.pas

Timestamp:

Nov 26, 2012, 7:38:56 AM (12 years ago)

Author:

chronos

Message:

• Added: Now PixelFormat for tests where TBitmap is used can be changed.
• Fixed: Stopping of test of all methods.

File:

• GraphicTest/Methods/UOpenGLPBOMethod.pas (modified) (3 diffs)

GraphicTest/Methods/UOpenGLPBOMethod.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Controls
+  Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics
   {$IFDEF opengl}, GL, GLExt, OpenGLContext{$ENDIF};
 
@@ -16 +16 @@
     pboIds: array[0..1] of GLuint;
     Index, NextIndex: Integer;
-    procedure Init(AParent: TWinControl; Size: TPoint); override;
+    procedure Init(AParent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -31 +31 @@
 //procedure glGenBuffersARB2 : procedure(n : GLsizei; buffers : PGLuint); extdecl;
 
-procedure TOpenGLPBOMethod.Init(AParent: TWinControl; Size: TPoint);
+procedure TOpenGLPBOMethod.Init(AParent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
 var
   DataSize: Integer;