daily pastebin goal
9%
SHARE
TWEET

Untitled

a guest Mar 18th, 2018 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function rti_toggle_Resizing_thread(bResizeFlag)
  2. /*
  3. ** for ud 5.0.0.4 or better
  4. ** Turn reizing thread on or off
  5. ** Usage:
  6. ** rti_toggle_Resizing_thread(1) ; * enable resizing
  7. ** rti_toggle_Resizing_thread(0) ; * disable resizing
  8. ** rti_toggle_Resizing_thread(""); * toggle resizing
  9. **
  10. **  16-may-16  rjc  Created
  11. **  29-Jun-16  rjc  Modifed the return value
  12. */
  13. $Insert logical
  14. $insert RTI_LH_INFO_EQUATES
  15. Declare Function rti_lh_info
  16. If Assigned(bResizeFlag) Else bResizeFlag = ""
  17. Begin Case
  18.     Case bresizeFlag == true$
  19.         new_value = true$
  20.     Case bresizeFlag == false$
  21.         new_value = false$
  22.     Case 1
  23.         * Get the state of the flag
  24.        
  25.         Session_info = rti_lh_info(cmd_session_info$)
  26.         resize_disabled = session_Info<7>
  27.         is_enabled =  Not(resize_disabled)
  28.        
  29.         * Flip It
  30.         new_value = Not(is_enabled)
  31. End Case
  32.  
  33. * Set it
  34. unused = rti_lh_info(cmd_resizing_thread$, new_value )
  35.  
  36. * Confirm it
  37. Session_info = rti_lh_info(cmd_session_info$)
  38. resize_disabled = session_Info<7>
  39. is_enabled =  Not(resize_disabled)
  40. Return Oconv(is_enabled, 'BEnabled,Disabled')
  41.  
  42.  
  43. compile insert RTI_LH_INFO_EQUATES
  44. *  05-17-16  rjc  Added CMD_RESIZING_THREAD$, CMD_SIZELOCK$
  45. EQU CMD_SESSION_INFO$   TO 1
  46. EQU CMD_TABLE_INFO$ TO 2
  47. EQU CMD_LOCK_INFO$  TO 3
  48. EQU CMD_LOCKS_INFO$ TO 4
  49. equ CMD_TABLES_IN_VOL$  TO 5
  50. equ CMD_UNLOCK$     TO 6
  51. Equ CMD_LOGGING$     To 7
  52. Equ CMD_RESIZING_THREAD$ To 8
  53. Equ CMD_SIZELOCK$ To 9
  54.  
  55. * 01-21-17  rjc  
  56. Equ lhi_table_modulo$       To 1
  57.  
  58. Equ lhi_table_framesize$    To 2
  59. Equ lhi_table_percent$      To 3
  60. Equ lhi_table_reccount$     To 4
  61. Equ lhi_table_sizelock$     To 5
  62. Equ lhi_table_threshold$    To 6
  63. Equ lhi_table_realname$     To 7
  64. Equ lhi_table_fileversion$  To 8
  65. Equ lhi_table_alpha$        To 9
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top