Kylix fixes, cleanup

1 files changed, 2 insertions, 3 deletions

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;