aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenOptionsSound.pas4
-rw-r--r--Game/Code/Screens/UScreenSong.pas17
2 files changed, 17 insertions, 4 deletions
diff --git a/Game/Code/Screens/UScreenOptionsSound.pas b/Game/Code/Screens/UScreenOptionsSound.pas
index 3cbc65a5..c3ef523b 100644
--- a/Game/Code/Screens/UScreenOptionsSound.pas
+++ b/Game/Code/Screens/UScreenOptionsSound.pas
@@ -2,6 +2,10 @@ unit UScreenOptionsSound;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
uses
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 15c18a53..d36fdd48 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -527,6 +527,7 @@ begin
//I := CatSongs.VisibleIndex(Interaction);
CatSongs.ClickCategoryButton(Interaction);
+ }
{I2 := CatSongs.VisibleIndex(Interaction);
SongCurrent := SongCurrent - I + I2;
SongTarget := SongTarget - I + I2; }
@@ -794,7 +795,8 @@ var
Pet: integer;
Label CreateSongButtons;
begin
- {if (length(CatSongs.Song) > 0) then
+ (*
+ if (length(CatSongs.Song) > 0) then
begin
//Set Length of Button Array one Time Instead of one time for every Song
SetButtonLength(Length(CatSongs.Song));
@@ -869,7 +871,8 @@ begin
if (I <> -1) then
GoTo CreateSongButtons;
- end; }
+ end;
+ *)
end;
procedure TScreenSong.SetScroll;
@@ -1075,7 +1078,7 @@ begin
if Interaction = High(Button) then
Button[0].X := 300 + 260;
end;
-
+ }
// kolowe
{ for B := 0 to High(Button) do begin
Wsp := (B - Interaction); // 0 dla srodka, -1 dla lewego, +1 dla prawego itd.
@@ -1102,7 +1105,7 @@ begin
else
Button[B].Visible := True;
end;
-
+}
{ if Length(Button) >= 3 then begin
if Interaction = 0 then
Button[High(Button)].X := 300 - 260;
@@ -1127,6 +1130,7 @@ var
Z, Z2: real;
VS: integer;
begin
+(*
{VS := CatSongs.VisibleSongs; // 0.5.0 (I): cached, very important
// kolowe
@@ -1150,6 +1154,7 @@ begin
Button[B].H := Button[B].W;
end;
end;}
+*)
end;
(*
@@ -1245,6 +1250,7 @@ var
X: Real;
helper: real;
begin
+(*
{VS := CatSongs.VisibleSongs; // cache Visible Songs
{Vars
Theme.Song.CoverW: Radius des Kreises
@@ -1334,6 +1340,7 @@ begin
end;
end; }
+*)
end;
procedure TScreenSong.SetScroll6; // rotate (slotmachine style)
@@ -1347,6 +1354,7 @@ var
Wsp: real;
Z, Z2: real;
begin
+(*
{VS := CatSongs.VisibleSongs; // cache Visible Songs
if VS <=5 then begin
// kolowe
@@ -1439,6 +1447,7 @@ begin
end;
end;
end; }
+*)
end;