Help need in conversion

[ZsurzsaLaszlo]

Source: http://www.sulaco.co.za/opengl_project_glWindows.htm

Could some one should me how to convert it to lazarus, or maybe direct me to a web site where I find information regarding conversion. I find really hard in this moment to make it work under Lazarus. What do you suggest.

The program can be found in the attachment to.

Thanks,
Zs.L

[Leledumbo]

Seems like I've tried that some time ago. It's easily convertible. You may want to take a look at Code Conversion Guide in the wiki. If I'm not mistaken, projects from those websites use Windows API quite heavily, so you can skip out things about portability in the conversion guide (it won't work easily on other platforms).

[ZsurzsaLaszlo]

Huuuuuuuuuh, i omitted this site, or never look on it. Thanks for the info i shall look into it looks nice.

Thank you for the info.

[v.denis]

Here you are:
http://rghost.net/40072171

Amazing, convesion took about 10 minutes. Though I've dropped loading jpg textures.
Also reorganized file sturcture a bit.

Converting this project you should consider:

- OpenGL in Delphi -> GL in FPC
- Some functions in FPC are not overloaded like in Delphi, i.e. you have to add postfixes on your own:
  like: 1f, 1d...
- to convert faster you can set {$mode delphi} or have to manually fix syntax differences

[ZsurzsaLaszlo]

OpenGLApp.lpr(453,24) Hint: Local variable "msg" does not seem to be initialized
OpenGLApp.lpr(469,31) Hint: Mixing signed expressions and longwords gives a 64bit result
OpenGLApp.lpr(432,18) Hint: Parameter "hInstance" not used
OpenGLApp.lpr(432,37) Hint: Parameter "hPrevInstance" not used
OpenGLApp.lpr(433,18) Hint: Parameter "lpCmdLine" not used
OpenGLApp.lpr(433,37) Hint: Parameter "nCmdShow" not used
OpenGLApp.lpr(38,11) Hint: Local proc "glBindTexture" is not used
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterCustomImageList
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterMenuItem
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterMenu
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterMainMenu
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterPopupMenu
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterDragImageList
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterControl
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterWinControl
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterGraphicControl
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterCustomControl
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterScrollingWinControl
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterScrollBox
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterCustomFrame
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterCustomForm
OpenGLApp.lpr(487,1) Error: Undefined symbol: WSRegisterHintWindow
OpenGLApp.lpr(487,1) Fatal: There were 15 errors compiling module, stopping


I get this messages. Thank you for the quick response!!!!

I don't realy what to do with this althought ....

[ludob]

Error: Undefined symbol: WSRegisterCustomImageList

You have to add the Interfaces unit to the uses clause when using the LCL.

[ZsurzsaLaszlo]

Thanks, thanks itt helped me guys!!!