|
rbuttondown
|
|
Full name
|
pfc_u_dw.rbuttondown
|
Access
|
public
|
Extend of
|
|
Return value
|
|
Prototype
|
event rbuttondown()
|
Name
|
Datatype
|
li_rc
|
integer
|
ll_currow
|
long
|
ls_colname
|
string
|
ls_curcolname
|
string
|
event rbuttondown;//////////////////////////////////////////////////////////////////////////////
// Event: rbuttondown
// Description: Allow for focus change on rbuttondown
//////////////////////////////////////////////////////////////////////////////
// Rev. History Version
// 5.0 Initial version
// 6.0 Added Linkage service notification.
//////////////////////////////////////////////////////////////////////////////
// Copyright © 1996-1999 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_rc
long ll_currow
string ls_colname
string ls_curcolname
// Validate arguments.
if not ib_RMBfocuschange or IsNull (dwo) or row <= 0 then return
if IsValid (inv_Linkage) then
If inv_Linkage.event pfc_rbuttondown (xpos, ypos, row, dwo) <> &
inv_Linkage.CONTINUE_ACTION then
// The user or an error prevents changing to a new row.
return
end if
end if
if IsValid (inv_RowSelect) then inv_RowSelect.event pfc_rbuttondown (xpos, ypos, row, dwo)
if dwo.type <> "column" then return
// Perform no action if already over current row/column.
ls_colname = dwo.name
ls_curcolname = this.GetColumnName()
ll_currow = this.GetRow()
if (ls_colname = ls_curcolname) and (row = ll_currow) then return
// Set row & column.
if this.SetRow (row) = 1 then this.SetColumn (ls_colname)
end event