Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function rti_toggle_Resizing_thread(bResizeFlag)
- /*
- ** for ud 5.0.0.4 or better
- ** Turn reizing thread on or off
- ** Usage:
- ** rti_toggle_Resizing_thread(1) ; * enable resizing
- ** rti_toggle_Resizing_thread(0) ; * disable resizing
- ** rti_toggle_Resizing_thread(""); * toggle resizing
- **
- ** 16-may-16 rjc Created
- ** 29-Jun-16 rjc Modifed the return value
- */
- $Insert logical
- $insert RTI_LH_INFO_EQUATES
- Declare Function rti_lh_info
- If Assigned(bResizeFlag) Else bResizeFlag = ""
- Begin Case
- Case bresizeFlag == true$
- new_value = true$
- Case bresizeFlag == false$
- new_value = false$
- Case 1
- * Get the state of the flag
- Session_info = rti_lh_info(cmd_session_info$)
- resize_disabled = session_Info<7>
- is_enabled = Not(resize_disabled)
- * Flip It
- new_value = Not(is_enabled)
- End Case
- * Set it
- unused = rti_lh_info(cmd_resizing_thread$, new_value )
- * Confirm it
- Session_info = rti_lh_info(cmd_session_info$)
- resize_disabled = session_Info<7>
- is_enabled = Not(resize_disabled)
- Return Oconv(is_enabled, 'BEnabled,Disabled')
- compile insert RTI_LH_INFO_EQUATES
- * 05-17-16 rjc Added CMD_RESIZING_THREAD$, CMD_SIZELOCK$
- EQU CMD_SESSION_INFO$ TO 1
- EQU CMD_TABLE_INFO$ TO 2
- EQU CMD_LOCK_INFO$ TO 3
- EQU CMD_LOCKS_INFO$ TO 4
- equ CMD_TABLES_IN_VOL$ TO 5
- equ CMD_UNLOCK$ TO 6
- Equ CMD_LOGGING$ To 7
- Equ CMD_RESIZING_THREAD$ To 8
- Equ CMD_SIZELOCK$ To 9
- * 01-21-17 rjc
- Equ lhi_table_modulo$ To 1
- Equ lhi_table_framesize$ To 2
- Equ lhi_table_percent$ To 3
- Equ lhi_table_reccount$ To 4
- Equ lhi_table_sizelock$ To 5
- Equ lhi_table_threshold$ To 6
- Equ lhi_table_realname$ To 7
- Equ lhi_table_fileversion$ To 8
- Equ lhi_table_alpha$ To 9
Add Comment
Please, Sign In to add comment