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: Bug [0001752] Lazarus 1.7 / Files view is empty if tab is activated with Ctrl+Tab (patch by accorp)

Browse source
This commit is contained in:
Alexander Koblov 2017-03-06 19:30:57 +00:00
commit 87d252e80f
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/fmain.pas
View file

@ -924,6 +924,9 @@ procedure TfrmMain.FormCreate(Sender: TObject);
Result := TFileViewNotebook.Create(aParent, aSide);
Result.Align := alClient;
Result.Options := [nboHidePageListPopup];
{$if lcl_fullversion >= 1070000}
Result.Options := Result.Options + [nboDoChangeOnSetIndex];
{$endif}
Result.OnCloseTabClicked := @NotebookCloseTabClicked;
Result.OnMouseDown := @nbPageMouseDown;