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

examples: fixed compilation

Browse Source 
git-svn-id: trunk@16238 -
This commit is contained in:
mattias 2008-08-25 22:44:21 +00:00
parent 908ad54b8f
commit ce192d3f70
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/opengl/glgtkglxcontext.pas
View File

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

2
examples/openglcontrol/exampleform.pp
View File

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

5
examples/openglcontrol/openglcontrol_demo.lpi
View File

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