diff options
Diffstat (limited to 'Game/Code/Screens/UScreenStatMain.pas')
-rw-r--r-- | Game/Code/Screens/UScreenStatMain.pas | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/Game/Code/Screens/UScreenStatMain.pas b/Game/Code/Screens/UScreenStatMain.pas index b82e655c..68eac441 100644 --- a/Game/Code/Screens/UScreenStatMain.pas +++ b/Game/Code/Screens/UScreenStatMain.pas @@ -84,8 +84,8 @@ begin end;
constructor TScreenStatMain.Create;
-var
- I: integer;
+{var
+ I: integer;}
begin
inherited Create;
@@ -114,16 +114,19 @@ begin AddButtonText(14, 20, Theme.Options.Description[4]);
Interaction := 0;
+end;
+procedure TScreenStatMain.onShow;
+var
+ I: Integer;
+
+begin
//Set Songs with Vid
SongswithVid := 0;
For I := 0 to high(Songs.Song) do
if (Songs.Song[I].Video <> '') then
Inc(SongswithVid);
-end;
-procedure TScreenStatMain.onShow;
-begin
//Set Overview Text:
SetOverview;
if not Help.SetHelpID(ID) then
@@ -133,7 +136,7 @@ end; procedure TScreenStatMain.SetOverview;
var
Overview, Formatstr: String;
- I: Integer;
+ //I: Integer;
//Some Vars to Save Attributes to
A1, A2, A3: Integer;
A4, A5: String;
|