RotateImage Component

Please discuss general Delphi programming topics here.

RotateImage Component

Postby markmoss » September 11th, 2006, 2:35 am

Ladies / Gentlemen


I have just started to use the RotateImage Component and I have the following problem.

I attempted to rotate an Image 1degree and then do a RotateImage1.Picture.SaveToFile. I did this thru 360 degrees, but when I was done I had 360 Images of the Original Image. What did I do wrong.

FIRST Attempt
__________________________________________


for J := 1 to 360 do
begin

RotateImage1.Picture.LoadFromFile(GetCurrentDir + '\RW.bmp');

S := IntToStr(J);

Z := FMBInsZeros(S, Len);

PerformRotation( RotateImage1.Angle + J );

RotateImage1.Picture.SaveToFile(GetCurrentDir + '\360Degree\RW' + Z + '.bmp');

end;
__________________________________________

SECOND Attempt
__________________________________________

RotateImage1.Picture.LoadFromFile(GetCurrentDir + '\RW.bmp');

for J := 1 to 360 do
begin

S := IntToStr(J);

Z := FMBInsZeros(S, Len);

PerformRotation( RotateImage1.Angle + 1 );

RotateImage1.Picture.SaveToFile(GetCurrentDir + '\360Degree\RW' + Z + '.bmp');

end;

__________________________________________


Any help would be great.


Mark Moss
:cf:
markmoss
Member
Member
 
Posts: 4
Joined: September 11th, 2006, 2:18 am

I foud it .

Postby markmoss » September 11th, 2006, 2:50 am

Ladies / Gentlemen


I found what I was looking for

RotateImage1.RotatedBitmap.SaveToFile()

Thanks for your help that would have been given.


Mark Moss
:D
markmoss
Member
Member
 
Posts: 4
Joined: September 11th, 2006, 2:18 am


Return to Delphi Programming

Who is online

Users browsing this forum: No registered users and 1 guest

cron