FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

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.

Tedd