Отображение картинки в TImage так, как она отображается в ACDSee

← →
Z_man7777 (2003-03-29 07:33) [0]

Здравствуйте, уважаемые Мастера!!!
Есть проблемка.
Нужно сделать отображение картинки в TImage так, как картинка отображается в ACDSee, то есть, если не видна какая-то часть изображения, есть возможность захватить изображение курсором, и ведя курсором во то или иное напраправление, на экране отображается ранее закрытая часть изображения. Также сделано в Acrobat Reader.
Очень нужно!
Всем заранее спасибо !!!

← →
Builder (2003-03-29 17:57) [1]

Обрабатывай OnMouseDown

Часть кода на <name> ниже:

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
move = true;
POINT I = {X,Y};
XY = Image1->ClientToScreen(I);
}
//---------------------------------------------------------------void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
move = false;
}
//---------------------------------------------------------------void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (move)
{
POINT I = {X,Y}, II;
II = Image1->ClientToScreen(I);
Form1->VertScrollBar->Position -= II.y - XY.y;
Form1->HorzScrollBar->Position -= II.x - XY.x;
XY = II;
Form1->Caption = IntToStr(XY.x) + " " + IntToStr(XY.y);
};
}
//---------------------------------------------------------------

← →
Z_man7777 (2003-03-31 06:01) [2]

!Builder!

Это код написанный что ли на Си?
Мне нужно на Делфи. Я попробывал разобраться, но у меня не получается. Если можно, напишите для Делфи.
Спасибо.

Отображение картинки в TImage так, как она отображается в ACDSee Найти похожие ветки