Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.

Participe do fórum, é rápido e fácil

Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Delphi Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Procurar
 
 

Resultados por:
 


Rechercher Pesquisa avançada

Entrar

Esqueci-me da senha

Últimos assuntos
» Problemas para atualizar carteira bamcaria no delphi 5
Renderizando o OpenGL em um TPanel EmptySeg Jul 27, 2015 11:42 am por Fredyffp

» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Renderizando o OpenGL em um TPanel EmptySáb Jul 18, 2015 10:18 am por storeprotheus

» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Renderizando o OpenGL em um TPanel EmptySáb Jul 18, 2015 10:17 am por storeprotheus

» Como gravar um campo Blob no FireBird + Delphi de um campo tipo imagem no MS-ACCESS ?
Renderizando o OpenGL em um TPanel EmptyQui maio 14, 2015 3:41 pm por ant.carlos/sp

»  Exception EBDEngineError
Renderizando o OpenGL em um TPanel EmptySex Fev 27, 2015 6:52 am por luan_cpd

» Exception EBDEngineError
Renderizando o OpenGL em um TPanel EmptySex Fev 27, 2015 6:49 am por luan_cpd

» Componente Delphi Brasil
Renderizando o OpenGL em um TPanel EmptySex Jan 23, 2015 11:51 am por pedrosilva

»  Erro no Delphi “A linha não pode ser localizada para atualiz
Renderizando o OpenGL em um TPanel EmptySex Out 24, 2014 11:47 am por Edson

» Fontes Automação Comercial 8.5 - Retaguarda c/ PDV, PAF 1.10, TEF, ECF, Sintegra, SpedFiscal, Google Maps e muito mas...
Renderizando o OpenGL em um TPanel EmptyTer Out 14, 2014 9:55 am por john marcos

Parceiros

Renderizando o OpenGL em um TPanel

2 participantes

Ir para baixo

Renderizando o OpenGL em um TPanel Empty Renderizando o OpenGL em um TPanel

Mensagem por leandrohackerx Sex Set 02, 2011 4:31 pm

Renderizando o OpenGL em um TPanel


Bem-vindo(a), vou encinar como renderizar o OpenGL em um TPanel no formulário.

Aqui está o resultado final:

Renderizando o OpenGL em um TPanel Opengl12

Requerimento para o tutorial:
Delphi 7 ou superior (deve funcionar com o Delphi 5 e 6 tambem).
Saber o básico de Delphi, como usar os eventos dos componentes e etc.

Agora vamos ao tutorial.

Primeiro adicione um TPanel no formulário (O Panel está localizado na aba de componentes Startand), e mude o valor da propiedade Aling para alClient.Deixe o nome como está: Panel1.

Renderizando o OpenGL em um TPanel Tpanel11

Declare nas uses a unit OpenGL que já vem incluso no delphi.

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, OpenGL;

type
  TForm1 = class(TForm)
...

Em private adicione o seguinte codigo:

Código:
rc : HGLRC;    //Contexto de renderização OpenGL
dc  : HDC;    //Contexto de Dispositivo (Device Contex)
ElapsedTime, AppStart, LastTime : DWord;
procedure glDraw;
procedure Idle(Sender: TObject; var Done: Boolean);

Agora depois de:

var
Form1: TForm1;

implementation

{$R *.dfm}

Adicione o codigo:

Código:
procedure TForm1.glDraw;
begin

end;

procedure Tform1.Idle(Sender: TObject; var Done: Boolean);
begin

end;

procedure glInit();
begin

end;

Deiche assim por enquanto...
No evento OnCreate do formulário deixe-o assim:

Código:
procedure TForm1.FormCreate(Sender: TObject);
var pfd : TPIXELFORMATDESCRIPTOR;
    pf  : Integer;
begin
Form1.Caption:='Renderizando o OpenGL em um TPanel';

//OpenGL initialisieren
dc:=GetDC(Panel1.Handle);
//PixelFormat
pfd.nSize:=sizeof(pfd);
pfd.nVersion:=1;
pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER or 0;
pfd.iPixelType:=PFD_TYPE_RGBA;      //PFD_TYPE_RGBA e PFD_TYPEINDEX
pfd.cColorBits:=32;
pf :=ChoosePixelFormat(dc, @pfd);  //Returns format that most closely matches above pixel format
SetPixelFormat(dc, pf, @pfd);
rc :=wglCreateContext(dc);    //Rendering Context = window-glCreateContext
wglMakeCurrent(dc,rc);        //Make the DC (Form1) the rendering Context
//Initialist GL environment variables
glInit;
Panel1Resize(sender);    //sets up the perspective
AppStart :=GetTickCount();
//when the app has spare time, render the GL scene
Application.OnIdle := Idle;
end;

