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

Цвет "фона" Button и MainMenu, как поменять?   Найти похожие ветки 

← →
den.is ©   (2004-09-09 00:18) [0]

Решил разукрасить прогу, но ни как не могу изменить цвет кнопки (не текста, а фона). Тоже самое и с компонентом MainMenu.
Возможно ли это? Может кто подскажет?

ЗЫ: ни в Faq, ни в форуме этого не нашел =(

---

← →
Gero ©   (2004-09-09 00:20) [1]

Для button - писать наследника и рисовать самому, для TMainMenu - ставить OwnerDraw := True и обрабатывать OmMeasureItem/OnDrawItem(OnAdvancedDrawItem).

---

← →
wl   (2004-09-09 00:25) [2]

темы виндовз экспи рулят

---

← →
Gero ©   (2004-09-09 00:27) [3]

По отношению к меню - не рулят.

---

← →
Garfunkel   (2004-09-09 02:25) [4]

Но зато цвет фона есть у панелей. Ставишь их на форму (Form1), изменяешь размер чтобы были похожи на кнопки и у первой панели по событию MouseDown пишешь:
//-----------------------------------------
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
(Sender as TPanel).BevelInner:=bvLowered;
(Sender as TPanel).BevelOuter:=bvLowered;
end;
//------------------------------------------

и на событие MouseUp....

//------------------------------------------
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
(Sender as TPanel).BevelInner:=bvRaised;
(Sender as TPanel).BevelOuter:=bvRaised;
end;
//----------------------------------------------

Ну и остальным панелям-кнопкам ставишь тоже самое. Вот и все. Сойдет я думаю?

---

← →
den.is ©   (2004-09-09 23:03) [5]

Нда, пожалуй это проще чем писать наследника.

ЗЫ: всем спасибо.

---

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

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



Память: 0.46 MB
Время: 0.019 c