Непонятный касяк при масштабировании

[Montysson]

Всем доброго времени суток!!

При масштабировании изображения появляется какой то странный касяк, вообщем, я к примеру увеличиваю изображение, а потом рисую на нем прямоугольную область выделения толщиной в 1 пиксель, а у меня рисуется толщиной в 3-4, в чем дело?

А если я уменьшаю изображение, то наоборот линия становится тонкой, а иногда пропадает

Вот таким вот образом рисую прямоугольную область:

procedure DrawShape(Image: TImage; TopLeft, BottomRight: TPoint;
  AMode: TPenMode; DrawingTool: TDrawingTool; APenWidth: Integer);
begin
  with Image.Canvas do
  begin
    Pen.Mode := AMode;
    Pen.Style := psSolid;
    Pen.width := APenWidth;
    Brush.Style := bsClear;
    case DrawingTool of
      dtRectangle:
        Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);
      dtEllipse:
        Ellipse(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);
    end;
  end;
end;

DrawShape(Image, BasicRt.TopLeft, BasicRt.BottomRight, pmNotXor,
  dtRectangle, APenWidth);

APenWidth = 1;

На стрелку, которая указывает на процент повреждения можете не смотреть.

[chertovich]

Как происходит масшатбирование?

[Montysson]

Да очень просто, есть коэффициент масштабирования ScaleCoef, изначально он равен 1 и есть две кнопки + и -

К примеру вот код для плюса:

procedure TfrmMain.btnZoomInClick(Sender: TObject);
begin
  if ScaleCoef < 3 then
  begin
    ScaleCoef := ScaleCoef + 0.2;
    SetImageSize;
    if ScaleCoef >= 3 then
      btnZoomIn.Enabled := False;
    if ScaleCoef >= 0.2 then
      btnZoomOut.Enabled := True;
  end;
end;

procedure TfrmMain.SetImageSize;
begin
  imgMain.Picture.Assign(BuffImg.Picture.Graphic); // Из буфера
  imgMain.AutoSize := False;
  imgMain.Stretch := True;
  imgMain.Width := Round(OrignWidth * ScaleCoef); // OrignWidth  это изначальная длина картинки
  imgMain.Height := Round(OrignHeight * ScaleCoef);
  SetImagePosition(imgMain, ScrollBox.Width, ScrollBox.Height);
  BuffImg.Width := imgMain.Width;
  BuffImg.Height := imgMain.Height;
  BuffImg.Stretch := True;
  BuffImg.AutoSize := False;
end;