Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Движение Image, Builder C++ 
:(
    Опции темы
Evgesha
  Дата 12.11.2006, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Проблема такая, на форме лежит Панел, на ней лежит Имдже. Имадже положил на Панель чтоб не моргала
Как при перемещении Панели изменялись СкролБары на СкролБоксе.  smile 
Код

void __fastcall TAnsichtForm::AnsichtImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  bMove = true;
  oldx = X; oldy = Y;
}
//---------------------------------------------------------------------------
void __fastcall TAnsichtForm::AnsichtImageMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
if(bMove)
   {
    ReleaseCapture();
    Panel1->Perform(WM_SYSCOMMAND, 0xF012, 0);
   }
}

//---------------------------------------------------------------------------
void __fastcall TAnsichtForm::AnsichtImageMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  bMove = false;
}
//---------------------------------------------------------------------------


Помогите буду очень признателен 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Rodman
Дата 13.11.2006, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
а нельзя ли просто делать видимым и ноборот????

Это сообщение отредактировал(а) Rodman - 13.11.2006, 19:22


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Evgesha
Дата 13.11.2006, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Нет так не пойдет
Мне надо двигать
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Alexeis
Дата 13.11.2006, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 26
Всего: 459
Цитата(Evgesha @  12.11.2006,  12:10 Найти цитируемый пост)
Имадже положил на Панель чтоб не моргала

Может стоило просто в конструкторе формы написать 
DoubleBuffered = true; ? тогда бы не мигала...


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
a_n_d_y
Дата 13.11.2006, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1
Напиши при сзодании формы (OnCreate)
Код

DoubleBuffered = true;
PM MAIL ICQ Skype MSN   Вверх
Evgesha
Дата 14.11.2006, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Да прочтите вы вопрос правильно у меня проблема не в моргании 
А в скролбоксе  smile 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 15.11.2006, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Неужели никто не сталкивался с проблемой
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 18.11.2006, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Обидно до слез
Ни кто не знает чтоли
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
586
Дата 19.11.2006, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146
первое, что пришло в голову:
Код
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(bMove)
 {
  ReleaseCapture();
  Panel1->Perform(WM_SYSCOMMAND, 0xF012, 0);
  SendMessage(Panel1->Handle, WM_SIZE, 0, 0);
 }
}

Подойдет?
PM   Вверх
Evgesha
Дата 19.11.2006, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Я наверное вопрос не правильно поставил
С движением у меня все нормально. Не получаеться скролеры расчитать в сролбоксе
Ну например когда я имадже увеличиваю в два раза. Чтоб когда мышкой панель таскаю скролеры соответсвено двигались
Ну надеюсь теперь нормально разеснил
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
586
Дата 19.11.2006, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146
Когда рисунок зайдет за границу скролл бокса, скроллеры изменятся.
Сообщение WM_SIZE дает понять скроллбоксу, что панель изменила свои размеры => изменяет скролл бары.
PM   Вверх
Evgesha
Дата 21.11.2006, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Да ноя хачу ИМАДЖЕ двигать мышкой и чтоб Скролбары двигались тоже, а вот как это зделать не догоняю  smile 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 24.11.2006, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
вот блин неужели никто не делал помогите пожайлуста  smile 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
pandrew
Дата 24.11.2006, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 3
Всего: 3
Цитата(Evgesha)
вот блин неужели никто не делал помогите пожайлуста

Ты объясни повнятней, а то я также как 586 не врубаюсь, в чем у тебя проблема.
PM MAIL   Вверх
586
Дата 24.11.2006, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146
Цитата(pandrew @  24.11.2006,  16:12 Найти цитируемый пост)
Ты объясни повнятней, а то я также как 586 не врубаюсь, в чем у тебя проблема.

Да я то врубаюсь, в чем проблема. Сейчас скроллбары изменяются, если кнопка мыши будет отпущена. А он хочет, чтобы во время передвижение (когда кнопка мыши нажата) скроллбары изменялись. Во время передвижения просто не проходит сообщение WM_SIZE.

Можно воспользоваться старым дедушкиным способом (спёр из книги Архангельского):
Код

bool bMove=false;
int x, y;
TRect r;

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 bMove=true;
 //::SetCapture(Panel1->Handle);    // блокировка фокуса

 // ограничение подвижности курсора
 //RECT r;
 //GetWindowRect(ScrollBox1->Handle, &r);
 //ClipCursor(&r);
 x=X; y=Y;
}

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(!bMove) return;
 r=Panel1->BoundsRect;
 r.Left+=X-x;  r.Right+=X-x;
 r.Top+=Y-y;   r.Bottom+=Y-y;
 Panel1->BoundsRect=r;
}

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 bMove=false;
 //::ReleaseCapture();     // освобождение фокуса

 // освобождение подвижности курсора
 //ClipCursor(0);
}


Это сообщение отредактировал(а) 586 - 24.11.2006, 17:23
PM   Вверх
mr.Anderson
Дата 24.11.2006, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128
586, работает, только вопрос: как ограничить перемещение объекта так, чтобы его нельзя было "вынести" за пределы формы?


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
586
Дата 24.11.2006, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146
Цитата(sim7 @  24.11.2006,  19:51 Найти цитируемый пост)
как ограничить перемещение объекта так, чтобы его нельзя было "вынести" за пределы формы?

В комментариях этот код есть. Смотри внимательно!
PM   Вверх
mr.Anderson
Дата 24.11.2006, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128
я его вроде включал...

Добавлено @ 20:31 
Нету там этого кода. Весь код раскомментировал, все это приводит только к тому, что панель можно передвигать только в пределах где-то 150 пикселов от границ панели, а за пределы формы ее все равно можно вынести.
Вот что у меня:
Код

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x,y;
TRect r;
bool bMove = false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 bMove=true;
 ::SetCapture(Panel1->Handle);    // áëîêèðîâêà ôîêóñà
 // îãðàíè÷åíèå ïîäâèæíîñòè êóðñîðà
 RECT r;
 GetWindowRect(Panel1->Handle, &r);
 ClipCursor(&r);
 x=X; y=Y;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(!bMove) return;
 r=Panel1->BoundsRect;
 r.Left+=X-x;  r.Right+=X-x;
 r.Top+=Y-y;   r.Bottom+=Y-y;
 Panel1->BoundsRect=r;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 bMove=false;
 ::ReleaseCapture();     // îñâîáîæäåíèå ôîêóñà
 // îñâîáîæäåíèå ïîäâèæíîñòè êóðñîðà
 ClipCursor(0);
}
//---------------------------------------------------------------------------



--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
586
Дата 24.11.2006, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146
Цитата(sim7 @  24.11.2006,  21:27 Найти цитируемый пост)
GetWindowRect(Panel1->Handle, &r);

GetWindowRect(ScrollBox1->Handle, &r);
Мы ведь ограничиваем передещение курсора в пределах ScrollBox1, не так-ли?

Здесь вообще идёт речь не об окне,  а об ScrollBox'е.

Для формы, которая имеет заголовок будет примерно так:
Код
int x,y;
TRect r;
bool bMove = false;

void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 bMove=true;
 ::SetCapture(Panel1->Handle);    // aeiee?iaea oieona
 RECT r;
 GetWindowRect(Handle, &r);
 r.left+=GetSystemMetrics(SM_CYDLGFRAME)+1;
 r.right-=GetSystemMetrics(SM_CYDLGFRAME)+1;
 r.top+=GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CXDLGFRAME)+1;
 r.bottom-=GetSystemMetrics(SM_CXDLGFRAME)+1;
 ClipCursor(&r);
 x=X; y=Y;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(!bMove) return;
 // исправляю ляп Архангельского
 Panel1->Left+=X-x;
 Panel1->Top+=Y-y;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 bMove=false;
 ::ReleaseCapture();
 ClipCursor(0);
}


Это сообщение отредактировал(а) 586 - 24.11.2006, 21:57
PM   Вверх
Evgesha
Дата 25.11.2006, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Спасибо ОПЫТНОМУ отдельная благодарность за рабочий код, но есть еще один ньюанс
когда скажем движем Панель или вверх или влево скролбары не показываються вообще
вниз и вправо работает отлично, попробую сам разобраться, но если у кого есть идее буду благодарен  smile 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 28.11.2006, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Ну вот опять загруз
Что никто ни сталкивался что ли  smile 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 1.12.2006, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Повторюсь Помогите с проблемой  smile  smile  smile 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0707 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.