Лидеры

ну думаю изменить нужно код, а что именно поменять это решение не для этого форума. вам нужно обратиться на форум по php

Равиль Зарипов, подскажите, пожалуйста, что надо изменить в php сервере, чтобы обойти ограничение на 1000 устройств?

Будет ли реализованна поддержка новой версии Delphi? Ну и любимый вопрос для разработчика ... хотя бы примерные сроки, ну или хотя бы на како этапе сейчас развитие проекта?

а в чем проблемы? зайдите в браузер, откройте окно отладчика и посмотрите, все элементы страницы грузятся отдельно. параллельно правда я вот здесь приводил примерный код http://www.cyberforum.ru/delphi-beginners/thread1441138-page2.html#post7766045

Огромное спасибо Равиль! Как хорошо что вы помогаете. Итак для тех кто не знает, в TListView есть режим DynamicAppearance , который позволяет добавлять предустановленные элементы - картинки, текст, GlyphButon. В хелпе написано что их может быть любое количество. Итак добавляем TListView, в панели Structure выбираем TListView > ItemAppearance > Item. В инспекторе объектов выбрать свойство Appearance и комбобоксе Dynamic Appearance. Рядом в инспекторе появится свойство Objects - нажать на него и там уже добавляем нужные поля. Там же можно переименовать поле, в AppearanceObjectName чтобы позже использовать в RunTime. У меня периодически на этих этапах вылетает Catastrophic Failure и среду приходится терминировать с диспетчера (Berlin Update 2). Дальше, жмем правой кнопкой мыши по ListView и выбираем Toggle Design Mode, где можно увидеть эти добавленные Custom поля и расставить их мышкой и указать выравнивание. Это имя затем можно использовать в Runtime, для картинки это индекс в ImageList, который нужно указать в ListView таким образом (за это еще раз спасибо Равилю! :), почему это сделали так неочевидно и почему это не указано в мануале, остается загадкой.. Для TImageObjectAppearance с именем Star - ListView1.Items.Add.Data['Star'] := Integer(1); Например заполняем список с картинками с индексами 0 и 1: procedure TForm5.FormShow(Sender: TObject); var I: Integer; begin for I := 0 to 9 do begin with ListView1.Items.Add do begin Text := 'Item ' + I.ToString; Data['Star'] := Integer(I mod 2 = 0); end; end; end; Переключаем с картинки с индексом 1 на 0 и наоборот. procedure TForm5.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); begin AItem.Data['Star'] := AItem.Data['Star'].AsInteger xor 1; end ;

как-то так, но это наверное сложно для понимания) LVStars.rar

ребята уже ставили, совместимость есть

Добрый день! Думаю что "суть" здесь ни при чем. Я думал, при создании примера, об ошибке, возникшей у Вас, а не о деталях того как "раскрывается"... Однако, если я правильно Вас понял, то Вам просто нужно заменить код процедуры в примере который я приложил к предыдущему комментарию. код процедуры procedure TForm2.ListBox1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); заменить на procedure TForm2.ListBox1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); var i, j : Integer; begin for i := 0 to TCustomListBox(Sender).Items.Count - 1 do if TListBoxItem(TCustomListBox(Sender).ListItems[i]) <> Item then begin if TListBoxItem(TCustomListBox(Sender).ListItems[i]).Height <> 0 then TListBoxItem(TCustomListBox(Sender).ListItems[i]).AnimateFloat('Height', 0, 0.3); end else if TListBoxItem(Item).Height = 32 then TListBoxItem(Item).AnimateFloat('Height', TListBoxItem(Item).HelpContext, 0.3) else for j := 0 to TCustomListBox(Sender).Items.Count - 1 do if TListBoxItem(TCustomListBox(Sender).ListItems[j]).Height <> 32 then TListBoxItem(TCustomListBox(Sender).ListItems[j]).AnimateFloat('Height', 32, 0.3); end; И будет Вам счастье... А уж с "высотами" - играйтесь сами, как Вам требуется. P.S. И, кстати, поймите правильно - разбираться детально в том, что Вам нужно, Вам придется самому. Я лишь показал пример как это работает (без ошибок вроде) и, практически, так как Вам надо и в двух вариантах. А условия того как что должно "сворачиваться" и "раскрываться" поставьте сами. Мне кажется все достаточно просто и прозрачно.