-
-
Notifications
You must be signed in to change notification settings - Fork 3
/
fSceneCredit.pas
57 lines (49 loc) · 1.91 KB
/
fSceneCredit.pas
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
unit fSceneCredit;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
fSceneRoot, FMX.Controls.Presentation, FMX.Ani, FMX.Layouts;
type
TfrmSceneCredit = class(TfrmSceneRoot)
Label1: TLabel;
lblCredits: TLabel;
VertScrollBox1: TVertScrollBox;
private
{ Déclarations privées }
protected
class function getSceneref: TfrmSceneRoot; override;
public
{ Déclarations publiques }
end;
var
frmSceneCredit: TfrmSceneCredit;
implementation
{$R *.fmx}
{ TfrmSceneCredit }
// TODO : activer liens sur texte
class function TfrmSceneCredit.getSceneref: TfrmSceneRoot;
begin
if not assigned(frmSceneCredit) then
begin
frmSceneCredit := TfrmSceneRoot.SceneCreate<TfrmSceneCredit>;
frmSceneCredit.lblCredits.text :=
'"Where is Bernie ?" was inspired by the POTUS 46 (Joe Biden) Inauguration Day'
+ ' Thanks to Bernie Sanders for his fairplay in front of the success of his photo sitting in the cold.'
+ LineFeed + LineFeed +
'This game has been created for the Global Game Jam 21. Its source are available on globalgamejam.org website and on a GitHub repository.'
+ LineFeed + LineFeed +
'The program itself is available on https://gamolf.itch.io/' + LineFeed +
LineFeed +
'Developped in Delphi with FireMonkey framework by Patrick Prémartin from developpeur-pascal.fr'
+ LineFeed + LineFeed +
'Music by Johan Brodd (Jobromedia) from https://opengameart.org/content/a-winter-tale '
+ LineFeed + LineFeed +
'Background image and cartoons charaters by Kenney from https://kenney.nl/'
+ LineFeed + LineFeed +
'Button icons by Google and Austin Andrews (Templarian) from https://materialdesignicons.com/';
end;
result := frmSceneCredit;
end;
end.