Integer value that sets the Area transparency default. Values range from 0 to 255, with 100 being the default. Figure 1 shows the DefaultAreaTransparency controls in both the Settings screen and the U-T-H Settings / Advanced Properties.
Figure 1
API Calls
Delphi
Using IItem Object Model
procedure main;
var
planswift: IPlanSwift;
settings: IItem;
property: IPropertyObject
begin
planswift := coPlanSwift.Create();
settings := planswift.getItem('\Settings');
property := planswift.GetProperty('DefaultAreaTransparency');
WriteLn(property.ResultAsInteger())
end
Using PlanSwift Object Model
//or
procedure main;
var
planswift: IPlanSwift;
property:IPropertyObject;
begin planswift := coPlanSwift.Create();
property := planswift.GetProperty('\Settings','DefaultAreaTransparency');
WriteLn(property.ResultAsInteger())
end;
C#
Using IItem Object Model
private void Main()
{
PlanSwift planswift = new PlanSwift();
IItem settings = planswift.GetItem(@"\Settings");
IPropertyObject property = settings.GetProperty("DefaultAreaTransparency");
console.WriteLn(property.ResultAsInteger())
}
Using PlanSwift Object Model
private void Main()
{
PlanSwift planswift = new PlanSwift();
IPropertyObject property = planswift.GetProperty(@"\Settings","DefaultAreaTransparency")
console.WriteLn(property.ResultAsInteger)
}
VB/VBA (OLE)
Using IItem Object Model
Sub main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim settings = planswift.GetItem("\Settings")
Dim property = settings.GetProperty("DefaultAreaTransparency")
Console.WriteLn(property.ResultAsInteger());
End Sub
Using PlanSwift Object Model
Sub Main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim nameProperty = planswift.GetProperty("\Settings","DefaultAreaTransparency")
Console.WriteLn(property.ResultAsInteger)
End Sub
Pascal Scripting (OLE)
Item Object Model
begin
settings := getItem('\Settings');
ShowMessage(GetResultAsInteger(settings,'DefaultAreaTransparency'));
end
Root Object Model
begin
ShowMessage(GetResultAsInteger('\Settings','DefaultAreaTransparency'));
end
Pascal Scripting
Item Object Model
begin
settings := PlanSwift.getItem('\Settings');
property := settings.GetProperty('DefaultAreaTransparency');
ShowMessage(property.ResultAsInteger);
end
Using the PlanSwift Object Model
begin
property := PlanSwift.GetProperty('\Settings','DefaultAreaTransparency');
ShowMessage(property.ResultAsInteger);
end