ToolButton. Выпадающий список и checked
Никто не пробовал сделать на ToolBar'е кнопку с выпадающим списком, которая еще и Down отрабатывает?
В дезайн-тайме получилось - выставил стиль в tbsDropDown, выставил свойство Down(типа вместо checked'a) и рисуется как надо...
НО
при запуске, после одного нажатия на эту кнопку, она отжимается и дальше себя ведет как обычная кнопка с dropDown'ом, никакой фиксации нет и в помине :(
помогите примирить два стиля, а то обидно даже (
В дезайн-тайме получилось - выставил стиль в tbsDropDown, выставил свойство Down(типа вместо checked'a) и рисуется как надо...
НО
при запуске, после одного нажатия на эту кнопку, она отжимается и дальше себя ведет как обычная кнопка с dropDown'ом, никакой фиксации нет и в помине :(
помогите примирить два стиля, а то обидно даже (
Цитата:
Originally posted by molnij
Никто не пробовал сделать на ToolBar'е кнопку с выпадающим списком, которая еще и Down отрабатывает?
В дезайн-тайме получилось - выставил стиль в tbsDropDown, выставил свойство Down(типа вместо checked'a) и рисуется как надо...
НО
при запуске, после одного нажатия на эту кнопку, она отжимается и дальше себя ведет как обычная кнопка с dropDown'ом, никакой фиксации нет и в помине :(
помогите примирить два стиля, а то обидно даже (
Никто не пробовал сделать на ToolBar'е кнопку с выпадающим списком, которая еще и Down отрабатывает?
В дезайн-тайме получилось - выставил стиль в tbsDropDown, выставил свойство Down(типа вместо checked'a) и рисуется как надо...
НО
при запуске, после одного нажатия на эту кнопку, она отжимается и дальше себя ведет как обычная кнопка с dropDown'ом, никакой фиксации нет и в помине :(
помогите примирить два стиля, а то обидно даже (
Напиши свой компонентик на основе TGraphicControl...
Цитата:
Originally posted by verybadbug
Напиши свой компонентик на основе TGraphicControl...
Напиши свой компонентик на основе TGraphicControl...
Или проще создай рядомстоящие 2 кнопы,для одной нарисуй битмап треугольнока,а 2 как хош(Если конечно не пользуешься скинами закругленными кнопами и тд
const
wm_tlbtnShowClosedClicked = WM_USER + 100;
TMyfrm = class(TForm)
.....
private
procedure tlbtnShowClosedClicked(var Msg :TMessage); message wm_tlbtnShowClosedClicked;
end
procedure TMyfrm.tlbtnShowClosedClicked(var Msg: TMessage);
begin
tlbtnShowClosed.Down := (tlbtnShowClosed.Action as TAction).Checked;
end;
wm_tlbtnShowClosedClicked = WM_USER + 100;
TMyfrm = class(TForm)
.....
private
procedure tlbtnShowClosedClicked(var Msg :TMessage); message wm_tlbtnShowClosedClicked;
end
procedure TMyfrm.tlbtnShowClosedClicked(var Msg: TMessage);
begin
tlbtnShowClosed.Down := (tlbtnShowClosed.Action as TAction).Checked;
end;