//LOAD procedure TForm6.Button1Click(Sender: TObject); begin ImageEnMView1.ImageFileName[ImageEnMView1.AppendImage] := 'G:\Documents and Settings\Admin\Desktop\Naipi\DSC_0119.JPG'; ImageEnMView1.ImageFileName[ImageEnMView1.AppendImage] := 'G:\Documents and Settings\Admin\Desktop\video email\_DSC4356.JPG'; end;
// UNDO procedure TForm6.Button2Click(Sender: TObject); begin if ImageEnMView1.Proc.UndoCount > 0 then begin ImageEnMView1.Proc.SaveRedo; ImageEnMView1.Proc.Undo; ImageEnMView1.Proc.ClearUndo; end; end;
// REDO procedure TForm6.Button3Click(Sender: TObject); begin if ImageEnMView1.Proc.RedoCount > 0 then begin ImageEnMView1.Proc.SaveUndo; ImageEnMView1.Proc.Redo; ImageEnMView1.Proc.ClearRedo; end; end;
//NEGATIVE procedure TForm6.Button4Click(Sender: TObject); begin ImageEnMView1.Proc.Negative; ImageEnMView1.Proc.ClearAllRedo; end;
// CLEAR procedure TForm6.Button5Click(Sender: TObject); begin ImageListBox1.Clear; ImageEnMView1.Clear; ImageEnMView1.Proc.ClearAllUndo; ImageEnMView1.Proc.ClearAllRedo;
end;
//UNDOLIMIT procedure TForm6.FormCreate(Sender: TObject); begin ImageEnMView1.Proc.UndoLimit := 5; end;
Search
TImageEnMView undo wrong.
Posted - Aug 16 2013 : 07:01:54
