COLSTYLE message

Set or retrieve styles of one or more columns in an edit table control.

Edit table.

styles = Send_Message(controlID, "COLSTYLE", columnno, newstyle)

Parameters are as follows.

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

STYLE property, Bit-wise operators, Edit Table Column Styles, AUTOSIZECOL property, COLDATA property, COLLABEL message, COLWIDTH message, PSStyle property, COLSTYLE message, IConv( expression, "MX"), OConv( expression, "MX"), RTI_Style_Equates

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

Example 2

* Create a dropdown in column 1

Declare function Send_Message

EditTable = @Window:".TABLE_1"

// Column 1 is the column being set up as a drop down.
// Flag the column as a drop down column.

ColStyle = Send_Message(EditTable, "COLSTYLE", 1)

ColStyle = bitor(ColStyle, 0x20000)

ColStyle = Send_Message(EditTable, "COLSTYLE", 1, ColStyle)

// Establish the list of values in the drop down.
ColFormat = Send_Message(EditTable, "COLFORMAT", 1, "Item One":@VM:"Item Two":@VM:"Item Three")

Example 3

* Create a checkbox in column 2

Declare function Send_Message

EditTable = @Window:".TABLE_1"

// This establishes the check box style for column two.
ColStyle = Send_Message(EditTable, "COLSTYLE", 2)

Colstyle = 65536

ColStyle = Send_Message(EditTable, "COLSTYLE", 2, ColStyle)

 

// This establishes the check box text for column two.

ColFormat =  Send_Message(EditTable, "COLFORMAT", 2, "Check this box")

Example 4

* Add Drag and Drop to Columns within an Edittable

EditTable = @Window:".TABLE_1"

* Enable drag and drop to Column 1

ColStyle = Send_Message(EditTable, "COLSTYLE", 1)

ColStyle = bitor(ColStyle, 0x10000000) ; * enabledrag

ColStyle = bitor(ColStyle, 0x20000000) ; * enabledrop

ColStyle = Send_Message(EditTable, "COLSTYLE", 1, ColStyle)

* Enable drag and drop to Column 2

ColStyle = Send_Message(EditTable, "COLSTYLE", 2)

ColStyle = bitor(ColStyle, 0x10000000) ; * enabledrag

ColStyle = bitor(ColStyle, 0x20000000) ; * enabledrop

ColStyle = Send_Message(EditTable, "COLSTYLE", 2, ColStyle)

Example 5

* Multi-line column headings
* Change the Column Headers to multi-line and place data within the header

tableCtrl = @window:".TEST_TABLE"

* Set the column header for column 1 to multi-line

ColStyle = Send_Message(tableCtrl, "COLSTYLE", 1)

ColStyle = bitor(colstyle,262144)

ColStyle = Send_Message(tableCtrl, "COLSTYLE", 1, ColStyle)

 

* Set the column header for column 2 to multi-line

ColStyle = Send_Message(tableCtrl, "COLSTYLE", 2)

ColStyle = bitor(colstyle,262144)

ColStyle = Send_Message(tableCtrl, "COLSTYLE", 2, ColStyle)

 

* Set the height of the column headers for the edittable

x = set_property(tableCtrl,'HEADERHEIGHT',60)

 

* Set the header text

headerText<1> = "This line will wrap within the header."

headerText<2> = "This line contains":char(13): "carriage returns."

x = Set_Property(tableCtrl,"LABEL",headerText)