Пока что есть только один контрол - меню, который вобщем то готов на 50 - 60 %.
Просьба протестировать менюшку (может у кого ещё стоит 98 винда то под ней). Интересно любое мнение. Что ещё реализовать, что изменить, дороботать.
---------------------------------------------

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

Прикрепляю архив с примерами к библиотеке. Он слишком большой что бы его поместить в одном сообщении, поэтому архив разделён на 2 части, их надо соединить.


_960506490__XXMenu.part1.rar

2 часть архива.

_438180138__XXMenu.part2.rar

Как и следовало ожидать 98-я повисла от перерасхода ресурсов, особенно на SDI ;-) на других тоже падала..
Стиль XP у тебя немного не такой как у той же Delphi7 у её IDE.

Chib777
В 2к СП4 все прекрасно работает. Мне нравится.
Тебе Эд говорил, что я жаждю помочь? Я в принципе все еще жаждю. :)

Если есть утечка ресурсов, значит где-то недоработано. Я тоже когда-то делал менюшный контрол и у меня в 98й была утечка при помещении битмапа на фон окна меню, но я его давно забросил, даже не знаю, когда буду исправлять.

Однозначно исправляй.

Asterix
Toxic

Спсибо! Вроде исправил. До настоящего стиля XP ой как далеко. Пока что оно только плоское. Это плохой вариант, я здесь выложил.

Кому срочно нужен будет стабильный вариант библы пишите на мыло.

n0p

Отлично! Я тебе через пару деньков напишу.

Есть не то что бы проблема непонятка так сказать.

Я при оброботке DRAWITEM создаю кисточки, так вот самые первые кисточки не удаляються (при первом проходе), хотя DeleteObject, говорит что всё ОК. Таким образом за приложением висит 8 кисточек, даже если меню не активно. Проблемы вобщемто не сильная так как потом кисти удаляються стабильно. Может это вовсе и не баг?

Хмм.. ОвнерДровом не занимался, похоже, зря.. :) Надо почитать, помучать..

Chib777
Вроде, должно все удаляться.

hBrush = CreateSolidBrush(SomeColor);
hOldBrush = SelectObject(hDC, hBrush);
...
...
DeleteObject(SelectObject(hDC, hOldBrush));

Toxic

Спасибо так и делаю. Парадокс.

Asterix
Toxic
n0p
Может посмотрите последний вариант, у меня вроде не глючит. Спасибо.


1537825095__XXMenu.zip

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

Chib777
Небольшой глюк в режиме Office 2000/XP - ты не предусмотрел антиалиасинг шрифтов системой.
Когда рисуешь нажатый пункт главного меню(режим XP) или любой задизабленый пункт любого меню(режим 2000/XP), то тебе надо сделать либо FillRect цветом фона, либо SetBkMode(hdc, OPAQUE)+SetBkColor(hdc, цвет_фона) перед прорисовкой таких пунктов.

Вот, кстати, скриншот того ActiveX, который с меню работает. Я его писал на основе примера CoolMenu(еще в те времена, когда начинал осваивать VB).

1278213012__shot.jpg

Chib777
И еще вот: в режиме OfficeXP при переходе по пунктам главного меню: при выборе нового пункта в старом не закрашиваются 2 пиксела(в самом низу по бокам).
Очевидно, следует расширить горизонтальные границы при очистке(dec rect.left, inc rect.right).

Chib777
Уже давно в win-программах пункт главного меню реагирует на появление курсора мышки над ним. OfficeXP не является исключением.