mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-24 12:00:42 +02:00
cocoa: Bug #0031914 Tab labels display doubled up ampersands
git-svn-id: trunk@55328 -
This commit is contained in:
parent
31799a90a0
commit
210554adb1
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user