Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как в PopupMenu сделать пункт жирной WinAPI [D6, Win2k, WinXP]


NikNet ©   (2005-05-13 20:19:00) 

Что там надо сделать что бы сделать пункт жирными буквами?

Ну вот в Firewall(Outpost) там на трее есть значок при щелчке правой кнопкой мыши
поевляется меню и самый верхний пунк он жирными буквами?

Я пробывал MF_DEFAULT в AddAppend но не чего не выделяется :(


KADAN   (2005-05-14 12:36:00) [1]

поставь OwnerDraw у попупа. потом у MenuItem обрабатывай событие OnDrawItem.

procedure TForm1.N1DrawItem(Sender: TObject;
 ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
 ACanvas.Font.Style := [fsBold];
 ACanvas.Font.color := clRed;
 ACanvas.FillRect(ARect);
 ACanvas.TextOut(ARect.Left + 5,ARect.Top,'Красно-жирный');
end;


Delphi_is_cool   (2005-05-14 00:56:00) [2]

Помоему я что то не то сказал ((((.


Delphi_is_cool   (2005-05-14 00:49:00) [3]

У каждой кнопки в меню есть свойство Default установи его значение True, и все.


Наверх

Титульная страница Поиск, карта сайта Написать письмо