Last active
August 18, 2023 17:16
-
-
Save michaliskambi/2d304ea033e47b93dc1282bbbc53a9a0 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit GameViewMain; | |
interface | |
uses Classes, | |
CastleVectors, CastleComponentSerialize, | |
CastleUIControls, CastleControls, CastleKeysMouse, CastleThirdPersonNavigation; | |
type | |
TMyThirdPersonNavigation = class(TCastleThirdPersonNavigation) | |
protected | |
procedure SetAnimation(const AnimationNames: array of String); override; | |
end; | |
{ Main view, where most of the application logic takes place. } | |
TViewMain = class(TCastleView) | |
published | |
{ Components designed using CGE editor. | |
These fields will be automatically initialized at Start. } | |
LabelFps: TCastleLabel; | |
public | |
constructor Create(AOwner: TComponent); override; | |
procedure Start; override; | |
procedure Update(const SecondsPassed: Single; var HandleInput: Boolean); override; | |
function Press(const Event: TInputPressRelease): Boolean; override; | |
end; | |
var | |
ViewMain: TViewMain; | |
implementation | |
uses SysUtils; | |
{ TMyThirdPersonNavigation ---------------------------------------------------- } | |
procedure TMyThirdPersonNavigation.SetAnimation(const AnimationNames: array of String); | |
begin | |
// TODO: Remember to do sthg here | |
end; | |
{ TViewMain ----------------------------------------------------------------- } | |
constructor TViewMain.Create(AOwner: TComponent); | |
begin | |
inherited; | |
DesignUrl := 'castle-data:/gameviewmain.castle-user-interface'; | |
end; | |
procedure TViewMain.Start; | |
var | |
MyNavigation: TMyThirdPersonNavigation; | |
begin | |
inherited; | |
MyNavigation := TMyThirdPersonNavigation.Create(FreeAtStop); | |
// TODO: Remember to assign MyNavigation properties | |
MyViewport.InsertBack(MyNavigation); | |
end; | |
procedure TViewMain.Update(const SecondsPassed: Single; var HandleInput: Boolean); | |
begin | |
inherited; | |
{ This virtual method is executed every frame (many times per second). } | |
Assert(LabelFps <> nil, 'If you remove LabelFps from the design, remember to remove also the assignment "LabelFps.Caption := ..." from code'); | |
LabelFps.Caption := 'FPS: ' + Container.Fps.ToString; | |
end; | |
function TViewMain.Press(const Event: TInputPressRelease): Boolean; | |
begin | |
Result := inherited; | |
if Result then Exit; // allow the ancestor to handle keys | |
{ This virtual method is executed when user presses | |
a key, a mouse button, or touches a touch-screen. | |
Note that each UI control has also events like OnPress and OnClick. | |
These events can be used to handle the "press", if it should do something | |
specific when used in that UI control. | |
The TViewMain.Press method should be used to handle keys | |
not handled in children controls. | |
} | |
// Use this to handle keys: | |
{ | |
if Event.IsKey(keyXxx) then | |
begin | |
// DoSomething; | |
Exit(true); // key was handled | |
end; | |
} | |
end; | |
end. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment