aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenLoading.pas
blob: 05b308ac09ee757e2ff67b960f688cd071f464fd (plain) (blame)
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
unit UScreenLoading;

interface

uses
  UMenu, SDL, SysUtils, UThemes;

type
  TScreenLoading = class(TMenu)
    public
      Fadeout:      boolean;
      constructor Create(Back: String); override;
      function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
      procedure onShow; override;
  end;

implementation

uses UGraphic, UTime;

function TScreenLoading.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
begin
  Result := true;
end;

constructor TScreenLoading.Create(Back: String);
var
  I:    integer;
begin
  inherited Create(Back);

  AddBackground(Theme.Loading.Background.Tex);

  for I := 0 to High(Theme.Loading.Static) do
    AddStatic(Theme.Loading.Static[I]);

  for I := 0 to High(Theme.Loading.Text) do
    AddText(Theme.Loading.Text[I]);

  Fadeout := false;
end;

procedure TScreenLoading.onShow;
begin
// nothing
end;

end.