paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 00:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed using underscores in menu items from Colin

Browse Source 
git-svn-id: trunk@8870 -
This commit is contained in:
mattias 2006-03-06 09:38:19 +00:00
parent 90e2f44f51
commit 3332dcc0a0
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk/gtkproc.inc
View File

@ -5663,15 +5663,21 @@ var
// It would be cool, to know if a window manager with the gnome feature
// is running, but there is probably no reliable code to do that, so we
// simply delete all ampersands and don't set the letter shortcut.
DeleteAmpersands(s);
// DeleteAmpersands(s);
// gtk_label_set_text(LabelWidget,PChar(s));
// Do not use gtk_label_parse_uline as it mangles underscore characters
System.Delete(s,ShortCutPos,1);
gtk_label_set_text(LabelWidget,PChar(s));
Accelerate(LCLMenuItem,MenuItemWidget,
gtk_label_parse_uline(LabelWidget,PChar(s)),
0,{$Ifdef GTK2}'activate'{$Else}'activate_item'{$EndIF});
gtk_label_set_pattern(LabelWidget, PChar(StringOfChar(' ', ShortCutPos-1)+'_'));
//Accelerate(LCLMenuItem,MenuItemWidget,
//gtk_label_parse_uline(LabelWidget,PChar(s)),
//0,{$Ifdef GTK2}'activate'{$Else}'activate_item'{$EndIF});
end;
end
else begin
gtk_label_set_text(LabelWidget,PChar(s));
gtk_label_set_pattern(LabelWidget, nil); // Ensure any underlines removed
end;
end;