Changeset 212 for GraphicTest/UMainForm.pas

Timestamp:

Mar 20, 2011, 7:18:27 PM (14 years ago)

Author:

george

Message:

• Added: OpenGL PBO method.

File:

• GraphicTest/UMainForm.pas (modified) (9 diffs)

GraphicTest/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
   ExtCtrls, StdCtrls, DateUtils, UPlatform, LCLType, IntfGraphics, fpImage,
-  Math, GraphType, Contnrs, LclIntf, UFastBitmap, UDrawMethod, GL, OpenGLContext;
+  Math, GraphType, Contnrs, LclIntf, Spin, UFastBitmap, UDrawMethod, GL,
+  OpenGLContext;
 
 const
@@ -23 +24 @@
     ButtonStop: TButton;
     ComboBox1: TComboBox;
+    FloatSpinEdit1: TFloatSpinEdit;
     Image1: TImage;
     Label1: TLabel;
@@ -47 +49 @@
     TextureId: GLuint;
     TextureData: Pointer;
+    MethodIndex: Integer;
     procedure OpenGLControl1Resize(Sender: TObject);
     procedure InitGL;
@@ -104 +107 @@
     NewDrawMethod.OpenGLBitmap := TextureData;
     NewDrawMethod.OpenGLControl := OpenGLControl1;
+    NewDrawMethod.Init;
     DrawMethods.Add(NewDrawMethod);
     ComboBox1.Items.Add(NewDrawMethod.Caption);
@@ -112 +116 @@
 procedure TMainForm.ButtonStartClick(Sender: TObject);
 begin
+  MethodIndex := ComboBox1.ItemIndex;
   ButtonStop.Enabled := True;
   ButtonStart.Enabled := False;
   Timer1.Enabled := True;
-  if ComboBox1.ItemIndex >= 0 then
-  with TDrawMethod(DrawMethods[ComboBox1.ItemIndex]) do begin
+  if MethodIndex >= 0 then
+  with TDrawMethod(DrawMethods[MethodIndex]) do begin
     PageControl1.TabIndex := Integer(PaintObject);
     Application.ProcessMessages;
@@ -132 +137 @@
   NewItem: TListItem;
   I: Integer;
-begin
+  C: Integer;
+  StartTime: TDateTime;
+begin
+  Timer1.Enabled := True;
   with ListView1, Items do
   try
-    BeginUpdate;
+    //BeginUpdate;
     Clear;
     for I := 0 to DrawMethods.Count - 1 do
     with TDrawMethod(DrawMethods[I]) do begin
+      MethodIndex := I;
       PageControl1.TabIndex := Integer(PaintObject);
-      Application.ProcessMessages;
-      DrawFrameTiming(TFastBitmap(Scenes[0]));
-      Application.ProcessMessages;
-      DrawFrameTiming(TFastBitmap(Scenes[0]));
+      StartTime := NowPrecise;
+      repeat
+        DrawFrameTiming(TFastBitmap(Scenes[SceneIndex]));
+        SceneIndex := (SceneIndex + 1) mod Scenes.Count;
+        Application.ProcessMessages;
+      until (NowPrecise - StartTime) > OneSecond * FloatSpinEdit1.Value;
       NewItem := Add;
       NewItem.Caption := Caption;
@@ -150 +161 @@
     end;
   finally
-    EndUpdate;
+    //EndUpdate;
   end;
 end;
@@ -175 +186 @@
 procedure TMainForm.Timer1Timer(Sender: TObject);
 begin
-  if (ComboBox1.ItemIndex >= 0) then
-  with TDrawMethod(DrawMethods[ComboBox1.ItemIndex]) do begin
+  if (MethodIndex >= 0) then
+  with TDrawMethod(DrawMethods[MethodIndex]) do begin
     if (FrameDuration > 0) then
       Label2.Caption := FloatToStr(RoundTo(1 / (FrameDuration / OneSecond), -3))
@@ -194 +205 @@
   glLoadIdentity;
   glOrtho(0, OpenGLControl1.Width, OpenGLControl1.Height, 0, 0, 1);
+//  glOrtho(0, 1, 1, 0, 0, 1);
   glMatrixMode(GL_MODELVIEW);
   glLoadIdentity();