mdid
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору LadyOfWood спасибо, вроде оно в общем дошли наконец руки попробовать. Но тут косяк образовался. создаю класс Код: TssBottomButton=class(TdxBarButton) protected procedure WidthChanged; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property Width default 0; end; constructor TssBottomButton.Create(AOwner: TComponent); begin inherited Create(AOwner); dxBarRegisterItem(TssBottomButton, TdxBarButtonControl, false); FShowCaption := True; PaintStyle:=psCaption; end; destructor TssBottomButton.Destroy; begin dxBarUnregisterItem(TssBottomButton); inherited; end; procedure TssBottomButton.WidthChanged; begin UpdateEx; end; | батон выводится, и все норм, а вот ширину он так и не режет. Меня сегодня не хило задолбали, поэтому исключать тот факт, что я крепко туплю нельзя. Пните где ошибся? и в WidthChanged попадает. решил проблему перегрузкой Код: procedure TssBottomButton.CaptionChanged; var tmp : String; begin inherited; if length(caption)>20 then begin tmp:=caption; caption:=copy(tmp,1,17)+'...'; hint:=tmp; end; end; | вот бы еще как то умудриться словить нажатие пкм, а то сообщения не срабатывают, а глобальный хук возвращает 0(( | Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 16:42 19-04-2013 | Исправлено: mdid, 17:25 19-04-2013 |
|