OpenGL. Создание куба на ScrollBox.

[ArtGrek]

есть код для создания куба на форме, хочу перенести его на ScrollBox

 
procedure TForm1.DrawScene;
begin
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

 glMatrixMode(GL_MODELVIEW);
 glLoadIdentity;
 glTranslatef(0.0, 0.0, -8.0);
 glRotatef(AngleX, 1.0, 0.0, 0.0); 
 glRotatef(AngleY, 0.0, 1.0, 0.0); 
 glRotatef(AngleZ, 0.0, 0.0, 1.0); 

 glBegin(GL_POLYGON);
  glNormal3f(0.0, 0.0, 1.0);
  glVertex3f(1.0, 1.0, 1.0);
  glVertex3f(-1.0, 1.0, 1.0);
  glVertex3f(-1.0, -1.0, 1.0);
  glVertex3f(1.0, -1.0, 1.0);
 glEnd;

 glBegin(GL_POLYGON);
  glNormal3f(0.0, 0.0, -1.0);
  glVertex3f(1.0, 1.0, -1.0);
  glVertex3f(1.0, -1.0, -1.0);
  glVertex3f(-1.0, -1.0, -1.0);
  glVertex3f(-1.0, 1.0, -1.0);
 glEnd;

 glBegin(GL_POLYGON);
  glNormal3f(-1.0, 0.0, 0.0);
  glVertex3f(-1.0, 1.0, 1.0);
  glVertex3f(-1.0, 1.0, -1.0);
  glVertex3f(-1.0, -1.0, -1.0);
  glVertex3f(-1.0, -1.0, 1.0);
 glEnd;

 glBegin(GL_POLYGON);
  glNormal3f(1.0, 0.0, 0.0);
  glVertex3f(1.0, 1.0, 1.0);
  glVertex3f(1.0, -1.0, 1.0);
  glVertex3f(1.0, -1.0, -1.0);
  glVertex3f(1.0, 1.0, -1.0);
 glEnd;

 glBegin(GL_POLYGON);
  glNormal3f(0.0, 1.0, 0.0);
  glVertex3f(-1.0, 1.0, -1.0);
  glVertex3f(-1.0, 1.0, 1.0);
  glVertex3f(1.0, 1.0, 1.0);
  glVertex3f(1.0, 1.0, -1.0);
 glEnd;

 glBegin(GL_POLYGON);
  glNormal3f(0.0, -1.0, 0.0);
  glVertex3f(-1.0, -1.0, -1.0);
  glVertex3f(1.0, -1.0, -1.0);
  glVertex3f(1.0, -1.0, 1.0);
  glVertex3f(-1.0, -1.0, 1.0);
 glEnd;

 SwapBuffers(DC);  
end;

подскажите с чего начать, а я съарентируюсь

[SalasAndriy]

ну нужно получать контекст не формы, а компонента ScrollBox и тогда на нём рисовать) Всё элементарно просто...

Где ваш код инициализации OpenGL?

[ArtGrek]

контекст не формы

а где ето в моем коде?

[ArtGrek]

procedure TForm1.InitializeRC;
begin
 glEnable(GL_DEPTH_TEST); 
 glEnable(GL_LIGHTING);
 glEnable(GL_LIGHT0);
end;

ето?

[SalasAndriy]

Там есть получение контекста формы, похожее на

DC := GetDC(Form1.Handle);

Вот замените там и напишите так:

DC := GetDC(ScrollBox1.Handle);

или давайте сюда весь код разберёмься

[ArtGrek]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.PopupMenu:=PopupMenu1;
 Angle:=0;
 AngleX:=30;
 AngleY:=0;
 AngleZ:=0;
 c:=1;
 DC:=GetDC(ScrollBox1.Handle);
 SetDCPixelFormat;
 hrc:=wglCreateContext(DC);
 wglMakeCurrent(DC, hrc);
 InitializeRC;
 glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @MaterialColor);
end;

спасибо, работаю дальше)