Вячеслав

Всем добрый день. Как правильно переопределить родителя для аниматора и тем самым использовать один аниматор для нескольких объектов? Пытаюсь реализовать следующий принцип: на форме несколько прямоугольников и один аниматор. При клике по конкретному прямоугольнику он начинает менять координату. Вот ча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

Прошу прощения, видимо, забыл добавить в архив LB2.zip

Конечно, вот набросал. В нем отображается описанное мной поведение LB.zip

Добрый день, господа. Столкнулся со следующей проблемой: На форме расположен TabControl с двумя вкладками. На каждой вкладке по Листбоксу. У того листбокса, который расположен на выделенной вкладке(при запуске формы), все нормально отрисовывается. У второго же Листбокса почему-то съезжают некоторые компоненты внутри Листбокситемов. Проблему решил путем "дрыгания" компонентов, на примере Комботрекбара: //данный Комботрекбар принадлежит одному из Листбокситемов ComboTrackBar31.Position.X:=ComboTrackBar31.Position.X+1; ComboTrackBar31.Position.X:=ComboTrackBar31.Position.X-1; После данной операции компонент встает на место, но мне данный подход не нравится, как-то слишком тупо. ComboTrackBar.Repaint - пробовал, ListBox.RealignContent - пробовал, безуспешно.

В Windows все в порядке, тоже совсем недавно столкнулся с подобной задачей. Все Итемы невыделяемые, прокрутка плавная. Хотя на винде обычно все нормально работает. Может как-нибудь с фокусом попробуете поиграться?

Вам обязательно нужно нажатие? Я в своем проекте просто назначил событие OnMouseUp на нужных компонентах. А в жесте строго зафиксировал область, в которой жест выполняется. Хотя, понимаю, это далеко не универсальный способ.

Ну с многократным выполнением жеста можно разобраться через Handled:=True в конце обработчика события жеста. По идее, должно работать, но я не проверял.

Ну вот же. Там все очень доступно и подробно. А вообще поиск по форуму еще никто не отменял.

Прочитайте, раз уж спрашиваетеhttp://rsdn.ru/article/Delphi/Delphi_7_06.xml

В связи со всем вышесказанным, я бы попросил администраторов слегка поправить эту тему. В ней ТС явно просил указать цвет Rectangle. Ярослав привел пример с TColor, который будет работать некорректно. А название этой темы поменять, т.к. это не баг, а мое банальное незнание.

Несомненно, это хороший совет, и нормальные программисты так и должны делать. Но, во-первых, справке Embarcadero далеко до идеала. А во-вторых, такой расчет чрезмерно оптимистичен. Пусть лучше мой компилятор будет параноиком и выдавать мне сотню предупреждений, чем рассчитывать, что я досконально изучил тему. Хуже от этого точно никому не будет.

Теперь понятно, спасибо! Странно, почему в таком случае компилятор не предупреждает о такой существенной разнице? Или хотя бы осуществлялось автоматическое преобразование типов.

Всем добрый день. В этой теме Ярослав разъяснил, каким образом можно закрасить цветом прямоугольник, имея три составляющих цвета RGB. Я столкнулся со следующей проблемой: при работе с TAlphaColor все корректно, но вот при работе с просто TColor составляющие Red и Blue меняются местами. Чтобы не быть голословным, набросал небольшой пример. У меня, собственно, 2 вопроса: это я такой слепой и чего-то не вижу, или баг среды? И второе: почему при работе с TColor цвета получаются такими ущербными? Черный выглядит как серый и тд. Понимаю, всего 255 градаций, но все-равно как-то слишком низкое качество на выходе. Colors.zip

Видел я решение на pwcode.net, но сейчас ресурс недоступен из-за неоплаченного хостинга

Если не ошибаюсь, на Object Pascal есть аналогичный пример, если что)

имелось в виду вот что: c:\Users\Public\Documents\Embarcadero\Studio\15.0\Samples\CPP\FireMonkey Desktop\ControlsDemo\ внизу кнопка Switch to 3D and Back

Большое спасибо!

Господа, не подскажете, как в run-time поменять направление линейного градиента? В Design-time захожу в Fill, Gradient и кручу колесико, а вот в классе TGradient не нашел соответствующего свойства. Это я слепой, или это делается как-то иначе?

Ну координаты получить просто: EventInfo.Location.X и EventInfo.Location.Y А вот с получением ItemText, возможно, придется повозиться. Хотя я могу чего-то не знать.

Простите, не совсем ясно выразился. Имеется в виду Label на весь экран, на котором отсчитываются минуты, секунды и сотые доли секунд. При наложении на лейбл эффекта начинались тормоза

А что при этом показано на экране? Некоторые эффекты в FM ОЧЕНЬ СИЛЬНО затормаживают отрисовку. И это не только с анимацией. К примеру, у меня таймер, показывающий сотые доли секунды плавно и четко, еле показывал десятые доли при наложении на него эффекта тени или свечения и т.п.

Да, ошибся в термине Это что за метод такой? В хелпе RAD Studio не нашел информацию по нему

Нет, компилятор выдает Incompatible types: 'TWinControl' and 'TForm1'

Ура, проблема решена! Вернее, глюк остался, но теперь его влияние локализовано. Для меня важным было использование жестов при полноэкранном режиме отображения без рамки. В Delphi XE7 это достигается путем установки свойства формы FullScreen в True, при этом BorderStyle необходимо оставить Sizeable. Тогда жесты работают.

А не поделитесь самим примером? Искал в Demo - не нашел.