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

[Gerzs]

Как контекст воспроизведения использую контекст устройства своей формы.
При перерисовке пробивается цвет клиентской области формы – выходит мерцание. Как избавиться от этого мерцания?
З.Ы. для перерисовки использую Repaint.

[raxp]

...не вижу кода как вы перерисовываете, приложите проект

зы: для перерисовки используйте InvalidateRect(handle,nil,false), форме doublebuffered в true, ну и вообще почему не на tpanel рисуете, а на форме?

[Gerzs]

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

...не вижу кода как вы перерисовываете, приложите проект

Изучаю книгу Краснова OpenGL. Графика в проектах Delphi, там в примерах код не идеален, наверное, что б был стимул подумать. Я вроде разобрался.
Проекты приложу, может это я че нахимичил?

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

зы: для перерисовки используйте InvalidateRect(handle,nil,false)

Для перерисовки использую SwapBuffers(Handle)

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

ну и вообще почему не на tpanel рисуете, а на форме?

А какие преимущества рисования на TPanel по сравнению с формой?

[raxp]

SwapBuffers - используется для вывода контекста на экран...

зы: вы приложили проект без указанного вами эффекта и не вижу упомянутой вами перерисовки, что смотреть-то?

[Gerzs]

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

зы: вы приложили проект без указанного вами эффекта и не вижу упомянутой вами перерисовки, что смотреть-то?

Я написал что вроде разобрался, я хотел что б посмотрели верность моего кода)
Эффект можно наблюдать если во втором проекте изменить свет формы на более светлый (белый, красный…)
З.Ы. и что там с TPanel?

[raxp]

задал панель, моргание ушло...