change TAG also change RECNO() in BROWSE / GRID ?

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
AUGE_OHR
Posts: 2093
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

change TAG also change RECNO() in BROWSE / GRID ?

Post by AUGE_OHR »

hi,

when change ORDSETFOCUS() under Cl*pper / Xbase++ in a "Browse" it does "stay" on Record
under harbour / HMG "VALUE" / "RECNO" will change after change ORDSETFOCUS() :o

so i need a Workaround :idea:

Code: Select all

PROCEDURE ChangeColAction(nCol)
LOCAL nRecNo

   #IFDEF Use_Browse
      nRecNo := GetProperty( "XPPTEL", "Browse_1", "value")
   #ELSE
      nRecNo := GetProperty( "XPPTEL", "Browse_1", "RecNo")
   #ENDIF

   ORDSETFOCUS( nCol )

   #IFDEF Use_Browse
      SetProperty( "XPPTEL", "Browse_1", "value", nRecNo )
   #ELSE
      SetProperty( "XPPTEL", "Browse_1", "RecNo", nRecNo )
   #ENDIF

   DoMethod( "XPPTEL", "Browse_1", "Refresh" )
RETURN

now it "stay" on Record after "refresh"

---

sometimes "this" Record is "on top" of Screen and sometimes "on Bottom" ... hm
how to make "this" Record show "always on Top" of Screen :?:
have fun
Jimmy
Post Reply