ScrollBox
1 отговора
65 прегледа
ScrollBox
Как може да се направи съдържанието на ScrollBox да се превърта без да се използват плъзгачите на ScrollBar-a , а с клик на мишката върху съдържанието на ScrollBox-a и движение на горе или надолу да се придвижва(съдържанието) в желаната посока, като ScrollBar-a да отразява текущата позиция.Нещо подобно като в Acrobat Reader.
10x
10x
Трябва да е много лесно :)
Трябва да е много лесно :)
Например:
1. Слагаш Image1 (tImage), СкролБокса (размерите на Image1 трябва да са по- големи :))
2. Прехващаш MouseMove на скролбокса и манипулираш Имаге1.Лефт и Топ, в зависимост от положението на мишката:
Image1.Top:=-(Image1.Height-ScrollBox1.Height)*Y/ScrollBox1.Height;
Това по-горе установява:
a) при Y=0, т.е. когато мишката е най-горе:
Image1.Top:=0;
b) при Y=ScrollBox1.Top, т.е. когато мишката е най-долу:
Image1.Top:=-(Image1.Height-ScrollBox1.Height);
По X е аналогично.
Razbira se, ne sym go probwal
Например:
1. Слагаш Image1 (tImage), СкролБокса (размерите на Image1 трябва да са по- големи :))
2. Прехващаш MouseMove на скролбокса и манипулираш Имаге1.Лефт и Топ, в зависимост от положението на мишката:
Image1.Top:=-(Image1.Height-ScrollBox1.Height)*Y/ScrollBox1.Height;
Това по-горе установява:
a) при Y=0, т.е. когато мишката е най-горе:
Image1.Top:=0;
b) при Y=ScrollBox1.Top, т.е. когато мишката е най-долу:
Image1.Top:=-(Image1.Height-ScrollBox1.Height);
По X е аналогично.
Razbira se, ne sym go probwal
Редактирано от NikB на