Versions Compared

Old Version 2

changes.mady.by.user Former user

Saved on

compared with

New Version Current

changes.mady.by.user Daniel Wal

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

...

...

...

...

...

...

...

...

...

...

...

...

DefaultAreaTransparency

...

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. The Line Size default setting is not available.API Call:

...

Image Added

             Figure 1


API Calls

Table of Contents
minLevel3

Delphi

Code Block
languagec#delphi
themeRDark
firstline1
titleC#Using IItem Object Model
linenumberstrue
collapsetrue
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("'DefaultAreaTransparency"');
	console. WriteLn(property.ResultAsInteger()) }

//or

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property 
end


Code Block
languagedelphi
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
//or 
procedure main; 
var
 planswift: IPlanSwift;
 property:IPropertyObject;
 begin planswift := coPlanSwift.Create();
 property := planswift.GetProperty(@"'\Settings"',"'DefaultAreaTransparency"');
	console. WriteLn(property.ResultAsInteger()
}) 
end;

C#

Code Block
languagedelphic#
themeRDark
firstline1
titleDelphiUsing IItem Object Model
linenumberstrue
collapsetrue
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('"DefaultAreaTransparency'");
	console.WriteLn(property.ResultAsInteger())
end

//or
procedure main;
var
	planswift: IPlanSwift;
	property:IPropertyObject;
begin
	planswift := coPlanSwift.Create}


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property := planswift.GetProperty('@"\Settings'",'"DefaultAreaTransparency'");

	console.WriteLn(property.ResultAsInteger()) 
end;)
}

VB/VBA (OLE)

Code Block
languagevb
themeRDark
firstline1
titleVB \ VBA (OLE)Using IItem Object Model
linenumberstrue
collapsetrue
Sub main()
    	Dim planswift = CreateObject("PlanSwift9.PlanCenter")
   	 Dim settings = planswift.GetItem("\Settings")
    	Dim property = settings.GetProperty("DefaultAreaTransparency")
    	Console.WriteLn(property.ResultAsInteger());
End Sub


Code Block
languagevb
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
Sub Main()
//or  Sub Main() 	Dim planswift = CreateObject("PlanSwift9.PlanCenter")
   	 Dim nameProperty = planswift.GetProperty("\Settings","DefaultAreaTransparency")
	    Console.WriteLn(property.ResultAsInteger)
End Sub

Pascal Scripting (OLE)

delphi
Code Block
language
collapse
themeRDark
firstline1
titlePlanSwift ScriptingItem Object Model
linenumberstruetrue
begin
    	settings := PlanSwift.getItem('\Settings');
 	property  := settings.GetProperty(ShowMessage(GetResultAsInteger(settings,'DefaultAreaTransparency');
	ShowMessage(property.ResultAsInteger);
end


Code Block
themeRDark
titleRoot Object Model
linenumberstrue
begin
 //or

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

begin

Pascal Scripting

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
begin
    settings := PlanSwift.getItem('\Settings');
	ShowMessage(GetResultAsInteger(settings,
    property := settings.GetProperty('DefaultAreaTransparency');
    ShowMessage(property.ResultAsInteger);
end


Code Block
themeRDark
titleUsing the PlanSwift Object Model
linenumberstrue
begin
 //or  begin property   ShowMessage(GetResultAsInteger:= PlanSwift.GetProperty('\Settings','DefaultAreaTransparency');
    ShowMessage(property.ResultAsInteger);
end

Image Removed

...