FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xBrowse : using 'Ctrl-PgDn' or key 'end'
Posts: 55
Joined: Fri Jul 08, 2011 06:43 AM
xBrowse : using 'Ctrl-PgDn' or key 'end'
Posted: 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 (fw): Select all Collapse
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
Posts: 55
Joined: Fri Jul 08, 2011 06:43 AM
Re: xBrowse : using 'Ctrl-PgDn' or key 'end'
Posted: Mon Apr 30, 2012 01:21 PM

Sory , reindexing the dbf solves the problem.

Frank

Continue the discussion