Скачать: CL | DM;

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 !!!

---

← →
Gandalf ©   (2003-12-09 23:17) [14]

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 вместо нее.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.027 c