XP-Манифест и тулбар: как побороть?

← →
ecm (2003-12-08 13:23) [0]

Подскажите как побороть черный фон на тулбаре, если в проекте есть XP-манифест? Тулбар установлен на панели. (Если тулбар бросать на форму - все ок)

← →
SPeller © (2003-12-08 18:27) [1]

Попробуй прописать в файле YourProject_1.inc функцию InitCommonControls;

← →
ecm (2003-12-08 18:36) [2]

2SPeller ©:
Попробовал - тоже самое - фон остался черным.
Дело не в этом - ведь при бросании на форму все работает
и выглядит замечательно

← →
Vladimir Kladov (2003-12-08 21:11) [3]

tboTransparent - для панели. Все в описании написано для toolbara.

← →
ecm (2003-12-09 11:52) [4]

2Vladimir Kladov:
Поставил - эффекта никакого. (т.е. тулбар остался черным)
Проект простейший: Форма,панель, и тулбар с одной Bitmap-кнопкой без текста.
V 1.86

← →
ecm (2003-12-09 12:02) [5]

З.Ы. Что характерно - изменение tboFlat на FALSE так же не дает
положительного эффекта (как написано в описании) :)

← →
Bmouradov (2003-12-09 13:48) [6]

Если проект написан на KOL - попробуй Toolbar1.Style :=
Toolbar1.Style or WS_EX_CLIENTEDGE;
В Vcl я не знаю.

← →
Vladimir Kladov (2003-12-09 16:52) [7]

а кака добавлен манифест? Просто руками через {$R } может быть недостаточно. Надо еще OleInit или что-то вроде вызвать.

← →
ecm (2003-12-09 16:57) [8]

Манифест добавлен с помощью компонента KOLMHXP.
OleInit? А почему все остальное работает?

← →
ecm (2003-12-09 17:15) [9]

VERY SORRY. Огромное спасибо за мысль Vladimir! Была верcия KOLMHXP 1.15. После скачки и установки 1.17 (пришлось только руками все чистить :( все стало нормально.
Еще раз всем спасибо!

← →
ecm (2003-12-09 17:23) [10]

Облом - проблема остается: Если поставить tboFlat = TRUE
(tboTransparent дела не меняет)
:(

← →
Vladimir Kladov (2003-12-09 18:05) [11]

TToolbarOption = ( tboTextRight, tboTextBottom, tboFlat, tboTransparent,
tboWrapable, tboNoDivider, tbo3DBorder );
{* Toolbar options. When tboFlat is set and toolbar is placed onto panel,
set its property Transparent to TRUE to provide its correct view. }

← →
ecm (2003-12-09 18:16) [12]

2Kladov: В моем случае ни установка Toolbat.Transparent TRUE/FALSE ни tboTransparent TRUE/FALSE ни на что не влияла
тулбар попрежнему был черен.
Помогло установка в CreateForm (Спасибо Bmouradov!):
Toolbar1.Style := Toolbar1.Style or WS_EX_CLIENTEDGE;

← →
Boguslaw (2003-12-09 22:58) [13]

Great !

I"ve been looking for solution some time ago bu found no one.

Toolbar1.Style := Toolbar1.Style or WS_EX_CLIENTEDGE;

should be added to FAQ !!!

Ok, but may be it"s a KOL BUG? I mean (2Kladov) - let"s create in KOL toolbar with this style on?

← →
Vladimir Kladov (2003-12-12 11:37) [15]

Специально поставил XP под Virtual PC. Без Transparent все равно не работает, т.е. это тоже надо. WS_EX_ не для Style, а для ExStyle, это просто значение совпало (не пойму только какое, вроде бы $200 в списке WS_... не числится. Или это BS_RIGHT).

← →
Vladimir Kladov (2003-12-12 12:02) [16]

Выяснил: это стиль TBSTYLE_WRAPABLE. Т.е. опция tboWrapable. Но для лево-право выровненных тулбаров она не идет, нужно tboTextRight вместо нее.

XP-Манифест и тулбар: как побороть? Найти похожие ветки