Note: You must be registered in order to post a reply. To register, click here. Registration is FREE!
T O P I C R E V I E W
PaulAtMass
Posted - Apr 16 2018 : 07:06:26 Hi, I've been looking through the ImageEnView and TIEBitmap methods but can't find a revert to original function. After performing flip, rotation, zoom is there a single function to revert the image back to the original without having to reload it?
thanks
3 L A T E S T R E P L I E S (Newest First)
xequte
Posted - Apr 22 2018 : 20:11:33 Actually, you should be able to just do:
// Undo All
ImageEnView1.Proc.UndoAt( ImageEnView1.Proc.UndoCount, True );
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageEnView1.Proc.UndoLimit := 99;
ImageEnView1.Proc.AutoUndo := True;
end;
procedure TForm1.UndoAll1Click(Sender: TObject);
var
i: Integer;
begin
if ImageEnView1.CurrentLayer is TIEImageLayer then
begin
for i := 0 to ImageEnView1.Proc.UndoCount - 1 do
ImageEnView1.Proc.Undo(True);
end;
end;