Выделение области на изображении непрерывными отрезками

[Marsel737]

Всем доброго времени суток. Я хочу выделить на изображении определенный участок, при помощи непрерывных отрезков, т.е. сначал я ставлю первую начальную точку, когда ставлю вторую она соединяется отрезком с первой, ставлю третью - она соединяется со второй и т.д., пока не приду обратно в первую точку.
Не знаю как можно реализовать, есть пример работы с графикой, но там такого нету, сам не додумался как сделать, поэтому спрашиваю здесь. Посоветуйте как можно реализовать

[mutabor]

MoveTo, LineTo

[Marsel737]

mutabor, а дальше? Я как рисовать примерно знаю, но мне нужно не просто один отрезок нарисовать

UPD:

Сделал так:

  Canvas.Pen.Color := clRed;
  if intCurPosX <> 0 then
  begin
    Canvas.MoveTo(intCurPosX, intCurPosY);
    Canvas.LineTo(Mouse.CursorPos.X - frmMain.Left, Mouse.CursorPos.Y - frmMain.Top);
  end;
  intCurPosX := Mouse.CursorPos.X - frmMain.Left;
  intCurPosY := Mouse.CursorPos.Y - frmMain.Top;

Но есть проблема точка ставится не прямо под курсором, а смещенно вниз и вправо, как можно исправить?

[mutabor]

точка ставится не прямо под курсором, а смещенно вниз и вправо

Переводи координаты из экранных в оконные, метод ScreenToClient. А еще лучше пользуйся событием MouseDown, туда приходят координаты в нужном формате.

[Marsel737]

Я чего-то уже перемудрил. Хочу сделать так, чтобы от предыдущей точки до курсора мыши проводилась линия, которая двигалась бы вместе в курсором. т.е. чтобы было видно как будет лежать линия после того как поставлю точку:

procedure TfrmMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  boolVBeginPaint := true;
  //intVCurPosX := X + intCDifference;
  //intVCurPosY := Y + intCDifference;
  {if frmMain.sbPaint.Down then
  begin
    Canvas.Pen.Color := clRed;
    if intVCurPosX <> 0 then
    begin
      Canvas.MoveTo(intVCurPosX, intVCurPosY);
      Canvas.LineTo(X + intCDifference, Y + intCDifference);
    end;
    intVCurPosX := X + intCDifference;
    intVCurPosY := Y + intCDifference;
  end;   }
end;

procedure TfrmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (frmMain.sbPaint.Down) and (boolVBeginPaint = true) then
  begin
    if intVCurPosX <> 0 then
    begin
      Refresh;
      with Canvas do
      begin
        Pen.Mode := pmNot;
        Canvas.MoveTo(intVCurPosX, intVCurPosY);
        Canvas.LineTo(X+ intCDifference,Y + intCDifference);
      end;
    end;
  end;
end;

procedure TfrmMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  boolVBeginPaint := false;
  Canvas.Pen.Mode := pmNot;
  Canvas.MoveTo(intVCurPosX, intVCurPosY);
  Canvas.LineTo(X + intCDifference,Y + intCDifference);
  intVCurPosX := X + intCDifference;
  intVCurPosY := Y + intCDifference;
end;

Всё затирается и в добавок даже в моусуп не рисуется линия. Есть соображение - хранить изображение в битмапе и в моусуп загружать, но не получается рисовать на изображении, чтобы изображение грузить его в битмап.

Когда пытаюсь рисовать на изображении, при выполнении выдаётся ошибка на эти строки:

  imgMap.Canvas.MoveTo(intVCurPosX, intVCurPosY);
  imgMap.Canvas.LineTo(X + intCDifference,Y + intCDifference);

[пауэрлифтинг]

сохраняй изображение в битмап при каждом рисовании линии . а в MouseMove. перед рисованием линии загружай это изображение на канву в которой рисуеш

var bmp: Tbitmap;
...
procedure TfrmMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  boolVBeginPaint := true;
  //intVCurPosX := X + intCDifference;
  //intVCurPosY := Y + intCDifference;
  if frmMain.sbPaint.Down then
  begin
    Canvas.Pen.Color := clRed;
    if intVCurPosX <> 0 then
    begin
      Canvas.MoveTo(intVCurPosX, intVCurPosY);
      Canvas.LineTo(X + intCDifference, Y + intCDifference); 
      bmp.Canvas:=Canvas;
    end;
    intVCurPosX := X + intCDifference;
    intVCurPosY := Y + intCDifference;
  end;   
end;

procedure TfrmMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  boolVBeginPaint := false;
  Canvas.Pen.Mode := pmNot;
  canvas.Draw(0,0,bmp);
  Canvas.MoveTo(intVCurPosX, intVCurPosY);
  Canvas.LineTo(X + intCDifference,Y + intCDifference);
  intVCurPosX := X + intCDifference;
  intVCurPosY := Y + intCDifference;
end;