1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #pragma hdrstop 6 7 #include "Unit1.h" 8 //--------------------------------------------------------------------------- 9 #pragma package(smart_init) 10 #pragma resource "*.dfm" 11 TForm1 *Form1; 12 TPoint FLastDown; 13 //--------------------------------------------------------------------------- 14 __fastcall TForm1::TForm1(TComponent* Owner) 15 : TForm(Owner) 16 { 17 } 18 //--------------------------------------------------------------------------- 19 20 void __fastcall TForm1::Image1MouseDown(TObject *Sender, 21 TMouseButton Button, TShiftState Shift, int X, int Y) 22 { 23 GetCursorPos(&FLastDown); 24 } 25 //--------------------------------------------------------------------------- 26 void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, 27 TShiftState Shift, int X, int Y) 28 { 29 FLastDown = Point(-1, -1); 30 } 31 //--------------------------------------------------------------------------- 32 void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, 33 int X, int Y) 34 { 35 TPoint pt; 36 37 if (Shift.Contains(ssLeft) && (FLastDown.x >= 0)){ 38 39 GetCursorPos(&pt); 40 ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position + 41 FLastDown.y - pt.y; 42 ScrollBox1->HorzScrollBar->Position = ScrollBox1->HorzScrollBar->Position + 43 FLastDown.x - pt.x; 44 FLastDown = pt; 45 } 46 47 } 48 //---------------------------------------------------------------------------