![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как в 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, и все.