xBrowse : using 'Ctrl-PgDn' or key 'end'

xBrowse : using 'Ctrl-PgDn' or key 'end'

Postby Demont Brecht » Mon Apr 30, 2012 12:55 pm

Hello ,

Using xbrowse with a dbf (dbfcdx) i have 3 columns with a index.

When the first column (with a index) is seekcolumn and i press 'Ctrl-PgDn' or key 'end' , the browse shows the first 12 records followed with the last record.

Moving the mouse to the top line from the dialog , clear the browse and displays the last record (oBrw:nColsel seem to be 1 , last record is the active record)

Moving the mouse away from the aplication (or monitor) , the screen is build as expected , the last 13 records with the last record as active.

Two other index(columns) gives no problems.

Next lines are used in the aplication :

oDlg:bGotFocus = { ||oBrw:SetFocus() }

and

oBrw:bGotFocus := { ||ResetOrder(oBrw) }
Code: Select all  Expand view
LOCAL oCol
FOR EACH oCol IN oBrw:aCols
  IF oCol:cOrder IN "AD" .AND. BONALG->(OrdSetFocus())<>oCol:cSortOrder
    oCol:cOrder := IIF(oCol:cOrder=="A","D","A")
    oCol:SetOrder()
    //oBrw:Refresh()
    EXIT
  END
NEXT
RETURN
 

Disabling this line(s) gives no difference.

I am using FWH1203

Frank
Demont Brecht
 
Posts: 55
Joined: Fri Jul 08, 2011 6:43 am

Re: xBrowse : using 'Ctrl-PgDn' or key 'end'

Postby Demont Brecht » Mon Apr 30, 2012 1:21 pm

Sory , reindexing the dbf solves the problem.

Frank
Demont Brecht
 
Posts: 55
Joined: Fri Jul 08, 2011 6:43 am


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 99 guests