From ff6b0244b39ccdb30a499038382d2676d9c278be Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 27 Dec 2009 17:28:00 +0100
Subject: Kylix fixes, cleanup

---
 UMain.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'UMain.pas')

diff --git a/UMain.pas b/UMain.pas
index e690e4b..545d8c1 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1759,7 +1759,6 @@ var ListView: TGTKListView;
   end;
   
   procedure DoThread;
-  var DialogParent: PGtkWidget;
   begin
     try
       OpenDirThread.AEngine := Engine;
@@ -3189,7 +3188,7 @@ var LeftPanel, HasInitialCRC: boolean;
     AListView: TGTKListView;
     Engine: TPanelEngine;
     FilePath, s, TargetName: string;
-    TargetCRC: LongWord;
+    TargetCRC: Cardinal;
     TargetSize: Int64;
     AWorkingThread: TWorkerThread;
 begin
@@ -4901,7 +4900,7 @@ procedure TFMain.FillMounterBar;
 {$IFDEF CPU64}
           Button.Tag := QWORD(MounterList[i]);
 {$ELSE}
-          Button.Tag := Longint(MounterList[i]);
+          Button.Tag := Cardinal(MounterList[i]);
 {$ENDIF}
           Button.Tooltip := Format(LANGMountPointDevice, [StrToUTF8(MountPath), StrToUTF8(Device)]);
           Button.BorderStyle := bsNone;
-- 
cgit v1.2.3