open

pfcdwsrv.pbl   >   pfc_w_filterextended   >   open

Name	Datatype
li_cnt	integer
li_upper	integer
lnv_string	n_cst_string
ls_filter	string
lstr_column	os_column[]

event open;call super::open;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  open
//
//	Description:
//	Initialize window
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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.
//
//////////////////////////////////////////////////////////////////////////////

integer	li_upper
integer	li_cnt
string	ls_filter
os_column	lstr_column[]
n_cst_string lnv_string

SetPointer (HourGlass!)
tab_1.tabpg_functions.gb_3.SetPosition (tobottom!)

inv_filterattrib = Message.PowerObjectParm

// Allow window to close without the CloseQuery checks being performed
ib_disableclosequery = true

// Start the base window service
this.of_SetBase (true)

// Center this window.
inv_base.of_Center()

// Display original filter in the filter mle.
ls_filter = inv_filterattrib.is_filter
If Pos(ls_filter, "~~~~'") > 0 And  Pos(ls_filter, "~~~~~~'") = 0 Then
	ls_filter = lnv_string.of_GlobalReplace(ls_filter, "~~~~'", "~~'")	
End If
mle_filter.text = ls_filter
mle_filter.SelectText (1, Len (mle_filter.text))
mle_filter.SetFocus() 

// Display initial function categories
if tab_1.tabpg_functions.dw_functioncategory.RowCount() > 0 then
	tab_1.tabpg_functions.dw_functioncategory.SetRow (1)
	tab_1.tabpg_functions.dw_functioncategory.event rowfocuschanged (1)
	tab_1.tabpg_functions.dw_functioncategory.SelectRow (1, true)
end if

// Populate columns tabpage
li_upper = UpperBound (inv_filterattrib.is_columns)
for li_cnt = 1 to li_upper
	lstr_column[li_cnt].s_colname = inv_filterattrib.is_columns[li_cnt]
	lstr_column[li_cnt].s_colnamedisplay = inv_filterattrib.is_colnamedisplay[li_cnt]
	lstr_column[li_cnt].s_dbname = inv_filterattrib.is_dbnames[li_cnt]
next
tab_1.tabpg_columns.dw_columns.object.data = lstr_column
if tab_1.tabpg_columns.dw_columns.RowCount() > 0 then
	tab_1.tabpg_columns.dw_columns.SetRow (1)
	tab_1.tabpg_columns.dw_columns.event rowfocuschanged (1)
	tab_1.tabpg_columns.dw_columns.SelectRow (1, true)
end if
end event

Name	Owner
dragobject.setfocus	dragobject
dragobject.setposition	dragobject
datawindow.rowcount	datawindow
datawindow.selectrow	datawindow
datawindow.setrow	datawindow
multilineedit.selecttext	multilineedit
systemfunctions.len	systemfunctions
systemfunctions.pos	systemfunctions
systemfunctions.setpointer	systemfunctions
systemfunctions.upperbound	systemfunctions
pfc_n_cst_string.of_globalreplace	pfc_n_cst_string
pfc_w_master.of_setbase	pfc_w_master
pfc_n_cst_winsrv.of_center	pfc_n_cst_winsrv
pfc_w_filterextended.dw_functioncategory.rowfocuschanged	dw_functioncategory
pfc_u_dw.rowfocuschanged	pfc_u_dw
pfc_w_master.open	pfc_w_master

Full name
pfc_w_filterextended
pfc_w_filterextended.tab_1
pfc_w_filterextended.tabpg_functions
pfc_w_filterextended.tabpg_columns
pfc_w_filterextended.os_column
demopfc