Вячеслав

Ну ладно, тогда вот вам кусочный рандом на примере одномерной задачи. 
Область значений Х состоит из двух областей (I) и (III). При этом Х может принимать значение либо из первой области, либо из второй [строчка (1)]
Определяем переменную FLAG, которая может быть только или нулем, или единицей [строчка (2)].
Теперь через нее нетрудно выразить уравнение для Х [строчка (3)]
 
Сейчас под рукой нет Delphi, поэтому проверить не могу. Но идея, надеюсь, понятна.

Ну ладно, тогда вот вам кусочный рандом на примере одномерной задачи. 
Область значений Х состоит из двух областей (I) и (III). При этом Х может принимать значение либо из первой области, либо из второй [строчка (1)]
Определяем переменную FLAG, которая может быть только или нулем, или единицей [строчка (2)].
Теперь через нее нетрудно выразить уравнение для Х [строчка (3)]
 
Сейчас под рукой нет Delphi, поэтому проверить не могу. Но идея, надеюсь, понятна.

А не проще на TRectangle кинуть TText и управлять цветом прямоугольника? Пусть даже из run-time

Можно использовать компонент TPath и через кисть заливки (Fill) передать ваш битмап.
 
Например для звезды:
M227,239 L328,90 L346,250 L201,124 L410,150 L228,238 Заливка картинкой будет такой:

А вы уверены, что вам нужны именно формы? В некоторых ситуациях предпочтительней работать, например, с TRectangle. Их и скрывать/показывать удобно, и пошустрее работает, на мой взгляд.

Думаю, иногда даже лучше давать не ссылку на конкретные статьи, а ссылку на ресурс. Уверен, что некоторым пользователям, особенно начинающим, будет полезно просто иногда просматривать сайты, посвященные FM.
К примеру, вот этот:
http://www.fmxexpress.com
Сайт на английском, но статьи очень доступные, для себя не раз находил интересные материалы.

Набросал компонент для работы с значком в системном трее. Компонент только для FM и только для платформы Windows ! Среда: Delphi XE6 
 
Основные моменты
 
Свойства:
Hint : string - отображает текст при наведении на значок в системном трее BalloonTitle : string - текст заголовка всплывающей подсказки BalloonText : string - текст содержания всплывающей подсказки IconBalloonType : TBalloonIconType - иконка всплывающей подсказки. Принимает значения: ​​​​BigError, BigWarning, Error, Info, None, User, Warning Indent : Cardinal - "косметический костыль" для нормального отображения меню при клике по значку в системном трее. Подбирается экспериментально, так как при различных стилях область отображения меню изменяется (меню уезжает вверх) PopUpMenu : TPopUpMenu - всплывающее меню, при OnClick правой кнопкой мыши по значку ​Методы:
Show - отображать значок в системном трее Hide - скрыть значок из системного трея ShowBalloonHint - показать всплывающую подсказку События:
OnClick - нажатие левой кнопки мыши OnDblClick - двойное нажатие левой кнопки мыши Важное замечание: необходимо обязательное наличие TForm и только один экземпляр TnTrayIcon в приложении !
 
Установка:
Распаковать содержимое архива Открыть файл nTrayIcon.dpk В Project Manager окне правой кнопкой мыши по nTrayIcon.bpl -> Compile В Project Manager окне правой кнопкой мыши по nTrayIcon.bpl -> Install Добавляем путь в Library: Tools -> Options -> Delphi Options -> Library -> Library Patch -> Add... В архиве компонент и пример для работы.
 
P.S. Писал для себя, так как частенько использую... Всегда хочется простоты.
P.S.S. Писал быстро и ночью. Возможны недочеты и ошибки. Постепенно исправлю.
TnTrayIcon.zip

Ссылка: http://blogs.embarcadero.com/roschinspb/2015/03/03/timagelistxe8ru/ Автор: Сергей Рощин Подробный обзор нового компонента TImageList, появившегося в XE8. Отличия работы от VCL.

