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

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

Произвольный цвет пункта меню в главном меню [D5, Win2k]

sapsi ©   (2006-09-20 09:01:00) 

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

---

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

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

---

ГореПрограмист   (2006-09-20 11:50:00) [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 09:18:00) [3]

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

---

Наверх