Вопрос по Opengl

[Clicker]

Мне надо посередине формы рисовать картинку в OpenGL.Пробывал через фреймы делать не получается.На фрейме поставил Image1 и написал

var
  hrc: HGLRC;

procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 pfd.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

procedure TFrame4.Button1Click(Sender: TObject);
begin
SetDCPixelFormat(image1.Canvas.Handle);
hrc := wglCreateContext(image1.Canvas.Handle);
timer1.Enabled:=true;
end;

procedure TFrame4.Timer1Timer(Sender: TObject);
begin
 wglMakeCurrent(image1.Canvas.Handle, hrc);

 glViewPort (0, 0,100, 100);

 glClearColor (0, 0, 0, 1.0);
 glClear (GL_COLOR_BUFFER_BIT);      

 glPointSize (20);           
 glColor3f (1.0, 0.0, 0.5);
 glBegin (GL_POINTS);
   glVertex2f (-1, -1);
 glEnd;                              

 SwapBuffers(image1.Canvas.Handle);         
 wglMakeCurrent(0, 0);
end;

end.

[Selestis]

По-моему GL не сильно дружит со всякими компонентами, у меня глючило со многими, рисуйте на форме.

[Clicker]

В каких можно так делать?У меня есть рисунок, и мне надо посередине него рисовать картинку на OpenGl

[Selestis]

Хмм... Делайте контекст на форме, грузите текстуру и рисуте на здоровье.

[Clicker]

А можно по подробнее

[Selestis]

Можно. Я так понял, вам нужно картинку на задний фон и поверх него что-то нарисовать, верно? Значит грузите текстуру в буфер, устанавливаете её и рисуете прямоугольник по точкам [-1,-1][-1,1][1,1][1,-1]. После этого вы вольны рисовать поверх всего этого всё что угодно.

[Clicker]

а если мне надо на задний фон разместить картинку которая не соответствует размерам формы размещая ее по центру,и поверх нее рисовать Opengl. Я с текстурами пока работать не умею, ща пойду в книге поищу

[Selestis]

тогда она растянется по размерам формы если указать нужные текстурные координаты. Посмотрите в книге про текстурирование, там не сложно.

[Clicker]

А можно будет загрузить файл png?

[Selestis]

Только через расширения, лучше не надо по началу. Сначала разберитесь. А что вам нужно от png?