Diese Routine dreht eine Bitmap um jeden beliebigen Grad.
\nDabei wird die Zielbitmap in der Gr\u00f6\u00dfe so angepasst, da\u00df immer das gesamte Bitmap zu sehen ist (es wird NICHT an den R\u00e4ndern beschnitten!)<\/p>\n
Ben\u00f6tigt:
\nImage1 : Source-Bitmap
\nImage2 : Ziel-Bitmap (gr\u00f6\u00dfe wird angepasst)
\nUpDown1 : zum einstellen des Winkels
\n
\n——-8<---------snip-------------8<-------------snap-----------------\n\n[code lang=\"delphi\"]procedure TForm1.Button1Click(Sender: TObject);\nVar\n Angle: Integer;\n SAngle, CAngle: Extended;\n\n PX1, PY1, PX2, PY2: Integer;\n Cx1, Cy1, Cx2, Cy2: Integer;\n\n SrcW, SrcH, DesW, DesH: Integer;\n TmpAngle: Integer;\n TmpHSIN, TmpWSIN: Extended;\n dPP, dPPAngle : Extended;\n\n X, Y: Integer;\nbegin\n Angle:=abs(UpDown1.Position mod 360);\n SAngle:= Sin(Angle*(PI\/180));\n CAngle:= Cos(Angle*(PI\/180));\n\n SrcW:= Image1.Width;\n SrcH:= Image1.Height;\n\n If ((Angle>=0) and (Angle<=90)) or\n ((Angle>180) and (Angle<=270)) then\n Begin \/\/ I, III of cood\n If Angle>180 then
\n TmpAngle:= Angle-180 \/\/ Min=1; Max=90
\n Else
\n TmpAngle:= Angle;<\/p>\n
dPP := Sqrt(Sqr(SrcW) + Sqr(SrcH));
\n dPPAngle:= ArcTan(SrcH\/SrcW)\/(PI\/180);
\n TmpHSIN:= Sin(((90-TmpAngle)+dPPAngle)*(PI\/180));
\n TmpWSIN:= Sin((TmpAngle+dPPAngle)*(PI\/180));<\/p>\n
DesW:= Round(TmpHSIN*dPP);
\n DesH:= Round(TmpWSIN*dPP);
\n End Else
\n Begin \/\/ II, IV of cood
\n If Angle>270 then
\n TmpAngle:= Angle-180 \/\/ Min=91; Max=180
\n Else
\n TmpAngle:= Angle;<\/p>\n
dPP := Sqrt(Sqr(SrcW) + Sqr(SrcH));
\n dPPAngle:= ArcTan(SrcH\/SrcW)\/(PI\/180);
\n TmpHSIN:= Sin(((TmpAngle-90)+dPPAngle)*(PI\/180));
\n TmpWSIN:= Sin(((180-TmpAngle)+dPPAngle)*(PI\/180));<\/p>\n
DesW:= Round(TmpHSIN*dPP);
\n DesH:= Round(TmpWSIN*dPP);
\n End;
\n{ ShowMessage(‘W:’+IntToStr(SrcW)+#9’H: ‘+IntToStr(SrcH)+#9’D:
\n‘+FloatToStr(dPP)+#13+
\n ‘SA:’+FloatToStr(dPPAngle)+#9’TA:’+FloatToStr(TmpAngle));{}<\/p>\n
Cx1:= SrcW div 2;
\n Cy1:= SrcH div 2;
\n Cx2:= DesW div 2;
\n Cy2:= DesH div 2;<\/p>\n
Image2.Width:= DesW;
\n Image2.Height:= DesH;
\n Image2.Picture.Assign(nil);
\n For Y:=0 to DesH-1 do
\n Begin
\n For X:=0 to DesW-1 do
\n Begin
\n PX2:= X- Cx2;
\n PY2:= Y- Cy2;
\n PX1:= Round((CAngle*Px2)+(SAngle*Py2)+Cx1);
\n PY1:= Round(-(SAngle*Px2)+(CAngle*Py2)+Cy1);<\/p>\n
If (PX1>=0) and (PX1=0) and (PY1[\/code]
\n<---------snip-------------8<-------------snap-----------------\n\n[tags]Delphi, Graphic[\/tags]\n<\/p>\n","protected":false},"excerpt":{"rendered":"
Diese Routine dreht eine Bitmap um jeden beliebigen Grad. Dabei wird die Zielbitmap in der Gr\u00f6\u00dfe so angepasst, da\u00df immer das gesamte Bitmap…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,101],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2q","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/150"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=150"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/150\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=150"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=150"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=150"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}