AutoDimenOnScale

Boolean value that controls the display of the Disclaimer when Auto Scaling a page if box is checked. Checked (true) displays the disclaimer; unchecked (false) disables display of the disclaimer. The PlanSwift Home / Main Menu ribbon bar Scale Settings control and the window it opens is shown in Figure 1. Click on Auto in the window to control scale automatically (Figure 2). After selecting a scale (from the drop-down shown in Figure 3) and clicking OK, the Auto Scale Disclaimer window (Figure 4) is visible (as long as the AutoDimenOnscale variable is set to true).

Figure 1

Figure 2

Figure 3

Figure 4

API Calls

Delphi

procedure main; 
var
 planswift: IPlanSwift;
 settings: IItem;
 property: IPropertyObject 
begin
 planswift := coPlanSwift.Create();
 settings := planswift.getItem('\Settings');
 property := planswift.GetProperty('AutoDimenOnScale');
 WriteLn(property.RResultAsBoolean()) 
end

//or 
procedure main; 
var
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty('\Settings','AutoDimenOnScale'); 
 WriteLn(property.ResultAsBoolean()) 
end;

C#

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IItem settings = planswift.GetItem(@"\Settings");
	IPropertyObject property = settings.GetProperty("AutoDimenOnScale");
	console.WriteLn(property.ResultAsBoolean())
}

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property = planswift.GetProperty(@"\Settings","AutoDimenOnScale")
	console.WriteLn(property.ResultAsBoolean)
}

VB/VBA (OLE)

Sub main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim settings = planswift.GetItem("\Settings")
    Dim property = settings.GetProperty("AutoDimenOnScale")
    Console.WriteLn(property.ResultAsBoolean());
End Sub

Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","AutoDimenOnScale")
    Console.WriteLn(property.ResultAsBoolean)
End Sub

Pascal Scripting OLE

begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsBoolean(settings,'AutoDimenOnScale'));
end

begin
   ShowMessage(GetResultAsBoolean('\Settings','AutoDimenOnScale'));
end

Pascal Scripting

begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('AutoDimenOnScale');
    ShowMessage(property.ResultAsBoolean);
end

begin
    property := PlanSwift.GetProperty('\Settings','AutoDimenOnScale');
    ShowMessage(property.ResultAsBoolean);
end