Динамический ProgressBar

@Alexey-PK · Регистрация: 22.06.2018

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

Здравствуйте!

Никто не стакивался, как рисовать разными цветами ProgressBar на Delphi 10.3

Delphi
1
2
3
 ProgressBar_indicator.BarColor:=clRed;
  ProgressBar_indicator.BackgroundColor:=clYellow;  
  ProgressBar_indicator.Position:=ProgressBar_indicator.Position+10;

К сожалению, рисует только зеленым цветом.

Если кто знает, то прошу ,пожалуйста помочь.

@Alexey-PK · 06.01.2021, 01:05 **[ТС]**

Сообщение от Arcor

А дальше скармливаем функции и получаем набор из равноудаленных цветов от начального до конечного

Да, согласен с Вами необычно и интересно! Я посмотрю, думаю этот вариант использовать или как, минимум, сравню с переборами if else .

@Arcor · 06.01.2021, 01:07

удачи с if-else

@Alexey-PK · 06.01.2021, 01:08 **[ТС]**

Сообщение от Arcor

удачи с if-else

Ок,я завтра посмотрю Ваш вариант . Если не пойму, то можно задать вопрос?

@Arcor · 06.01.2021, 01:09

Сообщение от Alexey-PK

Если не пойму, то можно задать вопрос?

нет! Ни в коем разе, завтра ведь среда! Какие вопросы по средам?!

@Alexey-PK · 06.01.2021, 01:11 **[ТС]**

Сообщение от Arcor

нет! Ни в коем разе, завтра ведь среда! Какие вопросы по средам?!

Ясно, я понял шутку!) Спокойной ночи!

@Arcor · 06.01.2021, 01:15

Добрых снов

@AzAtom · 06.01.2021, 01:16

if'ы нужны только если имеется несколько градиентов на одной полосе.

@Arcor · 06.01.2021, 01:19

Сообщение от AzAtom

if'ы нужны только если имеется несколько градиентов на одной полосе.

да и то не факт)))) можно же сгенерировать такой "массив" со взвешанными частями

10% от красного до синего
30% от синего до зеленого
5% от зеленого до белого
50% от белого до серобуромалинового
5% от серобуромалинового до ... в продрысь

тут лишь фантазия уже)

@Arcor · 06.01.2021, 01:26

продумать лишь быструю систему генерации и вперед

на вход типа подается массив цветов и их вес, а на выходе подается уже результирующий массив

@northener · 06.01.2021, 01:31

Сообщение от Arcor

алгоритм не мой

RxLib?

@AzAtom · 06.01.2021, 01:31

Сообщение от Arcor

можно же сгенерировать такой "массив" со взвешанными частями

Ну да, можно.

Сообщение от Arcor

на вход типа подается массив цветов и их вес, а на выходе подается уже результирующий массив

Я бы заранее сгенерировал битмап размером с отображаемый компонент и с нужными градиентами, затем просто выводил бы нужную его часть. Можно сделать 2 варианта, активная и неактивная часть полосы, и выводить соответственно. Ещё можно легко сделать, что эти градиенты как бы вылезают снизу/сверху/сбоку, а не просто появляется часть неподвижного столбца.

В общем да, ограничено сугубо фантазией.

@AzAtom · 06.01.2021, 01:40

Для одной своей программы я делал собственную полосу поиска и отображения, так как, стандартные ScrollBar и TrackBar не устроили ни по работе с ними, ни по отображению. Но там только однотонная заливка.

@northener · 06.01.2021, 01:55

Ну а мне как-то заказали небанальный индикатор того, что программа не зависла. Сделал его с помощью процедуры из RxLib

Delphi
1
2
procedure GradientFillRect(Canvas: TCanvas; ARect: TRect; StartColor,
  EndColor: TColor; Direction: TFillDirection; Colors: Byte);

Программа работала с внешним устройством через СОМ-порт и после каждого ответа устройства перерисовывала некий прямоугольник с с помощью этой процедуры. StartColor и EndColor задавались случайно. Получилось красиво.

@AzAtom · 06.01.2021, 02:05

Ещё делал плавное изменение палитры. В принципе сводится к тому же градиенту, изменение цвета от начального до конечного за определённое число шагов. Плюс ещё для каждого промежуточного значения строится градиентная палитра от чёрного до промежуточного цвета. Получилось замудрёно. Наверное, попроще можно реализовать.

@Arcor · 06.01.2021, 02:46

Сообщение от northener

RxLib?

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

Delphi
1
2
3
4
      AColors[i] := RGB(
        SColor.R + MulDiv(i, EColor.R - SColor.R, Colors - 1),
        SColor.G + MulDiv(i, EColor.G - SColor.G, Colors - 1),
        SColor.B + MulDiv(i, EColor.B - SColor.B, Colors - 1))

Сообщение от AzAtom

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

