Delphi android цвет формы

Изменить цвет фона приложения (Андроид)

RAD Studio XE8, изменить цвет фона компонентов
Всем привет! Пытаюсь пере идти с delhi2010 на RAD Studio XE8. вопрос собственно такой: не могу у.

Изменить цвет фона combobox?
Доброго времени суток! Перепробовал массу вариантов, но не смог найти решение, на казалось бы.

Изменить цвет фона на зелёный
Задача: поменять цвет фона на зеленый. Немного не понимаю что значит цикл m1. Вроде, выбираем.

Изменить цвет фона у комбобокс
Когда задаю ComboBox.Color := clRed; то обводка, вместе со стрелочкой (чтобы развернуть список).

Тоже хорошая идея, тогда форму без проблем разбить даже несколько цветов станет.

Странно но вчера код этот пробовал у меня он работал, сегодня нет..

Для формы не пробовал, но для компонентов обязательно отключать StyledSettings, иначе изменений не будет, компонент будет «оскинен» поверх, выбранным style (или дефолтным). Рабочий пример для лабела:

Да заработало после того как вручную цвет формы изменил он стал и программно менятся!
Видимо флаг какой-то включился.. Накидал приложение для теста- работает.

Изменить цвет фона фрейма
Здравствуйте. Столкнулся с такой проблемой-есть страница с фреймами. Нужно изменить цвет фона.

Изменить цвет фона в richtextbox
Доброго времени суток, господа ! Не получается ни то что бы сделать, а даже найти информацию о.

Изменить цвет фона на синий
Вопрос: как в данном решение изменить цвет фона на синий? uses graph; var g,d:integer; .

Изменить цвет фона консоли
как сделать цвет фона всего окна сразу?? program ti; uses crt; type abit=record .

Источник

Как изменить цвет Label?

Ответ от SIARHEI RAHOUSKI,
1 августа, 2018

Вопрос

SIARHEI RAHOUSKI

SIARHEI RAHOUSKI

Как изменить цвет Label? не работает

Ссылка на комментарий

3 ответа на этот вопрос

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Похожий контент

В компанию требуется опытный разработчик, который готов присоединиться к команде для разработки крупного проекта в области Blockchain-технологий, распределенных систем и криптографии. Зп от 150 000 до 200 000 ₽. Удаленная работа.

— Работа с криптографическими алгоритмами, blockchain технологиями
— Разработка программного обеспечения на Delphi
— Участие в разработке блокчейн проекта нового поколения
— Разработка, поддержка и развитие серверных функций системы на основе Blockchain
— Отладка, анализ производительности оптимизация ПО;
— Проектирование и разработка архитектуры разрабатываемых решений;

— Опыт разработки ПО от 5 лет;
— Плюс: Понимание принципов работы публичных и закрытых блокчейнов (Ethereum/Solidity, Bitcoin, Quorum)
— Знание принципов ООП и шаблонов проектирования;
— Опыт работы с системами контроля версий ПО (Git)
— Уверенное владение языком программирования Delphi, средой разработки embarcadero
— Знание английского языка на уровне чтения технической литературы;

— Участие в интересном и масштабном проекте
— Дружный коллектив;
— Возможности развития и обучения

Источник

Смена цвета формы

Смена цвета формы
Ребят, подскажите пожалуйста, как можно при помощи TrackBar’а менять цвет формы?

Смена цвета формы
Здравствуйте подскажите как сделать чтобы при наведении на форму цвет ее менялся допустим с.

Смена цвета надписи.
Всем Вам привет. Может кто нибудь подскажет, как поменять цвет Button при нажатии?

Смена цвета TLabel
Всем привет. Кто может подсказать, как реализовать хук, который позволит сменить цвет текста метки.

Решение

у вас два обработчика в одном, надо разделить

Решение

Nyshk@, пропишите так

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

Добавлено через 1 минуту
спасибо, поняла)

почему у меня вот эту строчку выделает постоянно?

procedure TForm1.FormCreate(Sender: TObject);

