TabRow Properties

[Anonymous]

Not sure when this issue started but I recently noticed it. Our current QV version is 11.2 SR5.

In our applications, we have user facing controls that allow the ability to toggle the tabrow visibility.

This is achieved using the standard vbscript macro as seen in the API guide.

The problem is that when you toggle to the new state (show if hidden; hidden if shown), the tabrow doesn't display/hide properly. This occurs within new and existing applications. I've attached images below to help illustrate the problem.

If you switch back and forth between sheets then the problem corrects itself ...until the next time you run the relative macro.

Does anyone know how to resolve this issue?

[Anonymous]

Anyone have any insight as to how this issue can be resolved?

[Anonymous · Accepted solution]

figured out the solution....here's the result for anyone else who's interested.

'-----------------------------HIDE TAB ROW

SUB HideTabRow

  validateSecurity = checkSecurity ()

  IF validateSecurity = 0 THEN

  SET varTR = ActiveDocument.GetVariable("vTabRow")

  varTR.SetContent 1, TRUE

  EXIT SUB

  END IF

  SET DocProp = ActiveDocument.GetProperties

  DocProp.ShowTabRow = FALSE

  ActiveDocument.SetProperties DocProp

  SET objShell = CreateObject("WScript.Shell")

  objShell.SendKeys "{F6}"

  objShell.SendKeys "{F7}"

END SUB

'--------------------------------------------------------

'-----------------------------SHOW TAB ROW

SUB ShowTabRow

  validateSecurity = checkSecurity ()

  IF validateSecurity = 0 THEN

  SET varTR = ActiveDocument.GetVariable("vTabRow")

  varTR.SetContent 0, TRUE

  EXIT SUB

  END IF

  SET DocProp = ActiveDocument.GetProperties

  DocProp.ShowTabRow = TRUE

  ActiveDocument.SetProperties DocProp

  SET objShell = CreateObject("WScript.Shell")

  objShell.SendKeys "{F6}"

  objShell.SendKeys "{F7}"

END SUB

'--------------------------------------------------------