This commit is contained in:
1 parent
f71802c885
commit
b8e2d0007d
6 files changed
+639
-39
No files matched your search
@@ -3,7 +3,7 @@ unit GameInitialize;
|
||||
{$ifndef ANDROID}{$fatal Android-only KaM Remake Mobile application; there is no desktop target}{$endif}
|
||||
interface
|
||||
implementation
|
||||
uses CastleWindow, GameDiagnosticsView;
|
||||
uses CastleWindow, CastleApplicationProperties, CastleGLUtils, GameDiagnosticsView, KM_GameApp_Mobile;
|
||||
var
|
||||
Window: TCastleWindow;
|
||||
DiagnosticsView: TDiagnosticsView;
|
||||
@@ -11,9 +11,13 @@ procedure Initialize;
|
||||
begin
|
||||
DiagnosticsView := TDiagnosticsView.Create(Application);
|
||||
Window.Container.View := DiagnosticsView;
|
||||
KMGameAppMobileInstallPresentation(Window.Container);
|
||||
end;
|
||||
initialization
|
||||
Application.OnInitialize := @Initialize;
|
||||
ApplicationProperties.LimitFPS := 60;
|
||||
TGLFeatures.RequestCapabilities := rcAutomatic;
|
||||
Window := TCastleWindow.Create(Application);
|
||||
Window.AutoRedisplay := True;
|
||||
Application.MainWindow := Window;
|
||||
end.
|
||||
Reference in new issue
Block a user