Hi,
How can I rotate an image with a specific Resampling method using IW?
Could you please give me a full example? I saw the IW demo but I mixed up! Thx
procedure TForm1.Button1Click(Sender: TObject);
begin
with ImageWork1 do
begin
with Transform do
begin
Resample := rsBilinear;
Transformations.Clear;
with Transformations.Add do
begin
Kind := tkRotate;
Angle := 45;
end;
end;
ApplyTransform(Image1.Picture.Graphic);
Image2.Picture.Assign(Output);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RotateImage(Image2.Picture.Bitmap, Image1.Picture.Graphic, 45, rsBilinear);
end;
Return to DELPHI AREA Projects
Users browsing this forum: Bing [Bot] and 2 guests