DefaultSegmentTransparency

Integer value that sets the Segment transparency default. Values range from 0 to 255, with 100 being the default. Figure ?? shows the DefaultSegmentTransparency controls in both the Settings screen and the U-T-H Settings / Advanced Properties.

API Call:

C#

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

//or

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

Delphi

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

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

VB \ VBA (OLE)

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

//or

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

PlanSwift Scripting

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

//or

begin
	property := PlanSwift.GetProperty('\Settings','DefaultSegmentTransparency');
	ShowMessage(property.ResultAsInteger);
end
//or

begin
	settings := getItem('\Settings');
	ShowMessage(GetResultAsInteger(settings,'DefaultSegmentTransparency'));
end

//or

begin
   ShowMessage(GetResultAsInteger('\Settings','DefaultSegmentTransparency'));
end

Figure ??

To open any link in a new tab, preserving your position in the current article, just hold down the <CTRL> key on your keyboard before clicking the link or click using your mouse wheel.

DefaultSegmentTransparency