aboutsummaryrefslogtreecommitdiffstats
path: root/Game
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-06-14 12:52:43 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-06-14 12:52:43 +0000
commit3ecabca816142dcc2b7044aa637285514a4f9b2d (patch)
treeae29aed528c28a765bd1feea18bf8ac82a1e07b3 /Game
parent5d60d0893e283cd287ffc588774cbf8d995e19f3 (diff)
downloadusdx-3ecabca816142dcc2b7044aa637285514a4f9b2d.tar.gz
usdx-3ecabca816142dcc2b7044aa637285514a4f9b2d.tar.xz
usdx-3ecabca816142dcc2b7044aa637285514a4f9b2d.zip
No Up/Down needed anymore in Jump to Menu
Type can be changed now by pressing Left/Right while Button is Selected git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@261 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenSongJumpto.pas60
1 files changed, 14 insertions, 46 deletions
diff --git a/Game/Code/Screens/UScreenSongJumpto.pas b/Game/Code/Screens/UScreenSongJumpto.pas
index 560868a5..7103257d 100644
--- a/Game/Code/Screens/UScreenSongJumpto.pas
+++ b/Game/Code/Screens/UScreenSongJumpto.pas
@@ -38,36 +38,6 @@ implementation
uses UGraphic, UMain, UIni, UTexture, ULanguage, UParty, USongs, UScreenSong, ULog;
function TScreenSongJumpto.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
- function IsVisible: Boolean;
- begin
- Result := True;
- if (Interactions[Interaction].Typ = 0) then
- begin
- Result := Button[Interactions[Interaction].Num].Visible;
- end
- else if (Interactions[Interaction].Typ = 1) then
- begin
- //Result := Selects[Interactions[Interaction].Num].Visible;
- end
- else if (Interactions[Interaction].Typ = 3) then
- begin
- Result := SelectsS[Interactions[Interaction].Num].Visible;
- end;
- end;
-
- Procedure SelectNext;
- begin
- repeat
- InteractNext;
- until IsVisible;
- end;
-
- Procedure SelectPrev;
- begin
- repeat
- InteractPrev;
- until IsVisible;
- end;
begin
Result := true;
If (PressedDown) Then
@@ -109,33 +79,31 @@ begin
// functions like this one, called so many times
SDLK_DOWN:
begin
- SelectNext;
- Button[0].Text[0].Selected := (Interaction = 0);
+ {SelectNext;
+ Button[0].Text[0].Selected := (Interaction = 0);}
end;
SDLK_UP:
begin
- SelectPrev;
- Button[0].Text[0].Selected := (Interaction = 0);
+ {SelectPrev;
+ Button[0].Text[0].Selected := (Interaction = 0); }
end;
SDLK_RIGHT:
begin
- if (Interaction=1) then
- begin
- InteractInc;
- if (Length(Button[0].Text[0].Text) > 0) then
- SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, SelectType));
- end;
+ Interaction := 1;
+ InteractInc;
+ if (Length(Button[0].Text[0].Text) > 0) then
+ SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, SelectType));
+ Interaction := 0;
end;
SDLK_LEFT:
begin
- if (Interaction=1) then
- begin
- InteractDec;
- if (Length(Button[0].Text[0].Text) > 0) then
- SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, SelectType));
- end;
+ Interaction := 1;
+ InteractDec;
+ if (Length(Button[0].Text[0].Text) > 0) then
+ SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, SelectType));
+ Interaction := 0;
end;
end;
end;