mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Exception message encoding

Browse source
This commit is contained in:
Alexander Koblov 2016-09-23 16:22:15 +00:00
commit 9fb22aa346
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/uexceptions.pas
View file

@ -22,7 +22,7 @@ implementation
uses
Forms, Controls, Dialogs, LCLProc, LCLStrConsts, syncobjs,
uDebug, uLng, uGlobs, uDCVersion, DCOSUtils, LazUTF8;
uDebug, uLng, uGlobs, uDCVersion, DCOSUtils, LazUTF8, DCConvertEncoding;
type
THandleException = class
@ -137,7 +137,7 @@ begin
Msg := ExceptionText;
if FindInvalidUTF8Character(PChar(Msg), Length(Msg), False) > 0 then
Msg := AnsiToUtf8(Msg);
Msg := CeSysToUtf8(Msg);
if (Msg <> '') and (Msg[length(Msg)] = LineEnding) then Delete(Msg, Length(Msg), 1);
with Application do