создайте в инспекторе объектов соответствующий обработчик формы — OnCreate.

DenNik, зачем RGB? У ТС конкретные два цвета.

Вложения

Color.zip (191.0 Кб, 6 просмотров)

Форма смена цвета
сменить цвет формы на красный(нажатие) и возврат к прежнему цвету(отпускание).

Смена цвета текста
у меня есть memo есть переменная name:=InputBox как сделать чтобы если 1 пользователь ввел имя.

Смена цвета текста в статусе
Как сделать что бы при выборе в combobox «Открыто» в таблице dbgrid в колонке «Статус» появлялся.

Смена цвета шрифта в RichEdit
В RichEdit вводится текст нужно сделать кнопку которая меняет цвет выделенного текста на цвет из.

Источник

Настройка FireMonkey стиля на контролах и формах

Cвойство StyleLookUp

С появлением Metropolis UI стилей особенно возросла актуальность TControl.StyleLookUp свойства. Это связано с тем, что в данных стилях содержится большое количество стилей для кнопок, панелей, списков и других элементов управления. Каждый контрол имеет стиль по умолчанию, но вы можете поменять стиль на любой доступный для данного класса. Для этого, как раз, служит StyleLookUp свойство, в котором вы можете прописать название дополнительного стиля контрола из общего стиля, загруженного в TStyleBook или дефолтного стиля для определенной платформы. Для удобства использования этого свойства, в режиме проектирования, был добавлен всплывающий список с предпросмотром всех возможных стилей. Теперь вы можете с легкостью выбрать стиль для любого контрола. При создании своих стилей для контролов, необходимо учитывать следующее правило для названия стиля. Например, для того, чтобы ваш стиль для TButton попал в список StyleLookUp, необходимо в название добавить слово «button» («mybutton», «specialbutton» ). Если вы сделали стиль для TListBox, тогда в названии должно быть слово «listbox» («mylistbox», «speciallistbox») и т.д.

Пример выбора стиля для TButton в Metropolis UI Black:

Свойство StyleSettings

В Delphi XE3 появилось новое свойство TControl.StyleSettings = set of (ssFamily, ssSize, ssStyle, ssFontColor, ssOther) позволяет включать и отключать свойства шрифта, который берется из стиля. Дело все в том, что в некоторых стилях, в частности Metropolis UI стилях, задается название шрифта, размер. Если вы не хотите использовать стиль для текста по умолчанию , то вы можете отключить следующие парметры из стиля: ssFamily — название шрифта, ssSize — размер шрифта, ssStyle-стиль шрифта, ssFontColor — цвет шрифта, ssOther — позиция текста.

Пример TButton с включенным ssSize (Button1) и выключенном ssSize (Button2):

Включение и отключение стилизации рамки форм в приложении

В Delphi XE3 появилась возможность стилизовать рамку формы. В Windows приложениях рамка стилизуется полностью: бордер + кнопки, в приложениях для Mac OS стилизуется только фон заголовка у формы, не затрагивая системные кнопки, что является общей тенденцией для приложений в Mac OS.
Для включения и отключения стилизации рамки формы используйте TForm.EnableBorderStyling свойство. По умолчанию стоит значение True, т.е. рамка будет стилизоваться. Следует отметить , что не все стили содержат элементы стиля для рамки, и в этом случае рамка будет системной.

Стилизация рамки на примере стиля Jet в Mac OS:

Стилизация рамки на примере стиля Jet в Windows:

Стилизация главного меню формы

В Delphi XE3 главное меню можно организовать двумя способами: использовать TMenuBar контрол или TMainMenu компонент.

TMenuBar
Вы можете использовать данный контрол для создания главного меню в клиенской части формы. Следует отметить, что если вы пишите приложение под Mac OS, то в данном случае меню не появится на Mac OS меню баре — оно будет всегда в клиентской части.

Пример использования TMenuBar c Transparent.style. Согласитесь, что выглядит очень эффектно с полупрозрачной графикой:

