************************************************************************
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 |
---|