Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


ZPS ©   (2002-04-06 00:38:00) 

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


Atrem   (2002-04-06 19:51:00) [1]

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;


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

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


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

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.


Наверх

Титульная страница Поиск, карта сайта Написать письмо