Цвет "фона" 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;
//----------------------------------------------

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

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

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

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