paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 05:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: improved in TCocoaWSCustomTabControl.SetChildZPosition (need not resorted)

Browse Source
This commit is contained in:
rich2014 2023-09-11 21:44:29 +08:00
parent 78bcc9b70a
commit a5972bd093
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -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(