No evento OnDestroy do formulário deixe-o assim:

Código:
procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(0,0);
wglDeleteContext(rc);
end;

Agora no Panel1, use o evento OnResize e deixe-o assim:

Código:
procedure TForm1.Panel1Resize(Sender: TObject);
begin
glViewport(0, 0, Panel1.Width, Panel1.Height);    //Define a viewport para a janela OpenGL
glMatrixMode(GL_PROJECTION);        //Altera o modo Matrix para Projeção
glLoadIdentity();                  //Reseta o visualizador (view)
gluPerspective(45.0, Panel1.Width/Panel1.Height, 1.0, 500.0);  //Faz os cálculos de perspectiva. Último valor = profundidade de corte máxima
glMatrixMode(GL_MODELVIEW);        //Volta para a matriz de modelagem
end;

Até agora o nosso código está assim:

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, OpenGL;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
  private
    { Private declarations }
    rc : HGLRC;    //Contexto de renderização OpenGL
    dc  : HDC;    //Contexto de Dispositivo (Device Contex)
    ElapsedTime, AppStart, LastTime : DWord;
    procedure glDraw;
    procedure Idle(Sender: TObject; var Done: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.glDraw;
begin

end;

procedure Tform1.Idle(Sender: TObject; var Done: Boolean);
begin

end;

procedure glInit();
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
var pfd : TPIXELFORMATDESCRIPTOR;
    pf  : Integer;
begin
Form1.Caption:='Renderizando o OpenGL em um TPanel';

//OpenGL initialisieren
dc:=GetDC(Panel1.Handle);
//PixelFormat
pfd.nSize:=sizeof(pfd);
pfd.nVersion:=1;
pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER or 0;
pfd.iPixelType:=PFD_TYPE_RGBA;      //PFD_TYPE_RGBA e PFD_TYPEINDEX
pfd.cColorBits:=32;
pf :=ChoosePixelFormat(dc, @pfd);  //Returns format that most closely matches above pixel format
SetPixelFormat(dc, pf, @pfd);
rc :=wglCreateContext(dc);    //Rendering Context = window-glCreateContext
wglMakeCurrent(dc,rc);        //Make the DC (Form1) the rendering Context
//Initialist GL environment variables
glInit;
Panel1Resize(sender);    //sets up the perspective
AppStart :=GetTickCount();
//when the app has spare time, render the GL scene
Application.OnIdle := Idle;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(0,0);
wglDeleteContext(rc);
end;

procedure TForm1.Panel1Resize(Sender: TObject);
begin
glViewport(0, 0, Panel1.Width, Panel1.Height);    //Define a viewport para a janela OpenGL
glMatrixMode(GL_PROJECTION);        //Altera o modo Matrix para Projeção
glLoadIdentity();                  //Reseta o visualizador (view)
gluPerspective(45.0, Panel1.Width/Panel1.Height, 1.0, 500.0);  //Faz os cálculos de perspectiva. Último valor = profundidade de corte máxima
glMatrixMode(GL_MODELVIEW);        //Volta para a matriz de modelagem
end;

end.
Volte ao glInit() e subistitua-o por este codigo:

Código:
procedure glInit();
begin
glClearColor(0.0, 0.0, 0.0, 0.0);      //Fundo preto
glShadeModel(GL_SMOOTH);                //Permite sombreamento de cor lisa
glClearDepth(1.0);                      //Setup do Buffer de profundidade
glEnable(GL_DEPTH_TEST);                //Habilitar buffer de profundidade
glDepthFunc(GL_LESS);                //O tipo de teste de profundidade a fazer
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);  //Calculos de perspectiva
end;

Volte ao Idle e substitua-o por este código:

Código:
procedure Tform1.Idle(Sender: TObject; var Done: Boolean);
begin
Done := FALSE;
LastTime :=ElapsedTime;
ElapsedTime :=GetTickCount() - AppStart;      //Calcula o tempo decorrido
ElapsedTime :=(LastTime + ElapsedTime) DIV 2; //Média-lo para movimentos mais suaves
glDraw();                        //Desenha a cena
SwapBuffers(DC);                  //Mostra a cena
end;