Решение оказалось довольно простым. Кидаем на форму Layout, в него устанавливаем Lable и позиционирует таким образом, чтобы центр Lable находился в том же месте, что и верхний левый угол Layout. Сделать это нетрудно как в Design Time, так и в Run Time. После этого масштабируем Layout, что приведет к автоматическому масштабированию Lable относительно его центра.
Думаю, на этом тему стоит закрыть.

Думаю, иногда даже лучше давать не ссылку на конкретные статьи, а ссылку на ресурс. Уверен, что некоторым пользователям, особенно начинающим, будет полезно просто иногда просматривать сайты, посвященные FM.
К примеру, вот этот:
http://www.fmxexpress.com
Сайт на английском, но статьи очень доступные, для себя не раз находил интересные материалы.

Я добавил новый раздел: Fire Monkey от А до Я  → Дополнительные ресурсы по FireMonkey  → Статьи и заметки
 
Здесь каждый автор статьи или читатель могут поделиться своими находками с другими пользователями.

SaveState вам в помощь. А вообще сперва лучше пользуйтесь поиском, это не сложно.

Unsigned - без знака, т.е. неотрицательный.

Такая опция добавлена для пользователей. Поддерживаются два типа удалений:
Скрытие. Скрытие от пользователей вашего сообщений с возможностью восстановление. Скрытое сообщение доступно на просмотр модераторам и администраторам Удаление. Полное удаление сообщение без возможности восстановить.

procedure TForm2.MoveRect(Rect: TRectangle); begin TAnimator.AnimateIntWait(Rect, 'Position.Y', 0); TAnimator.AnimateInt(Rect, 'Position.Y', 152); end; Так вас не устроит?

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

Добрый день,
 
Есть четыре типа настроек текста:
DefaultTextSettings. Это настройки текста по умолчанию. TextSettings - Это настройки текста, которые задает пользователь. StyledSettings - какие настройки текста брать из стиля, а какие из TextSettings. ResultTextSettings - это результирующие настройки текста с учетом значения StyledSettings. Поэтому, если вы хотите получить итоговые настройки, то используйте ResultTextSettings. Они вычисляются автоматически на основании DefaultTextSettings, TextSettings и StyledSettings.
 
P.S. Название шрифта по умолчанию присваивается в DefaultTextSettings.

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

Добрый день!
TColor и TAlphaColor - несовместимые типы, они по разному хранят цветовые составляющие.
TColor = $00BBGGRR
TAlphaColor = $AARRGGBB
 
И как следствие, если Свойство объявлено как TAlphaColor, то при присвоении ему обычного TColor будет цветовая ошибка.

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

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

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

Ярослав может запилить типа маркета компонентов, с удовольствием бы покупал за разумную цену, многие замечал делают так удобно отсортировать все по категориям и выставить за денюжку, и всем хорошо, у людей и смысл был бы писать компоненты, и зарабатывать., и Delphi развивалась бы

http://docwiki.embarcadero.com/CodeExamples/XE7/en/FMXGradient_(Delphi)
 
Используй 
    fill.Gradient.StartPosition.Y     fill.Gradient.StartPosition.X     fill.Gradient.StopPosition.X Gradient.zip

Вы, по-видимому, так и не поняли, что к чему. Ради вас, я потрачу свое время на написание ответов на все ваши претензии. Но только один раз.
 
Перед тем, как я отвечу. Я хочу сделать небольшое введение фактов, чтобы вам было проще понять картинку в вашей голове:
 
