Search the Community

I have a Delphi codes using Delphi with Glscene dodo 3D visualization. I use the excellent GLScene library to do technical things like this http://www.cognitor.com.br/TR074ENGFigures.pdf . It works well for years. GLScene team helped me a lot along these years. I am now finishing the conversion of my VCL code to run in the browser. I am succeeding to do the conversion using UNIGUI. The only missing thing is the 3D GLscene part because Unigui do not accept non-Unigui components. In the forum GLScene – SourceForge , (Jerome D - BeanzMaster) suggested me to try with pas2js :https://github.com/Kryuski/pas2js-for-delphi . I am downloading it to try. This colleague gave also very interesting idea - suggestion that I am posting here for Unigui team consideration. He wrote that if you have the source code of Unigui , could try making a wrapper of TGLSceneViewer like in the next lines. Can Unigui team or users comment on this??. Unfortunately, I do not have Unigui code nor sufficient knowledge to do the wrapper and to implement the wrapper. // The WRAPPER //////////////////////////: Type TGLUniguiSceneViewe = Class(TUniGuiControl) private FGLSCeneViewer : TGLSceneViewer; public // or in protected ?? procedure Paint; override; // Put GLsceneViewer paint in property GLSceneViewer : TGLSceneViewer Read FGLSceneViewer; end; or something like this (I think is a better way) Type TGLUniguiSceneViewer = Class(TUniGuiPanel) private FGLSCeneViewer : TGLSceneViewer; procedure CreateGLSceneViewer; public // or in protected ?? constructor Create(AOwner: TComponent); override; published property GLSceneViewer : TGLSceneViewer Read FGLSceneViewer; end; procedure TGLUniguiSceneViewer.CreateGLSceneViewer; begin FGLSCeneViewer := TGLSceneViewer.Create(Self); FGLSCeneViewer.Align := alClient; FGLSCeneViewer.Parent := Self; FGLSCeneViewer.Visible := True; end; constructor TGLUniguiSceneViewe.Create(AOwner: TComponent); begin inherited Create(AOwner); SetSubComponent(True); CreateGLSceneViewer; end;