Tony Nixon heeft geschreven in bericht
\n36645B68.102BFAE0@eng.monash.edu.au <\/p>\n
>… [code lang=”delphi”]function SCRotateLeftBitmap(Bitmap : TBitmap) : TBitmap; [code lang=”delphi”]function RotateImage(Src : TBitmap; Anglo : Real) : TBitmap; Stefan Cruysberghs www.bewoner.dma.be\/stefancr<\/p>\n [tags]Delphi, Graphic[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":" Tony Nixon heeft geschreven in bericht 36645B68.102BFAE0@eng.monash.edu.au >… >Hi all, > >Could someone help me with a method of rotating a TBitmap image…<\/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-2p","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/149"}],"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=149"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/149\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=149"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=149"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=149"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n>Hi all,
\n>
\n>Could someone help me with a method of rotating a TBitmap image 180
\n>degrees.
\n>
\n>TIA
\n>
\n>Tony
\n<\/em>
\n
\nVon: Stefan Cruysberghs
\nBetreff: Re: Image Rotate
\nDatum: Samstag, 5. Dezember 1998 19:01 The following function I wrote rotates a bitmap 90\u00b0 to the left.<\/p>\n
\nvar
\n x,y : Integer;
\n Hoogte, Breedte : Integer;
\nbegin
\n Breedte:=Bitmap.Width;
\n Hoogte:=Bitmap.Height;
\n Result := TBitmap.Create;
\n try
\n with Result do
\n begin
\n Width:=Hoogte;
\n Height:=Breedte;
\n for x:=0 to Breedte-1 do
\n for y:=0 to Hoogte-1 do
\n Canvas.Pixels[Hoogte-y-1,x]:=Bitmap.Canvas.Pixels[x,y];
\n end;
\n except
\n Result.Free;
\n raise;
\n end;
\nend;
\n[\/code]
\nThe next function rotates a bitmap with every angle, but I never tested it.<\/p>\n
\nvar
\n i, j, W, H : Integer;
\n X1, X2, Y1, Y2 : Integer;
\n C : TColor;
\n Rx, Ry : Integer;
\n Side3, FX, FY : Extended;
\n SDC, DDC : Integer;
\nbegin
\n W := Src.Width;
\n H := Src.Height;
\n TmpMem.Height := Round(H * 2.5);
\n TmpMem.Width := Round(W * 2.5);
\n SDC := Src.Canvas.Handle;
\n DDC := TmpMem.Canvas.Handle;
\n for i := 0 to W – 1 do
\n for j := 0 to H – 1 do
\n begin
\n C := GetPixel(SDC, i, j);
\n Side3 := Sqrt(Sqr(i) + Sqr(j));
\n SinCos((ArcSin(I \/ Side3) + Anglo), FX, FY);
\n Rx := Round(FX * Side3) + W;
\n Ry := Round(FY * Side3) + H;
\n if j = 1 then
\n begin
\n X1 := Rx;
\n Y1 := Ry;
\n X2 := Rx;
\n Y2 := Ry;
\n end
\n else
\n begin
\n if Rx < X1 then X1 := Rx;\n if Ry < Y1 then Y1 := Ry;\n if Rx > X2 then X2 := Rx;
\n if Ry > Y2 then Y2 := Ry;
\n end;
\n SetPixel(DDC, Rx , Ry, C);
\n end;
\n Result := TmpMem;
\nend;
\n[\/code]
\nGreetings<\/p>\n
\nstefancr@mail.dma.be <\/p>\n