************************************************************************
Confidential Trade Secret.
Copyright 1987-1997 Data Access Corporation, Miami FL, USA
All Rights reserved
DataFlex is a registered trademark of Data Access Corporation.
************************************************************************
$File name  : DFSelLst.pkg
$File title : Selection list (dbList) support for VDF
Notice      :
$Author(s)  : John Tuohy
$Rev History
5/3/00 JJT - If popup search used with batch, make it sensible. Also
clear search-mode when mouse is clicked
************************************************************************
12/18/01 JJT - Fixed bug where string and date masks did work with search key
(removed vk_end from activate and added form_mask to search window)
General cleanup.
5/3/98  JJT -  Fixed bug in Key to not respond to scroll bar clicks.
11/20/97 JJT - Fixed OEM Kbd problems with search box.
11/15/97 JJT - Added Column checkbox support.
11/13/97 JJT - Removed img# from dbList constructor. Why was that there?
10/15/97 JJt - use selst_ds.pkg instead of sellist.pkg
9/4/97  JJT - Modified popup search dialog to use default action button
07/30/97 JJT - Added set current_item check for batch_state
6/24/97  JJT - Added Limited DD Support. Sel-lists now understand DD_NoEnter
Masks, Capslock and DD Labels (via Auto_Label_State). Also
added DD support for Auto-shadow (Auto_shadow_state)
01/16/97 JJT - Make auto_index_State default to TRUE
07/23/96 JJT - New Class names
11/10/95 JJT - Merged with windaf3 for 3.1
05/01/95 JJT - Modified to support Cell and row highlighting
03/28/95 JJT - Removed Layer for 0 class
changed name to dfsellst.pkg
************************************************************************
Dfsellst.pkg  (view source)- import declarations
			
 - dbListSearchDialog : ModalPanel
Construct_Object()
			- integer
SearchOk_State 
Search_ok()
			
 - dbListSearchForm : form
Construct_Object()
			- integer
Seed_Charansi character
 
Activate()
			- Integer
hnd - Integer
rval - Integer
Chr 
 - dbList_ : DataList
SelectionList
 - dbListDS : dbList_
DFSELECTION_LIST
Construct_Object()
			
Set(integer item#)
			- Integer
i 
Key(integer keyval)
			- Integer
rval - Integer
NewKeyVal - Integer
iShift 
Request_Search(integer keyval)
			this is called to pop-up the search box. Pass the first character
to display. If zero, display entire invoking value.
This supports both forms and checkbox values
- Integer
obj - Integer
obj1 - Integer
itm - Integer
fw - Integer
dt - Integer
mg - Integer
opt - Integer
Oldst - Integer
rval - String
val - String
ttl - String
sMask - Integer
bCkbox - Integer
bSt - Search_Dialog : dbListSearchDialog
 
Search()
			
Mouse_Up(integer i1 integer i2)
			
Mouse_Click(integer i1 integer i2)
			
set(integer iItem integer bState)
			Get/Set column_checkbox_state
Use custom object for storage and not checkbox_item_state
- integer
Column_Checkbox_State(integer iItem)
			 - integer
Item_Buffer_Select_State(integer iItem)
			if you are not using DDs you must provide this function. Pass item
number with buffer info in place. Return select-state.
This is the primary augmentation point for determining if an item s/b
checked. Sample usage:
functon item_buffer_select_state integer iItem returns integer
integer iCol bState
get column iItem to iCol
if iCol eq 3 ;
Move (Invt.Qty_on_Hand>0) to bState
function_return bState
end_function
 - String
Item_CheckBox_Value(Integer iItem Integer bState)
			if you are not using DDs you must provide this. Pass item# and
state, return the string value for this item. This is usually only
needed when you support searching in the dbList.
 
Entry_Display(integer i1 integer i2)
			Augment to check for checkbox columns. If found,
get checkbox state of item and send message to display ckbx
- Integer
iBase - Integer
iCnt - Integer
iCols - Integer
iItm - Integer
bSt 
 - dbList : dbListDS
while it may be possible to use these in dbLists it is so unlikely that
we will consider them non-designtime properties
Construct_Object()
			- Integer
Auto_Shadow_State - Integer
Auto_Label_State 
Copy_Item_Options(Integer iDSO Integer iFile Integer iField Integer iDEO Integer iItem)
			************************************************************************//
Procedure Copy_Item_Options                                            //
This procedure will copies limited DD information to the sel-list.     //
(no-enter, capslock, zero-suppress, masks, and auto-labels.            //
************************************************************************//
- Integer
iDEO_Opt - Integer
iDSO_Opt - Integer
iNew_Opt 
Assign_DD_Label(Integer iDSO Integer iFile Integer iField Integer iDEO Integer iItem)
			************************************************************************//
Assign_DD_Label                                                        //
This assigns the DEO's from the DD. This uses short labels and         //
sets column headers.                                                   //
************************************************************************//
- String
sName 
DoAutoShadow()
			- Integer
iItem - Integer
iIndex - Integer
iCnt - Integer
iEle - Integer
iDEO_Opt 
End_Construct_Object()
			- integer
Item_Buffer_Select_State(Integer iItem)
			************************************************************************//
Get Item_Buffer_Select_State                                           //
Returns Select_state based on field's buffer value (not the DD buffer  //
value). Used by entry_display to display checkbox values. It must use  //
the buffer                                                             //
************************************************************************//
- Integer
iFile - Integer
iField - Integer
iServer - Integer
bState - String
sValue 
 - String
Item_CheckBox_Value(Integer iItem Integer bState)
			************************************************************************//
Get Item_Checkbox_value                                                //
Returns the string value for the state passed for the passed item.     //
This is used to a bufer with the data associated with a checkbox state //
************************************************************************//
- Integer
iFile - Integer
iField - Integer
iServer - String
sValue 
 
 - dbListRow : dbList
Just like selection-list except the current item is always
column 0 and only one color is used for the entire highlighted row
 
References (6):
Field References (0):
| Module | Containing Symbol | Line | 
|---|