[Algplux]

Ладно. Послушаю совета.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120

unit MyImage;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls, jpeg, ExtDlgs, Buttons, Spin, Math;   type   MyImage = class(TImage)   private     { Private declarations }   protected     { Protected declarations }   public     constructor Create(AOwner: TComponent); override;     procedure Turn (X:Integer; Y:String);   //поворот   published     { Published declarations }   end;   var   StartBitmap: TBitmap;   ImageLeft,ImageTop,OldHeight,OldWidth: integer;   NewWidths,NewHeights: array [0..90] of extended; //массив всех возможных размеров   OBs,OHs,aBOHs: array of array of extended; //параметры для расчёта координат   d: array [0..90] of array [0..1] of integer; //сдвиги   AnglesRad: array [0..360] of extended; //углы в радианах   //максимальные размеры и радиус окружности, в которую со 100% попадают точки изображения   MaxWidth,MaxHeight,MaxRadius: extended;   procedure Register;   implementation   procedure Register; begin   RegisterComponents('MyComponents', [MyImage]); end;   constructor MyImage.Create(AOwner: TComponent); begin   inherited Create(AOwner); //Вызываем унаследованный конструктор end;   procedure TMyImage.Turn (X:Integer; Y:String); var   bm: TBitmap;   j,k,Angle,RotateAngle,NewX,NewY: integer;   OB,OH,aBOH,dx,dy,NewHeight,NewWidth: extended; begin   Center:=true;   //берем значение угла из элемента на форме   Angle:=X;   //приводим его к значению от 0 до 360   if Angle<0 then Angle:=(Angle mod 360)+360   else Angle:=Angle mod 360;   //приводим к значению от 0 до 90 (для вычисления новых размеров угол   // должен быть в этом интервале   if Angle<=180 then begin     RotateAngle:=Angle mod 180;     if RotateAngle>90 then RotateAngle:=180-RotateAngle;   end   else begin     RotateAngle:=abs(Angle-360);     if RotateAngle>90 then RotateAngle:=180-RotateAngle;   end;   //новые размеры   NewWidth:=2*(sqrt(power(StartBitmap.Width,2)+power(StartBitmap.Height,2))/2*sin(arctan(StartBitmap.Width/StartBitmap.Height)+RotateAngle*pi/180));   NewHeight:=2*(sqrt(power(StartBitmap.Width,2)+power(StartBitmap.Height,2))/2*sin(arctan(StartBitmap.Height/StartBitmap.Width)+RotateAngle*pi/180));   //сдвиги   dx:=(NewWidth-OldWidth)/2;   dy:=(NewHeight-OldHeight)/2;   //сдвигаем координаты элемента   Left:=ImageLeft-round(dx);   Top:=ImageTop-round(dy);     Width:=round(NewWidth);   Height:=round(NewHeight);     bm:=TBitmap.Create;   bm.Width:=round(NewWidth);   bm.Height:=round(NewHeight);   bm.PixelFormat:=pf32bit;     NewWidth:=(NewWidth-1);   NewHeight:=(NewHeight-1);     for j:=0 to round(NewWidth) do begin     for k:=0 to round(NewHeight) do begin       OB:=sqrt(power(NewWidth/2-(j),2)+       power(NewHeight/2-(k),2));       OH:=NewWidth/2-(j);       if (OB<>0) then aBOH:=arccos(abs(OH)/OB) else aBOH:=0;       if ((k>=NewHeight/2) and (j<NewWidth/2)) or       ((k<NewHeight/2) and (j>=NewWidth/2)) then         aBOH:=-aBOH;       if OH>0 then begin         //новые координаты для четвертей 2 и 3         NewX:=round(NewWidth/2 - cos(aBOH+Angle*pi/180)*OB-dx);         NewY:=round(NewHeight/2 - sin(aBOH+Angle*pi/180)*OB-dy);       end       else begin         //новые координаты для четвертей 1 и 4         NewX:=round(NewWidth/2 - cos(aBOH+Angle*pi/180+pi)*OB-dx);         NewY:=round(NewHeight/2 - sin(aBOH+Angle*pi/180+pi)*OB-dy);       end;       //если полученные координаты попадают в старое изображение...       if (NewX>=0) and (NewY>=0) and (NewX<=OldWidth-1) and (NewY<=OldHeight-1) then       //...берем из него точку       bm.Canvas.Pixels[j,k]:=StartBitmap.Canvas.Pixels[NewX,NewY]       else bm.Canvas.Pixels[j,k]:=$f5f5f5;     end;   end;   //выводим результат   Picture.Bitmap.Assign(bm);   bm.Free; end;   end.

Похоже на правду?