Как сделать меню как в IE 6.0?

← →
Nic (ro) (2007-04-02 21:33) [0]

То есть, чтобы был стандартный градиент, но при этом главные кнопки меню подсвечивались также как и в TMainMenu?
Делаю так: TCoolBar + TToolBar + TMainMenu. Выходит почти то, что хотелось видеть, но вот только основные кнопки меню подсвечиваются как TSpeedButton со свойством Flat = True, причём, подсветка глючит. Придётся вручную прорисовывать или есть нечто стандартное?

← →
Gero © (2007-04-02 22:30) [1]

Ничего не понял, проиллюстрируй скриншотами.

← →
Nic (ro) (2007-04-02 22:57) [2]

http://onicolaev.narod.ru/the.JPG
Первое окно - это IE 6 - желаемый результат. Мышью навели на пункт меню он закрашен, если щёлкнуть по нему, и двигать мышью по раскрывшемуся меню, то главный пункт данного подменю всё равно закрашен.

Вторые два окна - это то, что имеем. Нводим мышью на пункт меню - смотрится красиво, но если щёлкнем по нему, аналогично предыдщему случаю, то выделение пропадает (третье окно). Кроме того, хочется, чтобы визуально это выделение было такием же как в IE 6.0. Все свойства уже перебрал. А свою прорисовку делать - как-то не хочется.

← →
Gero © (2007-04-02 22:59) [3]

Используй TMainMenu.

← →
Gero © (2007-04-02 23:00) [4]

То есть без всяких кулбаров и прочего мусора. Зачем они? Думаешь, есть хоть один человек которому непременно надо, чтобы меню размещалось внизу?

← →
Gero © (2007-04-02 23:01) [5]

Вобще имитация стандартных элементов управления — это крайне плохой подход.

← →
Nic (ro) (2007-04-03 09:33) [6]

Жаль, что никто не знает как справиться с сабжем. У ToolBar свойство menu := TMainMenu, то бишь обычное меню и используется, только косвенно.

> [6] Nic (ro) (03.04.07 09:33)
> У ToolBar свойство menu := TMainMenu

Сделай Form.Menu := MainMenu, а тулбар этот убери.

> то бишь обычное меню и используется, только косвенно.

Это не обычное меню, а имитация, хотя и VCL-вская.

Как сделать меню как в IE 6.0? Найти похожие ветки