так я и взял слово массив в кавычки где-то там, когда предлагал)) и заранее сгенерировать набор чего-то

Сообщение от AzAtom

Ещё делал плавное изменение палитры. В принципе сводится к тому же градиенту, изменение цвета от начального до конечного за определённое число шагов

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

Сообщение от AzAtom

Ещё делал плавное изменение палитры. В принципе сводится к тому же градиенту, изменение цвета от начального до конечного за определённое число шагов. Плюс ещё для каждого промежуточного значения строится градиентная палитра от чёрного до промежуточного цвета. Получилось замудрёно. Наверное, попроще можно реализовать.

вот прям с языка снял... делал я тут ColorPicker с быстрым выбором "нормального" цвета... а как список загенерирвоать?

и пришло на ум "каждый охотник желает знать где сидит фазан"
сгенерировать от каждого цвета еще промежуточные несколько, получилось 7 базовых разбились в 28, та кже плавно и уже эти плавно разбитые были загридиенчены с белым и вот получилось вот такая вот красотень

ну а если уж надо какой-то там замудренный цвет, идем в расширенные настройки и .. там уже любой генерируем

просто пользователю для настроечных целей давать палитру полной RGB это равносильно насилию... а тут заведомая сотня цветов и оттенков... Что мы и видим в мс оффисе на панели быстрого доступа некая такая же палитра.. Удобно. По крайней мере для моей цели)

Тут заранее сгенерирвоанный массив уже чисел, чтобы каждый раз не генерировать)

@northener · 06.01.2021, 03:26

Сообщение от Arcor

левая какая-то библиотека?

Стыдись если ты RxLib не знаешь и ни разу о ней не слышал!
Её разработали одни из лучших разработчиков компонентов Дельфи ещё тогда, когда в самой Дельфи почти ничего не было.

@Arcor · 06.01.2021, 03:28

Сообщение от northener

Стыдись если ты RxLib не знаешь и ни разу о ней не слышал!

ну все, ночь спать не буду))))

Они бесплатьные? какая лицензия чтобы дооолго не вчитываться в подробности, торговать можно с этими компонентами?

@northener · 06.01.2021, 03:41

Да ладно, спи спокойно.

Они изначально бесплатные, ибо заказчики за них не заплатили, а авторы решили отдать их в пользование всем желающим.
Вообще история очень старая и очень громкая.
Ну а разработчики Лазаруса не брезгуют использовать их наработки. И правильно делают.

@Arcor · 06.01.2021, 03:50

Сообщение от northener

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

я картинки погуглил, что это такое, посмотреть. Что-то современных картинкофф нету, а только того стиля, когда я слово компутатор даже и не слышал, не то что о каком-то там дельфи)))
Я понимаю вы дядьки матерые, все это видели с самого начала... и мне завидно на сегодня, что я все это лет на 15 проспал)))) Я в 2009 увидел дельфи и вообще программирование и мне было уже 21 годик, за пару лет до этого комп то появился только..

@northener · 06.01.2021, 04:04

Сообщение от Arcor

я картинки погуглил, что это такое, посмотреть. Что-то современных картинкофф нету, а только того стиля, когда я слово компутатор даже и не слышал, не то что о каком-то там дельфи)))

Современные картинки ищи по словам JCL и JVCL

Это та же библиотека, но в современном состоянии.
И не надо прибедняться. Тут почти все отвечающие в том или ином смысле такие же.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	06.01.2021, 01:07
	удачи с if-else 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	06.01.2021, 01:15
	Добрых снов 0

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,497
	06.01.2021, 01:16
	if'ы нужны только если имеется несколько градиентов на одной полосе. 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	06.01.2021, 01:26
	продумать лишь быструю систему генерации и вперед на вход типа подается массив цветов и их вес, а на выходе подается уже результирующий массив Миниатюры 0

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,497
	06.01.2021, 01:40
	Для одной своей программы я делал собственную полосу поиска и отображения, так как, стандартные ScrollBar и TrackBar не устроили ни по работе с ними, ни по отображению. Но там только однотонная заливка. Миниатюры 1

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,497
	06.01.2021, 02:05
	Ещё делал плавное изменение палитры. В принципе сводится к тому же градиенту, изменение цвета от начального до конечного за определённое число шагов. Плюс ещё для каждого промежуточного значения строится градиентная палитра от чёрного до промежуточного цвета. Получилось замудрёно. Наверное, попроще можно реализовать. 1

@northener пофигист широкого профиля 4770 / 3207 / 862 Регистрация: 15.07.2013 Сообщений: 18,615
	06.01.2021, 03:41
	Да ладно, спи спокойно. Они изначально бесплатные, ибо заказчики за них не заплатили, а авторы решили отдать их в пользование всем желающим. Вообще история очень старая и очень громкая. Ну а разработчики Лазаруса не брезгуют использовать их наработки. И правильно делают. 1