Navigation: ABC Library Reference > BrowseClass > BrowseClass Methods >====== TakeLocate (a virtual to process each sort)  ====== |    |
TakeLocate, VIRTUAL
The TakeLocate method sets the active sort and filter criteria, and enables any necessary popup activity.
Implementation:
The BrowseClass.TakeEvent method calls the TakeLocate method for each Locate event.
Example:
BrowseClass.TakeLocate PROCEDURE
CurSort USHORT,AUTO
I USHORT,AUTO
CODE
IF ~SELF.Query&=NULL
IF SELF.Query.Ask()
DO SS ! Set Sort.
END
! Remap Right-click popup.
IF SELF.Query.QkSupport AND ~(SELF.Popup &= NULL)
SELF.Query.SetQuickPopup(SELF.Popup,SELF.QueryControl)
END
END
SS ROUTINE
IF SELF.QueryShared
CurSort = POINTER(SELF.Sort)
LOOP I = 1 TO RECORDS(SELF.Sort)
PARENT.SetSort(I)
DO SF
END
PARENT.SetSort(CurSort)
ELSE
DO SF
END
SELF.ResetSort(1)
SF ROUTINE
SELF.SetFilter(SELF.Query.GetFilter(),'9 - QBE')
IF SELF.QueryResult
SELF.QueryResult{PROP:Text} = SELF.Query.GetFilter()
END