paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:19:34 +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 SetPageIndex(const ATabControl: TCustomTabControl; const AIndex: integer); override;
class procedure SetTabPosition(const ATabControl: TCustomTabControl; const ATabPosition: TTabPosition); override; class procedure SetTabPosition(const ATabControl: TCustomTabControl; const ATabPosition: TTabPosition); override;
class procedure ShowTabs(const ATabControl: TCustomTabControl; AShowTabs: boolean); 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; end;
{ TCocoaWSPageControl } { TCocoaWSPageControl }
@ -954,6 +957,13 @@ begin
end; end;
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 } { TCocoaWSCustomListView }
class function TCocoaWSCustomListView.CheckParams( class function TCocoaWSCustomListView.CheckParams(