UPD: make all form titlebar more native and modern on macOS 11+

This commit is contained in:
rich2014 2026-01-09 19:08:03 +08:00
commit dd22c4ff7c

View file

@ -858,6 +858,29 @@ const
);
);
transparentTitleFormConfig: TCocoaConfigForm = (
name: 'frmFindDlg;frmMultiRename;frmSyncDirsDlg;frmOptions';
className: '';
isMainForm: False;
titleBar: (
transparent: True;
separatorStyle: NSTitlebarSeparatorStyleNone;
);
);
separateTitleFormConfig: TCocoaConfigForm = (
name: '*';
className: '';
isMainForm: False;
titleBar: (
transparent: False;
separatorStyle: NSTitlebarSeparatorStyleLine;
);
);
procedure addShortCutString( var item: TCocoaConfigToolBarItemWithAction; const command: String );
var
form: THMForm;
@ -914,7 +937,11 @@ begin
TCocoaToolBarUtils.toClass(networkItemConfig)
];
CocoaConfigForms:= [ mainFormConfig ];
CocoaConfigForms:= [
mainFormConfig,
transparentTitleFormConfig,
separateTitleFormConfig
];
end;
procedure initCocoaModernFormConfig;