aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-28 20:16:05 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-28 20:16:05 +0000
commit6585afce2ccd8e7c5ccb3bb3599d4723b00a0433 (patch)
tree463f04cca3f1a041569286559b2987698a457a54 /src/menu
parent4025ea3e81b0d2ec4492f3a0b3e374ce1568bdf5 (diff)
downloadusdx-6585afce2ccd8e7c5ccb3bb3599d4723b00a0433.tar.gz
usdx-6585afce2ccd8e7c5ccb3bb3599d4723b00a0433.tar.xz
usdx-6585afce2ccd8e7c5ccb3bb3599d4723b00a0433.zip
some compiler warnings/hints removed
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1485 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/menu/UMenuBackground.pas2
-rw-r--r--src/menu/UMenuSelectSlide.pas3
-rw-r--r--src/menu/UMenuText.pas2
3 files changed, 3 insertions, 4 deletions
diff --git a/src/menu/UMenuBackground.pas b/src/menu/UMenuBackground.pas
index 6a73b621..c85f0806 100644
--- a/src/menu/UMenuBackground.pas
+++ b/src/menu/UMenuBackground.pas
@@ -49,7 +49,7 @@ type
procedure OnShow; virtual;
procedure Draw; virtual;
procedure OnFinish; virtual;
- destructor Destroy; virtual;
+ destructor Destroy; override;
end;
cMenuBackground = class of TMenuBackground;
diff --git a/src/menu/UMenuSelectSlide.pas b/src/menu/UMenuSelectSlide.pas
index d04b20d0..1a0fa725 100644
--- a/src/menu/UMenuSelectSlide.pas
+++ b/src/menu/UMenuSelectSlide.pas
@@ -209,7 +209,6 @@ end;
procedure TSelectSlide.SetSelectOpt(Value: integer);
var
SO: integer;
- Sel: integer;
HalfL: integer;
HalfR: integer;
@@ -252,7 +251,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
diff --git a/src/menu/UMenuText.pas b/src/menu/UMenuText.pas
index 5c41eba5..3fc60384 100644
--- a/src/menu/UMenuText.pas
+++ b/src/menu/UMenuText.pas
@@ -111,7 +111,7 @@ var
function GetNextPos: boolean;
var
- T1, T2, T3: Cardinal;
+ T1, {T2,} T3: Cardinal;
begin
LastPos := NextPos;