Checksum dialogs little UI fixesv0.6.58

1 files changed, 6 insertions, 2 deletions

diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas
index 284060e..34a2570 100644
--- a/UChecksumDruid.pas
+++ b/UChecksumDruid.pas
@@ -313,12 +313,16 @@ begin
     s := UTF8ToStr(FileNameEntry.Text);
     i := Engine.OpenFile(s, omWrite, Error);
     if Error <> 0 then begin
-      Application.MessageBox(Format(LANGCCHKSUMAnErrorOccuredWhileOpeningFileSS, [StrToUTF8(ExtractFileName(s)), GetErrorString(Error)]),
+      Application.MessageBox(PGtkWindow(FWidget), Format(LANGCCHKSUMAnErrorOccuredWhileOpeningFileSS, [StrToUTF8(ExtractFileName(s)), GetErrorString(Error)]),
                              [mbOK], mbError, mbNone, mbOK);
       Exit;
     end;
     Engine.CloseFile(i);
+    Engine.Remove(s);
   end;
+
+  DebugMsg(['TFChecksumDruid.SetCurrentPage: CurrentPage = ', CurrentPage, ', new = ', Num]);
+
   //  Changing page
   CurrentPage := Num;
   if CurrentPage < 1 then CurrentPage := 1;
@@ -410,7 +414,7 @@ end;
 procedure TFChecksumDruid.CheckStop;
 begin
   if Stop and (not StopBreak) then
-    if Application.MessageBox(LANGCCHKSUMAreYouSureYouWantToAbortTheProcessing, [mbYes, mbNo], mbQuestion, mbNone, mbNo) = mbYes
+    if Application.MessageBox(PGtkWindow(FWidget), LANGCCHKSUMAreYouSureYouWantToAbortTheProcessing, [mbYes, mbNo], mbQuestion, mbNone, mbNo) = mbYes
       then StopBreak := True
       else begin  Stop := False;  StopBreak := False;  end;
 end;