Цели форума:
Создать полезный сообществу ресурс для решения вопросов/проблем разработки с использованием FireMonkey" Создать удобную структуру для быстрого поиска ответов и получения полезной информации, Избежать лишней болтовни и выяснения отношений вместо смотреть пункт 1, что очень часто свойственно другим форумам. По возможности помочь пользователям решить их задачи и предоставить актуальную информацию так сказать из первых уст. Поддерживать хорошие нормы поведения и профессиональной этики среди всех пользователей сайта для создания здорового взрослого сообщества. Привлечь разработчиков, которые будут обогащаться знаниями на форуме, делиться своими решениями и помогать другим. Форум - это не место обсуждения политики компании и продукта, а смотреть предыдущие пункты. Вам важно это знатьФорум - моя личная инициатива, о которой американскому руководству компании ничего не сказано. Я владелец этого форума и домена. И я устанавливаю правила приличия, нормы поведения и правила публикации информации на этом форуме. Компания Embarcadero не может повлиять правилами на мой ресурс. Именно по этому я создал отдельный русскоязычный форум, вместо http://forums.embarcadero.com/ Я занимаюсь форумом в свое личное свободное время. Я плачу из своего кармана за хостинг и веду техническую поддержку. Я бесплатно его сделал своими усилиями. Я бесплатно помогаю людям решить их задачи. Я отвечаю только тогда, когда:У меня есть время (смотреть пункт 4) Когда у меня есть полноценный, полный, уверенный (не догадки) ответ, полностью раскрывающий задачу и подробно описывающий пути решения. Я не отвечаю на те вещи, которые требуют от меня больших исследований при наличии других вопросов. Если я не знаю быстрого ответа, я спрашиваю у своих коллег, которые занимались разработкой того или иного компонента. Я удаляю с форума:Весь флуд - ответы не несущие смысловой нагрузки по заданному вопросу.  Ложные наводки на решение Потерявшие актуальность со временем комментарии и темы Пробы найти решения. Описание ошибок, если для них не существует workaround. (Иногда я делаю исключение из правил на публикацию ошибок и даю обходные решения багов) Темы, где человек сам допустил ошибку и сам нашел её ошибку и пользы от этого вопроса для других нету. На вопрос об уточнение деталей не было получено ответа в течении долгого времени от пользователя для того, чтобы можно было дать ответ. Вопросы, на который было дано обходное решение и оно уже не актуально в новой версии продукта. Я уважаю проявление правил приличия и уважения пользователями при ответах и задании вопросов и ценю это.  Я не распространяю дистрибутивы лицензионных продуктов, ключи и их части (это к вопросу личных сообщений выслать утилиты и ключи). P.S. Вам следует внимательно обратить свое внимание на 11 пункт. Если вы хотите, чтобы мы с вами продолжили общаться. А теперь по деталям: 

 Полагаю ответ уже дан.
 

 Я просто оставлю эти скриншоты тут, а каждый сам сделает свои выводы.
 
1.1 Об удаляемых комментариев.





Это те сообщения, которые были удалены за последние 8 месяцев. Про ценность ваших удаленных ответов я промолчу.
 
1.2 Об удаляемых темах
Ниже скриншот, удаленных за год тем с пояснением причины удаления и несколько скриншотов, удаленных тем:


 

 Я поясню, что я разработчик компании Embarcadero, а именно FireMonkey. Я отвечаю за разработку определенных компонентов, в основном это все работа с нативными вещами + разработку мобильных сервисов.  Мне платят за эту работу. Я не продавец, хотя я в курсе годовой статистики по продажам. Мне совершенно все равно, кто и сколько покупает лицензий. Я делаю свою любимую работу. Форум - одно из моих хобби. Меня приглашают в Москву на Launch и я принимаю решение, поеду я или нет. Обычно я соглашаюсь, так как это мне интересно.
 
Но вы почему-то уверенно считаете, что я "втюхиваю" вам что-то. 
 

 Опять плохо понимаете. Воспроизводится, укажите детали.
 

 Иногда у меня складывается впечатление, что вы инсайдер в компании. И знаете больше, сидя дома, чем знают в компании во всем мире. Однако, продукт развивается, совершенствуется и продажи растут. Да и не понятно тогда, зачем вы при таком "очевидном" раскладе тут делаете.
 

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