Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OpenGL форма и компоненты


Gayrus ©   (2003-03-05 03:32:00) 

В Form.OnPaint у меня написано следующее:
BeginPaint(MenuForm.Handle,ps);
glPushMatrix;
glClearColor(0,0,0,1);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);//- НЕ РАБОТАЕТ!!!
glCallList(MenuArr[ActivMenu]);
glFlush;
glPopMatrix;
SwapBuffers(MenuForm.h_dc);
EndPaint(Handle,ps);

If MenuForm.ControlCount>0 then begin
for I:=0 to MenuForm.ControlCount-1 do begin
( вызываю MenuForm.Paint;)

В Form.OnPaint у меня написано следующее:
BeginPaint(MenuForm.Handle,ps);
glPushMatrix;
glClearColor(0,0,0,1);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);//- НЕ РАБОТАЕТ!!!
glCallList(MenuArr[ActivMenu]);
glFlush;
glPopMatrix;
SwapBuffers(MenuForm.h_dc);
EndPaint(Handle,ps);

If MenuForm.ControlCount>0 then begin
for I:=0 to MenuForm.ControlCount-1 do begin
MenuForm.Controls[i].Repaint;
end;
end;



После прорисовки формы ( вызываю MenuForm.Paint; )все компоненты становяться невидимы! Если опсть вызвать MenuForm.Paint-видно, ещё раз опять не видно! Как сделать чтобы компоненты показывались всегда?


Gayrus   (2003-03-05 03:33:00) [1]

P.S. Не обращайте внимание на коментарий "//- НЕ РАБОТАЕТ!!!", это я для себя :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо