Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Style for the specified column(s) (if multiple columns, in an @FM-delimited array).

See also

STYLE propertyBit-wise operatorsEdit Table Column StylesAUTOSIZECOL propertyCOLDATA propertyCOLLABEL messageCOLWIDTH messagePSStyle propertyIConv( expression, "MX"), [expression, "MX")], RTI_Style_Equates

Example

Code Block
declare subroutine LockColumns(Table, Lock)
* This function horizontally locks the specified
* number of edit-table columns
 
Parameters:
Table - [in] id of edit table control
Lock  - [in] number of columns to lock */
 
declare function   Send_Message
declare subroutine Send_Message
 
equ LOCK_STYLE$ to 8192
 
ColCount = Get_Property(Table, "LIMIT") <1>
Styles   = Send_Message(Table, "COLSTYLE", 0, "")
for i = 1 to ColCount
  if i <= Lock then
    Styles<i> = bitor(Styles<i>, LOCK_STYLE$)
  end else
    Styles<i> = bitand(Styles<i>, bitnot(LOCK_STYLE$))
  end
next i
Send_Message(Table, "COLSTYLE", 0, Styles)
return

...