Вниз
Скачать: CL | DM;

Координаты кнопок на Toolbar   Найти похожие ветки 

 
NewN ©   (2003-05-06 12:54) [0]

Добрый день уважаемые мастера!
Можно ли как нибудь определить/(или как правильно посчитать) координату правой границы последней кнопки на Toolbar? (Хочу поместить свой элемент управления непосредственно после.)


 
Игорь Шевченко ©   (2003-05-06 15:35) [1]

Для своего приложения ?


 
NewN ©   (2003-05-06 15:45) [2]

Да, конечно, мне чужого не надо.


 
Игорь Шевченко ©   (2003-05-06 17:32) [3]

var
LastButton : TControl;
begin
LastButton := ToolBar1.Buttons[Pred(ToolBar1.ButtonCount)];
{ Left и Top LastButton будут координатами }
end;

если VCL не используется, то поглядеть по исходникам, во что преобразуются вызовы методов Toolbar.


 
NewN ©   (2003-05-07 08:46) [4]

VCL не используется. Как же мог опять забыть про исходники VCL!
Сильно запутанно и накручено, но вот что удалось выяснить -

TToolButton = class(TGraphicControl), с перекрытыми методами Paint, MouseDown, MouseMove, MouseUp. TToolButton из VCL сама отрисовывается в методе TToolButton.Paint, сама следит за мышкой, а координаты расчитываются в зависимости от индекса, и её положение на ToolBar скорее всего не соответствует положению реальной кнопки из Windows. Я понял, что в общем случае узнать координаты и размер кнопки на ToolBar невозможно, если конечно нет для этого недокументированных сообщений. Жаль.


 
nikkie ©   (2003-05-07 14:59) [5]

TB_GETITEMRECT


 
NewN ©   (2003-05-07 16:02) [6]

>>nikkie © (07.05.03 14:59)
Большое спасибо, как я сам его пропустил, ведь смотрел, несколько раз проходил глазами по этим TB_...! В следующий раз буду внимательнее.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
14-20218
Malder
2003-06-21 21:59
2003.07.07
Хочу поделиться ссылкой на мультики ::-)


14-20247
Bland
2003-06-19 21:44
2003.07.07
Инстолятор на delphi


1-20080
maxon
2003-06-24 11:15
2003.07.07
ждать завершение процедуры


1-20092
korvet
2003-06-24 09:49
2003.07.07
Тмемо и 64 кб


14-20274
Yakudza
2003-06-18 14:45
2003.07.07
MIME multipart/mixed




   Наверх