Проблема с цветом в TurboExplorer

← →
Inco (2007-07-03 12:01) [0]

На форме лежит панель. У формы Color := clBtnFace, у панели Color := clWhite (пробовал и другие - результат одинаковый). Все цвета назначены в дизайнере и в дизайнере же все выглядит так, как и должно быть.
При запуске панель становится цвета формы (светло-серая)!!!

Если изменить цвет шрифта - он меняется и в design- и в runtime.
Цвета панелей и лейблов - в дизайнере - какие я назначу, в runtime - все становится цвета формы.

Сделал при клике на панели вывод названия цвета в Caption.
Кликаю - выводится clWhite, вижу - clBtnFace. Называется - "не верь глазам своим"!
Игра со свойством Transparent не приводит ни к каким видимым результатам.

В чем может быть проблема? (Win XP, TurboExplorer)

P.S.: В D7 было все отлично.

← →
Игорь Шевченко © (2007-07-03 12:05) [1]

> в runtime - все становится цвета формы.

ParentColor := true нигде не присваиваешь ?

← →
Inco (2007-07-03 12:09) [2]

> Игорь Шевченко © (03.07.07 12:05) [1]
> ParentColor := true нигде не присваиваешь ?

Нет. Все цвета назначаются только в дизайнере, в рантайме никаких манипуляций с цветом, прозрачностью и т.п. не произвожу. Соответствено, при запуске ожидаю увидеть то же, что и в дизайнере (чего не происходит).

← →
Игорь Шевченко © (2007-07-03 12:13) [3]

А выведи значение ParentColor у того компонента, чей цвет меняется в рантайме

← →
Inco (2007-07-03 12:25) [4]

> Игорь Шевченко © (03.07.07 12:13) [3]
> А выведи значение ParentColor у того компонента, чей цвет
> меняется в рантайме

procedure TfrmError.lblTitleClick(Sender: TObject);
begin
Caption := ColorToString(pnlTitle.Color);
if pnlTitle.ParentColor then Caption := Caption + " ParentColor = TRUE"
else Caption := Caption + " ParentColor = FALSE"
end;

Результат: Caption = clWhite ParentColor = FALSE

← →
Gydvin © (2007-07-03 12:45) [5]

У меня все нормально

← →
Inco (2007-07-03 12:49) [6]

> Gydvin © (03.07.07 12:45) [5]
> У меня все нормально

Именно на бесплатном TurboExplorer и WinXP?

← →
Gydvin © (2007-07-03 13:00) [7]

Аха

← →
Inco (2007-07-03 14:07) [8]

> Gydvin © (03.07.07 13:00) [7]
> Аха

Да... Надеюсь, TurboExplorer существует только в одной версии.

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

← →
Skyle © (2007-07-03 14:09) [9]

Выложил бы код тестового примера да и всё.

← →
Gydvin © (2007-07-03 14:15) [10]

> Может быть проблема кроется в том, что у меня все это запущено
> на WmWare, проверить пока не могу, может быть на неделе
> удастся.

Врядли

← →
Игорь Шевченко © (2007-07-03 15:30) [11]

> Именно на бесплатном TurboExplorer и WinXP

Например, у меня не было проблем такого рода.

> Например, у меня не было проблем такого рода.

В каких версиях Delphi? Я на старших не тестировал, но эта проблемма еще с D6-D7,
при использовании XPManifest. Глюк в VCL.
Там ParentBackground нужно устанавить в false в рантайме, он при создании устанавливается в true.

← →
Inco (2007-07-03 15:52) [13]

Проблема разрешилась.
Цвета меняются из-за понтового компонента TXPManifest.

> Skyle © (03.07.07 14:09) [9]
> Выложил бы код тестового примера да и всё.

Кода, как такового нет. Это можно воспроизвести на новом проекте.
1) На форму кладем панель, меняем у нее цвет на любой, отличный от стандартного.
2) Запускаем приложение - видим цвета, которые мы назначили.
3) Добавляем на форму компонент TXPManifest. В дизайнере все выглядит по-прежнему нормально.
4) Запускаем приложение - цвет панели стал такой же, как у формы!
5) Убираем с формы компонент TXPManifest.
6) Запускаем приложение - оба-на! - а цвет у панели все равно такой же, как у формы.
7) В секции interface в uses уничтожаем упоминание модуля XPMan.
8) Запускаем приложение - цвет панели стал такой, каким мы хотели его видеть!

В связи с этим вопрос :)) - а как бы использовать компонент XPManifest, но так, чтобы цвета у панелей оставались такими же, как мы назначаем в дизайнере?

Понимаю, что вопрос риторический. Но в D7 такого глюка не наблюдалось...

> Понимаю, что вопрос риторический. Но в D7 такого глюка не
> наблюдалось...

Наблюдался, наблюдался ....

← →
Inco (2007-07-03 15:54) [15]

← →
Inco (2007-07-03 15:57) [16]

> atruhin © (03.07.07 15:54) [14]
>
> Наблюдался, наблюдался ....

Спорить не буду, но у меня осталось впечатление, что этого не было. При первой возможности попробую убедиться.

Проблема с цветом в TurboExplorer Найти похожие ветки