$PBExportHeader$n_cst_noresize_columns_ingrid.sru
forward
global type n_cst_noresize_columns_ingrid from nonvisualobject
end type
end forward

global type n_cst_noresize_columns_ingrid from nonvisualobject
event type boolean lbuttondown ( unsignedlong flags,  integer xpos,  integer ypos )
end type
global n_cst_noresize_columns_ingrid n_cst_noresize_columns_ingrid

type variables
Protected:

string 	is_noresizecolumn[]
datawindow idw_requestor
integer PROXIMITY_FACTOR =  16 
end variables

forward prototypes
public function integer of_registernoresizecolumn (string as_column)
public function integer of_getregistered (ref string as_regcolumns[])
public function boolean of_isregistered (string as_column)
public function integer of_unregister (string as_column)
public function integer of_setrequestor (datawindow adw_requestor)
public function integer of_setproximity_factor (integer ai_factor)
end prototypes

event type boolean lbuttondown(unsignedlong flags, integer xpos, integer ypos);/*------------------------------------------------------------------------------

 Event   :			 n_cst_noresize_columns_ingrid.Lbuttondown

 Returns:         Boolean

 Parameters:      value UnsignedLong flags
                  value Integer xpos
                  value Integer ypos

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/
IF NOT IsValid(idw_requestor) THEN RETURN FALSE
IF IsNull(idw_requestor) THEN RETURN FALSE
IF idw_requestor.Describe("DataWindow.Processing") <> "1" THEN RETURN FALSE //operate only on grids

integer COL_N, kounter, li_total
boolean lb_near
string ls_obj
long ll_X

long li_colwidth, lix
ls_obj = idw_requestor.GetBandAtpointer( )
IF Pos(ls_obj, "header",  1 ) <>  1  THEN RETURN FALSE
li_total = UpperBound(is_noresizecolumn) 
IF li_total <  1  THEN RETURN FALSE

ll_X = Long( idw_requestor.Describe('datawindow.horizontalscrollposition' ) )
IF ll_X >  0  THEN xpos += ll_X //UnitsToPixels( ll_X, XUnitsToPixels! )

FOR kounter =  1  TO li_total
	lb_near = FALSE
	
	lix = Long(idw_requestor.Describe(is_noresizecolumn[kounter] + ".x"))
	
	li_colwidth = Long(idw_requestor.Describe(is_noresizecolumn[kounter] + ".width"))	
	
	lb_near = (xpos > lix + li_colwidth - PROXIMITY_FACTOR AND xpos <= lix + li_colwidth)
	IF NOT lb_near THEN lb_near = (xpos >= lix + li_colwidth AND xpos < lix + li_colwidth + PROXIMITY_FACTOR)
	IF lb_near THEN RETURN TRUE
NEXT
RETURN lb_near
end event

public function integer of_registernoresizecolumn (string as_column);/*------------------------------------------------------------------------------

 Function:			public n_cst_noresize_columns_ingrid.of_Registernoresizecolumn

 Returns:         Integer

 Parameters:      value String as_column

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/
integer	li_upper
integer	li_cnt


// Check arguments.
If IsNull(as_column) THEN RETURN - 1 

// Trim and Convert to lower case.
as_column = Lower(Trim(as_column))

IF Len(as_column)= 0  Then Return - 1 


// Determine if column is already registered.
IF of_isregistered( as_column) THEN RETURN  1 
// Add to array.
is_noresizecolumn[ UpperBound(is_noresizecolumn) +  1  ] = as_column

Return  1 
end function

public function integer of_getregistered (ref string as_regcolumns[]);/*------------------------------------------------------------------------------

 Function:			public n_cst_noresize_columns_ingrid.of_Getregistered

 Returns:         Integer

 Parameters:      reference String as_regcolumns[]

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/

integer	li_upper
string	ls_empty[]

// Initialize
as_regcolumns = ls_empty


li_upper = UpperBound(is_noresizecolumn)
If li_upper >  0  Then		
		as_regcolumns = is_noresizecolumn
End If


Return UpperBound(as_regcolumns[])
end function

public function boolean of_isregistered (string as_column);/*------------------------------------------------------------------------------

 Function:			public n_cst_noresize_columns_ingrid.of_Isregistered

 Returns:         Boolean

 Parameters:      value String as_column

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/
integer	li_upper
integer	li_cnt

// Check arguments.
If IsNull(as_column) or Len(Trim(as_column))= 0  Then 
	Return False
End If

// Trim and Convert to lower case.
as_column = Lower(Trim(as_column))

// Determine if column is registered.
li_upper = UpperBound(is_noresizecolumn)
For li_cnt =  1  to li_upper
	If is_noresizecolumn[li_cnt] = as_column Then
		// Column was previously registered.
		Return True
	End If
Next

// The column is not registerd.
Return False
end function

public function integer of_unregister (string as_column);/*------------------------------------------------------------------------------

 Function:			public n_cst_noresize_columns_ingrid.of_Unregister

 Returns:         Integer

 Parameters:      value String as_column

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/

integer	li_upper, ii
integer	li_index
boolean lb_found
string ls_newarray[]
// Check arguments.
If IsNull(as_column) or Len(Trim(as_column))= 0  Then 
	Return - 1 
End If

// Get the current number of entries on array.
li_upper = UpperBound (is_noresizecolumn)

// Loop around array and unregister entry if found.
For li_index =  1  to li_upper
	lb_found = Lower(as_column) = Lower(is_noresizecolumn[li_index]) 
	IF lb_found THEN CONTINUE
	ii ++
	ls_newarray[ii]=is_noresizecolumn[li_index]
Next
IF lb_found THEN
	is_noresizecolumn = ls_newarray
	RETURN  1 
END IF

// No maching entry was found to unregister.
Return - 1 
end function

public function integer of_setrequestor (datawindow adw_requestor);/*------------------------------------------------------------------------------

 Function:			public n_cst_noresize_columns_ingrid.of_Setrequestor

 Returns:         Integer

 Parameters:      value DataWindow adw_requestor

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/
If IsNull(adw_requestor) or Not IsValid(adw_requestor) Then
	Return - 1 
End If

idw_Requestor = adw_Requestor
Return  1 
end function

public function integer of_setproximity_factor (integer ai_factor);/*------------------------------------------------------------------------------

 Function:			public n_cst_noresize_columns_ingrid.of_Setproximity_factor

 Returns:         Integer

 Parameters:      value Integer ai_factor

 Copyright ©2003 DTI - Philip Salgannik

 Date Created: 11/17/2003

 Description:	
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/
IF IsNull(ai_factor) THEN RETURN PROXIMITY_FACTOR
IF ai_factor <  1  OR ai_factor >  32  THEN RETURN PROXIMITY_FACTOR

integer li_temp
li_temp = PROXIMITY_FACTOR
PROXIMITY_FACTOR = ai_factor

RETURN li_temp
end function

on n_cst_noresize_columns_ingrid.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_cst_noresize_columns_ingrid.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on