home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / misc.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.9 KB  |  99 lines
  1. '***********************************************************************
  2. '    FormDev: Misc.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. EXTERNAL "User" PROC FD_ProcSM (word, word, word, long) ALIAS "SendMessage"
  10.  
  11. PROC FormSetFoc (itemID)
  12.     LOCAL    v
  13.     v = FormQObject(itemID)
  14.     IF v[_FQO_ItemNum] THEN
  15.         IF v[_FQO_ItemType] = _TextBox THEN
  16.             FD_ProcSM(v[_FQO_Hwnd], 1025, 0, -2^16)
  17.         END IF
  18.         FormModifyObject(itemID, _SetFocus)
  19.     END IF
  20. END PROC
  21.  
  22. FUNC ColorPack(c)
  23.     IF QVar(c, _Scalar) THEN
  24.         RETURN -c
  25.     ELSE
  26.         RETURN (Round(c[1]*100) + Round(c[2]*100)*1000) + Round(c[3]*100)*1000000
  27.     END IF
  28. END FUNC
  29.  
  30. FUNC ColorUnpack(c)
  31.     IF c < 0 THEN
  32.         RETURN -c
  33.     ELSE
  34.         RETURN {c MOD 1000, (c MOD 1000000)\1000, c\1000000}/100
  35.     END IF
  36. END FUNC
  37.  
  38. PROC PPrint(text, indentstr, mylog, myform)
  39.     LOCAL s
  40.  
  41.     s = Substr$(text, _EOLN, _EOLN + indentstr)
  42.     PRINT #mylog, myform; indentstr + s
  43. END PROC
  44.  
  45. FUNC StrRemLeadingWS(s)
  46.     LOCAL i
  47.  
  48.     FOR i = 1 to Len(s)
  49.         ch = Mid$(s, i, 1)
  50.         IF ch <> " " AND ch <> "    " THEN
  51.             RETURN Mid$(s, i)
  52.         END IF
  53.     NEXT i
  54.     RETURN ""
  55. END FUNC
  56.  
  57. FUNC StrLastChar(s, ch)
  58.     LOCAL i
  59.  
  60.     FOR i = Len(s) TO 1 STEP -1
  61.         IF Mid$(s, i, 1) = ch THEN
  62.             RETURN i
  63.         END IF
  64.     NEXT i
  65.     RETURN 0
  66. END FUNC
  67.  
  68. FUNC IsAlphaNumeric(ch)
  69.     IF ch >= "0" AND ch <= "9" THEN
  70.         RETURN 1
  71.     END IF
  72.     IF ch >= "A" AND ch <= "Z" THEN
  73.         RETURN 1
  74.     END IF
  75.     IF ch >= "a" AND ch <= "z" THEN
  76.         RETURN 1
  77.     END IF
  78.     RETURN 0
  79. END FUNC
  80.  
  81. FUNC ValidFormName(s)
  82.     LOCAL    i
  83.  
  84.     SELECT CASE Len(s)
  85.     CASE 1 TO 8
  86.         SELECT CASE Left$(s, 1)
  87.         CASE "A" TO "Z", "a" TO "z"
  88.             FOR i = 2 to Len(s)
  89.                 IF Not(IsAlphaNumeric(Mid$(s, i, 1))) THEN
  90.                     EXIT SELECT
  91.                 END IF
  92.             NEXT
  93.             RETURN 1
  94.         END SELECT
  95.     END SELECT
  96.     INPUT "Form name must be 1 to 8 alphanumeric characters, starting with a letter.", "FormDev";
  97.     RETURN 0
  98. END FUNC
  99.