FIX: Incorrect file name in error dialog

This commit is contained in:
Alexander Koblov 2013-04-10 07:31:52 +00:00
commit cc783a7e9b

View file

@ -695,7 +695,7 @@ var
Result := False;
if not FSkipOpenForWritingError then
begin
case AskQuestion(GetMsgByMode + ': ' + SourceFile.FullPath, '',
case AskQuestion(GetMsgByMode + ': ' + TargetFileName, '',
[fsourRetry, fsourSkip, fsourSkipAll, fsourAbort],
fsourRetry, fsourSkip) of
fsourRetry: