Лидеры

ссылка

Привет всем. У меня возникла следующая, непонятная мне, трудность. В свой программе я динамически создаю фрейм и вывожу его на главную форму с помощью анимации. Фрейм плавной выезжает на форму. Анимация для данного фрейма создается в дизайнере. При нажатии на первую кнопку создается фрейм(точнее, выделяется память под него), затем у анимации меняется родитель с главной формы на фрейм, задаются параметры анимации и анимация запускается. Фрейм выезжает. При нажатии на вторую кнопку устанавливается реверс анимации и она снова запускается. Фрейм уезжает. Однако если после этого снова нажать первую кнопку, то фрейм просто появляется на экране. Анимация им уже не управляет. Если же анимацию создавать динамически, то все работает. Почему так происходит? Прикрепил тестовый проект. TestAnimation.zip

Приступил к разработке клиента с использованием FireMonkey для форума. В будущем код будет открытым и каждый сможет посмотреть, как реализованы те или иные вещи. А пока пара скриншотов:

С весны 2015 года я ввожу, в качестве эксперимента, обучение по Skype. Стоимость 1 часа (60 минут): Для учащихся (школьники или студенты любых отделений): 1 000 р Для всех остальных: 1 200 р

Здравствуйте. Постоянно вылетает out of memory в редакторе стилей при нажатии на кнопку "Apply and Close". Открываю студию заново, захожу в редактор, делаю что-то, сохраняю, все норм. Захожу еще раз в редактор, что-то делаю и OOM. Раньше это возникало хотя бы после 3-5 заходов в редактор, а сейчас уже после каждого, думается мне, что через пару дней я вообще там ничего не смогу делать. С чем это может быть связано? Если день насыщен работой со стилями, то студию загружаю по 50 раз на дню, устал

Проблему воспроизвел, багу завел. Спасибо Xenon54

Согласен. Добавим в следующей версии.

разобрался может кому будет нужно procedure TForm1.shopcartItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); var edit: TListBoxItem; begin if shopcart.Selected <> nil then begin edit:=shopcart.Selected; InputBox('Изменить количество', '', edit.StylesData['textstyle'].ToString, procedure(const AResult: TModalResult; const AValue: string) begin edit.StylesData['textstyle']:= AValue; end); end;

Сам не люблю индейцев, но у TidTCPServerSocket до подключений можно достучаться так: procedure THeaderFooterForm.btn2Click(Sender: TObject); var ConnList: TList<TidContext>; i: Integer; begin ConnList:=IdTCPServer1.Contexts.LockList; try for i := 0 to ConnList.Count-1 do ConnList[i].Connection.IOHandler.Write(bla-bla-bla); finally IdTCPServer1.Contexts.UnlockList; end; ...

И не будет. Ведь при работе с TServerSocket вы не пытались отправить данные непосредственно через него? Потому что сам ServerSocket - слушающий, а отправлять нужно через реальные подключения. В TServerSocket - это массив Connections, а что у индейца - смотрите сами. Кроме того - советую обратить внимание на кодировку (если вы работаете с последними версиями Delphi - то скорее всего будет UCS2 - 2 байта на символ, а вот контроллер, наверное, работает с ANSI - 1 байт на символ).

Первый пост 2:39 ночи, второй 5:00, третий 6:50, не услышав ответа в такое время на немногочисленном форуме вы сделали вывод что никто не работает с сетью в ФМ, окей

Добавил сортировку топиков в форуме и фильтрацию вопросов (решен, не решен). Так же добавил полосу с подчиненными разделами:

Я использую GetHomePath + PathDelim + 'Documents' + PathDelim И не знаю никаких проблем.

Меня зовут Бровин Ярослав Дмитриевич. Я работаю разработчиком в компании Embarcadero в команде FireMonkey. Поэтому в совершенстве знаю язык Delphi и FireMonkey. Несколько фактов: Педагогический опыт: Лауреат конкурса "Сердце отдаю детям" в рамках конкурса "Учитель года". Имею первую категорию по должности педагога дополнительного образования. Стаж работы педагогом 6 лет. Награжден нагрудным знаком правительством Санкт-Петербурга "За гуманизацию школы Санкт-Петербурга" Образование: Закончил с отличием Ленинградский Электротехнический институт им У. Ленина по специальности Технологии Разработки Программного Обеспечения. Увлечения помимо работы: В свободное время занимаюсь авиамоделированием, игрой на музыкальном инструменте и созданием и администрированием Web-ресурсов

Добрый день, Используйте вариант функции MessageDlg с дополнительным параметром ACloseDialogEvent. Теперь диалоги не блокируемые на андроиде. Поэтому результат выполнения диалога приходит в указанный Callback. MessageDlg('Удалить секцию: ' + LabelSection.Text + '?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1, procedure (const AResult: TModalResult) begin if AResurlt = mrYes then // end) Ссылка на эту тему: [Android] Использование ACloseDialogProc в MessageDlg