PopupMenu1 - поменять цвет ?

← →
ZPS (2002-04-06 00:38) [0]

Подскажите пожалуйста, возможноли поменять цвет PopupMenu.
У меня вся форма + кнопки черные, с рисунками, этот PopupMenu серый :(

← →
Вася Пупкин (2002-04-06 00:58) [1]

property OwnerDraw: Boolean;

Set OwnerDraw to True to indicate that the application will draw menu items in an OnDrawItem event handler. When OwnerDraw is True, menu items receive an OnMeasureItem and an OnDrawItem event when they need to be rendered on screen.

← →
ZPS (2002-04-06 16:17) [2]

Не получается :(
Ставлю true - менюшка становится узкой (под ширину надписей) и всё. Цвет остался тотже.

← →
Atrem (2002-04-06 19:51) [3]

2 ZPS
А рисовать кто за тебя будет?
Отрисовывать придется вручную, на событии DrawItem нужной тебе строчки,например:

procedure TForm1.N21DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
ACanvas.Brush.Color:=clRed;
ACanvas.FillRect(ARect);
ACanvas.TextOut(ARect.Left +2,ARect.Top+2,"My menu item");
end;

PopupMenu1 - поменять цвет ? Найти похожие ветки