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

ideintf: don't set checked status for z-order menu items

Browse Source 
git-svn-id: trunk@23209 -
This commit is contained in:
paul 2009-12-21 06:37:19 +00:00
parent 0f5bdca192
commit 8f7651a8e3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/objectinspector.pp
View File

@ -4954,19 +4954,19 @@ var
ZItem, Item: TMenuItem;
begin
ZItem := NewSubMenu(oisZOrder, 0, 'ComponentEditorVerbMenuItemZOrder', [], True);
Item := NewItem(oisOrderMoveToFront, 0, True, True, @DoZOrderItemClick, 0, '');
Item := NewItem(oisOrderMoveToFront, 0, False, True, @DoZOrderItemClick, 0, '');
Item.ImageIndex := IDEImages.LoadImage(16, 'Order_move_front');
Item.Tag := 0;
ZItem.Add(Item);
Item := NewItem(oisOrderMoveToBack, 0, True, True, @DoZOrderItemClick, 0, '');
Item := NewItem(oisOrderMoveToBack, 0, False, True, @DoZOrderItemClick, 0, '');
Item.ImageIndex := IDEImages.LoadImage(16, 'Order_move_back');
Item.Tag := 1;
ZItem.Add(Item);
Item := NewItem(oisOrderForwardOne, 0, True, True, @DoZOrderItemClick, 0, '');
Item := NewItem(oisOrderForwardOne, 0, False, True, @DoZOrderItemClick, 0, '');
Item.ImageIndex := IDEImages.LoadImage(16, 'Order_forward_one');
Item.Tag := 2;
ZItem.Add(Item);
Item := NewItem(oisOrderBackOne, 0, True, True, @DoZOrderItemClick, 0, '');
Item := NewItem(oisOrderBackOne, 0, False, True, @DoZOrderItemClick, 0, '');
Item.ImageIndex := IDEImages.LoadImage(16, 'Order_back_one');
Item.Tag := 3;
ZItem.Add(Item);