[R-18Rus]

Рисую на компоненте PaintBox. Задание: сделать этакую демо версию паинта.

Ну карандашём-то рисовать легко. А вот с рисованием фигур проблема. Можно сделать так, чтобы рисовался уже непосредственно готовый вариант (без предварительного просмотра). Но это не очень удобно. А если рисовать по аналогии с карандашём, то при изменении конечных координатов фигуры, фигура не перерисовывается, а рисуется вновь. При этом старые фигуры остаются, создавая закрашенные области. Какая-то фигня получается.

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

Извините, если не очень понятно.

Но вот код для наглядности:

Код:

procedure TForm1.PainMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
  begin
  LeftMB:=true;
  x0:=x; y0:=y;
  Pain.Canvas.MoveTo(x0,y0);
  end;
end;

procedure TForm1.PainMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
  LeftMB:=false;
if SpeedButton2.Down then Pain.Canvas.Rectangle(x0,y0,x,y); // это без предварительного эскиза. Готовый результат. Работает без косяков.
end;

procedure TForm1.PainMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if LeftMB then
  with Pain.Canvas do
    begin
    if SpeedButton1.Down then LineTo(x,y);
    //if SpeedButton2.Down then Rectangle(x0,y0,x,y); {А это с предпросмотром. Косяки в нём.}
    end;
end;