HarrisNuh

Всем добрый день. Как правильно переопределить родителя для аниматора и тем самым использовать один аниматор для нескольких объектов?
Пытаюсь реализовать следующий принцип: на форме несколько прямоугольников и один аниматор. При клике по конкретному прямоугольнику он начинает менять координату. Вот чаcть кода:
procedure TForm2.MoveRect(Rect: TRectangle); begin //задаем родителя для аниматора Rect.AddObject(AniMoveRect); //Анимируем координату Y прямоугольника AniMoveRect.PropertyName:='Position.Y'; AniMoveRect.Inverse:=False; AniMoveRect.StopValue:=0; AniMoveRect.Start; end; procedure TForm2.RectangleClick(Sender: TObject); begin MoveRect(Sender as TRectangle); end; В итоге анимируется только один прямоугольник - тот, на который кликнули в первый раз. Не могу понять, в чем проблема.
Данную тему читал, но в ней, насколько я понял, речь идет об одновременном использовании аниматора для двух объектов. 
AniRects.zip

Здравствуйте. Подскажите пожалуйста как нарисовать текст на канве внутри контрола так чтобы если начало его координат было за канвой контрола, то за контролом он не рисовался.
Поясню на примере:
Canvas.FillText(TRectF.Create(0,-10,100,10),'11111',True,1,FillTextFlags,TTextAlign.Leading); Если написать это в методе Paint у контрола, то верхняя половина текста вылезет и нарисуется на форме. Как этого избежать?
Пробовал создавать отдельный битмап, рисовать в нем, а потом через DrawBitmap переносить. Результата достигаю, но когда идет частая перерисовка, то подтормаживает сильно, ну и качество картинки что-то размытое получается при такм методе.

Доброго времени суток. Подскажите возможно ли один и тот же объект расположить в двух Листбоксах ?  я так понял что меняется свойство parent у итема и он исчезает в одном и появляется в другом
как бы не охота дублировать объект

Здравствуйте.
Есть анимация для компонента TRectangle по смене цвета, которая срабатывает по триггерам.
Но одновременно хочу менять и цвет текста который лежит в TRectangle. 
Как можно сделать так, чтобы после сработки триггера от TRectangle срабатывала и анимация у TText?

Здравствуйте. Кладу на форму компонент TRectangle. На него кладу другой ( то есть, первый - родитель второго). У родителя задаю Opacity=0,3 и вижу, что второй прямоугольник тоже стал прозрачным, хотя его Opacity=1. Возможно ли все это настроить так, чтобы родитель был прозрачен, а дитя нет?

Всем привет. Вывожу из базы в Tmemo текст из базы данных. Всё хорошо, но на мобилке обнаружилось, что при повороте экрана(вроде бы это называется смена ориентации) текст как бы расстягивается. Возможно ли это как то исправить?
 
Вот так текст выглядит в нормальном виде:

 
А вот в повернутом виде:

 

Как сделать Panel которая в дальнейшем будет поверх создаваемых Panel'ей в Run-time?

В моем приложении реализована custom URL scheme. Как мне получить данные, передаваемые вызывающей программой? В iOS это делается при помощи метода
- (BOOL)application:(UIApplication *)application handleOpenURL:(NSURL *)url   а как это делается в Delphi?

В системе iOS есть несколько вариантов анимации выдвижных панелей, и вот один из них это когда панель выходит снизу экрана, как это можно сделать?

Обнаружилось странное поведение встроенного поиска у ListBox'a. В XE5 проблема была с регистром, в XE6 такой проблемы нет, а вот в XE7 поведение поиска стало не предсказуемым, описать которое сложно. В некоторых строках чувствительный к регистру, в некоторых нет, в некоторых вводишь даже с нужным регистром, показывает что не найдено.  Есть ли у кого-нибудь подобная проблема, или это частный случай?

Возможно ли рисовать анимацию на других компонентах? Вот например как MediaPlayer (VCL) - в свойстве можно выбрать было разные компоненты для отображения видео. В случае с ФМ - можно рисовать только на специальном компоненте MediaPlayerControl. Это случайность, или теперь не получится рисовать на разных компонентах? Если же возможно - поделитесь техникой, как это сделать.

В TabControl(е) создал TabItem и на его положил кнопку так что бы половина кнопки была не видна. А токого же поведения когда кнопка лежит на панели (TPanel) добится не получается, кнопку всегда видно, даже когда она выходит за рамки панели. Кто может сказать почему и как это исправить?  Для наглядности прицепил картинку с проблеммой

Как сделать эффект вспышки? То есть чтобы например Panel переходила из Opasity=0 в Opasity=1 и потом обратно, за 500мс..

Столкнулся с такой ситуацией.   1) Заполняем TListBox; 2) Пользуемся поиском через TSearchBox; 3) Очищаем TSearchBox; 4) При попытке добавить любой новый элемент в TListBox, всегда возвращается индекс добавленного элемента "-1".   Накидал пример для экспериментов, упростив до безобразия (прикрепляю).   Как восстановить возможность получать индекс добавленного элемента?  
Project1.zip