TMainMenu
При использовании TMainMenu компонента главное меню создается в неклиентской части формы, а в Mac OS меню появится на Mac OS меню баре. В Windows приложениях, если в стиле определена графика для рамки формы, главное меню и все подменю будут также стилизованы. Если рамка не задана в стиле или вы отключили стилизацию для рамки (TForm.EnableBorderStyling = False), то главное меню и подменю, как и рамка, будут системными.

Главное меню в Windows c помощью TMainMenu на примере стиля Jet:

Главное меню в Mac OS c помощью TMainMenu на примере стиля Jet:

Поддержка дисплея Retina в Mac Book Pro

Как вы уже знаете, компания Apple выпустила Mac Book Pro c Retina дисплеем, чем озадачила многих разработчиков ПО, т.к. для корректного отображения программы нужны изменения как в коде, так и в растровой графике для элементов управления — она должна быть также с высоким разрешением. Если векторные стили в Delphi XE3 подстраиваются под высокое разрешение автоматически, то с растровыми стилями не все так просто. Для поддержки Retina дисплея, в приложении с растровым стилем должен быть загружен дополнительный стиль с высоким разрешением, которое ровно в 2 раза больше обычного. Далее стиль будет автоматически переключаться, в зависимости от того, на каком дисплее находится форма.

Использование TStyleBook
1. Добавьте два TStyleBook компонента на форму, например, StyleBook1 и StyleBook2.
2. Загрузите обычный стиль в StyleBook1 (например, Jet.style).
3. Загрузите Retina стиль в StyleBook2. Как правило, файл с таким стилем именуется как [имястиля]2x.style (например, Jet2x.style).
4. Установите свойство StyleBook1.HiResStyleBook как StyleBook2.
5. Установите cвойство TForm.StyleBook как StyleBook1

Использование TStyleManager

Вы можете последовательно вызвать методы: TStyleManager.SetStyleFromFile для загрузки обычного стиля и TStyleManager.SetStyleFromFileHiRes для загрузки Retina стиля.

Например:
procedure TForm1.FormCreate(Sender: TObject);
begin
.
TStyleManager.SetStyleFromFile(‘Jet.style’);
TStyleManager.SetStyleFromFileHiRes(‘Jet2x.style’);
.
end;

Для наглядности отличия стилей обычных и Retina стилей ниже приведены примеры графики для кнопки.

Кнопка для обычного стиля:

Та же самая кнопка, но для Retina стиля:

Также стоит отметить, что в настоящее время ведется работа над премиум пакетом растровых стилей для FireMonkey, где все стили будут иметь Retina вариант.

Источник

DelphiComponent.ru — бесплатно видеоуроки по Delphi, статьи, исходники

Работа с цветом в Delphi

В играх и графических пакетах этому байту нашли применение. Он часто ука­зывает прозрачность, но в офисных приложениях его просто игнорируют.

Как вы уже знаете, один байт может принимать значения от 0 до 255 (в десятич­ной форме) или от 0 до FF (в шестнадцатеричной). Так что в шестнадцатеричной форме цвет будет выглядеть как SOOFFFFFF. Только тут сразу надо отметить, что первые два нуля — это лишний байт, потом идут FF для голубого цвета, затем FF для зеленого и последние FF для красного. Получается, что в памяти цвет хранится как BGR (в обратном порядке). Абсолютно красный цвет будет равен $000000FF , абсолютно зеленый — $0000FF00 , а голубой — S00FF0000 .

Давайте попробуем научиться работать с цветом на практике, заодно и познако­мимся с необходимыми функциями. Создайте новое приложение и установите на него компоненты так, как это показано на рис.

Итак, на форме три компонента TEdit. Для красного цвета компонент назовите RedEdit, ДЛЯ зеленого — GreenEdit, ну И ДЛЯ СИНвГО — BlueEdit. Так же на форме есть кнопка для смены цвета (ее имя не имеет значения) и компонент CoiorDialog, для смены цвета.

Если вы сами создаете пример, по­старайтесь все разместить так, как показано на рисунке выше (ближе к правому краю), потому что слева будем рисовать квадрат.

