antarey

Пользователи
  • Публикации

    262
  • Зарегистрирован

  • Посещение

  • Days Won

    2

antarey last won the day on 21 января 2015

antarey had the most liked content!

О antarey

  • Звание
    Продвинутый пользователь
  • День рождения 27.06.1976

Информация

  • Пол
    Мужчина
  • Город
    Киев

Посетители профиля

342 просмотра профиля
  1. Есть ли возможность в FireDac делать локальное обновление без отсылки на сервер? Как ето реализовано в IBDAC
  2. Ясно, спасибо за свой вариант, такой код немного проще
  3. Немного глупый вопрос - а как с базами работаешь? через переменные?
  4. Да к любой, через LiveBindings
  5. Можно и так. Не проверял поведение, если подвязать едиты к базе - лейбелы подымутся? Сработает OnChange?
  6. Как определить что Edit привязан к полю таблицы базы данных?
  7. В некоторых приложения на Андроиде и на некоторых сайтах( сейчас к сожалению не могу вспомнить где видел) используется прикольная анимация TextPromt. На словах - TextPromt внутри едита, когда кликаеш на едите -TextPromt подымается над едитом и меняет цвет. Я реализовал так - Для едита чилдреном добавил лейбл, а для лейбл чилдреном FloatAnimation и вот код // --------------------------------------------------------------------------- void __fastcall TForm1::Edit1Enter(TObject *Sender) { TEdit * LEdit = dynamic_cast<TEdit*>(Sender); if (LEdit) { if (LEdit->ChildrenCount >= 3) { if (LEdit->Children->Items[2]->ClassName() == "TLabel") { TLabel * LLabel = dynamic_cast<TLabel*>(LEdit->Children->Items[2]); if (LLabel && LLabel->Children->Items[1]->ClassName() == "TFloatAnimation") { TFloatAnimation * animation = dynamic_cast<TFloatAnimation*>(LLabel->Children->Items[1]); if (animation) { animation->StopValue = -20; if (LEdit->Text == "" || LLabel->Position->Y == 0) { animation->Start(); _di_ITextSettings Settings; if (LLabel->GetInterface(Settings)) { Settings->TextSettings->FontColor = TAlphaColor(claBlue); Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssFontColor; } } } } } } } } // --------------------------------------------------------------------------- void __fastcall TForm1::Edit1Exit(TObject *Sender) { TEdit * LEdit = dynamic_cast<TEdit*>(Sender); if (LEdit) { if (LEdit->ChildrenCount >= 3) { if (LEdit->Children->Items[2]->ClassName() == "TLabel") { TLabel * LLabel = dynamic_cast<TLabel*>(LEdit->Children->Items[2]); if (LLabel && LLabel->Children->Items[1]->ClassName() == "TFloatAnimation") { TFloatAnimation * animation = dynamic_cast<TFloatAnimation*>(LLabel->Children->Items[1]); if (animation) { animation->StopValue = 2; if (LEdit->Text == "") { animation->Start(); _di_ITextSettings Settings; if (LLabel->GetInterface(Settings)) { Settings->TextSettings->FontColor = TAlphaColor(claBlack); Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssFontColor; } } } } } } } } // --------------------------------------------------------------------------- Все отлично работает, но есть один нюанс - когда подвязываешь едит к полю таблички - лейбл перекрывает текст едита, оно то и правильно - я по едиту не кликал. Посему вопрос - как заставить переместиться все лейбелы всех едитов у которых не пустой текст после открытия таблицы . Не хочется делать для всех едитов Control->EnumControls Может кто знает лучший способ? Пример в атаче, структура проекта на скрине TextPrompAnamation.zip
  8. Есть вариант - на кнопку кинуть картинку, а на картинку BitmapListAnimation. Но все должно быть проще
  9. Не получается. В FloatAnimation в списке PropertyName нету ImageIndex , а ручная установка ничего не дает
  10. Добрый день. Есть кнопка,и в нее есть свойство ImageIndex. Задача - сделать мигающую иконку кнопки. Желательно без таймера. Пробовал ColorAnimation - ни в какую не хочет мигать. Добавлял ColorAnimation к самой кнопке и в стилях
  11. Переделал код. В принципе работает, только немного обрезается текст сверху и снизу. Rusland не знаю как в делфи - в си округлять не обязательно - свойство Height - float.
  12. Поставил, и на ресайз тоже. Я вроде где-то читал/слышал что в 10 добавили изменение высоты итема в свойства но в упор не нахожу такого. Зачем етот код? К сожалению не работает. У меня итем создается отдельной процедурой с пустым текстом. В другой процедуре прописывается текст.
  13. Согласно мануалу реализовал код void TfrmMain::CalculateItemHeight(TObject *Sender) { TTextLayout* FTextLayout = TTextLayoutManager::TextLayoutForClass(TTextLayoutManager::DefaultTextLayout); TListBoxItem *ListItem = dynamic_cast<TListBoxItem*>(Sender); FTextLayout->BeginUpdate(); try { FTextLayout->Text = ListItem->Text; FTextLayout->MaxSize = TPointF(ListItem->Width, 1000); FTextLayout->WordWrap = ListItem->WordWrap; FTextLayout->Font = ListItem->Font; FTextLayout->HorizontalAlign = ListItem->TextAlign; FTextLayout->VerticalAlign = ListItem->VertTextAlign; } __finally { FTextLayout->EndUpdate(); } ListItem->Height = FTextLayout->Height; } Прописал события для итема, итемы создаю в рантайме, и ничего Как автоматически подгонять высоту итема под текст? Что я не так сделал?
  14. Нда, иногда и примеры надо смотреть , спасибо за подсказку.