2010-12-07 21:18

     DIM systm AS QSYSTEM
     DEFSTR tmp = systm.OSName$
     IF (systm.MajorVersion >= 5) AND (systm.MinorVersion >= 0) THEN
      cmdOK.XPStyle
      cmdNew.XPStyle
      cmdOpen.XPStyle
      cmdSave.XPStyle
      cmdOptions.XPStyle
      cmdHelp.XPStyle
      cmdExit.XPStyle
      cmdLeft.XPStyle
      cmdRight.XPStyle
      cmdDown.XPStyle
      cmdUp.XPStyle
      cmdNext.XPStyle
      cmdInsert.XPStyle
      cmdDelete.XPStyle
      cmdPreview.XPStyle
      cmdBrowser.XPStyle
      cmdOptionsOK.XPStyle
      cmdOpttionsCancel.XPStyle
      cmdSaveCode.XPStyle
      cmdCopyCode.XPStyle
      cmdClosePreview.XPStyle
     END IF

2010-12-07 21:18