mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
UPD: disable minimize button in Modeless Form on macOS
on macOS, it's inconvenient to restore minimized non-MainForms, and they're easily forgotten. it's more convenient to switch between the forms by Command+`, rather than minimizing them.
This commit is contained in:
parent
b44064eb2c
commit
be400728aa
6 changed files with 19 additions and 0 deletions
|
|
@ -738,6 +738,9 @@ begin
|
|||
if (ListOffrmFindDlgInstance.Count = 0) then
|
||||
Application.AddOnKeyDownBeforeHandler(@FormKeyDown);
|
||||
{$ENDIF}
|
||||
{$IFDEF DARWIN}
|
||||
self.BorderIcons:= self.BorderIcons - [biMinimize];
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
{ TfrmFindDlg.cbUsePluginChange }
|
||||
|
|
|
|||
|
|
@ -849,6 +849,10 @@ begin
|
|||
FillEncodingMenu(pmEncodingLeft.Items, @SetEncodingLeft, 1);
|
||||
FillEncodingMenu(pmEncodingRight.Items, @SetEncodingRight, 2);
|
||||
EncodingList.Free;
|
||||
|
||||
{$IFDEF DARWIN}
|
||||
self.BorderIcons:= self.BorderIcons - [biMinimize];
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TfrmDiffer.FormDestroy(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -373,6 +373,10 @@ begin
|
|||
FCommands := TFormCommands.Create(Self, ActListEdit);
|
||||
|
||||
FMultiCaret := TSynPluginMultiCaret.Create(Editor);
|
||||
|
||||
{$IFDEF DARWIN}
|
||||
self.BorderIcons:= self.BorderIcons - [biMinimize];
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TfrmEditor.LoadGlobalOptions;
|
||||
|
|
|
|||
|
|
@ -213,6 +213,9 @@ begin
|
|||
// Initialize property storage
|
||||
InitPropStorage(Self);
|
||||
TreeFilterEdit.Visible:= (OptionsSearchCache.Count > 0);
|
||||
{$IFDEF DARWIN}
|
||||
self.BorderIcons:= self.BorderIcons - [biMinimize];
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TfrmOptions.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
|
|
|
|||
|
|
@ -968,6 +968,10 @@ begin
|
|||
HMSync := HotMan.Register(Self, HotkeysCategory);
|
||||
HMSync.RegisterActionList(ActionList);
|
||||
FCommands := TFormCommands.Create(Self, ActionList);
|
||||
|
||||
{$IFDEF DARWIN}
|
||||
self.BorderIcons:= self.BorderIcons - [biMinimize];
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TfrmSyncDirsDlg.FormResize(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -2564,6 +2564,7 @@ begin
|
|||
GraphicFilter(TPortableAnyMapGraphic);
|
||||
|
||||
{$IFDEF DARWIN}
|
||||
self.BorderIcons:= self.BorderIcons - [biMinimize];
|
||||
self.OnWindowStateChange:= @self.FormWindowStateChange;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue