How can I implement a single click LClick in xBrowse?
I want to convert the use of TCBrowse throughout my applications to xBrowse. My clients are used to just Single Left Clicking to select an item in a listbox.
TIA
David
@ 0, 0 XBROWSE oBrw ALIAS "Tourops" OF oDlg ;
FONT oFont ;
SIZE aSize[1], aSize[2] PIXEL ;
ON CHANGE (oGet:varput(Tourops->name), oGet:Refresh()) ;
ON DBLCLICK (oGet:varput(Tourops->name), oGet:Refresh(), oDlg:End(), lReturn := .t.)
ADD COLUMN TO oBrw HEADER cTitle ;
DATA trim(Tourops->name)+" "+ ;
trim(Tourops->address_1)+" "+trim(Tourops->address_2)+" "+ ;
trim(Tourops->city_town)+" "+trim(Tourops->cnty_state) ;
SIZE 460 ;
TAG cTag ;
ALIGN LEFT
:bKeyDown := {|nKey| if(nKey == pENTER, ;
(oGet:varput(Tourops->name), oGet:Refresh(), oDlg:End(), lReturn := .t.), ;
if(nKey == pESC,(oDlg:End(), lReturn := .f.),))}
:bLButtonUp := { |r,c,f,o| if( o:SelectedCol():lEditable, o:selectedcol():Edit(), ;
(oGet:varput(Tourops->name), oGet:Refresh(), oDlg:End(), lReturn := .t.))}
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 78 guests