Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> "Покраска" TDateTimePicker, Не красится компонент... 
:(
    Опции темы
Griffon
Дата 17.4.2007, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.11.2006

Репутация: нет
Всего: нет
Парни, обрабатываю массив объектов следующим кодом:
Код

procedure SetEditColors(x:array of TComponent; CountControls:integer);
var
  i:integer;
  cl:TColor;
begin
  cl:=$00959AFD;
  for i:=0 to CountControls-1 do
  begin
    if x[i] is TEdit then
      (x[i] as TEdit).color:=cl;
    if x[i] is TComboBox then
      (x[i] as TComboBox).color:=cl;
    if x[i] is TMemo then
      (x[i] as TMemo).color:=cl;
    if x[i] is TRichEdit then
      (x[i] as TRichEdit).color:=cl;
    if x[i] is TDateTimePicker then
      (x[i] as TDateTimePicker).color:=cl;
    if x[i] is TCurrencyEdit then
      (x[i] as TCurrencyEdit).color:=cl;
    if x[i] is TRadioButton then
      (x[i] as TRadioButton).color:=cl;
    {f x[i] is TCheckBox then
      (x[i] as TCheckBox).color:=cl;}
  end;
end;

Все объекты красятся нормально, а TDateTimePicker'ы вообще не красятся :-(
С чем может быть связано?
(Delphi7 + updates, Vista x64 + updates)
PM MAIL   Вверх
Alexeis
Дата 17.4.2007, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Я попробовал вот так 
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for I := 0 to ComponentCount - 1
  do
    if (Components[i] is TDateTimePicker)
    then
      (Components[i] as TDateTimePicker).Color := clRed;
end;


И у меня сработало, значит либо значение CountControls - неверно либо массив x:array of TComponent;  не содержит TDateTimePicker-ров


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Griffon
Дата 17.4.2007, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.11.2006

Репутация: нет
Всего: нет
У меня так: если в редакроре формы редактирую цвет - он меняется, если в процессе работы рпограммы делаю прямо: 
DateTimePicker1.Color := clRed;
То ничего не происходит ))))
В чем трабл?
PM MAIL   Вверх
Alexeis
Дата 17.4.2007, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(Griffon @  17.4.2007,  14:04 Найти цитируемый пост)
То ничего не происходит ))))
В чем трабл? 

  Уууу это уже сложнее... тогда возможно в
Цитата(Griffon @  17.4.2007,  09:25 Найти цитируемый пост)
(Delphi7 + updates, Vista x64 + updates) 

Полная поддержка Vista появилась только в Delphi2007. Советую попробовать ту же программу на XP/NT.



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Griffon
Дата 19.4.2007, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.11.2006

Репутация: нет
Всего: нет
Действительно. Беру "неработающий" скомпиленый на Висте код, запускаю на ХР и там все правильно работает.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.