Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Margin и PopupMenu 


Evgeny   (2002-01-11 13:39) [0]

Хотелось бы нарисовать полоску в PopupMenu (как в кнопке пуск). Вроде все просто - лови WM_DRAWITEM и обрабатывай. Но это сообщение дает Rect на конкретный Item, а требуется узнать Rect на все меню. Поделитесь у кого есть соображения на сей счет. А может есть какие другие идеи.



nikkie   (2002-01-11 16:03) [1]

разрезать картинки на n кусочков (n - количество пунктов в меню). на WM_DRAWITEM отрисовывать соответствующую часть картинки.



Gennady   (2002-01-11 17:44) [2]

дай адрес, вышлю пример



Evgeny   (2002-01-12 07:28) [3]

>nikkie
Каким образом тогда узнать размеры пунктов MF_SEPARATOR



Evgeny   (2002-01-12 08:34) [4]

>Gennady
Afro@sibovk.omskcity.com



Igor_thief   (2002-01-14 19:53) [5]

Народ, а киньте и мне такой исходник. Буду очень благодарен.



nikkie   (2002-01-14 20:36) [6]

>Evgeny
вроде бы стандартно они такого же размера как и все остальные пункты меню.

но зачем их узнавать? ты на них собираешься рисовать? тогда они будут стиля MF_OWNERDRAW и их размер ты сам определишь на WM_MEASUREITEM.



Evgeny   (2002-01-15 14:40) [7]

>Gennady.
Спасибо. Пример получил, вечером поковыряю.

>nikkie.
Мои изыскания.
В MeasureItem увеличиваем ширину меню на размер полоски:

if lpmis.CtlType = ODT_MENU then
if MarginLeft > 0 then
inc(lpmis.itemWidth, MarginLeft + 1);

а в DrawItem можно отрисовать:

if lpdis.itemAction = ODA_DRAWENTIRE then
begin
GetClipBox(lpdis.hDC, MarginRect);
MarginRect.Right := MarginLeft;
FillBkGradient(lpdis.hDC, MarginRect, $808080, $000000, 32, flTop);
end;

Ну остались в принципе мелочи.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
1-43103           tovSuhov              2002-02-28 09:16  2002.03.14  
Каким компонентом можно реализовать вид как в Дельфях?


14-43152          Diana                 2002-01-29 21:42  2002.03.14  
Подскажите, что я не так делаю...


1-43101           Poirot                2002-02-28 07:43  2002.03.14  
Как в компонент ввести свойство типа Int4


14-43165          SV                    2002-01-30 13:34  2002.03.14  
Зухел connect...


14-43173          azik                  2002-01-30 13:56  2002.03.14  
Как запретить закрыть процесс программы по NT ?