Контекст воспроизведения OpenGL

[Sergeevich]

Каким образом можно сделать не форму, а панель холстом ? Тоесть я добавляю на форму компонент Panel1, как сделать чтобы именно в ней отображались все мои команды openGL ?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
     hrc : HGLRC ;
     dc:hdc;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure SetDCPixelFormat( hdc : HDC );

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

SetDCPixelFormat( form1.Canvas.Handle );
hrc := wglCreateContext ( form1.Canvas.Handle );
dc:=GetDC(hrc);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
wglDeleteContext(hrc);
ReleaseDC(hrc,dc);
DeleteDC(dc);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
wglMakeCurrent ( form1.Canvas.Handle , hrc );
glClearColor ( 0.5 , 0.5 , 0.5 , 1.0 ); { цвет фона }
glClear ( GL_COLOR_BUFFER_BIT ); { очистка буфера цвета }
//--------------ТОЧКА-------
{
glPointSize ( 30 );
glColor3f ( 1.0 , 0.0 , 0.0 );
glBegin ( GL_POINTS );
glVertex2f ( -1 , 1 );
glEnd;
}
//--------------ЛИНИЯ-------
{
glColor3f ( 1.0 , 0.0 , 0.0 );
glLineWidth ( 20.0 );
glBegin ( GL_LINES );
glVertex2f ( 0.0 , 0.0 );
glVertex2f ( 0.0 , -0.5 );
glEnd;
}
//----------------------------------------
wglMakeCurrent ( 0 , 0 );
end;


procedure SetDCPixelFormat ( hdc : HDC );
var
pfd : TPixelFormatDescriptor;
nPixelFormat : Integer;
begin
FillChar (pfd, SizeOf (pfd), 0);
nPixelFormat := ChoosePixelFormat (hdc, @pfd);
SetPixelFormat (hdc, nPixelFormat, @pfd);
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
caption:='X= '+inttostr(x)+'  Y= '+inttostr(y);
end;

end.

[raxp]

DC:= GetDC(panel.handle);

[Sergeevich]

Сообщение от raxp

DC:= GetDC(panel.handle);

Делал так, не помогает. Что именно мне нужно изменить в коде ?

[raxp]

вот это

SetDCPixelFormat( form1.Canvas.Handle );
hrc := wglCreateContext ( form1.Canvas.Handle );
dc:=GetDC(hrc);

надо так... как вариант

DC:= GetDC(handle);

 FillChar(pfd,SizeOf(pfd),0);
 with pfd do begin
  nSize     := sizeof(pfd);
  nVersion  := 1;
  dwFlags   := PFD_DRAW_TO_WINDOW or
               PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER
               or PFD_GENERIC_ACCELERATED ;
  iPixelType:= PFD_TYPE_RGBA;
  cColorBits:= 32;
  cDepthBits:= 32;
  iLayerType:= PFD_MAIN_PLANE;
 end;
 nPixelFormat:= ChoosePixelFormat(DC, @pfd);
 SetPixelFormat(DC,nPixelFormat,@pfd);
 hrc:= wglCreateContext(DC);
 wglMakeCurrent(DC, hrc);

[Sergeevich]

Не работает

[raxp]

юзаем поиск, находим готовый исходник

[DomiNick]

http://programmersforum.ru/showthread.php?t=67690