[kaktusad]

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

[angvelem]

Рисуй на буферном битмапе, а в событии OnPaint PaintBox-а копируй битмап в канву PaintBox-а.

[kaktusad]

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

Рисуй на буферном битмапе, а в событии OnPaint PaintBox-а копируй битмап в канву PaintBox-а.

Так все равно же при каждом движении мышки придется перерисовывать битмап?

[angvelem]

Выод битмапа на канву PaintBox-а вызовет меньше перерисовок, чем непосредственное рисование на канве самого PaintBox-а

[icWasya]

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

Так все равно же при каждом движении мышки придется перерисовывать битмап?

А думаешь графические редакторы делают как-то по другому?

[Freeman]

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

нужно рисовать новый прямоугольник и стирать старый, но чтобы весь рисунок не перерисовывать, так как приложение подвисает.

Рисуй в режиме XOR:

Код:

type
  TMainForm = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    FPrevX, FPrevY: Integer;
  end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FPrevX := -1;
  FPrevY := -1;
end;

procedure TMainForm.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  with TPaintBox(Sender).Canvas do
  begin
    with Brush do
    begin
      Color := clTeal;
      Style := bsSolid;
    end;
    with Pen do
    begin
      Color := clYellow;
      Mode := pmXor;
    end;
    if (FPrevX > 0) and (FPrevY > 0) then
      Rectangle(FPrevX - 10, FPrevY - 8, FPrevX + 10, FPrevY + 8);
    Rectangle(X - 10, Y - 8, X + 10, Y + 8);
  end;
  FPrevX := X;
  FPrevY := Y;
end;

[kaktusad]

Freeman, вот что получилось


Изображение рисую на Пэинт боксе с помощью StretchDraw и если его перерисовывать при каждом движении мышки, то будут почти одни полосы.

[Страдалецъ]

А где именно вы изображение рисуете? В каком событии?

[kaktusad]

Сообщение от Страдалецъ

А где именно вы изображение рисуете? В каком событии?

PaintBox.OnPaint

[lmikle]

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

Freeman, вот что получилось
...
Изображение рисую на Пэинт боксе с помощью StretchDraw и если его перерисовывать при каждом движении мышки, то будут почти одни полосы.

Ну, для особо извращенцев могу посоветовать вариант с запоминанием фона. Т.е. сначала отрисовываешь запомненный ранее фон (твоего размера, 40х40, если не ошибаюсь), потом меняешь координаты, запоминаешь по новым координатам фон, потом отрисовываешь свой квадрат. Ну и сначала при следующем перемещении мышы.

А вообще, вывод из буфферного битмапа на канву PaintBox занимает микроскопическое время, при включенном DoubleBuffered ничего не моргает. Только там есть маленький фокус - фон стирать не надо, надо сделать так, что бы картинка выводилась из буфера за одну операцию без стирания фона. Проверял на 8-мегапиксельных картинках. В твоем случае нужно будет 2 буфера. В первом лежит орининальная картинка, во втором ты подготавливаешь картинку для вывода и потом ее отрисовываешь на канве PaintBox.

[angvelem]

Думается ТС нужен код для понимания сути процесса. Я уже пытался ему сказать про буферный битмап, но он не принял во внимание. Рисовать в OnPaint-е, полное извращение, будет постоянное дёрганье.

[kaktusad]

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

Думается ТС нужен код для понимания сути процесса. Я уже пытался ему сказать про буферный битмап, но он не принял во внимание. Рисовать в OnPaint-е, полное извращение, будет постоянное дёрганье.

Можно по-подробней о сути буферного битмапа? И на чем тогда рисовать?