[Mephistopheies]

Можно ли расширить этот компонент?

Интересует поддержка JSON, вписывание user-agent и пр.

планируется ли такое сделать в принципе?

[Mephistopheies]

Попробуйте HTMLabel из TMS Control Pack(вкладка TMSHTML), на небезызвестном трекере лежит пак с лекарством

[Mephistopheies]

Win Xp, D7, пак. v7.43

Наблюдается неправильная сортировка. 1,2,3-15. если сортировать по убыванию то получается 1,10,2,3, etc… Перепробовал все варианты и с 001,002. Ситуация та же.

Еще одна беда, после размещения компоненты на форму, её нельзя удалить. Delphi вылетает с критом. Далее, если игнорировать ошибку, при попытке что либо сделать с компонентой в редакторе, вылазит ошибка обращения к памяти.

[Mephistopheies]

+ ко всему, не работает transparate на label и пр..

[Mephistopheies]

KSS, выложить пример не смогу, ввиду спецификации(он сам по себе работать не будет) и тысячи строк кода. Но смысл везде одинаков, кидаем на форму acListView, добавляем туда n-элементов,так чтобы появилась полоса прокрутки, прокручиваем вниз, очищаем его и добавляем 1 элемент. полоса прокрутки останется и перемотки на начало списка не произойдет. Даже если делать это через BeginUpdate. Как я понял проблема в перерисовке контрола при очистке и в последующем добавлении айтемов.

[Mephistopheies]

Кому интересно, вот такой вариант работает, но иногда притормаживает.

acListView1.BeginUpdate;
if acListView1.Items.Count>1 then
acListView1.ScrollToElement(acListView1.Items[0]);
acListView1.EndUpdate(true);[code][code]acListView1.BeginUpdate;

if acListView1.Items.Count>1 then

acListView1.ScrollToElement(acListView1.Items[0]);

acListView1.EndUpdate(true);[code]

[Mephistopheies]

Подробнее пожалуйста.

[Mephistopheies]

Именно через begin – end элементы и добавляются.

Code:

acListView1.BeginUpdate;
acListView1.ShowGroups:=true;
acListView1.Groups.Clear;
acListView1.Items.Clear;

for i:=0 to ListBox1.Items.Count-1 do
begin
ListGroup := acListView1.Groups.Add(ListBox1.Items.Strings, i);
acListView1.Groups.Expanded:=false;
with MyQERY do
while not EOF do
begin
ListItem := ListGroup.Add(QMYSQL.FieldByName('cat').AsString);
ListItem.SubItems.Add(FieldByName('name').AsString);
ListItem.SubItems.Add(FieldByName('size').AsString);
ListItem.SubItems.Add(FieldByName('addtime').AsString);
ListItem.SubItems.Add(FieldByName('url').AsString);
ListItem.SubItems.Add(FieldByName('complaint').AsString);
end;
next;
end;
MyQERY.First;
end;
acListView1.EndUpdate(true);
acListView1.Update;

Даже так не работает.

[Mephistopheies]

dzh2000, это тоже можно определить как стандартные средства, но хотелось бы как-нить без лишних извращений

plasticut, спасибо, это годится.

[Author]

Posts