Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.08;
Скачать: CL | DM;

Вниз

OpenGL форма и компоненты   Найти похожие ветки 

 
Gayrus ©   (2003-03-05 03:32) [0]

В 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) [1]

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



Страницы: 1 вся ветка

Текущий архив: 2003.09.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
6-24600
ASTARD
2003-06-30 19:21
2003.09.08
Indy HTTP server


3-24366
Bes
2003-08-16 16:35
2003.09.08
Delphi и Access


6-24577
SPeller
2003-07-04 19:17
2003.09.08
Докачка файлов по протоколу HTTP


3-24341
изм
2003-08-18 10:08
2003.09.08
изменентие TField


6-24596
INTAARI
2003-07-02 12:59
2003.09.08
Не удается прочитать строку из сети протоколом UDP