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

MG: fixed showing menu accelarator shortcuts

Browse Source 
git-svn-id: trunk@812 -
This commit is contained in:
lazarus 2002-02-09 01:46:49 +00:00
parent 10b0fcfea4
commit 762c65fc9d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1554,7 +1554,7 @@ var
LabelWidget:=PGtkAccelLabel(gtk_accel_label_new('')); LabelWidget:=PGtkAccelLabel(gtk_accel_label_new(''));
gtk_misc_set_alignment(GTK_MISC (LabelWidget), 0.0, 0.5); gtk_misc_set_alignment(GTK_MISC (LabelWidget), 0.0, 0.5);
gtk_object_set_data(PGtkObject(MenuItemWidget), 'LCLLabel', LabelWidget); gtk_object_set_data(PGtkObject(MenuItemWidget), 'LCLLabel', LabelWidget);
gtk_box_pack_start(GTK_BOX(HBoxWidget),PGtkWidget(LabelWidget),false,false,0); gtk_container_add(GTK_CONTAINER(HBoxWidget),PgtkWidget(LabelWidget));
SetMenuItemLabelText(LCLMenuItem,MenuItemWidget); SetMenuItemLabelText(LCLMenuItem,MenuItemWidget);
gtk_accel_label_set_accel_widget(GTK_ACCEL_LABEL(LabelWidget),MenuItemWidget); gtk_accel_label_set_accel_widget(GTK_ACCEL_LABEL(LabelWidget),MenuItemWidget);
gtk_widget_show(PGtkWidget(LabelWidget)); gtk_widget_show(PGtkWidget(LabelWidget));
@ -2173,6 +2173,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.58 2002/08/15 15:11:01 lazarus
MG: fixed showing menu accelarator shortcuts
Revision 1.57 2002/08/15 13:37:58 lazarus Revision 1.57 2002/08/15 13:37:58 lazarus
MG: started menuitem icon, checked, radio and groupindex MG: started menuitem icon, checked, radio and groupindex