VPF::Работа с изображениями в С++ Builder

LionMdS

Дата 28.3.2009, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 28.3.2009

Репутация: нет
Всего: нет

Вопрос звучит следующим образом:

Есть форма, на ней карта разрешения 15000х12000.
Просматривать можно с помощью ScrollBar.
Как обработать функцию OnMouseDown, чтобы можно было осуществлять навигацию с помощью мыши???

Заранее благодарю!

CaLaT

Дата 28.3.2009, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 29.6.2008
Где: Город родной - Пи тер я твой!

Репутация: нет
Всего: нет

Попробуй сделать флаг на ОнМаусДаун, а само перемещение на ОнМаусМув

LionMdS

Дата 28.3.2009, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 28.3.2009

Репутация: нет
Всего: нет

Каким способом???
SC_DRAGMOVE = 0xF012 таскает всю форму.

CaLaT

Дата 28.3.2009, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Слушай, ну самое тупое что пришло в голову:

Код


bool Lock;
POINT thisPoint, pressedPoint, imgDefaultPos;
...
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
                GetCursorPos(&pressedPoint);
                Lock=true;
                imgDefaultPos.y=Image1->Top;
                imgDefaultPos.x=Image1->Left;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
                Lock=false;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        if(Lock)
        {
        GetCursorPos(&thisPoint);
        Image1->Left=imgDefaultPos.x+thisPoint.x-pressedPoint.x;
        Image1->Top=imgDefaultPos.y+thisPoint.y-pressedPoint.y;
        }
}
//---------------------------------------------------------------------------

Я думаю, ща люди что-нибудь более дельное посоветуют)

Это сообщение отредактировал(а) CaLaT - 28.3.2009, 22:57

CaLaT

Дата 29.3.2009, 09:02 (ссылка)

(нет голосов)

Загрузка ...

Или вот еще универсальный способ вспомнил, только здесь при нажатии альт и клике реализованно

Код


void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 Panel1->OnMouseDown(Panel1, Button, Shift, X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Shift.Contains(ssAlt))
 {
  ReleaseCapture();
  ((TControl *)Sender)->Perform(WM_SYSCOMMAND,0xF012, 0);
 }
}

Image Расположен на Panel

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »