MiniBrowser

MiniBrowser

Postby Silvio.Falconi » Mon Apr 11, 2022 10:34 am

I'm Making a MiniBrowse for show each record of Lottery

I create an array adata where I save the data of record and I wish insert a scrollbar on bottom of xbrowse to refresh the record

Code: Select all  Expand view  RUN

  oDbf:=TDatabase():Open( , "Lotto", "DBFCDX", .T. )
   oDbf:setorder(1)
   oDbf:goBottom()
   nRecord:=oDbf:recno()
   adata:=  Creazione_array(oDbf,nRecord)
 


Image

how do i reload a new record from scrollbar and update the xbrowse?

I made this

@ 135,10 SCROLLBAR HORIZONTAL SIZE 100,10 PIXEL OF oDlg ;
RANGE 1 , oDbf:OrdKeyCount() ;
ON UP (oDbf:SKIP(),adata:= Creazione_array(oDbf,oDbf:RECNO()),oBrw:refresh()) ;
ON DOWN (oDbf:SKIP(-1),adata:= Creazione_array(oDbf,oDbf:RECNO()),oBrw:refresh())


but not work
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm

Re: MiniBrowser

Postby Silvio.Falconi » Mon Apr 11, 2022 10:59 am

Now run
Code: Select all  Expand view  RUN


@ 135,10 SCROLLBAR oScroll HORIZONTAL  SIZE 120,10 PIXEL  OF oDlg ;
    RANGE  1,oDbf:OrdKeyCount() ;
    ON  UP (oDbf:Skip(-1),;
                 Build_Array(oDbf,oDbf:RECNO(),oBrw),;
                 oBrw:refresh(),;
                 oData:refresh(),;
                 oConc:refresh());
    ON DOWN (oDbf:Skip(),;
                 Build_Array(oDbf,oDbf:RECNO(),oBrw),;
                  oBrw:refresh(),;
                  oData:refresh(),;
                  oConc:refresh())  UPDATE

 // ON THUMBPOS ( oDbf:RECNO(),Build_Array(oDbf,oDbf:RECNO(),oBrw),;
  //        oBrw:refresh(),oData:refresh(),oConc:refresh())
 


Image



the thumbpos is not in the right position, and I don't know how to set the thumbpos command !!
I add oScroll:SetPos(oDbf:RECNO() ) but not run ok
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

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