FIX: Global menu and quick view (OS X)

This commit is contained in:
Alexander Koblov 2015-11-29 14:16:13 +00:00
commit 4b6e5e224e
3 changed files with 1 additions and 2 deletions

View file

@ -50,7 +50,6 @@ inherited frmViewer: TfrmViewer
0000
}
KeyPreview = True
Menu = MainMenu
OnClose = frmViewerClose
OnCreate = FormCreate
OnDestroy = FormDestroy

View file

@ -364,6 +364,7 @@ begin
FFileSource := aFileSource;
FLastSearchPos := -1;
FThumbnailManager:= nil;
if not bQuickView then Menu:= MainMenu;
FBitmapList:= TBitmapList.Create(True);
FCommands := TFormCommands.Create(Self, actionList);
end;

View file

@ -88,7 +88,6 @@ begin
FViewer:= TfrmViewer.Create(Self, nil, True);
FViewer.Parent:= Self;
FViewer.BorderStyle:= bsNone;
FViewer.Menu:= nil;
FViewer.Align:= alClient;
FFirstFile:= True;
FFileView:= aFileView;