aboutsummaryrefslogblamecommitdiffstats
path: root/Game/Code/Screens/UScreenLoading.pas
blob: 49dc961b40049b3435423da069aa5ba374f846ec (plain) (tree)


















                                                                                                          
                                

























                                                                                                         
unit UScreenLoading;

interface

uses
  UMenu, SDL, SysUtils, UThemes, gl;

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

implementation

uses UGraphic, UTime, UDisplay;

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

constructor TScreenLoading.Create;
begin
  inherited Create;

  LoadFromTheme(Theme.Loading);

  Fadeout := false;
end;

procedure TScreenLoading.onShow;
begin
// nothing
end;

function TScreenLoading.GetBGTexNum: GLUInt;
begin
  Result := Self.BackImg.TexNum;
end;

end.