TMenuItem and subitems arrow state
Original Reporter info from Mantis: Dibo
-
Reporter name: Krzysztof Dibowski
Original Reporter info from Mantis: Dibo
- Reporter name: Krzysztof Dibowski
Description:
Hi,
When I add subitems into menuitem at runtime, then little small arrow is showing on right side of item. But when I delete all subitems, arrow is still showing
Example. Put MainMenu on window, add some items like:
File
|-TestItem1
|-TestItem2
And add subitems into TestItem1 and delete them:
procedure TForm1.Button1Click(Sender: TObject);
var
aNewItem: TMenuItem;
begin
aNewItem := TMenuItem.Create(MainMenu1);
aNewItem.Caption := 'Test';
TestMenuItem2.Add(aNewItem);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if TestMenuItem2.Count>0 then begin
TestMenuItem2.Delete(0);
end;
end;
Additional information:
Lazarus SVN Revision 22061 from 2009-10-07. FPC 2.2.4. Windows Vista 32bit SP1