diff options
Diffstat (limited to 'UChecksumDruid.pas')
| -rw-r--r-- | UChecksumDruid.pas | 8 |
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; |