FlatStyle для каждого контрола

@aurisdies · Регистрация: 16.09.2015

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

Делаю на примере checkbox'ов по примеру кода из InitializeComponent()

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        
for each (Control^ x in tab1->Controls) {
            if (x->GetType() == CheckBox::typeid) {
                        System::Drawing::Color x_border_color = System::Drawing::ColorTranslator::FromHtml(options::skin("OptionsForm", "check_box", "border_color"));
                        System::Drawing::Color x_checked_back_color = System::Drawing::ColorTranslator::FromHtml(options::skin("OptionsForm", "check_box", "checked_back_color"));
                        System::Drawing::Color x_mouse_down_back_color = System::Drawing::ColorTranslator::FromHtml(options::skin("OptionsForm", "check_box", "mouse_down_back_color"));
                        System::Drawing::Color x_mouse_over_back_color = System::Drawing::ColorTranslator::FromHtml(options::skin("OptionsForm", "check_box", "x_mouse_over_back_color"));
                        System::Drawing::Color x_back_color = System::Drawing::ColorTranslator::FromHtml(options::skin("OptionsForm", "back_color", "border_color"));
                        x->FlatStyle = System::Windows::Forms::FlatStyle::Flat;
                        x->BackColor = x_back_color;
                        x->FlatAppearance->BorderColor = x_border_color;
                        x->FlatAppearance->CheckedBackColor = x_checked_back_color;
                        x->FlatAppearance->MouseDownBackColor = x_mouse_down_back_color;
                        x->FlatAppearance->MouseOverBackColor = x_mouse_over_back_color;
                    }
}

Пишет что FlatAppearance: не является членом "System::Windows::Forms::Control"
конечно, потому что FlatStyle из System::Windows::Forms::FlatStyle::Flat;
Но как тогда мне передать контролу X свойства FlatStyle?

А вот код из InitializeComponent() формы сгенерированный конструктором и тут не жалуется на данную проблему

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
this->fullsc->AutoSize = true;
            this->fullsc->BackColor = System::Drawing::Color::FromArgb(static_cast<System::Int32>(static_cast<System::Byte>(60)), static_cast<System::Int32>(static_cast<System::Byte>(60)), 
                static_cast<System::Int32>(static_cast<System::Byte>(60)));
            this->fullsc->FlatAppearance->BorderColor = System::Drawing::Color::White;
            this->fullsc->FlatAppearance->CheckedBackColor = System::Drawing::Color::Gray;
            this->fullsc->FlatAppearance->MouseDownBackColor = System::Drawing::Color::Black;
            this->fullsc->FlatAppearance->MouseOverBackColor = System::Drawing::Color::DarkRed;
            this->fullsc->FlatStyle = System::Windows::Forms::FlatStyle::Flat;
            this->fullsc->Font = (gcnew System::Drawing::Font(L"Lucida Sans Unicode", 11.25F, System::Drawing::FontStyle::Regular, System::Drawing::GraphicsUnit::Point, 
                static_cast<System::Byte>(204)));
            this->fullsc->Location = System::Drawing::Point(12, 96);
            this->fullsc->Name = L"fullsc";
            this->fullsc->Size = System::Drawing::Size(12, 11);
            this->fullsc->TabIndex = 5;
            this->fullsc->UseVisualStyleBackColor = false;

Добавлено через 1 час 9 минут
возможно правильным путем будет:

C++
1
for each (CheckBox^ x in tab1->Controls) {

однако после компиляции выходят ошибки вроде:
невозможно привести Label к CheckBox.
Получается x захватывает все контролы. Как бы сделать так чтобы он захватывал только чек боксы, ведь у нас нету

C++
1
OfType

@OwenGlendower · 17.12.2016, 18:27

aurisdies, можно проверить тип и сделать приведение

C++
1
2
3
4
5
for each (Control^ ctrl in this->Controls) {
    if (ctrl->GetType() != CheckBox::typeid) continue;
    CheckBox^ cb = safe_cast<CheckBox^>(ctrl);
    cb->FlatStyle = FlatStyle::Flat;
}

Или воспользоваться "несуществующим" методом OfType

C++
1
2
3
for each (CheckBox^ cb in Enumerable::OfType<CheckBox^>(this->Controls)) {
    cb->FlatStyle = FlatStyle::Flat;
}

Для второго примера нужно добавить reference на сборку System.Core и указать using namespace System::Linq;.

@aurisdies · 17.12.2016, 18:38 **[ТС]**

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

Или воспользоваться "несуществующим" методом OfType

Импровизация и оиски на msdn завершились ничем вот и решил что он не существует в CLI

Огромное Вам спасибо! Который раз именно вы меня выручаете.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

FlatStyle для каждого контрола

Решение