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

Помогите, кто знает!   Найти похожие ветки 

← →
Areat   (2006-11-07 22:26) [0]

Здраствуйте.
Помогите пожалуйсто разобраться с одной проблемой:
Делаю программу для просмотра изображений bmp и jpg.
компонент Image1 расположил внутри компонента ScrollBox1,
для того чтобы если свойсто AutoSize имеет значение True,
можно было рассмотреть весь рисунок(при этом появляются полосы прокрутки: справа и
слева).
Нужно сделать так , чтобы не касаясь полос прокрутки можно было рассмотреть весь рисунок,
если он выходит за пределы ScrollBox1.
То есть: "зажал" левой кнопкой мыши изображение и двигаешь его вверх, вниз,
влево, вправо внутри ScrollBox1 и смотришь любую часть изображения двигая его мышью.

---

← →
SamBrook ©   (2006-11-07 23:46) [1]

Я в таких случаях пользуюсь drag&drop.


type
TForm1 = class(TForm)
 private
    fDragStart: TPoint;
.......................................

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 fDragStart:=Point(X,Y);
 Image1.BeginDrag(false,3);
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
var deltaX,deltaY: integer;
begin
 deltaX:=x-fDragStart.X;
 deltaY:=Y-fDragStart.Y;

 with ScrollBox1 do begin
   HorzScrollBar.Position:=HorzScrollBar.Position-deltaX;
   VertScrollBar.Position:=VertScrollBar.Position-deltaY;
 end;
end;



---

← →
Ketmar ©   (2006-11-08 01:19) [2]

СЛЕВА?!

---

← →
SamBrook ©   (2006-11-08 02:13) [3]

> Ketmar ©   (08.11.06 01:19) [2]
> СЛЕВА?!

???

---

← →
Ketmar ©   (2006-11-08 02:19) [4]

>[0] Areat 7-Nov-2006, 22:26
>(при этом появляются полосы прокрутки: справа и слева).
выделение моё. %-)

---

← →
SamBrook ©   (2006-11-08 02:36) [5]

У стандартного tScrollbox не бывает полосы прокрутки слева.

---

← →
Ketmar ©   (2006-11-08 10:52) [6]

>[5] SamBrook(c) 8-Nov-2006, 02:36
>У стандартного tScrollbox не бывает полосы прокрутки слева.
так вот мне и интересно, откуда она взялась у автора. %-)

---

← →
Areat   (2006-11-08 11:51) [7]

Все получилось, спасибо большое за побробный ответ,

Полоса справа- я описался, торопился.

---

← →
antonn ©   (2006-11-08 21:57) [8]

Areat   (08.11.06 11:51) [7]
Полоса справа- я описался, торопился.
не добежал? %)

---

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

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



Память: 0.46 MB
Время: 0.025 c