1 Reply Latest reply on Mar 3, 2015 9:06 AM by kendall_hiles

    XPedition, Message Window, check if open, open if closed, per Automation...

    juergen.hinterleitner

      Modul: "XPedition xPCB Layout"

       

      1) Is there a way to find out per Automation, if the "Message Window" is enabled (visible) or closed?

       

      2) When Yes, Is there a way to show/hide this Message Window? (not toggle - exactly: show or not show! /as I want)

       

        • 1. Re: XPedition, Message Window, check if open, open if closed, per Automation...
          kendall_hiles

          This is what I use in AATK and it checks for the Message Window status.

           

           

          '=====================================
          ' Configure Output Tabs in Expedition
          '=====================================
          Function AppendOutput(sOutputTab, str)
              Dim mnu, OutputControl, objTab
              Set mnu = pcbApp.Gui.CommandBars("Document Menu Bar").Controls("&View").Controls("Message Window")
                         
              If mnu.Checked = False Then
                  Call pcbApp.Gui.ProcessCommand(33125)
              End If

              Set OutputControl = pcbApp.Addins.Item("Message Window").Control
              Set objTab = OutputControl.AddTab(sOutputTab)
              Call objTab.Activate
              pcbApp.Addins("Message Window").Control.AddTab(sOutputTab).AppendText (str & vbCrLf)
          End Function

           

          Function ClearOutputWindow(sOutputTab)
              Addins("Message Window").Control.AddTab(sOutputTab).Clear
          End Function

           

           

          -kendall