UNLOADSD.PRG
Upload User: abc1382430
Upload Date: 2013-01-31
Package Size: 1233k
Code Size: 1k
Category:

Applications

Development Platform:

VFP

  1. priv FoxVer
  2. FoxVer=vers()
  3. do case
  4.    case "2.5" $ FoxVer
  5.       if "(X)" $ FoxVer
  6.          rele libr FP25X
  7.       else
  8.          rele libr FP25
  9.       endi
  10.    case "2.6" $ FoxVer
  11.       if "(X)" $ FoxVer
  12.          rele libr FP26X
  13.       else
  14.          rele libr FP26
  15.       endi
  16. endc
  17. rele _SDKPUB,_COPY,_AND,_OR,_XOR,  _NORMAL,_SHADOW,_PARARENT,_OUTLINE,_BACK,_SLOPE,;
  18.      _SCROLL,  _LEFTUP,_LEFTDOWN,_RIGHTUP,_RIGHTDOWN,;
  19.      _LINE,_BAR,_PIE,_BAR3D,_PIE3D
  20. if used("SDKRSC")
  21.    use in SDKRSC
  22. endi
  23. retu