paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 19:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

openglcontrol: qt: invalidate works, patch #27066

Browse Source 
git-svn-id: trunk@46940 -
This commit is contained in:
mattias 2014-11-21 23:11:01 +00:00
parent 92b8da3b52
commit 285ae1d692
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/opengl/glqtcontext.pas
View File

@ -189,6 +189,9 @@ begin
AttrList:=CreateOpenGLContextAttrList(DoubleBuffered,RGBA,RedBits,GreenBits,BlueBits,AlphaBits,DepthBits,StencilBits,AUXBuffers);
try
NewQtWidget:=TQtGLWidget.Create(AWinControl,AParams);
NewQtWidget.setAttribute(QtWA_PaintOnScreen);
NewQtWidget.setAttribute(QtWA_NoSystemBackground);
NewQtWidget.setAttribute(QtWA_OpaquePaintEvent);
NewQtWidget.HasPaint:=true;
NewQtWidget.xdisplay := QX11Info_display;
NewQtWidget.visual:=glXChooseVisual(NewQtWidget.xdisplay,