From a5972bd093c22ff11fb1f4b14ea42c976a6827d1 Mon Sep 17 00:00:00 2001 From: rich2014 Date: Mon, 11 Sep 2023 21:44:29 +0800 Subject: [PATCH] Cocoa: improved in TCocoaWSCustomTabControl.SetChildZPosition (need not resorted) --- lcl/interfaces/cocoa/cocoawscomctrls.pas | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lcl/interfaces/cocoa/cocoawscomctrls.pas b/lcl/interfaces/cocoa/cocoawscomctrls.pas index 06b48df850..156a8dbb3c 100644 --- a/lcl/interfaces/cocoa/cocoawscomctrls.pas +++ b/lcl/interfaces/cocoa/cocoawscomctrls.pas @@ -99,6 +99,9 @@ type class procedure SetPageIndex(const ATabControl: TCustomTabControl; const AIndex: integer); override; class procedure SetTabPosition(const ATabControl: TCustomTabControl; const ATabPosition: TTabPosition); override; class procedure ShowTabs(const ATabControl: TCustomTabControl; AShowTabs: boolean); override; + + class procedure SetChildZPosition(const AWinControl, AChild: TWinControl; + const AOldPos, ANewPos: Integer; const AChildren: TFPList); override; end; { TCocoaWSPageControl } @@ -954,6 +957,13 @@ begin end; end; +class procedure TCocoaWSCustomTabControl.SetChildZPosition(const AWinControl, AChild: TWinControl; + const AOldPos, ANewPos: Integer; const AChildren: TFPList); +begin + // subviews of NSTabView do not need to be resorted, Cocoa will take of it. + // avoid unnecessary performance loss. +end; + { TCocoaWSCustomListView } class function TCocoaWSCustomListView.CheckParams(