From 60489e5cc09c2471f4b52e1521cbe5550ad595fb Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 21 Nov 2014 23:13:57 +0000 Subject: [PATCH] examples: openglcontrol: clean up git-svn-id: trunk@46941 - --- examples/openglcontrol/exampleform.pp | 8 +------- examples/openglcontrol/openglcontrol_demo.lpi | 5 ----- 2 files changed, 1 insertion(+), 12 deletions(-) diff --git a/examples/openglcontrol/exampleform.pp b/examples/openglcontrol/exampleform.pp index f6f701f9e0..226d1496f9 100644 --- a/examples/openglcontrol/exampleform.pp +++ b/examples/openglcontrol/exampleform.pp @@ -402,14 +402,8 @@ end; procedure TExampleForm.IdleFunc(Sender: TObject; var Done: Boolean); begin - {$IFDEF LCLQT} - // the QT backend currently uses a hack, which does not work together with the - // QT painting mechanism. You have to "paint" outside the paint message: - {$NOTE Remove this when the TOpenGLControl backend for QT uses the QT way of using OpenGL} - OpenGLControl1Paint(Self); - {$ELSE} OpenGLControl1.Invalidate; - {$ENDIF} + //OpenGLControl1Paint(Self); Done:=false; // tell lcl to handle messages and return immediatly end; diff --git a/examples/openglcontrol/openglcontrol_demo.lpi b/examples/openglcontrol/openglcontrol_demo.lpi index 9b2ee74b2f..f273b7c6ef 100644 --- a/examples/openglcontrol/openglcontrol_demo.lpi +++ b/examples/openglcontrol/openglcontrol_demo.lpi @@ -47,10 +47,5 @@ - - - - -