Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.02;
Скачать: CL | DM;

Вниз

Цветные 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.026 c
6-1097763049
alex732
2004-10-14 18:10
2005.01.02
TIdEMailAddressItem ???


1-1103163129
aksacal
2004-12-16 05:12
2005.01.02
Сканирование папки на предмет появления в ней файла.


1-1103193641
Petrovich2004
2004-12-16 13:40
2005.01.02
Почему Delphi может тормозить систему


1-1103287960
Mate_ru
2004-12-17 15:52
2005.01.02
Image


1-1103146076
tih
2004-12-16 00:27
2005.01.02
общие вопросы