Volte ao glDraw() e substitua-o por este código:
Código:

procedure TForm1.glDraw;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);    //Limpa a tela e o buffer de profundidade
glLoadIdentity();                                      //Reseta o visualizador (view)
              //Position
OpenGL.gluLookAt(-5, 0, 10, 0, 0, 0, 0, 1, 0); //Configura a camêra
                                                                            //X Y Z
glTranslatef(0, 0, 0); //Posiciona as unidades para desenhar o objeto na posição 0 0 0
glColor3f(255, 0, 0); //Define uma cor antes de desenhar o objeto
glRotatef(ElapsedTime/3, 0, 1, 0); //Rotaciona o cubo constantemente
//Desenhar o cubo
glBegin(GL_QUADS);
    //Face frontal
    glNormal3f( 0.0, 0.0, 1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f(-1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f( 1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f( 1.0,  1.0,  1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f(-1.0,  1.0,  1.0);
    //Face traseira
    glNormal3f( 0.0, 0.0,-1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f(-1.0, -1.0, -1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f(-1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f( 1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f( 1.0, -1.0, -1.0);
    //Face superior (top)
    glNormal3f( 0.0, 1.0, 0.0);
    glTexCoord2f(0.0, 1.0); glVertex3f(-1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f(-1.0,  1.0,  1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f( 1.0,  1.0,  1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f( 1.0,  1.0, -1.0);
    //Face inferior (buttom)
    glNormal3f( 0.0,-1.0, 0.0);
    glTexCoord2f(1.0, 1.0); glVertex3f(-1.0, -1.0, -1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f( 1.0, -1.0, -1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f( 1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f(-1.0, -1.0,  1.0);
    //Face direita
    glNormal3f( 1.0, 0.0, 0.0);
    glTexCoord2f(1.0, 0.0); glVertex3f( 1.0, -1.0, -1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f( 1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f( 1.0,  1.0,  1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f( 1.0, -1.0,  1.0);
    //Face esquerda
    glNormal3f(-1.0, 0.0, 0.0);
    glTexCoord2f(0.0, 0.0); glVertex3f(-1.0, -1.0, -1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f(-1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f(-1.0,  1.0,  1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f(-1.0,  1.0, -1.0);
  glEnd();
end;

Ele é responssável por desenhar toda a cena a cada frame (quadro).

Pronto, agora é só salvar, compilar e testar.
Código fonte completo:

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, OpenGL;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
  private
    { Private declarations }
    rc : HGLRC;    //Contexto de renderização OpenGL
    dc  : HDC;    //Contexto de Dispositivo (Device Contex)
    ElapsedTime, AppStart, LastTime : DWord;
    procedure glDraw;
    procedure Idle(Sender: TObject; var Done: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.glDraw;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);    //Limpa a tela e o buffer de profundidade
glLoadIdentity();                                      //Reseta o visualizador (view)
              //Position
OpenGL.gluLookAt(-5, 0, 10, 0, 0, 0, 0, 1, 0); //Configura a camêra
                                                                            //X Y Z
glTranslatef(0, 0, 0); //Posiciona as unidades para desenhar o objeto na posição 0 0 0
glColor3f(255, 0, 0); //Define uma cor antes de desenhar o objeto
glRotatef(ElapsedTime/3, 0, 1, 0); //Rotaciona o cubo constantemente
//Desenhar o cubo
glBegin(GL_QUADS);
    //Face frontal
    glNormal3f( 0.0, 0.0, 1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f(-1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f( 1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f( 1.0,  1.0,  1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f(-1.0,  1.0,  1.0);
    //Face traseira
    glNormal3f( 0.0, 0.0,-1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f(-1.0, -1.0, -1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f(-1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f( 1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f( 1.0, -1.0, -1.0);
    //Face superior (top)
    glNormal3f( 0.0, 1.0, 0.0);
    glTexCoord2f(0.0, 1.0); glVertex3f(-1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f(-1.0,  1.0,  1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f( 1.0,  1.0,  1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f( 1.0,  1.0, -1.0);
    //Face inferior (buttom)
    glNormal3f( 0.0,-1.0, 0.0);
    glTexCoord2f(1.0, 1.0); glVertex3f(-1.0, -1.0, -1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f( 1.0, -1.0, -1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f( 1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f(-1.0, -1.0,  1.0);
    //Face direita
    glNormal3f( 1.0, 0.0, 0.0);
    glTexCoord2f(1.0, 0.0); glVertex3f( 1.0, -1.0, -1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f( 1.0,  1.0, -1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f( 1.0,  1.0,  1.0);
    glTexCoord2f(0.0, 0.0); glVertex3f( 1.0, -1.0,  1.0);
    //Face esquerda
    glNormal3f(-1.0, 0.0, 0.0);
    glTexCoord2f(0.0, 0.0); glVertex3f(-1.0, -1.0, -1.0);
    glTexCoord2f(1.0, 0.0); glVertex3f(-1.0, -1.0,  1.0);
    glTexCoord2f(1.0, 1.0); glVertex3f(-1.0,  1.0,  1.0);
    glTexCoord2f(0.0, 1.0); glVertex3f(-1.0,  1.0, -1.0);
  glEnd();
end;

procedure Tform1.Idle(Sender: TObject; var Done: Boolean);
begin
Done := FALSE;
LastTime :=ElapsedTime;
ElapsedTime :=GetTickCount() - AppStart;      //Calcula o tempo decorrido
ElapsedTime :=(LastTime + ElapsedTime) DIV 2; //Média-lo para movimentos mais suaves
glDraw();                        //Desenha a cena
SwapBuffers(DC);                  //Mostra a cena
end;

procedure glInit();
begin
glClearColor(0.0, 0.0, 0.0, 0.0);      //Fundo preto
glShadeModel(GL_SMOOTH);                //Permite sombreamento de cor lisa
glClearDepth(1.0);                      //Setup do Buffer de profundidade
glEnable(GL_DEPTH_TEST);                //Habilitar buffer de profundidade
glDepthFunc(GL_LESS);                //O tipo de teste de profundidade a fazer
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);  //Calculos de perspectiva
end;

procedure TForm1.FormCreate(Sender: TObject);
var pfd : TPIXELFORMATDESCRIPTOR;
    pf  : Integer;
begin
Form1.Caption:='Renderizando o OpenGL em um TPanel';

//OpenGL initialisieren
dc:=GetDC(Panel1.Handle);
//PixelFormat
pfd.nSize:=sizeof(pfd);
pfd.nVersion:=1;
pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER or 0;
pfd.iPixelType:=PFD_TYPE_RGBA;      //PFD_TYPE_RGBA e PFD_TYPEINDEX
pfd.cColorBits:=32;
pf :=ChoosePixelFormat(dc, @pfd);  //Returns format that most closely matches above pixel format
SetPixelFormat(dc, pf, @pfd);
rc :=wglCreateContext(dc);    //Rendering Context = window-glCreateContext
wglMakeCurrent(dc,rc);        //Make the DC (Form1) the rendering Context
//Initialist GL environment variables
glInit;
Panel1Resize(sender);    //sets up the perspective
AppStart :=GetTickCount();
//when the app has spare time, render the GL scene
Application.OnIdle := Idle;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(0,0);
wglDeleteContext(rc);
end;

procedure TForm1.Panel1Resize(Sender: TObject);
begin
glViewport(0, 0, Panel1.Width, Panel1.Height);    //Define a viewport para a janela OpenGL
glMatrixMode(GL_PROJECTION);        //Altera o modo Matrix para Projeção
glLoadIdentity();                  //Reseta o visualizador (view)
gluPerspective(45.0, Panel1.Width/Panel1.Height, 1.0, 500.0);  //Faz os cálculos de perspectiva. Último valor = profundidade de corte máxima
glMatrixMode(GL_MODELVIEW);        //Volta para a matriz de modelagem
end;

end.

Tutorial criado por leandrohackerx.

A maioria dos códigos que eu usei aprendi na internet.
Créditos abaixo:

www.sulaco.co.za pelos tutoriais e exemplos de OpenGL.
leandrohackerx
leandrohackerx
Administrador
Administrador

Mensagens : 19
Data de inscrição : 17/12/2010
Idade : 28
Localização : Na frente do PC

https://delphibrasil.forumeiros.com

Ir para o topo Ir para baixo

Renderizando o OpenGL em um TPanel Empty Re: Renderizando o OpenGL em um TPanel

Mensagem por MasterMC Dom Set 04, 2011 9:03 am

Muito bom o tutorial Leandro, bem esclarecedor e uma bela ajuda para aqueles que estão começando, mto bom ^^
MasterMC
MasterMC
Moderador
Moderador

Mensagens : 3
Data de inscrição : 17/12/2010
Idade : 26
Localização : Na frente do PC

Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos