Глюк с раделением Tpopupactionbar на столбци

Тема в разделе "Delphi - Компоненты", создана пользователем VahaC, 17 янв 2010.

  1. VahaC

    VahaC Well-Known Member

    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    Создаю и делю вот так

    Код (Text):
     
    if index < 0 then
    Exit;
    parent := mpPopup.Items.Items[index];

    //  If no available skins...
    if sl.Count < 1 then begin
    parent.Caption := ('No skins available');
    end
    //  If available skins...
    else
    for i := 0 to sl.Count - 1 do begin
    parent.Add(NewItem(sl[i],0,False,True,SkinsClick,0,'skin_'+IntToStr(i)));
    parent.Items[i].GroupIndex := 1;
    parent.Items[i].RadioItem := true;
    parent.Items[i].Tag := i;
    if sSkinManager1.SkinName = sl[i] then
    parent.Items[i].Checked := true;
    if (parent.Count mod 15) = 0 then parent.Items[i].Break := mbBreak; // здесь делю
    end;
    но вот этот код почему то не работает.
    Что в этом коде не так?
     
  2. vital

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    Так и не понял, что вы хотите сделать..
     
  3. VahaC

    VahaC Well-Known Member

    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    Таким вот образом создаю меню для выбора скина в проге.
    Скинов у меня больше 50, соответственно всё меню на экране не помещается.
    Поэтому хочу через каждые 15 пунктов добавлять ещё один столбик,
    в результате должно получится три столбца по 15 пунктов и один на оставшихся пару пунктов (кол-во скинов - 15*3)
     
Загрузка...
Похожие Темы - Глюк раделением Tpopupactionbar
  1. Lariel
    Ответов:
    4
    Просмотров:
    394
  2. R4z0R
    Ответов:
    2
    Просмотров:
    3.228
  3. anna
    Ответов:
    17
    Просмотров:
    1.077
  4. NickProstoNick
    Ответов:
    0
    Просмотров:
    808
  5. NickProstoNick
    Ответов:
    4
    Просмотров:
    1.313

Поделиться этой страницей