Форум: "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.015 c
3-42916           ser_ker               2002-02-14 10:51  2002.03.14  
Как заставить программу работать через ODBC без BDE ?


3-42980           wdr                   2002-02-14 11:35  2002.03.14  
Проблемы с Cyrillic


3-42946           Люк                   2002-02-15 11:20  2002.03.14  
ADO в Delphi


3-42931           roottim               2002-02-14 16:55  2002.03.14  
список таблиц из аксеса


1-43055           KIR                   2002-02-26 13:02  2002.03.14  
Объединение нескольких ячеек StringGrid a