1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
{
Copyright 2016-2017 Michalis Kamburelis.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{ Game state with main menu. }
unit GameStateMainMenu;
interface
uses Classes, CastleControls, CastleUIState, CastleOnScreenMenu;
type
TStateMainMenu = class(TUIState)
strict private
SimpleBackground: TCastleSimpleBackground;
Menu: TCastleOnScreenMenu;
procedure NewGameClick(Sender: TObject);
procedure QuitClick(Sender: TObject);
public
procedure Start; override;
end;
var
StateMainMenu: TStateMainMenu;
implementation
uses CastleColors, CastleWindow, CastleUIControls, CastleFilesUtils,
CastleUtils,
GameStatePlay;
{ TStateMainMenu ------------------------------------------------------------- }
procedure TStateMainMenu.Start;
begin
inherited;
SimpleBackground := TCastleSimpleBackground.Create(FreeAtStop);
SimpleBackground.Color := LightBlue;
InsertFront(SimpleBackground);
Menu := TCastleOnScreenMenu.Create(FreeAtStop);
Menu.FontSize := 30;
Menu.Add('New game', @NewGameClick);
Menu.Add('Quit', @QuitClick);
Menu.DrawFocusedBorder := false;
Menu.DrawBackgroundRectangle := false;
Menu.CaptureAllEvents := true;
Menu.Anchor(hpMiddle);
Menu.Anchor(vpMiddle);
InsertFront(Menu);
end;
procedure TStateMainMenu.NewGameClick(Sender: TObject);
begin
TUIState.Current := StatePlay;
end;
procedure TStateMainMenu.QuitClick(Sender: TObject);
begin
Application.Terminate;
end;
end.
|
