Connecting with OLE

Code examples in VB / VBA OLE and Pascal Scripting OLE below show examples of OLE access to the API.

API Calls

VB/VBA (OLE)

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

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

Pascal Scripting (OLE)

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

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