mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Crash at exit if log window enabled

Browse source
This commit is contained in:
Alexander Koblov 2019-01-28 18:37:59 +00:00
commit ddcdf21a70
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/ulog.pas
View file

@ -109,14 +109,17 @@ procedure TLogWriter.WriteInMainThread(Data: PtrInt);
var
Msg: PLogMessage absolute Data;
begin
with fMain.frmMain do
try
if Msg^.Force and (not seLogWindow.Visible) then
ShowLogWindow(True);
if not Application.Terminated then
begin
with fMain.frmMain do
try
if Msg^.Force and (not seLogWindow.Visible) then
ShowLogWindow(True);
seLogWindow.CaretY:= seLogWindow.Lines.AddObject(Msg^.Message, Msg^.ObjectType) + 1;
finally
Dispose(Msg);
seLogWindow.CaretY:= seLogWindow.Lines.AddObject(Msg^.Message, Msg^.ObjectType) + 1;
finally
Dispose(Msg);
end;
end;
end;