[Koushik Halder]

Just download your Additional features in menus demo and see minutely after running the application one vertical line with text Use GetMenuExtraLineData is always added. I tested in my own project the scenario is the same. I have added one screenshot of your demo, please see minutely.

Attachments:

You must be logged in to view attached files.

[Support]

The LineVisible parameter should be defined to False in the OnGetMenuExtraLineData event:

procedure TForm1.sSkinManager1GetMenuExtraLineData(FirstItem: TMenuItem; var SkinSection, Caption: String; var Glyph: TBitmap; var LineVisible: Boolean);
begin
  // Check a first item in popup menu
  if FirstItem = Multilinetext1 then begin
    // Show line in this SubMenu
    LineVisible := True;
    Caption := 'Additional information bar'
  end
  else
    LineVisible := False;
end;

[Koushik Halder]

Thanks for your code. Now it works perfectly.

[Author]

Posts