...
...
...
...
...
...
...
...
...
...
...
...
...
DefaultSegmentTransparency
...
Integer value that sets the Segment transparency default. Values range from 0 to 255, with 100 being the default. Figure ?? 1 shows the DefaultSegmentTransparency controls in both the Settings screen and the U-T-H Settings / Advanced Properties.API Call:
...
Figure 1
API Calls
Table of Contents minLevel 3
Delphi
Code Block | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
private void Main() { PlanSwift planswift = new PlanSwiftprocedure main; var planswift: IPlanSwift; settings: IItem; property: IPropertyObject begin planswift := coPlanSwift.Create(); IItem settings := planswift.GetItemgetItem(@"'\Settings"'); IPropertyObject property := settingsplanswift.GetProperty("'DefaultSegmentTransparency"'); console. WriteLn(property.ResultAsInteger()) } end |
Code Block | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
//or private void Main() { PlanSwiftprocedure main; var planswift: IPlanSwift; property:IPropertyObject; begin planswift := new PlanSwiftcoPlanSwift.Create(); IPropertyObject property := planswift.GetProperty(@"'\Settings"',"'DefaultSegmentTransparency"'); console. WriteLn(property.ResultAsInteger()) } end; |
C#
Code Block | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
procedure main; var planswift: IPlanSwift; settings: IItem; property: IPropertyObject begin planswift := coPlanSwift.Createprivate void Main() { PlanSwift planswift = new PlanSwift(); IItem settings := planswift.getItemGetItem('@"\Settings'"); IPropertyObject property := planswiftsettings.GetProperty('"DefaultSegmentTransparency'"); console.WriteLn(property.ResultAsInteger()) end //or procedure main; var planswift: IPlanSwift; property:IPropertyObject; begin planswift := coPlanSwift.Create} |
Code Block | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
private void Main() { PlanSwift planswift = new PlanSwift(); IPropertyObject property := planswift.GetProperty('@"\Settings'",'"DefaultSegmentTransparency'"); console.WriteLn(property.ResultAsInteger()) end;) } |
VB/VBA (OLE)
Code Block | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
Sub main() Dim planswift = CreateObject("PlanSwift9.PlanCenter") Dim settings = planswift.GetItem("\Settings") Dim property = settings.GetProperty("DefaultSegmentTransparency") Console.WriteLn(property.ResultAsInteger()); End Sub |
Code Block | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
Sub Main() //or Sub Main() Dim planswift = CreateObject("PlanSwift9.PlanCenter") Dim nameProperty = planswift.GetProperty("\Settings","DefaultSegmentTransparency") Console.WriteLn(property.ResultAsInteger) End Sub |
Pascal Scripting (OLE)
Code Block | language | delphi|||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
begin settings := PlanSwift.getItem('\Settings'); property := settings.GetProperty(ShowMessage(GetResultAsInteger(settings,'DefaultSegmentTransparency'); ShowMessage(property.ResultAsInteger); end |
Code Block | ||||||
---|---|---|---|---|---|---|
| ||||||
begin //or begin property := PlanSwift.GetProperty ShowMessage(GetResultAsInteger('\Settings','DefaultSegmentTransparency'); ShowMessage(property.ResultAsInteger); end //or begin |
Pascal Scripting
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
begin settings := PlanSwift.getItem('\Settings'); |
...
property := settings.GetProperty('DefaultSegmentTransparency'); ShowMessage(property.ResultAsInteger); end |
Code Block | ||||||
---|---|---|---|---|---|---|
| ||||||
begin |
...
|
...
property |
...
:= PlanSwift.GetProperty('\Settings','DefaultSegmentTransparency'); ShowMessage(property.ResultAsInteger); end |
...
...