Install GLScene on Delphi XE5

[Paolo]

Hi,
HELP ME PLEASE!!!
I've tried all version of GLScene and follows any suggestion in this forum but the GLScene don't install on my XE5. Errors, errors, errors....
I tried on a Delphi 10.3 trial and the installation is perfect, but my "work" version is the XE5.
Can someone help me please?

[Pavel Vassiliev]

Paolo,
What errors? Try to install current GLS from repository. There is an Instruction in Help folder.
Pavel

[Paolo]

Ok, thank you for the support.
1. I've downloaded the the code from http://sourceforge.net/p/glscene/code/HEAD/tree/trunk
2. I've puted it in "C:\Users\Public\Documents\RAD Studio\12.0\Components\" dir
3. Followed instruction in "InstallationGLS.pdf"
4. Open project "GLScene_win32"
5. Prior to compile it I try with a "Syntax check" command the first error accour in GLTypes.pas:

uses
  System.Types,
  System.SysUtils,
  System.Rtti,
  System.Math,
  System.Math.Vectors,  ERROR
  GLVectorTypes;

The unit don't exist.
Follow instruction under topic https://sourceforge.net/p/glscene/discussion/93606/thread/b6cfc0a3/#de88 , create the unit System.Math.Vectors and put it under Source folder of GLScene.
6. Repeat the "Syntax check" command and another error in GLTypes:

function TxVector.ToQuat: TxQuaternion;
var
  ModVec: Extended;
  C1, C2: Extended;
begin
  .....
  Result := [C1, FData[0] * C2, FData[1] * C2, FData[2] * C2];  ERROR
end;

Error: [dcc32 Error] GLTypes.pas(966): E2010 Incompatible types: 'TAbstractVector' and 'array[0..3] of Extended'

... and now I'm blocked.

[Pavel Vassiliev]

Paolo,
Try to comment System.Math.Vectors and exclude GLTypes from package - it uses records as objects style that accessible I assume after XE8
Pavel

[Paolo]

Try to comment System.Math.Vectors

Done. Syntax check error yet as point 6 of previus post.

exclude GLTypes from package

Done. Error because many unit uses it in "uses" and if I comment this other error accours.
Example:
[dcc32 Error] GLVectorFileObjects.pas(4379): E2003 Undeclared identifier: 'TxFace'

[Pavel Vassiliev]

Paolo,
This record is ordinary as earlier, so use GLTypes unit again and check where are errors for function TxVector.toQuat (comment it). Change it with appropriate earlier command in codes. You may use BeyondCompare program and open there current and old versions, e.g. from https://sourceforge.net/p/glscene/code/HEAD/tree/tags/GLScene%20v1.1/Source/

[Paolo]

I've made other attempts.
In unit GLTypes:
1. Add System.TypInfo in "uses" for TxFace and other identifier;
2. Substitute System.Math.Vectors with System.UITypes;
3. All function that return a TxQuaternion I've modified the result;
Example:

function TxVector.ToQuat: TxQuaternion;
var  r: TxQuaternion;
begin  
............
  r.FData[0] := C1;
  r.FData[1] := FData[0] * C2;
  r.FData[2] := FData[1] * C2;
  r.FData[3] := FData[2] * C2;
  result := r;
//  Result := [C1, FData[0] * C2, FData[1] * C2, FData[2] * C2];
end;

1. Remove OpenGLVCL from Project because Winapi.OpenGLext not found.
2. There aren't syntax errors.

Now, compile all but an error accour in GLScene_DT.

[dcc32 Fatal Error] GLScene_DT.dpk(40): E2202 Required package 'GLScene_RT' not found

The new GLScene_RT.bpl is under $(GLSCENE)\Bpl\Win32.
With regedit add $(GLSCENE)\Bpl\Win32 in "Package Search Path"... same error.
Move the GLScene_RT.bpl under my default Bpl dir... same error.

Any idea?

[Paolo]

SOLVED but not completly...
I've applied all the changes at GLScene-1.8 files and in addition:
1. Commented all "System.ImageList" because is "VCL.Controls"
2. Remove FInfo from the project because the consts GL_TRUE and GL_FALSE in Winapi.OpenGL are not valid and I don't know wich value to put in.

Compiled all and installed.