Для события кнопки onclick пишем код, показанный в листинге:

procedure TFormi.ButtonlClick(Sender: TObj ect);

В разделе var объявлена одна переменная целого типа Longint. Это целое число размером в 4 байта, оно будет использоваться для хранения значения цвета.

В первой строке показывается ОКНО смены цвета ColorDialogl.Execute. Если пользователь не выбрал цвет (об этом говорит конструкция if not), то выполнение процедуры прерывается с помощью exit.

Дальше выбранный цвет ColorDialog1 .color из типа TCoior преобразовывается в простое число с помощью функции coiorToRGB. Этой функции надо передать цвет в виде TCoior (мы передаем ColorDialogl.color), и она вернет целое 4- байтное число, которое мы записываем в переменную с. Функция CoiorToRGB вы­полняет одно очень важное, действие— очищает первый байт, который как раз не несет смысловой нагрузки в 24-битной RGB системе.

В следующей строке идет присвоение строке ввода RedEdit значения красной составляющей цвета. Для этого сначала используется функция GetRValue. Ей пере­дается значение цвета в виде целого числа (переменная с). Результат—однобайт­ное число, которое показывает значение красной составляющей. Поскольку резуль­тат— число, то прежде чем его присваивать в строку ввода, оно должно быть пре­образовано в строку. Для этого переводим его в текст с помощью знакомой нам ФУНКЦИИ IntToStr.

То же самое проделываем и с зеленым цветом в следующей строке кода. Только для получения зеленой составляющей используется функция GetGValue.

Для получения синей составляющей используется функция GetBValue. Таким образом, после выполнения всех этих действий, мы разбили 4 байта цвета из пере­менной с на отдельные байты по цветам и разнесли их в соответствующие строки ввода.

После этого нужно заставить окно прорисоваться с помощью вызова метода Repaint.

Для события OnPaint напишем следующий код:

procedure TForml.FormPaint(Sender: TObj ect); begin

StrToIntDef(GreenEdit.Text, 0), StrToInt­Def (BlueEdit.Text,0));

Canvas.Rectangle(10,10, 250, 150);

Здесь надо проделать обратные действия — превратить три составляющих цвета из строк ввода в одно целое значение цвета. Для этого используется функция rgb (r, g, в). У этой функции три параметра, и все они целые числа.

• r — значение красного цвета.
• g — значение зеленого цвета.
• в — значение синего цвета.

В качестве параметров передаются значения, указанные в соответствующих строках ввода, с предварительным преобразованием их из строк в числа.

Результат преобразования цвета записываем в цвет кисти. После этого рисуется прямоугольник, у которого цвет фона будет тот, что мы выбрали.

И последнее — создадим обработчик события onchange для всех строк ввода.

1. Выделите строку ввода для красного цвета.
2. Удерживая shift, щелкните мышью по остальным строкам.

У вас должны быть выделены все строки ввода серыми рамками. Теперь перей­дите в объектный инспектор на вкладку Events и дважды щелкните мышью по со­бытию onchange, чтобы создать обработчик сразу для всех выделенных компонен­тов. В нем напишите следующий код:

procedure TForm1.RedEditChange(Sender: TObject);

Попробуйте запустить этот пример. Теперь выбе­рите какой-нибудь цвет, и вы увидите составляющие этого цвета. Можете даже напрямую изменять зна­чения в строках ввода, и результат моментально бу­дет отражаться на цвете прямоугольника.

Ну а теперь познакомимся с константами, кото­рые уже заготовлены для основных цветов. Вы можете их реально использовать в своих програм­мах и присваивать, как ранее это делалось в при­мере. Здесь не будут перечисляться все константы, потому что вы можете их сами в любой момент найти, если щелкнете в объектном инспекторе по свойству color любого компонента. Все, что вы увиди­те в этом списке, — это и есть константы, которые можно использовать. Этот при­ем довольно удобный, потому что сразу видно константу и цвет.

Источник