Цвет TMineMenu

@Vlad_IT · Регистрация: 03.04.2010

Author24 — интернет-сервис помощи студентам

Доброй ночи! Приношу свои извинения за такой вопрос.

Но все же. Как сменить полностью цвет панели например на clRed?

@MikeSoft · 04.01.2011, 02:15

doocee, "одним кликом" сделать данное действие не получится.
Необходимо выполнять полную перерисовку руками.

Приведу самый простенький пример. У компонента класса TMainMenu устанавливаем свойство OwnerDraw в true. После чего, добавляем необходимые пункты меню. Допустим, один из пунктов будет иметь имя "File". Переходим к событиям данного пункта и "обрабатываем" событие OnDrawItem. Обработчик будет иметь следующий вид:

C++

void __fastcall TForm1::FileDrawItem(TObject *Sender, TCanvas *ACanvas, TRect &ARect,
                    bool Selected)
{
  TMenuItem *CurrentMenuItem = dynamic_cast <TMenuItem *> (Sender);
  if (CurrentMenuItem) {
    ACanvas->Brush->Color = clRed;
    ACanvas->Rectangle(ARect);
    ACanvas->TextOutW(ARect.Left+3,ARect.Top+3,CurrentMenuItem->Caption);
  }
}

Дальнейшие ухищрения зависят только от вашей фантазии ...

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
		1
	Цвет TMineMenu 04.01.2011, 01:29. Показов 1513. Ответов 1 Метки нет (Все метки) Доброй ночи! Приношу свои извинения за такой вопрос. Но все же. Как сменить полностью цвет панели например на clRed? 0

	04.01.2011, 02:15

Цвет TMineMenu

Решение