Versions Compared

Old Version 1

changes.mady.by.user Corby Nagel

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

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

...

The Styles that can be set are outlined in the Edit Table Column Styles topic of the Programmer's Reference.

See also

Edit Table Column Styles, COLSTYLE message, DROPDOWNLIST_BY_POS message, COLDROPDOWNLIST message,RTI_Style_Equates

Examples

 
Code Block
******************************************************************
 
// Flag the first column In an edit table as a drop down column.
// The drop down will allow for the entering of data not in the
// drop down list.
posStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0)
posStyle = bitor(posStyle, DTCS_DROPDOWNEDIT$)
posStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0, posStyle)
 
// Establish the list of values in the drop down.
dropdownItems = "Gold" : @vm : "Silver" : @vm : "Bronze"
 
// Populate the Drop Down values In the column
dropDownList = Send_Message(EditTable, "COLDROPDOWNLIST", 1,  dropdownItems)
 
******************************************************************
 
// Place an Options button in the cell in the third column
// in the first row of an edittable
posStyle = Send_Message(EditTable, "STYLE_BY_POS", 3, 1)
posStyle = bitor(ColStyle,  DTCS_OPTIONSBUTTON$)
posStyle = Send_Message(EditTable, "STYLE_BY_POS", 3, 1, posStyle)
 
******************************************************************
 
// Create a CheckBox in the Cell at Column 2, Row 5
origColStyle = Send_Message(EditTable, "STYLE_BY_POS", 2,5)
newColStyle = bitor(origColStyle,  DTCS_CHECKBOX$)
ColStyle = Send_Message(EditTable, "STYLE_BY_POS", 2, 5, newColStyle)
 
// Create a CheckBox across Row 6
origColStyle = Send_Message(EditTable, "STYLE_BY_POS", 0,6)
newColStyle = bitor(origColStyle,  DTCS_CHECKBOX$)
ColStyle = Send_Message(EditTable, "STYLE_BY_POS", 0, 6, newColStyle)
 
// Create a CheckBox in column 1
origColStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0)
newColStyle = bitor(origColStyle,  DTCS_CHECKBOX$)
ColStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0, newColStyle)
 
******************************************************************
 
// Create a DropDown in the Cell at Column 2, Row 5
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2,5 )
newColStyle = bitor( origColStyle,  DTCS_DROPDOWN$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 5, newColStyle )
dropDownList = "Yes" : @vm : "No"
dropDown = Send_Message( EditTable, "DROPDOWNLIST_BY_POS", 2, 5, dropDownList )
 
// Create a Drop Down across Row 6
origColStyle = Send_Message(EditTable, "STYLE_BY_POS", 0,6)
newColStyle = bitor(origColStyle,  DTCS_DROPDOWN$)
ColStyle = Send_Message(EditTable, "STYLE_BY_POS", 0, 6, newColStyle)
dropDownList = "Yes" : @vm : "No" : @vm : "Meaningless"
dropDown = Send_Message( EditTable, "DROPDOWNLIST_BY_POS", 0, 6, dropDownList )
 
// Create a Drop Down in column 1
origColStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0)
newColStyle = bitor(origColStyle,  DTCS_DROPDOWN$)
ColStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0, newColStyle)
dropDownList = "A" : @vm : "B" : @vm : "C"
dropDown = Send_Message( EditTable, "DROPDOWNLIST_BY_POS", 1, 0, dropDownList )
 
******************************************************************
 
// Hide Column 2
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 0  )
newColStyle = bitor( origColStyle,  DTCS_HIDDEN$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 0, newColStyle )
 
// Unhide Column 2
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 0  )
newColStyle = bitand(origColStyle, bitNot( DTCS_HIDDEN$ ) )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 0, newColStyle )
 
******************************************************************
 
// Protect the  cell  at Column 1, Row 2
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 1, 2  )
newColStyle = bitor( origColStyle,  DTCS_PROTECT$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 1, 2, newColStyle )
 
// Protect the  all cells within Row 5
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 0, 5  )
newColStyle = bitor( origColStyle,  DTCS_PROTECT$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 0, 5, newColStyle )
 
******************************************************************
 
// Create multiline cells in column 1
colStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0)
colStyle = bitOr(colStyle, DTCS_MULTILINE$)
colStyle = bitOr(colStyle, DTCS_VSCROLL$)
colStyle = bitOr(colStyle, DTCS_HSCROLL$)
colStyle = bitOr(colStyle, DTCS_AUTOVSCROLL$)
colStyle = bitOr(colStyle, DTCS_AUTOHSCROLL$)
colStyle = Send_Message(EditTable, "STYLE_BY_POS", 1, 0, colStyle)
 
multilineText  = "This is an example of mulitline text within "
multilineText := "an edit table cell.":char(13):char(10)
multilineText := "The lines are separated with cr/lf.":char(13):char(10)
multilineText := "For maximum results set the RowHeight property "
multilineText := "of the edit table to handle more one line of text."
multilineText :=  char(13) : char(10)
 
textByPos = Send_Message(EditTable, "TEXT_BY_POS", 1, 1, multilineText)
rowHeight = Send_Message( EditTable, "ROWHEIGHT", 0, 132)
 
******************************************************************
 
// Set the 2nd row to be an uppercase row
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 0, 2  )
newColStyle = bitor( origColStyle,  DTCS_UPPERCASE$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 0, 2, newColStyle )
 
******************************************************************
 
// Vertical Alignment Styles within the Edit Table
// Set the first column's vertical alignment to Center
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 1, 0  )
newColStyle = bitor( origColStyle,  DTCS_VALIGNCENTER$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 1, 0, newColStyle )
 
// Set the second column's vertical alignment to Bottom
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 0  )
newColStyle = bitor( origColStyle,  DTCS_VALIGNBOTTOM$ )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 2, 0, newColStyle )
 
// Set the third column's vertical alignment to Top.
// There is not a specific style to set the vertical alignment to Top.
// To set the VALIGN style to TOP it is necessary to remove
// the VALIGNBOTTOM and VALIGNCENTER styles.
origColStyle = Send_Message( EditTable, "STYLE_BY_POS", 3, 0  )
newColStyle = bitAnd( origColStyle, bitNot( DTCS_VALIGNBOTTOM$ ) )
newColStyle = bitAnd( newColStyle, bitNot( DTCS_VALIGNCENTER$) )
ColStyle = Send_Message( EditTable, "STYLE_BY_POS", 3, 0, newColStyle )
* Set the RowHeight in order to confirm the alignment
rowHeight = Send_Message( EditTable, "ROWHEIGHT", 0, 64)