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: Bug [0002112] Using Enter to save Directory Hotlist crashes DC

Browse source
This commit is contained in:
Alexander Koblov 2019-03-25 19:43:13 +00:00
commit a031c4a7fc
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/frames/foptionsdirectoryhotlist.pas
View file

@ -1605,9 +1605,12 @@ begin
btnRelativeTarget.Visible := lbleditHotDirTarget.Visible;
cbSortHotDirTarget.Visible := lbleditHotDirTarget.Visible;
if TForm(Self.Parent.Parent.Parent).ActiveControl.Name = 'tvTreeView' then
if lbleditHotDirName.CanFocus then
TForm(Self.Parent.Parent.Parent).ActiveControl := lbleditHotDirName;
if Assigned(TForm(Self.Parent.Parent.Parent).ActiveControl) then
begin
if TForm(Self.Parent.Parent.Parent).ActiveControl.Name = 'tvTreeView' then
if lbleditHotDirName.CanFocus then
TForm(Self.Parent.Parent.Parent).ActiveControl := lbleditHotDirName;
end;
end;
{ TfrmOptionsDirectoryHotlist.RefreshTreeView }