VerticalMenu API

[etwoss]

Hi

Can I, in code fire the OnClick event of a verticalMenu item?

Eric

[Alexander Bulei]

Hi Eric,

At this moment, it's only possible by javascript code.
We are thinking to implement this to facilitate the process

Best Regards.

[etwoss]

Hi

Would be nice, thanks
Please also take a look in getting the Tag value of an Item into the Params

Eric

[Alexander Bulei]

Hi Eric,

Code: Select all

2.0.0.3555

JQVertMenu
- Improved: changed the TCGCollectionItem to TCGIndexedCollectionItem
- Added: new ItemsByUniqueName method in TIWCGJQVertMenuItems
- Added: TriggerClickEvent method in TIWCGJQVertMenuItem

Please also take a look in getting the Tag value of an Item into the Params

As my colleague said, it's impossible.
You should get the "itemId" parameter from AParams, then find the item in list.

Best Regards.

[etwoss]

Hi

Thats what i needed to know!
Because of having muliple forms with menu and different menuitems pointing to same execution of form i now can use the tab property to indentify the form to start:

Code: Select all

procedure TIWForm6.IWCGJQVertMenu1JQVertMenuOptionsClick(Sender: TObject;
  AParams: TStringList);
var
  i : Integer;
  Clicked: Integer;
begin

  Clicked := -1;

  for i  := 0 to IWCGJQVertMenu1.Items.Count - 1 do
  begin
    if  IWCGJQVertMenu1.Items[i].UniqueName = AParams.Values['itemId'] then
    begin
      Clicked := IWCGJQVertMenu1.Items[i].Tag;
    end;
  end;

  //Now we case use a case statement to start the proper form
  case Clicked of
    -1 : begin end;
    100 : ShowMessage('100');
    200 : ShowMessage('200');
    300 : ShowMessage('300');
  end;
end;



Thanks again!

Eric

[Alexander Bulei]

Hi Eric,

Just a note:

Since V2.0.0.3555, you are able do it like this:

delphi code

procedure TIWForm10.IWCGJQVertMenu1JQVertMenuOptionsClick(Sender: TObject; AParams: TStringList);
var
  ItemID: string;
  MenuItem: TIWCGJQVertMenuItem;
begin
  ItemID:= AParams.Values['itemId'];
  MenuItem:= IWCGJQVertMenu1.Items.ItemsByUniqueName[ItemID];
end;

Best Regards.

[etwoss]

Great thanks!