aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Menu/UMenuSelectSlide.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UMenuSelectSlide.pas12
1 files changed, 4 insertions, 8 deletions
diff --git a/Game/Code/Menu/UMenuSelectSlide.pas b/Game/Code/Menu/UMenuSelectSlide.pas
index b5d68aff..712e23cc 100644
--- a/Game/Code/Menu/UMenuSelectSlide.pas
+++ b/Game/Code/Menu/UMenuSelectSlide.pas
@@ -117,9 +117,6 @@ begin
end;
procedure TSelectSlide.SetSelect(Value: boolean);
-var
- SO: integer;
- I: integer;
begin
SelectBool := Value;
if Value then begin
@@ -173,11 +170,10 @@ end;
procedure TSelectSlide.SetSelectOpt(Value: integer);
var
SO: integer;
- Sel: integer;
HalfL: integer;
HalfR: integer;
-procedure DoSelection(Sel: Cardinal);
+procedure DoSelection(Sel: Integer);
var I: Integer;
begin
for I := low(TextOpt) to high(TextOpt) do
@@ -205,7 +201,7 @@ begin
if (Value <= 0) then
begin //First Option Selected
- Value := 0;
+ //Value := 0;
for SO := low (TextOpt) to high(TextOpt) do
begin
@@ -216,7 +212,7 @@ begin
end
else if (Value >= high(TextOptT)) then
begin //Last Option Selected
- Value := high(TextOptT);
+ //Value := high(TextOptT);
for SO := high(TextOpt) downto low (TextOpt) do
begin
@@ -342,4 +338,4 @@ begin
end;
end;
-end.
+end. \ No newline at end of file