Open gl, рисование на панели

[Makars]

Создаю свой класс с наследованием от TPanel.Переопределяю метод Paint, пишу там свой код с вызовом Opengl функций .Но при создании такой панели на главной форме ничего не отрисовывается. Подскажите плиз что я делаю не так, может мне следует переопределять какой то другой метод TPanel ?

 procedure Paint; override;
constructor Create(AOwner:TComponent;aParent:TWinControl);
...

constructor TChessBoard3.Create(AOwner:TComponent;aParent:TWinControl);
begin
  inherited Create(AOwner);
  Parent:=aParent;
  SetDCPixelFormat(Canvas.Handle);
  hrc := wglCreateContext(Canvas.Handle);
end;

procedure TMyPanel.Paint;
var i:integer;
k:real;
begin
inherited Paint;

k:=0.9;
wglMakeCurrent(Canvas.Handle, hrc);
glViewPort (0, 0, Width, Height); // область вывода
glClearColor (0.5, 0.5, 0.75, 1.0); // цвет фона
glClear (GL_COLOR_BUFFER_BIT);      // очистка буфера цвета
glLineWidth (6);
glBegin (GL_LINE) ;
//for i:=0 to 5 do begin
glVertex2f (k * cos (2 * Pi * i / 6), k * sin (2 * Pi * i / 6));
glVertex2f (k * cos (2 * Pi * (i + 1) /6),k * sin (2 * Pi * (i + 1) / 6) ) ;
//end;
glEnd;

end;

[Makars]

Охохо, ни одного ответа. Такой сложный вопрос?)
Или я не понятно обьяснил проблему???

[Develop]

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

Охохо, ни одного ответа. Такой сложный вопрос?)
Или я не понятно обьяснил проблему???

Не то что-бы непонятно, просто это никому не надо))

Можешь посмотреть как у меня сделано. Правда там для Лазаруса,
но думаю что в Делфи тоже скомпилится.
http://www.cyberforum.ru/opengl/thread857446.html

[cyberdev]

Просто создайте обработчик OnPaint в вашем компоненте (в стандартной панели его нет) и осуществляйте рендер в нём (как в примерах с главной формой).

[cyberdev]

Охохо, ни одного ответа. Такой сложный вопрос?)

Надо иметь выдержку. Помощь на форуме, дело добровольное!

[Makars]

Спасибо за помощь.