NewAreaHotKey
Integer value returns an ANSI key code (default code 49, the number 1) for the New Area hotkey. Figure 1 shows where the New Area hotkey is assigned. Figure 2 shows where New Area is invoked on the Main Ribbon Bar.
![](https://constructconnect-help.atlassian.net/wiki/download/thumbnails/34244167/127a%20New%20Area%20Hotkey.png?version=2&modificationDate=1518696049000&cacheVersion=1&api=v2&width=360&height=250)
Figure 1
![](https://constructconnect-help.atlassian.net/wiki/download/thumbnails/34244167/127a%20New%20Area.png?version=1&modificationDate=1518438765000&cacheVersion=1&api=v2&width=757&height=150)
Figure 2
API Calls
Delphi
procedure main;
var
planswift: IPlanSwift;
settings: IItem;
property: IPropertyObject
begin
planswift := coPlanSwift.Create();
settings := planswift.getItem('\Settings');
property := planswift.GetProperty('NewAreaHotKey');
WriteLn(property.ResultAsInteger())
end
//or
procedure main;
var
planswift: IPlanSwift;
property:IPropertyObject;
begin
planswift := coPlanSwift.Create();
property := planswift.GetProperty('\Settings','NewAreaHotKey');
WriteLn(property.ResultAsInteger())
end;
C#
private void Main()
{
PlanSwift planswift = new PlanSwift();
IItem settings = planswift.GetItem(@"\Settings");
IPropertyObject property = settings.GetProperty("NewAreaHotKey");
console.WriteLn(property.ResultAsInteger())
}
private void Main()
{
PlanSwift planswift = new PlanSwift();
IPropertyObject property = planswift.GetProperty(@"\Settings","NewAreaHotKey")
console.WriteLn(property.ResultAsInteger)
}
VB/VBA (OLE)
Sub main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim settings = planswift.GetItem("\Settings")
Dim property = settings.GetProperty("NewAreaHotKey")
Console.WriteLn(property.ResultAsInteger());
End Sub
Sub Main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim nameProperty = planswift.GetProperty("\Settings","NewAreaHotKey")
Console.WriteLn(property.ResultAsInteger)
End Sub
Pascal Scripting (OLE)
begin
settings := getItem('\Settings');
ShowMessage(GetResultAsInteger(settings,'NewAreaHotKey'));
end
begin
ShowMessage(GetResultAsInteger('\Settings','NewAreaHotKey'));
end
Pascal Scripting
begin
settings := PlanSwift.getItem('\Settings');
property := settings.GetProperty('NewAreaHotKey');
ShowMessage(property.ResultAsInteger);
end
begin
property := PlanSwift.GetProperty('\Settings','NewAreaHotKey');
ShowMessage(property.ResultAsInteger);
end