[fpc-pascal] problem with the opengl unit

[YuGiOhJCJ Mailing-List]

I don't know if I use {$mode objfpc} or {$mode delphi}.
How to know it?

Strange that glut.pas is not correct because I have directly picked it from here:
http://wiki.freepascal.org/OpenGL_Tutorial
Is it an old tutorial?

In CMakeLists.txt, nothing about GL:
$ find . -name "CMakeLists.txt" -exec grep "GL" '{}' \;
set(QT_USE_QTOPENGL FALSE)
file(GLOB ServerSources ${CMAKE_SOURCE_DIR}/gameServer/*.hs)
file(GLOB NetCpp net/*.cpp)
file(GLOB ModelCpp model/*.cpp)
file(GLOB_RECURSE UIcpp ui/*.cpp)
file(GLOB UtilCpp util/*.cpp)
file(GLOB ModelHdr model/*.h)
file(GLOB NetHdr net/*.h)
file(GLOB_RECURSE UIhdr ui/*.h)
file(GLOB UtilHdr util/*.h)
file(GLOB frontlib_src
find_package(GLUT REQUIRED)
    find_package_or_disable_msg(GLUT NOVIDEOREC "Video recording will not be built")
    file(GLOB DLLs *.dll)
    file(GLOB ICOs *.ico)
file(GLOB txttrans2 ??.txt)
file(GLOB txttrans5 ?????.txt)
file(GLOB tsfiles *.ts)
file(GLOB luafiles *.lua)
file(GLOB missionfiles missions_*.txt)
file(GLOB campaignfiles campaigns_*.txt)
file(GLOB tipfiles tips_*.xml)
file(GLOB BaseMusic *.ogg)
file(GLOB txtnames *.txt)
file(GLOB cfgnames *.cfg)
file(GLOB Scripts *.lua)
file(GLOB Config *.ini)
file(GLOB Missions *.lua)
file(GLOB Packs *.hwp)
file(GLOB Config *.ini)
file(GLOB Missions *.lua)
file(GLOB Packs *.hwp)
file(GLOB Scripts *.lua)
file(GLOB luafiles *.lua)
file(GLOB luafiles *.lua)
file(GLOB cfgfiles *.cfg)
    file(GLOB miscfiles *.xml *.desktop)
file(GLOB FlagTemplates *.png)
file(GLOB MissionPics *@2x.png)
file(GLOB AmmoMenuSprites *.png)
file(GLOB HedgehogSprites *.png)
file(GLOB GraveSprites *.png)
file(GLOB BaseSprites *.png)
file(GLOB Sprites *.png)
file(GLOB HatSprites *.png)
file(GLOB HatSprites *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB images *.png)
file(GLOB BaseSounds *.ogg)
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB VoiceSounds
file(GLOB FortSprites *L.png *R.png)

I am not looking for learning OpenGL, I just want a minimal example to be sure that my OpenGL unit is working correctly.
Do you have something like that?

On Sat, 3 May 2014 10:04:36 -0700 (PDT)
leledumbo <leledumbo_cool at yahoo.co.id> wrote:

> > It does not work with my glut.pas code
> 
> Do you use {$mode objfpc} or {$mode delphi}? ParamStr should return
> AnsiString instead of ShortString there, and it's convertible to PChar.
> Otherwise, you can cast the result to AnsiString first.
> 
> P.S.: I don't recommend glut, not even freeglut, for learning OpenGL, use
> glfw instead for cross platform OpenGL toolkit.
> 
> > It does not work when I am compiling hedgewars-src-0.9.20:
> 
> .nix filesystems are case sensitive. GL and gl is different. The compiler
> should've tried searching both though, so it must be something else. Check
> the generated Makefile, or better, the CMakeLists.txt.
> 
> 
> 
> --
> View this message in context: http://free-pascal-general.1045716.n5.nabble.com/problem-with-the-opengl-unit-tp5719120p5719121.html
> Sent from the Free Pascal - General mailing list archive at Nabble.com.
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal