Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2682121 Sun, 29 Aug 2010 09:46:46 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2682121 Я пишу программу, подобную на графический редактор. Подобную, потому что она для узких целей - с ней можно рисовать схемы оригами.
Вобщем появилась у меня идея реализовать инструмент "Рука", как во многих редакторах.
Обрабатывал события мыши у Image, размещённым в ScrollBox.
Привожу часть кода, т.к. кода много.
    procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftstate; X, Y: integer);
    begin
      last_x := x;
      last_y := y;
    end;
     
    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftstate;
      X, Y: integer);
    begin
      ScrollBox1.ScrollBy(X-Last_x,Y-Last_y);
    end;

Однако это приводит к тому, что изображение можно переместить как угодно, мне же нужно, чтобы оно "закреплялось" на границах, чтобы его нельзя было дальше перемещать. Пробовал добавлять в обработчик MouseMove:
      if ((Image1.Left>=0) and (X>Last_X)) then
        begin
          Image1.Left := 0;
          Last_X := X;
          exit;
        end;
        if ((Image1.Top>=0) and (Y>Last_Y)) then
        begin
          Image1.Top := 0;
          Last_Y := Y;
          exit;
        end;

Проблема решилась (слева и сверху, снизу и справа похожее сделал), но при перемещении, если достигнуты края, изображение стало "подрагивать". Нашёл эту тему как решение. Установил компонент, но теперь другая проблема: изображение не перемещается после установки ImageDrag в true (по умолчанию отключено, т.к. я рисую на изображении и перемещение мне без выбранного инструмента ни к чему).
Компоненту Box.Image присваиваю события мыши (Down, Move, Up). При создании формы устанавливаю значения box.Image.Width, box.Image.Height, box.Image.Picture.Bitmap.Width, box.Image.Picture.Bitmap.Height, и произвожу заливку. В принципе больше ничего такого страшного не произвожу, как мне кажется. Но после выбора инструмента перемещения само перемещение не происходит. Даже курсор не изменяется.
Помогите мне, пожалуйста, как сладить с этой проблемой. Или может быть, получится обойтись без компонента? Быть может вы подскажете мне, неопытному, что следует писать в MouseDown, Move и Up, чтобы получилось так, как у вас, без "передрагиваний", так чтобы изображение чётко останавливалось при достижении границ?

Пытался искать на форуме решение этой проблемы, и нашёл только эту тему, как более актуальную. Прошу прощение за поднятие старой темы.
Буду признателен даже за совет или намёк...]]> Nightmareterrible Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2111078 Sun, 09 Nov 2008 22:24:03 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2111078 psp пишет, что внутри файл ... просмотри ее как папку и будет чудо ... ;)]]> andrew.virus Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2111068 Sun, 09 Nov 2008 21:34:46 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2111068 Цитата andrew.virus @
psp все нормально работает, а какая у тебя проблема возникла ...

Не распаковывается нормально...]]> psp Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2110160 Sat, 08 Nov 2008 06:13:34 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2110160 psp все нормально работает, а какая у тебя проблема возникла ...]]> andrew.virus Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2109993 Fri, 07 Nov 2008 19:40:54 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2109993 Цитата andrew.virus @
psp посмотри этот вариант, помоему в нем работает то что нужно тебе ...

Что то этот файл не скачивается ..хотел опять скачать..]]> psp Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2098255 Thu, 23 Oct 2008 21:32:20 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2098255 psp посмотри этот вариант, помоему в нем работает то что нужно тебе ...]]> andrew.virus Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2098248 Thu, 23 Oct 2008 21:19:18 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2098248 Цитата AlexeyT @
Да, надо обрабатывать OnClick. Поправил.
Теперь фокусируется, клавиши/колесо работают.

А исправленный код есть?]]> psp Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2088074 Sat, 11 Oct 2008 17:55:01 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=2088074 migur1 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1469546 Thu, 01 Mar 2007 08:31:02 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1469546 Цитата AlexeyT @
А что предлагаете делать для такого случая? Как масштабировать.

В таком гибридном компоненте трудно что-то сделать. Разве что придумать какую-то хитрую отрисовку TImage. А именно отрисовывать в TImage только видимую на данный момент область компонента.

Тему перенес в специальный раздел. В соответствии с правилами данного раздела прошу прикрепить исходники компонента в первом сообщении. Если не помещается, можно без исполняемого файла.]]> Smike Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468730 Wed, 28 Feb 2007 14:42:12 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468730 Smike
А что предлагаете делать для такого случая? Как масштабировать.]]> AlexeyT Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468666 Wed, 28 Feb 2007 13:53:18 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468666 Цитата AlexeyT @
На больших - это на каких? У меня есть 1600*1200 - вроде масштабируется мгновенно.
Вот есть 7200*7200 - на нем да, тормозит.

2976*1952]]> Smike Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468644 Wed, 28 Feb 2007 13:38:03 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468644 Smike
Цитата Smike @
Посмотрел. При использовании масштабирования такой симбиоз не годится... Изображение перемасштабируются каждый раз при скроллинге, что приводит к чудовищным тормозам на больших изображениях.


На больших - это на каких? У меня есть 1600*1200 - вроде масштабируется мгновенно.
Вот есть 7200*7200 - на нем да, тормозит.

Цитата Smike @
Кроме этого в коде видел обработку колеса мыши и клавиатуры. Только это все не работает, если перевести фокус например на кнопку и даже если потом кликнуть на компоненте. Вывод – нет обработки получения фокуса.


Да, надо обрабатывать OnClick. Поправил.
Теперь фокусируется, клавиши/колесо работают.

Цитата Smike @
Если выставить флаг "сохранять позицию при масштабировании", наблюдается большое мерцание, когда появляются скроллбары.


Это надо будет поправить.]]> AlexeyT Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468583 Wed, 28 Feb 2007 13:15:11 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468583
Я тоже начинал с Image + ScrollBox, но пришел к выводу, что это громоздко, неудобно и неуниверсально.

Кроме этого в коде видел обработку колеса мыши и клавиатуры. Только это все не работает, если перевести фокус например на кнопку и даже если потом кликнуть на компоненте. Вывод – нет обработки получения фокуса.

Если выставить флаг "сохранять позицию при масштабировании", наблюдается большое мерцание, когда появляются скроллбары.]]> Smike Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468490 Wed, 28 Feb 2007 12:10:31 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468490 Smike
OK, сейчас выложу исходники.
Update: выложил.]]> AlexeyT Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468466 Wed, 28 Feb 2007 11:52:42 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468466 Smike Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468453 Wed, 28 Feb 2007 11:45:14 +0000 Компонент ATImageBox (TScrollBox+TImage) https://forum.sources.ru/index.php?showtopic=173598&view=findpost&p=1468453 Получился компонент ATImageBox:

http://atorg.net.ru/files/ATImageBox.zip (290 Кб)

user posted image


Набор фич виден по демо. В общем-то, почти те же фичи, что и в компоненте "Image Controls" который обсуждают тут, только без "наворотов" вроде OpenGL, resampling и т.д. Только самое нужное. Зато код маленький.

Позже выложу на torry.net.]]> AlexeyT Delphi: Разработка компонентов