Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
ВнизОтображение картинки в 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!
Это код написанный что ли на Си?
Мне нужно на Делфи. Я попробывал разобраться, но у меня не получается. Если можно, напишите для Делфи.
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.018 c