Движение прямоугольника вместе с мышкой

[kaktusad]

Вопрос, думаю, очень легкий, но прошу мне помочь, не могу ни как разобраться.
Есть компонент PaintBox, на котором размещена картинка. Нужно сделать, чтобы при передвижении указателя мышки по пэнинтбоксу вместе с ним и двигался прямоугольник, например, зеленый 40х40.
У меня проблема возникает в том, что при передвижении указателя нужно рисовать новый прямоугольник и стирать старый, но чтобы весь рисунок не перерисовывать, так как приложение подвисает. Рисовать прямоугольник пытался с помощью канвы...

[Toxa]

http://delphiworld.narod.ru/base/draw_mouse_box.html
немного переделать код, точнее взять идею

[Stilet]

Ссылку Тохи не смотрел, но на всякий случай:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PaintBox1Paint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var  ax,ay:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 PaintBox1.Canvas.Brush.Color:=clGreen;
 PaintBox1.Canvas.Rectangle(ax-10,ay-10,ax+10,ay+10);
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 ax:=x; ay:=y;  PaintBox1.Repaint;
end;

end.

[Toxa]

вариант от Stilet не катит, ибо он перерисовывает весь PaintBox1

[Stilet]

не катит, ибо он перерисовывает весь PaintBox1

Он ниче не перерисовыввает )
Присмотрись и найди в нем команды перерисовки всего компонента.
Другое дело что автору стоит указать точнее как он размещал картинку. Я бы на его месте перерисовывал вместе с картинкой.

[Toxa]

PaintBox1.Repaint;

с PaintBox я плохо знаком, могу что то не так понимать

я для примера протестил твой код, только перед этим нарисовал на PaintBox1 свой рисунок, и как только навел мышку на PaintBox1, все мое творение пропало, т.е. надо снова рисовать, это разве не перерисовка?

[Человек_Борща]

Для справки: PaintBox в любом случае весь перерисовывается сам. Надо же обновить содержимое.

[phomm]

Сообщение от Toxa

http://delphiworld.narod.ru/base/draw_mouse_box.html
немного переделать код, точнее взять идею

Вообще далеко, имхо.

У Stilet действительно перерисовка.

Предлагаю подход с обычной двойной буфферизацией:
Создать 2 битмапа, в один загрузить картинку (он вообще никогда не будет меняться), во второй тоже загрузить (он будет буфферным изображением, первичная загрузка нужна для уставноки размеров). При смещении мышки передать координаты в функцию рисовки, в которой на второй битмап нарисовать первый, потом нарисовать на второй битмап прямоугольник по нужным координатам, потом второй битмап одним Draw нарисовать на пейнтбокс. Мерцать не будет.

[s-andriano]

Сообщение от kaktusad

Вопрос, думаю, очень легкий, но прошу мне помочь, не могу ни как разобраться.
Есть компонент PaintBox, на котором размещена картинка. Нужно сделать, чтобы при передвижении указателя мышки по пэнинтбоксу вместе с ним и двигался прямоугольник, например, зеленый 40х40.
У меня проблема возникает в том, что при передвижении указателя нужно рисовать новый прямоугольник и стирать старый, но чтобы весь рисунок не перерисовывать, так как приложение подвисает. Рисовать прямоугольник пытался с помощью канвы...

В принципе, эту задачу можно решать двумя совершенно различными способами. Собственно, способы настолько различные, что обладают существенно различающимися свойствами, а потому выбирать следует именно, исходя из свойств.

1. Перерисовка в самом PaintBox'е. По сути нужно перерисовывать весь PaintBox, но тут существует масса вариантов оптимизации, которые имеет смысл использовать.
Преимущества: рисуем и перемещаем то, что нужно, и так, как нужно.
Недостатки: рисунок не может выйти за пределы PaintBox'а.

2. Создаем отдельное окно нужного цвета и с нужным рисунком и именно его таскаем за мышкой.
Преимущества: может выходить за пределы PaintBox'а.
Недостатки: перемещается посредством WinAPI, поэтому не всегда можно сделать именно то, что хочется.

[kaktusad]

Сообщение от s-andriano

В принципе, эту задачу можно решать двумя совершенно различными способами. Собственно, способы настолько различные, что обладают существенно различающимися свойствами, а потому выбирать следует именно, исходя из свойств.

1. Перерисовка в самом PaintBox'е. По сути нужно перерисовывать весь PaintBox, но тут существует масса вариантов оптимизации, которые имеет смысл использовать.
Преимущества: рисуем и перемещаем то, что нужно, и так, как нужно.
Недостатки: рисунок не может выйти за пределы PaintBox'а.

2. Создаем отдельное окно нужного цвета и с нужным рисунком и именно его таскаем за мышкой.
Преимущества: может выходить за пределы PaintBox'а.
Недостатки: перемещается посредством WinAPI, поэтому не всегда можно сделать именно то, что хочется.

Изображение создаю в БитМап, рисую на Пэинт боксе с помощью StretchDraw и если его перерисовывать при каждом движении мышки, то будут почти одни полосы.
1. Как перерисовывать только кусок? У меня получается перерисовывать только весь ПэинтБокс и так как перерисовка очень частая, изображения почти не видно.
2. Если создать отдельное окно, то событие по движению мышки уже происходит на этом окне, а не пэинт боксе. То есть нужно чтобы окно было всегда вокруг мышки.