Изменить цвет надписи на заблокированной TBitButton

@Deiemamancommen · Регистрация: 13.08.2014

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Form1->Color = RGB (245, 51, 164);//Цвет формы
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
BitBtn1->Font->Color = RGB (0, 255, 0);//Шрифт не блокированной кнопки
ShellExecute(0, L"open", L"cmd.exe", 0, 0, SW_SHOWNORMAL);
BitBtn1->Enabled = false;
BitBtn1->Font->Color = RGB (255, 0, 0);//Шрифт блокированной кнопки
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TBitBtn *BitBtn1;
    void __fastcall BitBtn1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Создан новый проект для пробы
Цвет Формы
Цвет самой кнопки BitBtn
Цвет шрифта BitBtn
Что не правильно делаю ?

Добавлено через 9 минут
Цвет не меняется после нажатия

Добавлено через 1 минуту
Разблокированная кнопка цвет шрифта:Зеленый
Заблокированная кнопка шрифта:Красный

Добавлено через 4 минуты
Цвет шрифта блокированный кнопки:Серый
А нужно чтобы был красный шрифт

Ddv122 · 14.08.2014, 16:44

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

@nick42 · 14.08.2014, 17:13

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

Как этот компонент устанавливаеться ?

Если никогда сторонние компоненты не устанавливал, то можешь по другому (нагрузка на пальцы и клавиатуру...) - добавить к проекту паскалевский файл ButtonWithColor.pas, отдельно его скомпилировать (получишь ButtonWithColor.hpp), и затем руками прописать след. действия (пример с указанием цвета шрифта; кнопка на базе обычной BitBtn1, созданной в дизайн-режиме и объявленной невидимкой):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
///  #include "ButtonWithColor.hpp"
      TBitBtnWithColor *butn;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     butn = new TBitBtnWithColor(this);
     butn->Parent = Form1;
     butn->Top = BitBtn1->Top ;
     butn->Left = BitBtn1->Left ;
     butn->Width = BitBtn1->Width ;
     butn->Height = BitBtn1->Height ;
     butn->Caption = BitBtn1->Caption ;
     butn->Font->Color = clRed;
     . . .

@Deiemamancommen · 14.08.2014, 17:23 **[ТС]**

У меня нет Паскаля
И с паскалем не связывался вообще!

Добавлено через 1 минуту
И что делать,на чем компилировать файл паскаля ?

@nick42 · 14.08.2014, 17:27

.. у меня его тоже нет! Добавить к проекту слабо? Открыть в редакторе и затем нажать пункт Project - Compile Unit тоже? ...

@Deiemamancommen · 14.08.2014, 17:33 **[ТС]**

В C++ Builder XE6 нет такого пункта Project - Compile Unit

Добавлено через 57 секунд
Если найду как добавить
Шрифт цветной будет работать как надо ?

@nick42 · 14.08.2014, 17:36

Должен! Я за всякие ХЕ не в ответе; старожилы форума знают: я до сих пор работаю с BCB 5 и всякие подколки со стороны модераторов стараюсь не замечать... .

@Deiemamancommen · 14.08.2014, 17:38 **[ТС]**

Вот где искать ?

@Deiemamancommen · 14.08.2014, 17:42 **[ТС]**

Скиньте исходник ButtonWithColor.hpp
Я его сам вручную подключу!
P.S
Так проще будет чем через интерфейс искать

@nick42 · 14.08.2014, 17:46

И примерчик на всякий случай.

@nick42 · 14.08.2014, 17:47

Пожалуйста...

