TActionMainMenuBar is not working

Issue #169 new
Former user created an issue

If program uses TActionMainMenuBar it fails by clicking on any item trying to call DoGetElementMargins:

function TCustomStyleServices.GetElementMargins(DC: HDC; Details: TThemedElementDetails; ElementMargin: TElementMargin; out Margins: TElementMargins; DPI: Integer = 0): Boolean; begin Result := DoGetElementMargins(DC, Details, nil, ElementMargin, Margins, DPI); end;

Comments (3)

  1. OlegA

    I can confirm it's working for TActionToolBar, but causes exceptions by clicking on items of TActionMainMenuBar. I guess the reason is usage of "Category" - when you drag'n'drop in Designer single items it works, but if you do this for a category (should generate a drop-down list of sub-items) it fails by "access denied" to memory address which equals to the item index

  2. Log in to comment