View Issue Details

IDProjectCategoryView StatusLast Update
0000086Gorilla3D[All Projects] Feature Requestpublic2020-09-20 18:21
ReporteradministratorAssigned Toadministrator 
PriorityurgentSeverityfeatureReproducibilityalways
Status resolvedResolutionfixed 
Product Version0.8.2.x 
Target Version0.8.2.xFixed in Version0.8.2.x 
Summary0000086: Message-Output / callback on unsupported OpenGL version
DescriptionA customer wish was to react on unsupported OpenGL / OpenGLES version with a default and user-specific message.
We need to implement some kind of callback to handle unsupported versions.

The application should halt instead of trying to instanciate an OpenGL context and throw many exceptions.
TagsNo tags attached.
Delphi-Version 10.3.3
OpenGLVersionOpenGL 4.3

Activities

administrator

2020-09-20 18:21

administrator   ~0000099

A callback method was implemented, getting called on initialization, context and shader compilation exceptions.

<code>
program TestProject;

uses
  System.StartUpCopy,
  System.UITypes,
  FMX.Forms,
  FMX.Types3D,
  FMX.Dialogs,
  Gorilla.Context.Types,
  Gorilla.Context.GLES,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

  procedure DoOnGorilla3DError(AContext : TContext3D; AKind : TGorillaContextErrorKind;
    AMsg : String);
  begin
    FMX.Dialogs.MessageDlg(AMsg, TMsgDlgType.mtError, [TMsgDlgBtn.mbOk], 0,
      TMsgDlgBtn.mbOk);
    Halt;
  end;

begin
  // here we declare our individual error callback
  TCustomContextOpenGL.OnError := DoOnGorilla3DError;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
</code>

Issue History

Date Modified Username Field Change
2020-05-04 08:23 administrator New Issue
2020-05-04 08:23 administrator Status new => assigned
2020-05-04 08:23 administrator Assigned To => administrator
2020-09-20 18:21 administrator Status assigned => resolved
2020-09-20 18:21 administrator Resolution open => fixed
2020-09-20 18:21 administrator Fixed in Version => 0.8.2.x
2020-09-20 18:21 administrator Note Added: 0000099