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

Вниз

PopupMenu другого цвета   Найти похожие ветки 

 
mrald   (2004-09-11 22:40) [0]

Подскажите, пожалуйста, как изменить цвет PopupMenu? Дело в том, что у этого компонента (и ему подобных) нет механизмов для графической работы с окном объекта (такие как TCanvas). Тем не менее у некоторых типов PopupMenu есть возможность устанавливать клиентскую графическую область окна, но не всего, а только слева. Подскажите, может есть расширенный компонент. Или может я просто что-то пропустил?


 
Рыба ©   (2004-09-11 22:46) [1]

ставить OwnerDraw := True и обрабатывать OmMeasureItem/ OnDrawItem(OnAdvancedDrawItem).


 
тот же   (2004-09-12 09:53) [2]


procedure TForm1.FormCreate(Sender: TObject);
begin
PopupMenu1.OwnerDraw := true;
end;

procedure TForm1.N1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
 ARect: TRect; State: TOwnerDrawState);
begin
ACanvas.Font.Name := "Times New Roman";
   ACanvas.Font.Style := [fsbold];
   ACanvas.Font.Color:=clRed;
   ACanvas.Font.Size:=10;
   ACanvas.TextOut(1,1,"  Красный Item");
end;


 
DVM ©   (2004-09-12 12:25) [3]

Вот только рамку меню перерисовать путём не удасться под XP.



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

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
4-1090500944
Alexis
2004-07-22 16:55
2004.09.26
Диалог SelectDirectory с кнопкой-опцией "Make new folder"...


14-1094743978
X9
2004-09-09 19:32
2004.09.26
Организация локальной сети


14-1094729589
kand
2004-09-09 15:33
2004.09.26
Кто нить юзает MDaemon?


3-1093948257
SiJack
2004-08-31 14:30
2004.09.26
Возможно ли в Access физическое удаление записей?


1-1094995519
Marina
2004-09-12 17:25
2004.09.26
наследование от стандартного класса