examples: fixed compilation

git-svn-id: trunk@16238 -

components/opengl/glgtkglxcontext.pas

@@ -421,9 +421,9 @@ begin
   PrivateShareList:=PGdkGLContextPrivate(sharelist);
   if (sharelist<>nil) then
     glxcontext := glXCreateContext(dpy, vi, PrivateShareList^.glxcontext,
-                                   direct{$ifndef ver2_0}=1{$endif})
+                                   direct)
   else
-    glxcontext := glXCreateContext(dpy, vi, nil, direct{$ifndef ver2_0}=1{$endif});
+    glxcontext := glXCreateContext(dpy, vi, nil, direct);
 
   XFree(vi);
   if (glxcontext = nil) then exit;

examples/openglcontrol/exampleform.pp

@@ -28,7 +28,7 @@ unit ExampleForm;
 interface
 
 uses
-  Classes, SysUtils, LCLProc, Forms, LResources, Buttons,
+  Classes, SysUtils, FileUtil, LCLProc, Forms, LResources, Buttons,
   StdCtrls, Dialogs, GL, OpenGLContext;
 
 const

examples/openglcontrol/openglcontrol_demo.lpi

@@ -45,10 +45,7 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
+    <Version Value="8"/>
     <Other>
       <CompilerPath Value="$(CompPath)"/>
     </Other>