ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / C++ [игнор отключен] [закрыт для гостей] / [BCB] Подскажите, как перекрасить все компоненты формы?
10 сообщений из 10, страница 1 из 1
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175874
Фотография DarkCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkCat
Участник
Задача - перебрать все компоненты и всех, кто наследует свойство Color от TControl разукрасить в красный цвет.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
 int i;
 TControl *TmpControl;
 for(i= 0 ; i<Form1->ComponentCount; i++)
   {
    TmpControl = dynamic_cast<TControl *>(Form1->Components[i]);
    if (TmpControl) (TmpControl)->Color = clRed;
   }

вот такая тема не прокатывает: TControl::Color - is not accsessible :(

...
Рейтинг: 0 / 0
04.12.2006, 19:15
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175913
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
А сели через

ну наврное потому что метод Color в protected секции...
...
Рейтинг: 0 / 0
04.12.2006, 19:38
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175916
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
"А сели через"

чет лишнее залезо ..
...
Рейтинг: 0 / 0
04.12.2006, 19:39
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175927
Фотография DarkCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkCat
Участник
JibSkeartну наврное потому что метод Color в protected секции...
ну да, в протектед, потомушто оно становится public выше по иерархии.
Но у каждого компонента - в разном классе (в TPanel, TLabel, TShape и т.д.)

Так как сделать то?

Для простоты - можно предположить что перекрашиваем только TPanel и TShape например...
...
Рейтинг: 0 / 0
04.12.2006, 19:46
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175937
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
А вообще если попробовать через
"перебор" типов ?
Код: plaintext
1.
2.
3.
 if(dynamic_cast<TEdit*>(Sender)) ((TEdit*)Sender)->Color = clRed;
 if(dynamic_cast<TPanel*>(Sender)) ((TPanel*)Sender)->Color = clRed;
 if(dynamic_cast<T...*>(Sender)) ((T...*)Sender)->Color = clRed;

В таком духе вообщем
насколькоя помню еще и с TButton у тя проблема встанет
у него нету метода Color
...
Рейтинг: 0 / 0
04.12.2006, 19:50
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175940
Фотография DarkCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkCat
Участник
DarkCatДля простоты - можно предположить что перекрашиваем только TPanel и TShape например...

хотя нет, так не интересно, я и сам так могу:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 int i;
 TPanel *Tmp1;
 TShape *Tmp2;
 for(i= 0 ; i<Form1->ComponentCount; i++)
   {
    Tmp1 = dynamic_cast<TPanel *>(Form1->Components[i]);
    Tmp2 = dynamic_cast<TShape *>(Form1->Components[i]);
    if (Tmp1) Tmp1->Color = clRed;
    if (Tmp2) Tmp2->Color = clRed;
   }



а как сделать чтобы это работало для всех типов?
...
Рейтинг: 0 / 0
04.12.2006, 19:53
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175949
Фотография DarkCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkCat
Участник
JibSkeartА вообще если попробовать через "перебор" типов ?
угу.
А интересно решение без перебора заранее указанных типов.
Чтобы работало для всех, где это свойство public.
...
Рейтинг: 0 / 0
04.12.2006, 19:55
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175961
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
DarkCat JibSkeartА вообще если попробовать через "перебор" типов ?
угу.
А интересно решение без перебора заранее указанных типов.
Чтобы работало для всех, где это свойство public.

а если нету метода Color , то получим AV ?
...
Рейтинг: 0 / 0
04.12.2006, 20:02
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175972
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
Можно вот так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
class TCtrl : public TControl
{
  public:
   __property Color;
};
//------

 for(i= 0 ; i<Form1->ComponentCount; i++)
   {
   if (dynamic_cast<TControl*>(Form1->Components[i]))
     ((TCtrl*)Form1->Components[i])->Color = clRed;
   }
//------
...
Рейтинг: 0 / 0
04.12.2006, 20:09
| Ответить | Цитировать | Написать  
[BCB] Подскажите, как перекрасить все компоненты формы?
    #34175991
Фотография DarkCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkCat
Участник
JibSkeartМожно вот так

...
спасибо!
работайет!!!
...
Рейтинг: 0 / 0
04.12.2006, 20:29
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / [BCB] Подскажите, как перекрасить все компоненты формы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=57&msg=34175940&tid=2029911]:
 0ms
get settings:
 4ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 161ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 204ms
total:  423ms
созд. / загр.: 423ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]