Поворот, масштабирование, обрезание изображения.

[CuTTeR]

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

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

С помощью TrackBar'ов выбираются значения.


событие onPaint:

Var Value, I : Integer;
begin
Value := (360 - TrackBar1.Position) Mod 360;
For I := 0 to 2 Do Begin
PntArray[I].X := CenterX + Round(+OrgPntArray[I].X * SinCosArray[mCos][Value] + OrgPntArray[I].Y * SinCosArray[mSin][Value]);
PntArray[I].Y := CenterY + Round(-OrgPntArray[I].X * SinCosArray[mSin][Value] + OrgPntArray[I].Y * SinCosArray[mCos][Value]);
End;
PlgBlt(pb_Display.Canvas.Handle, PntArray, BMP2.Canvas.Handle, 0, 0, BMP.Width, BMP.Height, 0, 0, 0);

////
BMP2.Width := BMP.Width + (TrackBar3.Position-1) * 2;
BMP2.Height := BMP.Height + (TrackBar3.Position-1) * 2;
BMP2.Canvas.StretchDraw(Rect(0,0, BMP2.Width, BMP2.Height),BMP);
pb_Display.Canvas.CopyRect(pb_Displ ay.ClientRect, BMP.Canvas,pb_Display.ClientRect);
////

end;

Симптомы: исходное изображение дублируется в левом верхнем углу, трансформируемое изображение при увеличении не изменяет размеры(увеличивается, но выхдящие за размер исходного изображения обрезаются.

И пока не придумал как обрезать, будут идеи - с удовольствием послушаю.

[CuTTeR]

Хоть какие-то соображения есть?

[Kix.IV]

Пользуйтесь поиском.
http://www.programmersforum.ru/showt...F2%E8%ED%EA%E8
http://www.programmersforum.ru/showthread.php?t=27981

[CuTTeR]

Сообщение от Kix.IV

Пользуйтесь поиском.
http://www.programmersforum.ru/showt...F2%E8%ED%EA%E8
http://www.programmersforum.ru/showthread.php?t=27981

И к чему было это сообщение? Тема была не про другие алгоритмы и их реализацию, а про данный алгоритм и устранение ошибки в ЭТОМ алгоритме.

[Kix.IV]

К тому, что не зачем создавать велосипед. Есть алгоритмы которые точно работают и оптимизированы. Хотя это твой выбор.

[Kix.IV]

И вообще, использовать в onPaint канву это как-то коряво, имхо.

[CuTTeR]

Сообщение от Kix.IV

К тому, что не зачем создавать велосипед. Есть алгоритмы которые точно работают и оптимизированы. Хотя это твой выбор.

Ну вот такой я любитель велосипедов

И вообще, использовать в onPaint канву это как-то коряво, имхо.

Возможно.
Вот http://www.programmersforum.ru/showt...F2%E8%ED%EA%E8 медленный, http://www.programmersforum.ru/showthread.php?t=27981 попробую. А по каким алгоритмам тогда масштабировать и обрезать? менять так все.))

[Kix.IV]

Воспользуйся великой вещью, Поиском!
А что ты понимаешь под масштабированием?

[CuTTeR]

Сообщение от Kix.IV

Воспользуйся великой вещью, Поиском!
А что ты понимаешь под масштабированием?

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

[Kix.IV]

У меня есть какой-то код. Вот:

HH := Image1.Height / Height;
  WW := Image1.Width / Width;
  if (HH > WW) then
  begin
    Image1.Height := trunc(Image1.Height / HH);
    Image1.Width := trunc(Image1.Width / HH);
    Image1.Stretch := True;
    //ShowMessage('По высоте');
  end
  else
  begin
    Image1.Height := trunc(Image1.Height / WW);
    Image1.Width := trunc(Image1.Width / WW);
    Image1.Stretch := True;
    //ShowMessage('По ширине');
  end;

Надо подключить jpeg. Кажись это медленный метод.