Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c