From 136cb7bb8e571897e18a195426c8aff8f8d5cbce Mon Sep 17 00:00:00 2001 From: dmitry Date: Sun, 28 Jan 2018 04:09:21 +0000 Subject: [PATCH] cocoa: returning a caption of a page control git-svn-id: trunk@57171 - --- lcl/interfaces/cocoa/cocoawscomctrls.pas | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lcl/interfaces/cocoa/cocoawscomctrls.pas b/lcl/interfaces/cocoa/cocoawscomctrls.pas index 18b99f4503..578360f51d 100644 --- a/lcl/interfaces/cocoa/cocoawscomctrls.pas +++ b/lcl/interfaces/cocoa/cocoawscomctrls.pas @@ -52,6 +52,7 @@ type // class procedure SetBounds(const AWinControl: TWinControl; const ALeft, ATop, AWidth, AHeight: Integer); override; class procedure SetText(const AWinControl: TWinControl; const AText: String); override; + class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override; end; { TCocoaWSCustomTabControl } @@ -369,6 +370,22 @@ begin page.setLabel(NSStringUTF8(lTitle)); end; +class function TCocoaWSCustomPage.GetText(const AWinControl: TWinControl; + var AText: String): Boolean; +var + page : TCocoaTabPage; +begin + if not Assigned(AWinControl) or not AWinControl.HandleAllocated then + begin + Result := false; + Exit; + end; + + page := GetCocoaTabPageFromHandle(AWinControl.Handle); + AText := NSStringToString( page.label_ ); + Result := true; +end; + { TCocoaWSCustomTabControl } class function TCocoaWSCustomTabControl.LCLTabPosToNSTabStyle(AShowTabs: Boolean; ABorderWidth: Integer; ATabPos: TTabPosition): NSTabViewType;