From ef3e79e0bb6ba4a5e5d4dc1467281370e1d8b488 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 23 Aug 2008 22:54:42 +0200
Subject: Fix some compiler warnings

---
 UViewer.pas | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'UViewer.pas')

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);
-- 
cgit v1.2.3