cocoa: Bug #0031914 Tab labels display doubled up ampersands

git-svn-id: trunk@55328 -
This commit is contained in:
sekelsenmat 2017-06-12 08:57:49 +00:00
parent 31799a90a0
commit 210554adb1

View File

@ -332,10 +332,12 @@ end;
class procedure TCocoaWSCustomPage.SetProperties( class procedure TCocoaWSCustomPage.SetProperties(
const ACustomPage: TCustomPage; ACocoaControl: NSTabViewItem); const ACustomPage: TCustomPage; ACocoaControl: NSTabViewItem);
var var
lHintStr: string; lHintStr, lTitle: string;
begin begin
// title // title
ACocoaControl.setLabel(NSStringUTF8(ACustomPage.Caption)); lTitle := ACustomPage.Caption;
DeleteAmpersands(lTitle);
ACocoaControl.setLabel(NSStringUTF8(lTitle));
// hint // hint
if ACustomPage.ShowHint then lHintStr := ACustomPage.Hint if ACustomPage.ShowHint then lHintStr := ACustomPage.Hint