XP Style и Standard

← →
wah © (2009-08-31 11:00) [0]

У ActionManager"a есть свойство Style с выбором между XP и Standard. Я пытался изменить его в run-time - не получилось. Возможно что-то не так делал. А реально ли это вообще? В сети мало инфы про это.
С ув.

← →
TIF © (2009-08-31 12:01) [1]

> есть свойство Style

Но влияет оно не на все компоненты, а только на Action Bar. См. справку:
http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/ActnMan_TActionManager_Style.html

Изменение стиля в run-time - возможно, но я без понятия как это реализовать :)
Можно подсмотреть в компонентах LMD: http://lmd.de

У них есть свойство, что-то вроде XPStyle, которое как раз позволяет выполнить этот трюк

← →
wah © (2009-08-31 14:46) [2]

> [1] TIF © (31.08.09 12:01)
> http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpda
> te2/EN/html/delphivclwin32/ActnMan_TActionManager_Style.html

Спасибо за наводку, нашел статейку на англ.: http://www.blong.com/Conferences/BorCon2003/Actions/6102.htm
Оказывается есть Demo в D7, лежит здесь:\Delphi7\Demos\ActionBands\WordPad.dpr

← →
wah © (2009-08-31 14:47) [3]

← →
TIF © (2009-09-01 17:43) [4]

> Оказывается есть Demo в D7, лежит здесь:\Delphi7\Demos\ActionBands\WordPad.dpr

Там много чего есть полезного и интересного :)
Так всё-таки что требовалось-то... Только для каких-то компонентов стиль поменять или для всех?

← →
wah © (2009-09-01 19:43) [5]

> [4] TIF © (01.09.09 17:43)
> Так всё-таки что требовалось-то... Только для каких-то компонентов
> стиль поменять или для всех?

Для всех. Оказалось как два пальца. Но это же знать надо, а я еще не очень.

← →
TIF © (2009-09-01 21:20) [6]

> Оказалось как два пальца.

Эм... И как? :)
А то я
> без понятия как это реализовать :)

> [6] TIF © (01.09.09 21:20)
> > без понятия как это реализовать :)

Все в \Delphi7\Demos\ActionBands\:
type StdStyleActn: TAction; XPStyleActn: TAction; ShadowActn: TAction; procedure TForm1.StdStyleActnExecute(Sender: TObject); begin ActionManager1.Style := StandardStyle; end; procedure TForm1.XPStyleActnExecute(Sender: TObject); begin ActionManager1.Style := XPStyle; end; procedure TForm1.FormCreate(Sender: TObject); begin XPStyleActn.Checked := ActionManager1.Style = XPStyle; StdStyleActn.Checked := ActionManager1.Style = StandardStyle; end;
Ставишь ActionManager, меню, тулбар.
Про ActionManager здесь http://www.interface.ru/home.asp?artId=8519

> Ставишь ActionManager, меню, тулбар.

Ну так всё-таки это же будет только для меню и тулбара? А не для ВСЕХ компонентов?

Если я обычную кнопку размещу на форме, на неё ведь эти переключения не повлияют? Или всё-таки повлияют...

Если не ошибаюсь, нужно подключение XPmanifest для отображения всех компонентов в стиле XP. Или имеется в виду run-time = designe-time?

XP Style и Standard Найти похожие ветки