diff options
Diffstat (limited to 'src/menu')
| -rw-r--r-- | src/menu/UDisplay.pas | 1 | ||||
| -rw-r--r-- | src/menu/UMenu.pas | 5 |
2 files changed, 2 insertions, 4 deletions
diff --git a/src/menu/UDisplay.pas b/src/menu/UDisplay.pas index 6ec8e2ed..6191fb68 100644 --- a/src/menu/UDisplay.pas +++ b/src/menu/UDisplay.pas @@ -216,7 +216,6 @@ var FadeStateSquare: real; FadeW, FadeH: real; FadeCopyW, FadeCopyH: integer; - currentTime: cardinal; glError: glEnum; begin diff --git a/src/menu/UMenu.pas b/src/menu/UMenu.pas index b011eddf..756ef237 100644 --- a/src/menu/UMenu.pas +++ b/src/menu/UMenu.pas @@ -1315,7 +1315,6 @@ function TMenu.AddSelectSlide(X, Y, W, H, SkipX, SBGW, ColR, ColG, ColB, Int, DC const Caption: UTF8String; var Data: integer): integer; var S: integer; - I: integer; begin S := Length(SelectsS); SetLength(SelectsS, S + 1); @@ -1750,7 +1749,7 @@ end; //of the control at this position function TMenu.InteractAt(X, Y: real): integer; var - i, nBut: integer; + i: integer; begin Result := -1; for i := Low(Interactions) to High(Interactions) do @@ -1782,7 +1781,7 @@ end; //takes x,y coordinates and returns the button collection id function TMenu.CollectionAt(X, Y: real): integer; var - i, nBut: integer; + i: integer; begin Result := -1; for i:= Low(ButtonCollection) to High(ButtonCollection) do |