Hello Antonio,
attached the source code to test.
Please use the customer.dbf from the samples and delete all records.
Then add 2 records with the test program . You will see that the second
record forces the browser to insert the vertical scrollbar and repaints the
listbox. On a slow device and if you have many controls on the screen this looks
instable.
I would prefer if the scrollbar would be there immediately when I start.
Best regards,
Otto
- Code: Select all Expand view
// FiveWin for Pocket PC - Testing browses with incremental search
#include "FWCE.ch"
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()
local oWnd, oBrw, hBmp := ReadBitmap( CurDir() + "\go.bmp" )
local oSay, cSearch := ""
USE ( CurDir() + "\Customer" ) VIA "DBFCDX"
if ! File( CurDir() + "\LAST.CDX" )
INDEX ON Customer->Last TO ( CurDir() + "\LAST" )
endif
Customer->( OrdSetFocus( "LAST" ) )
Customer->( DbGoTop() )
DEFINE WINDOW oWnd TITLE "IncSearch"
@ 1, 1 LISTBOX oBrw ;
FIELDS hBmp, Customer->Last, Customer->First ;
HEADERS "", "Last", "First" ;
SIZE 220, 167
@ 12, 17 BUTTON "Add" SIZE 80, 30 ;
ACTION (addRec(),oBrw:gobottom(),oBrw:Refresh())
ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "Click!" )
return nil
//----------------------------------------------------------------------------//
function addRec
append blank
Customer->Last := "test"
Customer->First := "test"
return nil
//----------------------------------------------------------------------------//