Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Вниз

Цветные 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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.033 c