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

Вниз

Произвольный цвет пункта меню в главном меню   Найти похожие ветки 

← →
sapsi   (2006-09-20 09:01) [0]

Добрый день.
Как получить доступ к свойствам font в заголовках в tmainmenu.items.
Т.е. менять шрифт, цвет и т.п. у текста в caption ?
Спасибо.

---

← →
Весь в делах   (2006-09-20 09:18) [1]

Или использовать компонент сторонний или самому рисовать

---

← →
ГореПрограмист   (2006-09-20 11:50) [2]

MainMenu.OwnerDraw:= true

procedure TForm1.Item1AdvancedDrawItem(Sender: TObject;
 ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
 if odHotLight in State then
 begin
  ACanvas.Brush.Color:=$EFD3C6;
  ACanvas.Pen.Color:=clBlack;
  ACanvas.Rectangle(ARect);
  ACanvas.Font.Color:=clRed;
 end
 else
 begin
  ACanvas.Brush.Color:=clBtnFace;
  ACanvas.FillRect(Rect(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom));
  ACanvas.Font.Color:= clBlack;
 end;
 ACa

---

← →
ГореПрограмист   (2006-09-20 11:52) [3]

nvas.TextOut(ARect.Left + 3, ARect.Top + 3, (Sender as TMenuItem).Caption);
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.054 c