You can not select more than one layer at a time so you have to specify which layer to rotate.
This rotates all layers except for layer 0:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
iAmount: double;
begin
iAmount := 90.0;
for i := 1 to ImageENView1.LayersCount - 1 do
begin
ImageENView1.Layers[i].Rotate:= iAmount;
ImageENView1.LayersFixBorders(i);
ImageENView1.LayersFixRotations(i);
ImageENView1.LayersFixSizes(i);
end;
end;
You will have to try doing this in a timer youself because I do not understand what you are trying to accomplish with the timer rotation.
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
rotate 2 layers simultaneously
Posted - Jan 20 2013 : 08:53:35
