procedure TForm1.r_angleValueChanged(Sender: TObject; Value: single);var rotator,rotated: tbgrabitmap; xpos,ypos : integer;begin xpos := form2.image1.Left; ypos :=- form2.image1.top; rotated := tbgrabitmap.Create(form2.image1.picture.Width, form2.image1.picture.Height, BGRAWhite); rotator := tbgrabitmap.Create(form2.image1.picture.Bitmap); rotated.PutImageAngle(form2.image1.picture.Width div 2,form2.image1.picture.Height div 2, rotator, r_angle.Value, rfBestQuality,form2.image1.picture.Width div 2,form2.image1.picture.Height div 2); form2.image1.Canvas.Draw(xpos,ypos,rotated.Bitmap); rotator.free; rotated.free;end; Dave
procedure TForm1.r_angleValueChanged(Sender: TObject; Value: single);var rotator,rotated: tbgrabitmap;begin rotated :=tbgrabitmap.Create(form2.image1.picture.Width, form2.image1.picture.Height, BGRAWhite); rotator :=tbgrabitmap.Create(form2.image1.picture.Bitmap); rotated.PutImageAngle(form2.image1.picture.Width div 2,form2.image1.picture.Height div 2, rotator, r_angle.Value, rfBestQuality,form2.image1.picture.Width div 2,form2.image1.picture.Height div 2); form2.image1.Canvas.Draw(0,0,rotated.Bitmap); rotator.free; rotated.free;end;