Цветные PopupMenu

← →
Пассажир бронепоезда (2004-12-17 16:49) [0]

Здраствуйте, Delphi - мастера. Не подскажите как можно поменять цвет фона у контекстного меню (PopupMenu) и как разместить на бэкграунде фоновую картинку.

Спасибо. Особо не напрягайтесь.

← →
grom (2004-12-17 18:54) [1]

procedure TForm1.MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
ACanvas.Brush.Style:=bsSolid;
ACanvas.Brush.Color:=clGray;
ACanvas.FillRect(Rect(ARect.left+13, ARect.Top, ARect.Right, ARect.Bottom));
ACanvas.Font.Style:=[fsBold];
ACanvas.Font.Color:=clWhite;
ACanvas.TextOut(14,ARect.Top+2," 44444 ");
end;
http://micsoft.narod.ru/help.html
Картинки в popupmenu

Цветные PopupMenu Найти похожие ветки