of_AddColumn

pfcmain.pbl   >   pfc_u_lv   >   of_AddColumn

Name	Datatype
lal_Align	Alignment

public function integer of_AddColumn (string as_columnname, string as_columnlabel);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_AddColumn
//
//	Access:  public
//
//	Arguments:
//	as_ColumnName			The column in the DataWindow object to add as a column in
//									the ListView. 
//	as_ColumnLabel			The heading for the column to display in the ListView
//
//	Returns:		Integer
//					The index of the column if added successfully, -1 if an error occurred
//
//	Description:	Add a column to the ListView control.  It will be displayed in Report View only.
//
//						This function overrides the real of_AddColumn to allow the column width and
//						alignment to be determined by the width of the column in the DataWindow.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Alignment		lal_Align

// Get the alignment of the column in the DataWindow

Choose Case Lower(ids_Source.Describe(as_ColumnName + ".alignment"))
	Case "0"
		lal_Align = Left!
	Case "1"
		lal_Align = Right!
	Case "2"
		lal_Align = Center!
End Choose

// Add the column to the ListView
Return of_AddColumn(as_ColumnName, as_ColumnLabel, lal_Align)

end function

Name	Owner
pfc_u_lv.of_addcolumn	pfc_u_lv

Name	Owner
datastore.describe	datastore
systemfunctions.lower	systemfunctions
pfc_u_lv.of_AddColumn	pfc_u_lv