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

@cesium · Регистрация: 25.12.2013

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

Нашел в гугле

PostMessage(ProgressBar1.Handle, $0409, 0, clGreen);

Но куда вставлять эту строку или, может, есть другие способы?

@droider · 27.02.2016, 22:16

Есть!!! Перейдите на форму,кликните по ней дважды мышью или в инспекторе объектов выберите событие "OnCreate"!!
Вы в архив смотрели?

@cesium · 27.02.2016, 23:31 **[ТС]**

Получилось, спасибо. А как сделать другой цвет при "остановке работы" в моей программе(теперь при любом действии процесс зеленый).

@qwertehok · 27.02.2016, 23:36

clGreen ни на что не наводит?

@droider · 27.02.2016, 23:39

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

как сделать другой цвет при "остановке работы" в моей программе

назначить соответствующий цвет после выполнения конкретной операции.

См. цветовые константы в Delphi

@cesium · 27.02.2016, 23:54 **[ТС]**

Хорошо, а как в текст программы вставить определенный символ, который он не распознает. Знаю, что например так:Form.Caption := #$394#$3A0 + Form.Caption;
Но мне надо вставить этот текст в MainMenu.

@droider · 27.02.2016, 23:57

cesium, поставьте одну из последних версий Delphi с поддержкой юникода.

@cesium · 28.02.2016, 00:11 **[ТС]**

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

поставьте одну из последних версий Delphi с поддержкой юникода.

на 7 windows проблематично поставить делфи вообще) И так с горем пополам поставил какой-то. Других способов нету?

Добавлено через 4 минуты
может можно как-то создать текстовый документ и там записать символы, а кодом направить на открытие этих символов?

@unifikator · 28.02.2016, 07:45

Других способов нет. И с помощью текстового документа тоже не получится.

@droider · 28.02.2016, 18:14

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

на 7 windows проблематично поставить делфи вообще

старая сказка. Delphi всегда ставится без проблем, хоть на Windows 10.

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

с горем пополам поставил какой-то

В этом проблема, а не в Delphi

@AHBAR · 28.02.2016, 18:45

cesium,

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

Поставил так, но progressbar все равно синего цвета.

кинь компонент XPManifest на форму

@droider · 28.02.2016, 19:11

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

кинь компонент XPManifest на форму

Это лишнее. Вопрос уже закрыт

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

Получилось, спасибо

Вы не прочитали тему до конца.

@артист · 13.11.2017, 21:31

Почему-то не хочет меняться цвет:

Delphi
1
2
3
4
5
procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Progressbar1.Brush.Color := clWindow;
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, rgb(255, 153, 0));
end;

Зарегал на ProgressBar1.

Когда ставил код просто перед его показом - работало, но криво.
Цвет менялся только со второго раза, и не всегда.

@droider · 14.11.2017, 09:38

артист, я уже давал эту сслыку в данной теме. Еще раз Скачивание файлов из интернета с прогресс-баром при использовании indy

Добавлено через 2 минуты
для старших версий см. код от volvo.

@артист · 14.11.2017, 17:39

А как выключить темы оформления?

@qwertehok · 14.11.2017, 20:04

для какой версии Delphi?

@droider · 14.11.2017, 20:47

Сообщение от артист

как выключить темы оформления?

Зайти в меню проекта: Project > Options > Application. Снять галочку с опции "Enable Runtime Themes".

Добавлено через 3 минуты
Volvo здесь уже даже отвечал на этот вопрос Скачивание файлов из интернета с прогресс-баром при использовании indy

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@cesium 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 120

	Как изменить цвет ProgressBar 27.02.2016, 19:36. Показов 11131. Ответов 35 Метки нет (Все метки) Нашел в гугле PostMessage(ProgressBar1.Handle, $0409, 0, clGreen); Но куда вставлять эту строку или, может, есть другие способы? 0

@droider 4891 / 2824 / 866 Регистрация: 04.10.2012 Сообщений: 10,269
	27.02.2016, 22:16
	Есть!!! Перейдите на форму,кликните по ней дважды мышью или в инспекторе объектов выберите событие "OnCreate"!! Вы в архив смотрели? 0

@cesium 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 120
	27.02.2016, 23:31 [ТС]
	Получилось, спасибо. А как сделать другой цвет при "остановке работы" в моей программе(теперь при любом действии процесс зеленый). 0

@qwertehok 5990 / 4565 / 1096 Регистрация: 29.08.2013 Сообщений: 28,208 Записей в блоге: 3
	27.02.2016, 23:36
	clGreen ни на что не наводит? 0

@cesium 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 120
	27.02.2016, 23:54 [ТС]
	Хорошо, а как в текст программы вставить определенный символ, который он не распознает. Знаю, что например так:Form.Caption := #$394#$3A0 + Form.Caption; Но мне надо вставить этот текст в MainMenu. 0

@droider 4891 / 2824 / 866 Регистрация: 04.10.2012 Сообщений: 10,269
	27.02.2016, 23:57
	cesium, поставьте одну из последних версий Delphi с поддержкой юникода. 0

@unifikator 500 / 356 / 231 Регистрация: 29.03.2015 Сообщений: 675
	28.02.2016, 07:45
	Других способов нет. И с помощью текстового документа тоже не получится. 0

@droider 4891 / 2824 / 866 Регистрация: 04.10.2012 Сообщений: 10,269
	14.11.2017, 09:38
	артист, я уже давал эту сслыку в данной теме. Еще раз Скачивание файлов из интернета с прогресс-баром при использовании indy Добавлено через 2 минуты для старших версий см. код от volvo. 1

@артист 50 / 35 / 21 Регистрация: 17.09.2014 Сообщений: 1,615
	14.11.2017, 17:39
	А как выключить темы оформления? 0

@qwertehok 5990 / 4565 / 1096 Регистрация: 29.08.2013 Сообщений: 28,208 Записей в блоге: 3
	14.11.2017, 20:04
	для какой версии Delphi? 1