tscrollbox

← →
race1 © (2003-09-07 14:31) [0]

тут наблюдается небольшой глюк. имеем TScrollBox, и на этом боксе большую картинку (больше окна и бокса). картинку (TImage) задаём во время проектирования.

т.к. картинка больше боксА, то появляются скролы - и снизу и справа. теперь иы сдвигаем скролл (например, горизонтальный) и наводим мышку в левый верхний угол бокса. и такая строчка Caption := "X: " + IntToStr ( X ) в обработчике TScrollBox.OnMouseMove выдаёт 0! вместо сдвига скрола! должно быть больше 0!

притом картинка двигается! и если задать тот же код на обработчик картинки MouseMove, то на картинке координаты верные... это можно починить?

← →
Chris (2003-09-07 15:13) [1]

Caption := "X: " + IntToStr ( X + ScrollBox1.HorzScrollBar.Position)

← →
race1 © (2003-09-07 16:02) [2]

>Chris
да, так я и сам делаю, но мне интересно - это временниый глюк? если он потом пропадёт (т.е. всё будет правильно) то вся прога будет жутко касячить :(

← →
race1 © (2003-09-07 16:02) [3]

← →
Chris (2003-09-07 16:09) [4]

Ничего не понял из race1 © (07.09.03 16:02)...
Что значит "временный"? ИМХО, обработчик OnMouseMove выдает координаты мыши на канве, значит левый верхний угол всегда будет (0,0), независимо от величины прокрутки. А у твоего Image канва (точнее, Rect) больше, чем у ScrollBox"а, значит и результат выдает "правильный"

>Chris
ах да! точно, я и забыл :) спасибо, разобался!

tscrollbox Найти похожие ветки