ASM

PG PRO

Get the status of TICN object

Try this:

LOCAL FN initButtons(theWnd)
  count = FN pGcountObj(theWnd)
  FOR i = 1 TO count
    FN pGgetObj(theWnd,i)
    LONG IF gObjKind = _buttonObj 'button obj
      LONG IF gObjZType = 0 'zero type
        LONG IF gObjUserTp& = _"TICN" 'toggled icon
          gObjUser1 = 2 '"On" state for TICN
          FN pGputObj(theWnd,i)
        END IF
      END IF
    END IF
  NEXT
END FN

This will reset all TICN buttons to "On". You get the status by using FN pGgetObj(theWnd,theObject) and the status is returned/found in gObjUser1.

To force an update in PGPro, when fiddling with FN pGgetObj(theWnd,theObject), simply do:

CALL INVALRECT(gObjT)

This will cause a refresh event.