V
VahaC
Создаю и делю вот так
но вот этот код почему то не работает.
Что в этом коде не так?
Код:
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;
но вот этот код почему то не работает.
Что в этом коде не так?