Fix some compiler warnings

1 files changed, 2 insertions, 5 deletions

diff --git a/UViewer.pas b/UViewer.pas
index ae56d2c..d97a16d 100644
--- a/UViewer.pas
+++ b/UViewer.pas
@@ -143,10 +143,9 @@ end;
 
 procedure smooth_scroll(adj: PGtkAdjustment; dest_value: Double; PageScroll: boolean);
 var increment, val: Double;
-    i, x: integer;
+    i: gulong;
     timer: PGTimer;
-    microseconds: gulong;
-    dur, st: integer;
+    microseconds, dur, st: gulong;
 begin
   if gtk_adjustment_get_value(adj) = dest_value then Exit;
   if not ConfUseSmoothScrolling then begin
@@ -168,7 +167,6 @@ begin
 
 //  DebugMsg(['Start value ', val]);
   i := 1;
-  x := 0;
   g_timer_start(timer);
   repeat
     g_timer_elapsed(timer, @microseconds);
@@ -179,7 +177,6 @@ begin
       Inc(i);
     end;
     gdk_window_process_all_updates;
-    Inc(x);
     usleep(100);
   until (microseconds div 1000) > dur;
   gtk_adjustment_set_value(adj, dest_value);