Изменение цвета

@Петя123 · Регистрация: 25.05.2013

Author24 — интернет-сервис помощи студентам

Как и с помощью какого компонента можно реализовать следующие. В картинке представил примерно как хочу сделать.

@NT SERVICE · 29.06.2013, 14:19

Например: TGauge.

@Петя123 · 29.06.2013, 14:21 **[ТС]**

@NT SERVICE, Вы меня конечно простите я в делфи не спец, так что пожалуйста поподробнее что это? и где использовать?

@droider · 29.06.2013, 14:21

ProgressBar в помощь

@Петя123 · 29.06.2013, 14:22 **[ТС]**

@droider, а без него как нибуть?

@NT SERVICE · 29.06.2013, 14:23

Сообщение от Петя123

поподробнее что это?

Компонент, вкладка samples.

@droider · 29.06.2013, 14:25

@Петя123, сейчас набросаю пример c TGauge

@Петя123 · 29.06.2013, 14:30 **[ТС]**

@NT SERVICE, Спасибо нашёл!

Добавлено через 47 секунд
@droider, А можно ещё как нибуть делать Gauge полу прозрачным?

29.06.2013, 14:53

Как вариант

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
var
  R, G : Byte;
begin
  R := Round(255 - Gauge1.Progress / 100 * 255);
  G := Round(255 + Gauge1.Progress / 100 * 255);
  Gauge1.ForeColor := RGB(R, G, 0);
  Gauge1.Progress := Gauge1.Progress + 1;
  if Gauge1.Progress >= 100 then
    Timer1.Enabled := False;
end;

@Петя123 · 29.06.2013, 15:00 **[ТС]**

@angstrom, Спасибо большое!

29.06.2013, 15:04

Отдельный цвет принимает значение 0..255 - размер байта. Синий цвет (B) нам не нужен, выставляем всегда в 0, красный убавляем на каждую итерацию, зелёный прибавляем. Затем формируем полный цвет функцией RGB.

@droider · 29.06.2013, 15:06

Как-то так

@droider · 29.06.2013, 15:17

Я использовал PercentDone для получения процента загрузки

немного упростил код

Delphi

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  with Gauge1 do
  begin
if PercentDone<=10 then
 ForeColor :=clRed;
if (PercentDone>10) and (PercentDone<=50) then
 ForeColor :=clOlive;
if (PercentDone>50) and (PercentDone<=90) then
  ForeColor :=clYellow;
if PercentDone>90 then
 ForeColor :=clGreen;
 Progress :=Progress+1;
end;
end;
 
end.

Новые блоги и статьи
Какая разница между операторами == и === в сравнениях в JavaScript bytestream 21.01.2025 В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .	Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .	Копирование (маппинг) объектов в JavaScript bytestream 21.01.2025 В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .	Как работать с Apache Kafka в C# .NET bytestream 21.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .	Как использовать RabbitMQ в C# .NET bytestream 21.01.2025 RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .
Как объединить последние коммиты в Git bytestream 21.01.2025 В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .	Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .	Как создать директорию и все родительские директории, указанные в пути, с помощью Python bytestream 21.01.2025 Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .	Как работать с массивами в JavaScript bytestream 21.01.2025 Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .	Какая максимальная длина адреса (URL) в различных браузерах и стандартах bytestream 21.01.2025 В современном мире интернет-технологий URL-адреса (Uniform Resource Locator) играют фундаментальную роль в функционировании веб-пространства. Эти уникальные идентификаторы ресурсов стали неотъемлемой. . .	Как сбросить локальный репозиторий до состояния удалённого репозитория Git bytestream 21.01.2025 При разработке программного обеспечения с использованием системы контроля версий Git разработчики часто сталкиваются с необходимостью синхронизации локального и удаленного репозиториев. Данная задача. . .

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
		1
	Изменение цвета 29.06.2013, 14:12. Показов 1746. Ответов 12 Метки нет (Все метки) Как и с помощью какого компонента можно реализовать следующие. В картинке представил примерно как хочу сделать. Миниатюры 0

@NT SERVICE 122 / 120 / 41 Регистрация: 27.01.2013 Сообщений: 546
	29.06.2013, 14:19	2
	Например: TGauge. 0

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
	29.06.2013, 14:21 [ТС]	3
	@NT SERVICE, Вы меня конечно простите я в делфи не спец, так что пожалуйста поподробнее что это? и где использовать? 0

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,148
	29.06.2013, 14:21	4
	ProgressBar в помощь 0

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
	29.06.2013, 14:22 [ТС]	5
	@droider, а без него как нибуть? 0

@NT SERVICE 122 / 120 / 41 Регистрация: 27.01.2013 Сообщений: 546
	29.06.2013, 14:23	6
	Сообщение от Петя123 поподробнее что это? Компонент, вкладка samples. 1

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,148
	29.06.2013, 14:25	7
	@Петя123, сейчас набросаю пример c TGauge 1

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
	29.06.2013, 14:30 [ТС]	8
	@NT SERVICE, Спасибо нашёл! Добавлено через 47 секунд @droider, А можно ещё как нибуть делать Gauge полу прозрачным? 0

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
	29.06.2013, 15:00 [ТС]	10
	@angstrom, Спасибо большое! 0

angstrom
	29.06.2013, 15:04	11
	Отдельный цвет принимает значение 0..255 - размер байта. Синий цвет (B) нам не нужен, выставляем всегда в 0, красный убавляем на каждую итерацию, зелёный прибавляем. Затем формируем полный цвет функцией RGB.

	29.06.2013, 15:17