FullScreenCursor

Boolean value controlling whether the cursor crosshairs extend fully up and down and left and right across the screen (see Figure 1). Checked (true) displays extended crosshairs. Unchecked (false) displays shortened crosshairs.


     Figure 1

API Calls

Delphi

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


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

C#

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


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

VB/VBA (OLE)

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


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

Pascal Scripting (OLE)

begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsBoolean(settings,'FullScreenCursor'));
end


begin
   ShowMessage(GetResultAsBoolean('\Settings','FullScreenCursor'));
end

Pascal Scripting


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


begin
    property := PlanSwift.GetProperty('\Settings','FullScreenCursor');
    ShowMessage(property.ResultAsBoolean);
end