TRzMenuController – UseMenuColorForMainMenu

Home Forums Konopka Signature VCL Controls (formerly Raize Components) TRzMenuController – UseMenuColorForMainMenu

Viewing 1 reply thread
  • Author
    Posts
    • #2564
      Marek J.
      Participant

        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

      • #2571
        Ray Konopka
        Keymaster

          Hi,
          Thanks for the post. Since Embarcadero owns the controls, I would suggest submitting a bug or enhancement request for them to fix this. Also, I’m not sure if the code you posted is complete. I’m not sure where Form is defined.

          Ray

      Viewing 1 reply thread
      • You must be logged in to reply to this topic.