Changeset 211 for GraphicTest/UMainForm.pas

Timestamp:

Mar 20, 2011, 12:23:08 PM (13 years ago)

Author:

george

Message:

• Added: OpenGL method to display bitmap as texture on top of 2D rectangle.

File:

• GraphicTest/UMainForm.pas (modified) (7 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;
+  Math, GraphType, Contnrs, LclIntf, UFastBitmap, UDrawMethod, GL, OpenGLContext;
 
 const
@@ -34 +34 @@
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
+    TabSheet3: TTabSheet;
     Timer1: TTimer;
     procedure ButtonBenchmarkClick(Sender: TObject);
@@ -43 +44 @@
     procedure Timer1Timer(Sender: TObject);
   private
+    OpenGLControl1: TOpenGLControl;
+    TextureId: GLuint;
+    TextureData: Pointer;
+    procedure OpenGLControl1Resize(Sender: TObject);
+    procedure InitGL;
   public
     DrawMethods: TObjectList; // TObjectList<TDrawMethod>
@@ -79 +85 @@
   Bitmap.SetSize(TFastBitmap(Scenes[0]).Size.X, TFastBitmap(Scenes[0]).Size.Y);
 
+  OpenGLControl1 := TOpenGLControl.Create(Self);
+  with OpenGLControl1 do begin
+    Name := 'OpenGLControl1';
+    Parent := TabSheet3;
+    SetBounds(0, 0, 320, 240);
+    InitGL;
+    //OnPaint := OpenGLControl1Paint;
+    OnResize := OpenGLControl1Resize;
+  end;
+  GetMem(TextureData, OpenGLControl1.Width * OpenGLControl1.Height * SizeOf(Integer));
+
   DrawMethods := TObjectList.Create;
   ComboBox1.Clear;
@@ -85 +102 @@
     NewDrawMethod.Bitmap := Image1.Picture.Bitmap;
     NewDrawMethod.PaintBox := PaintBox1;
+    NewDrawMethod.OpenGLBitmap := TextureData;
+    NewDrawMethod.OpenGLControl := OpenGLControl1;
     DrawMethods.Add(NewDrawMethod);
     ComboBox1.Items.Add(NewDrawMethod.Caption);
   end;
-  ComboBox1.ItemIndex := 0;
+  ComboBox1.ItemIndex := DrawMethods.Count - 1;
 end;
 
@@ -148 +167 @@
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  FreeMem(TextureData, OpenGLControl1.Width * OpenGLControl1.Height);
   DrawMethods.Free;
   Scenes.Free;
@@ -164 +184 @@
 end;
 
+procedure TMainForm.OpenGLControl1Resize(Sender: TObject);
+begin
+  glViewport(0, 0, OpenGLControl1.Width, OpenGLControl1.Height);
+end;
+
+procedure TMainForm.InitGL;
+begin
+  glMatrixMode(GL_PROJECTION);
+  glLoadIdentity;
+  glOrtho(0, OpenGLControl1.Width, OpenGLControl1.Height, 0, 0, 1);
+  glMatrixMode(GL_MODELVIEW);
+  glLoadIdentity();
+  glDisable(GL_DEPTH_TEST);
+  glViewport(0, 0, OpenGLControl1.Width, OpenGLControl1.Height);
+  //gluPerspective( 45.0, (GLfloat)(OpenGLControl1.Width)/(GLfloat)(OpenGLControl1.Height), 0.1f, 500.0 );
+
+    //glFrustum (-1.0, 1.0, -1.0, 1.0, 1.5, 20.0);
+    //glTranslatef (0.0, 0.0,-3.0);
+  //  glClearColor(0.0, 0.0, 0.0, 1.0);
+
+  glGenTextures(1, @TextureId);
+  glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
+end;
+
 end.