Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
1-24414
BOA_KAA
2003-08-26 12:01
2003.09.08
Маски


1-24419
pavel_guzhanov
2003-08-25 17:49
2003.09.08
Delphi & Excel


8-24560
dansik
2003-05-09 03:26
2003.09.08
Bitmap


6-24574
sasha1
2003-07-03 15:42
2003.09.08
Net


1-24430
Kurt
2003-08-25 17:09
2003.09.08
Тип Integer...




   Наверх