Leadtools.Annotations Namespace > AnnAutomation Class : ApplyAllEncryptors Method |
public virtual void ApplyAllEncryptors()
'Declaration Public Overridable Sub ApplyAllEncryptors()
'Usage Dim instance As AnnAutomation instance.ApplyAllEncryptors()
public virtual void ApplyAllEncryptors()
function Leadtools.Annotations.AnnAutomation.ApplyAllEncryptors()
public: virtual void ApplyAllEncryptors();
Use the CanApplyAllEncryptors property to determine whether you can currently call this method.
This method will call the AnnEncryptObjectApply(RasterImageViewer) method for all AnnEncryptObject objects that have the AnnEncryptObject.CanEncrypt value set to true.
Public Sub AnnAutomation_ApplyAllEncryptors(ByVal automation As AnnAutomation) ' remove all objects from this automation automation.SelectAll() automation.Delete() ' see if we can apply all the encryptor or decrytor objects (this should show a message informing you there are no encrypt objects in this automation) EncryptDecryptAll(automation) ' first add a new a couple of encrypt object to the automation Dim encrypt As AnnEncryptObject = New AnnEncryptObject() encrypt.Bounds = New AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel) encrypt.Key = 123 automation.Container.Objects.Add(encrypt) automation.Viewer.Invalidate(encrypt.InvalidRectangle) encrypt = New AnnEncryptObject() encrypt.Bounds = New AnnRectangle(300, 300, 100, 100, AnnUnit.Pixel) encrypt.Key = 456 automation.Container.Objects.Add(encrypt) automation.Viewer.Invalidate(encrypt.InvalidRectangle) ' see if we can apply all encryptor objects (should apply the encryptors) EncryptDecryptAll(automation) ' see if we can apply all decryptor objects (should apply the decryptors) EncryptDecryptAll(automation) End Sub Private Sub EncryptDecryptAll(ByVal automation As AnnAutomation) If automation.CanApplyAllEncryptors Then ' apply encryptors automation.ApplyAllEncryptors() MessageBox.Show("Encryptor objects has been applied") ElseIf automation.CanApplyAllDecryptors Then ' apply decryptors automation.ApplyAllDecryptors() MessageBox.Show("Decryptor objects has been applied") Else MessageBox.Show("Cannot apply encryptors or decryptors because no encrypt object is currently in this automation") End If End Sub
public void AnnAutomation_ApplyAllEncryptors(AnnAutomation automation) { // remove all objects from this automation automation.SelectAll(); automation.Delete(); // see if we can apply all the encryptor or decrytor objects (this should show a message informing you there are no encrypt objects in this automation) EncryptDecryptAll(automation); // first add a new a couple of encrypt object to the automation AnnEncryptObject encrypt = new AnnEncryptObject(); encrypt.Bounds = new AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel); encrypt.Key = 123; automation.Container.Objects.Add(encrypt); automation.Viewer.Invalidate(encrypt.InvalidRectangle); encrypt = new AnnEncryptObject(); encrypt.Bounds = new AnnRectangle(300, 300, 100, 100, AnnUnit.Pixel); encrypt.Key = 456; automation.Container.Objects.Add(encrypt); automation.Viewer.Invalidate(encrypt.InvalidRectangle); // see if we can apply all encryptor objects (should apply the encryptors) EncryptDecryptAll(automation); // see if we can apply all decryptor objects (should apply the decryptors) EncryptDecryptAll(automation); } private void EncryptDecryptAll(AnnAutomation automation) { if(automation.CanApplyAllEncryptors) { // apply encryptors automation.ApplyAllEncryptors(); MessageBox.Show("Encryptor objects has been applied"); } else if(automation.CanApplyAllDecryptors) { // apply decryptors automation.ApplyAllDecryptors(); MessageBox.Show("Decryptor objects has been applied"); } else MessageBox.Show("Cannot apply encryptors or decryptors because no encrypt object is currently in this automation"); }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2