procedure TfrmP2K_MyMenu.FillList(AMyMenu: TArrayOfMyMenu; AMyMenuLink: TArrayOfMyMenuLinks);
var
  i: integer;
  xItem: TListItem;
  tmp: string;
begin
  spSkinListView1.Items.Clear;
  for i:=1 to 100 do

    begin
      if AMyMenu[i].IsVisible then
        begin
          xItem:= spSkinListView1.Items.Add;
          xItem.ImageIndex:= -1;
          //** xItem.Caption:= inttostr(AMyMenu[i].Index);
          //if AMyMenu[i].CommandID = $3015 then xItem.ImageIndex:= 0;
          //** if AMyMenu[i].MenuType = $0 then xItem.ImageIndex:= 7;
          //** if AMyMenu[i].MenuType = $6 then xItem.ImageIndex:= 6;
          //** if AMyMenu[i].MenuType = $5 then xItem.ImageIndex:= 0;
          //** if AMyMenu[i].JavaItem = $8 then xItem.ImageIndex:= 5;
          //** xItem.SubItems.Add(inttostr(AMyMenu[i].Button));
          //** tmp:= '';
          //** xItem.SubItems.Add(AMyMenu[i].Name);
          //** tmp:= IntToHex(AMyMenu[i].StringId[0], 2)+IntToHex(AMyMenu[i].StringId[1], 2);
          //** xItem.SubItems.Add(tmp);
          //** xItem.SubItems.Add(inttohex(AMyMenu[i].CommandID, 4));
          //** tmp:= '';
          //** if AMyMenu[i].mType = 0 then  tmp:= AMyMenuLink[AMyMenu[i].SeemLinkNum+1].LinkName;
          //** xItem.SubItems.Add(tmp);
        end;
    end;
end;