Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
ВнизЦвет "фона" 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.069 c