@Deiemamancommen · 14.08.2014, 17:56 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
#include <ButtonWithColor.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TBitBtn *BitBtn1;
    void __fastcall BitBtn1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Добавлено через 41 секунду

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
ShellExecute(0, L"open", L"cmd.exe", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

Добавлено через 15 секунд
Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\14.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\14.0\include";" c:\program files
(x86)\embarcadero\studio\14.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE6\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8
-o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp
[bcc32 Error] Unit1.h(11): E2209 Unable to open include file 'ButtonWithColor.hpp'
Full parser context
Unit1.cpp(6): #include Unit1.h
Failed
Elapsed time: 00:00:00.1

@nick42 · 14.08.2014, 18:00

такие файлы нужно в кавычках подавать, а не в угловых скобках:
#include "ButtonWithColor.hpp"

@Deiemamancommen · 14.08.2014, 18:04 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
#include "ButtonWithColor.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TBitBtn *BitBtn1;
    void __fastcall BitBtn1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\14.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\14.0\include";" c:\program files
(x86)\embarcadero\studio\14.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE6\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8
-o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp
[bcc32 Error] ButtonWithColor.hpp(129): E2316 'TRect' is not a member of 'Windows'
Full parser context
Unit1.cpp(6): #include Unit1.h
Unit1.h(11): #include ButtonWithColor.hpp
ButtonWithColor.hpp(28): namespace Buttonwithcolor
[bcc32 Error] ButtonWithColor.hpp(129): E2040 Declaration terminated incorrectly
Full parser context
Unit1.cpp(6): #include Unit1.h
Unit1.h(11): #include ButtonWithColor.hpp
ButtonWithColor.hpp(28): namespace Buttonwithcolor
Failed
Elapsed time: 00:00:01.8

Добавлено через 31 секунду
Оба варианта пробовал на новом проекте

@nick42 · 14.08.2014, 18:07

... оставьте эту идею (имею в виду предложенный компонент)

@Deiemamancommen · 14.08.2014, 18:18 **[ТС]**

Больше никак нельзя реализовать ?
Цветной шрифт блокированной кнопки

@BRcr · 15.08.2014, 08:24

Можно еще попробовать модифицировать поведение TButton с помощью класса-перехватчика, раз так зудит. Но не раньше следующей недели прикольнусь, если UI не опередит...

@D1973 · 15.08.2014, 08:55

Не по теме:

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

Можно еще попробовать модифицировать поведение TButton с помощью класса-перехватчика

BRcr, о чем Вы говорите в этой теме...

@nick42 · 15.08.2014, 09:45

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

Больше никак нельзя реализовать ?
Цветной шрифт блокированной кнопки

Конечно можно! Видится - как вариант - вместо Caption кнопки использовать Label с прозрачностью (Label1->Parent=BitBtn1;); для имитации нажатий - на MouseDown +1 к Label->Top и Label->Left (на MouseUp соотв. -1). Правда, нажатия на Label и кнопку будут различаться внешне. Вообще, можно собственный компонент создать на базе BitBtn (если стратеги Эмбаркадеро уже не подсуетились), чтоб уж совсем красиво было (и удобно).

@SatanaXIII · 15.08.2014, 10:11

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

Можно еще попробовать модифицировать поведение TButton с помощью класса-перехватчика, раз так зудит. Но не раньше следующей недели прикольнусь, если UI не опередит.

Да дудочки. И UI не опережает потому, что изменить цвет текста активной кнопки классом-перехватчиком можно очень легко, а вот наоборот для неактивной это надо очень и очень глубоко влезть в понимание механизма изменения Enabled компонента. И перехватить его.

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

вместо Caption кнопки использовать Label

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

@nick42 · 15.08.2014, 10:23

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

не проканает. Нельзя поверх кнопки разместить лейбл.

Ну, так речь идет о BitBtn же... .

Новые блоги и статьи Все статьи Все блоги /
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	14.08.2014, 16:44
	а если загружать изображения заблокированой кнопки / разблокированой ? глупо, но при этом даже на древних системах с классическим интерфейсом будет смотреться красивее... Или затемнять "шторкой" кнопку .... Велосипед конечно, но как альтернативные варианты... 0

@Deiemamancommen 0 / 0 / 0 Регистрация: 13.08.2014 Сообщений: 21
	14.08.2014, 17:23 [ТС]
	У меня нет Паскаля И с паскалем не связывался вообще! Добавлено через 1 минуту И что делать,на чем компилировать файл паскаля ? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.08.2014, 17:27
	.. у меня его тоже нет! Добавить к проекту слабо? Открыть в редакторе и затем нажать пункт Project - Compile Unit тоже? ... 0

@Deiemamancommen 0 / 0 / 0 Регистрация: 13.08.2014 Сообщений: 21
	14.08.2014, 17:33 [ТС]
	В C++ Builder XE6 нет такого пункта Project - Compile Unit Добавлено через 57 секунд Если найду как добавить Шрифт цветной будет работать как надо ? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.08.2014, 17:36
	Должен! Я за всякие ХЕ не в ответе; старожилы форума знают: я до сих пор работаю с BCB 5 и всякие подколки со стороны модераторов стараюсь не замечать... . 0

@Deiemamancommen 0 / 0 / 0 Регистрация: 13.08.2014 Сообщений: 21
	14.08.2014, 17:38 [ТС]
	Вот где искать ? Миниатюры 0

@Deiemamancommen 0 / 0 / 0 Регистрация: 13.08.2014 Сообщений: 21
	14.08.2014, 17:42 [ТС]
	Скиньте исходник ButtonWithColor.hpp Я его сам вручную подключу! P.S Так проще будет чем через интерфейс искать 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.08.2014, 18:00
	такие файлы нужно в кавычках подавать, а не в угловых скобках: #include "ButtonWithColor.hpp" 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.08.2014, 18:07
	... оставьте эту идею (имею в виду предложенный компонент) 0

@Deiemamancommen 0 / 0 / 0 Регистрация: 13.08.2014 Сообщений: 21
	14.08.2014, 18:18 [ТС]
	Больше никак нельзя реализовать ? Цветной шрифт блокированной кнопки 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	15.08.2014, 08:24
	Можно еще попробовать модифицировать поведение TButton с помощью класса-перехватчика, раз так зудит. Но не раньше следующей недели прикольнусь, если UI не опередит... 0