Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Private Sub AnnAutomation_ShowObjectPropertiesDialog(ByVal automation As AnnAutomation)
' first add a new object to the automation
Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
rectObj.Rect = New Rect(100, 100, 100, 100)
rectObj.Stroke = Colors.Blue
rectObj.StrokeThickness = 2.0
rectObj.Fill = Colors.Yellow
automation.Container.Children.Add(rectObj)
' make sure no objects are selected in the automation
automation.SelectNone()
' show the object properties dialog (this should show a message informing you that no objects are currently selected (bring edited)
ShowProperties(automation)
' select (edit) the object we have just added
automation.StartEditing(rectObj, False)
' show the object properties dialog (should show the object properties dialog)
ShowProperties(automation)
End Sub
Private Sub ShowProperties(ByVal automation As AnnAutomation)
' check if we can show the dialog
If automation.CanShowObjectPropertiesDialog Then
automation.ShowObjectPropertiesDialog()
Else
MessageBox.Show("Cannot show the object properties dialog because no object is currently being edited (selected)")
End If
End Sub
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
private void AnnAutomation_ShowObjectPropertiesDialog(AnnAutomation automation)
{
// first add a new object to the automation
AnnRectangleObject rectObj = new AnnRectangleObject();
rectObj.Rect = new Rect(100, 100, 100, 100);
rectObj.Stroke = Colors.Blue;
rectObj.Fill = Colors.Yellow;
rectObj.StrokeThickness = 2.0;
automation.Container.Children.Add(rectObj);
// make sure no objects are selected in the automation
automation.SelectNone();
// show the object properties dialog (this should show a message informing you that no objects are currently selected (bring edited)
ShowProperties(automation);
// select (edit) the object we have just added
automation.StartEditing(rectObj, false);
// show the object properties dialog (should show the object properties dialog)
ShowProperties(automation);
}
private void ShowProperties(AnnAutomation automation)
{
// check if we can show the dialog
if(automation.CanShowObjectPropertiesDialog)
automation.ShowObjectPropertiesDialog();
else
MessageBox.Show("Cannot show the object properties dialog because no object is currently being edited (selected)");
}
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
using Leadtools.Silverlight.Demos;
private void AnnAutomation_ShowObjectPropertiesDialog(AnnAutomation automation)
{
// first add a new object to the automation
AnnRectangleObject rectObj = new AnnRectangleObject();
rectObj.Rect = new Rect(100, 100, 100, 100);
rectObj.Stroke = Colors.Blue;
rectObj.Fill = Colors.Yellow;
rectObj.StrokeThickness = 2.0;
automation.Container.Children.Add(rectObj);
// make sure no objects are selected in the automation
automation.SelectNone();
// show the object properties dialog (this should show a message informing you that no objects are currently selected (bring edited)
ShowProperties(automation);
// select (edit) the object we have just added
automation.StartEditing(rectObj, false);
// show the object properties dialog (should show the object properties dialog)
ShowProperties(automation);
}
private void ShowProperties(AnnAutomation automation)
{
// check if we can show the dialog
if(automation.CanShowObjectPropertiesDialog)
automation.ShowObjectPropertiesDialog();
else
MessageBox.Show("Cannot show the object properties dialog because no object is currently being edited (selected)");
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos
Private Sub AnnAutomation_ShowObjectPropertiesDialog(ByVal automation As AnnAutomation)
' first add a new object to the automation
Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
rectObj.Rect = New Rect(100, 100, 100, 100)
rectObj.Stroke = Colors.Blue
rectObj.Fill = Colors.Yellow
rectObj.StrokeThickness = 2.0
automation.Container.Children.Add(rectObj)
' make sure no objects are selected in the automation
automation.SelectNone()
' show the object properties dialog (this should show a message informing you that no objects are currently selected (bring edited)
ShowProperties(automation)
' select (edit) the object we have just added
automation.StartEditing(rectObj, False)
' show the object properties dialog (should show the object properties dialog)
ShowProperties(automation)
End Sub
Private Sub ShowProperties(ByVal automation As AnnAutomation)
' check if we can show the dialog
If automation.CanShowObjectPropertiesDialog Then
automation.ShowObjectPropertiesDialog()
Else
MessageBox.Show("Cannot show the object properties dialog because no object is currently being edited (selected)")
End If
End Sub