Добрый день, друзья! Пытаюсь восстановить старый код, в котором использовался Handle у панели: 
FVideoWindow.put_Owner(Panel.Handle); Теперь же у панели отсутствует хендл как таковой, и я все никак не разберусь, как этот момент следует обходить. Может, у кого-нибудь есть мысли на этот счет?

Возможно ли создать свои тригеры для запуска анимации?

Т.к. похожая тема закрыта, пришлось создавать новую.
 
Ситуация такая: есть кастомный listboxitem с детальной информацией. Еще есть бешеное желание перекрашивать текст Detail в зависимости от содержимого: соответствует содержимое условию или нет.
Возможно-ли создать свой собственный триггер, на который потом повешать анимацию изменения цвета? Или тут всё сложнее: сделать наследника TListBox, добавить ему булевое свойство (соответствует / не соответствует) и уже на это свойство вешать триггер?
 
(если какой-нибудь примерчик попрошу, ногами пинать не будете?)

Здравствуйте.
 
Есть видео файл. При использование на форме mediaPlayerControl'а он воспроизводит видео поверх всего.
Т.е. если взять TabContol и создать в нём две вкладки - TabItem1 и TabItem2 и в TabItem2 поместить MediPlayerControl с играющим видео, то даже если мы в процессе переключимся на на вкладку TabItem1, видео все равно будет видно.
Сам видеоряд состоит из 150 кадров. Размер 600ш на 840в.
Т.е. я могу конечно раскадрировать файл. 
Но что мне потом использовать для адекватного отображения на форме?
Я так понимаю что даже BitmapListAnimation мне тут не помощник, ибо, насколько я помню, у него есть свои ограничения на размеры.
Так что мне тогда использовать?

(почему-то нет ветки в андроид по производительности, поэтому написал сюда)
 
Пробую писать под FM на Андрод и столкнулся с жуткими тормозами при прокрутке в TListBox.
Динамически создаю TListBoxitem'ы и закидываю в каждый итем 4 Tlabel'я разных цветов методом MyListBoxItem.AddObject(MyLabel);
И так для каждого Итема. Если список  из 5-10 итемов прокручивается еще куда ни шло. Но список из 25 итемов  и более просто дико тормозит при прокрутке. 
Подскажите, может быть я что-то не так делаю. Какие параметры или настройки могут влиять на производительность листбокса в частности,
и на производительность FM для Андроид в общем?
Заранее спасибо.

Доброго времени суток!
Возникла проблема с обновлением Itemом. Суть проблемы в текстовом варианте
Чуток изменил стиль TListBox'a, listboxstyle, сам добавил прозрачность, т.к. не понравился родной стиль из-за отступов по краям. Затем добавляю айтемы со стилем listboxitembottomdetail (по памяти) здесь все прекрасно, проблема в том что при нажатии на айтем должна показываться картинка у выбранного айтема, но она показывается только если проскролить айтем за пределы видимости и снова вернуть. Какой метод вызвать чтобы обновить отрисовку?
Пробовал и применение стиля айтему и всему ListBoxy и Repaint и RecalcContent ничего не помогло
Видео прилагаю, смотрите на 16 айтем
https://youtu.be/HNmDq079Ywg

Здравствуйте.
Как можно изменить скорость анимация смены вкладок?
А также очень волнует вопрос о том, можно ли изменить анимацию так, что бы она работала ни как AnimationFloat, а как AnimationFloatWait? Т.е. что бы код исполнялся только после того как завершена анимация перелистывания вкладки.

Здравствуйте! 
 
Необходимо реализовать сортировку пользовательских итемов TListBox в зависимости от значений их свойств.
Во вложении тестовый пример сортировки по Item.Tag = Random(1000). 
 
Пользовательская функция сортировки: 
function TForm1.SortFunc(Item1, Item2: TFmxObject): Integer; begin   if (Item1 as TListBoxItem).Tag > (Item2 as TListBoxItem).Tag then Result:=1;   if (Item1 as TListBoxItem).Tag < (Item2 as TListBoxItem).Tag then Result:=-1;   if (Item1 as TListBoxItem).Tag = (Item2 as TListBoxItem).Tag then Result:=0; end; Вызов сортировки: 
procedure TForm1.Button1Click(Sender: TObject); begin   ListBox1.BeginUpdate;   ListBox1.Sort(SortFunc);   ListBox1.EndUpdate; end; К сожалению, сортировка не работает - порядок следования итемов в списке не меняется.
 
Прошу помочь ! 
 
ListSort.zip

Создаем мобильное приложение, кидаем на форму кнопку. Свойству StyleLookup кнопки выставляем значение backgroundstyle. Под Виндой кнопка стала выглядеть по другому, а в Андроиде нет. Почему?