FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Making a test with scrollbar
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Making a test with scrollbar
Posted: Fri Apr 15, 2022 09:47 AM

I wish move a record on a dbf with a scrollbar and show the field data of the record
but I not Know how set ON THUMBPOS

there is a sample to use scrollbar with a dbf ?

I made

@ nRow, ncol Say oSay[9] Prompt "Data Iniziale: " of oDlg SIZE 200,14 PIXEL  FONT oBold
@ nRow, nCol+100 Say oSay[10] Prompt dtoc(oDbf:data) of oDlg SIZE 200,14 PIXEL  FONT oFont
 nRow+=40
@ nRow, ncol SCROLLBAR oScrollInizio HORIZONTAL  SIZE 400,20 PIXEL  OF oDlg ;
   RANGE 1,oDbf:OrdKeyCount() ;
   ON  UP ( oDbf:Skip(-1) , oSay[10]:refresh());
   ON DOWN (oDbf:Skip(), oSay[10]:refresh());
   ON THUMBPOS......
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion