This works:
procedure TForm2.Rotate1Click(Sender: TObject);
begin
ImageEnView1.BackgroundStyle := iebsSolid;
ImageEnView1.Background := clYellow;
ImageEnView1.Proc.Undo;
ImageEnView1.Proc.Rotate(45, False, ierfast, clYellow);
ImageEnView1.Fit;
end;
This does not work:
procedure TForm2.Rotate1Click(Sender: TObject);
begin
ImageEnView1.BackgroundStyle := iebsSolid;
ImageEnView1.Proc.Undo;
ImageEnView1.Proc.Rotate(45, False, ierfast, clYellow);
ImageEnView1.Fit;
end;
Perhaps you need to use Background as well?
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development