Как в PopupMenu сделать пункт жирной WinAPI

← →
NikNet © (2005-05-13 20:19) [0]

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

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

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

← →
Delphi_is_cool © (2005-05-14 00:49) [1]

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

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

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

поставь 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;

Как в PopupMenu сделать пункт жирной WinAPI Найти похожие ветки