Currently in 7.0 (and older) the space after the last main menu item is not colored.
The following modification fill all space with color:
`if UsingSystemStyle( nil ) then
begin
if FUseMenuColorForMainMenu then
Canvas.Brush.Color := FMenuColor
else
Canvas.Brush.Color := clBtnFace;
// mod
if (not RightToLeftMenu) and Assigned(Form) and Assigned(Item.Parent) and (Item.Parent.Count>0) and
(Item.Name = Item.Parent.Items[Item.Parent.Count-1].Name) then
Canvas.FillRect( System.Types.Rect(CaptionRect.Left, CaptionRect.Top, TForm(Form).Width, CaptionRect.Bottom) )
else
//mod
Canvas.FillRect( CaptionRect );
end