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.

PanZoomHoverTransparency

Owned by Former user (Deleted)
Last updated: Aug 06, 2019 by Daniel Wal (Unlicensed)
2 min read

PanZoomHoverTransparency


Integer value that controls the Hover Zoom/Pan Transparency. Value ranges from 0 to 100 (see Figure 1). Figure 2 shows the light blue transparencies (and darker blue arrows) at the edges of the window and the darker triangular transparencies (arrows) in the corners. Hovering (not clicking) your mouse in any of those blue areas makes the plan scroll quickly in the direction of the arrow. Pressing the keyboard space bar reverses the scrolling direction.


           Figure 1


          Figure 2

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('PanZoomHoverTransparency');
 WriteLn(property.ResultAsInteger()) 
end
Using PlanSwift Object Model 
//or 
procedure main; 
var
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty('\Settings','PanZoomHoverTransparency');
 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("PanZoomHoverTransparency");
	console.WriteLn(property.ResultAsInteger())
}
Using PlanSwift Object Model 
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property = planswift.GetProperty(@"\Settings","PanZoomHoverTransparency")
	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("PanZoomHoverTransparency")
    Console.WriteLn(property.ResultAsInteger());
End Sub
Using PlanSwift Object Model 
Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","PanZoomHoverTransparency")
    Console.WriteLn(property.ResultAsInteger)
End Sub

Pascal Scripting (OLE)

Item Object Model 
begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsInteger(settings,'PanZoomHoverTransparency'));
end
Root Object Model 
begin
   ShowMessage(GetResultAsInteger('\Settings','PanZoomHoverTransparency'));
end

Pascal Scripting

Item Object Model 
begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('PanZoomHoverTransparency');
    ShowMessage(property.ResultAsInteger);
end
Using the PlanSwift Object Model 
begin
    property := PlanSwift.GetProperty('\Settings','PanZoomHoverTransparency');
    ShowMessage(property.ResultAsInteger);
end


Copyright 2023 ConstructConnect