You may have reached the undo limit.
procedure TForm1.FormCreate(Sender: TObject);
// Set AutoUndo to False;
ImageEnView1.Proc.AutoUndo := False;
// The UndoLimit default is only 5 so only 5 undos are possible so
// increase the UndoLimit
ImageEnView1.Proc.UndoLimit := 99;
end;
procedure TForm1.Cut1Click(Sender: TObject);
// SaveUndo then SelCutToClip
begin
ImageEnView1.Proc.SaveUndoCaptioned('Cut ' + IntToStr(ImageEnView1.Proc.UndoCount + 1));
Undo1.Hint := 'Cut ' + IntToStr(ImageEnView1.Proc.UndoCount + 1);
ImageEnView1.Proc.SelCutToClip(True);
ImageEnView1.Update;
end;
procedure TFormMain.Undo1Click(Sender: TObject);
// undo the last change
begin
// Save in Redo list
ImageEnView1.Proc.SaveRedo();
ImageEnView1.Proc.Undo;
ImageEnView1.Proc.ClearUndo;
Undo1.Enabled := ImageEnView1.Proc.CanUndo;
Redo1.Enabled := ImageEnView1.Proc.CanRedo;
end;
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html