FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Problem with xbrowse with tdatabase - Resolved
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Problem with xbrowse with tdatabase - Resolved
Posted: Sat May 04, 2019 08:32 AM
on oldest application to show records with xbrowse I used
1.) create the xbrowse with coordinates
2.) an array aBrowse where I inserted all fields, titles,pictures and sizes
3) then createfromsource comand

I make a small test

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "xBrowse.ch"

static oElementi

REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL ORDKEYNO,ORDKEYCOUNT,ORDCREATE,ORDKEYGOTO

Function test()
Local oDlg,oGrid
Local cDir:= ".\data\"

      RddSetDefault( "DBFCDX" )


     oElementi:=TDatabase():Open( , cDir+"Elementi", "DBFCDX", .T. )
     oElementi:setorder(2)
     oElementi:gotop()


define dialog oDlg size 600,400

     oGrid := TXBrowse():New(oDlg )
     oGrid:nTop    := 00
     oGrid:nLeft   := 10
     oGrid:nBottom := 200
     oGrid:nRight  := 400

 aBrowse   := {  { { || oElementi:ELATTIVO   }, i18n("Attivo"),80, },;
                  { { || oElementi:ELNOME }, i18n("Descrizione elemento"),80, },;
                  { { || ""  }, i18n("Colore "),80, },;
                  { { || oElementi:ELCOLORE }, i18n("Descr. Colore"),80, },;
                  { { || oElementi:ELORDINE }, i18n("Ordine"),80, },;
                  { { || oElementi:ELLOCK }, i18n("Bloccato"),200, }}


   FOR i := 1 TO Len(aBrowse)
      oCol := oGrid:AddCol()
      oCol:bEditValue := aBrowse[ i, 1 ]
      oCol:cHeader  := aBrowse[ i, 2 ]
      oCol:nWidth   := aBrowse[ i, 3 ]
       if !Empty(aBrowse[ i, 4 ])
            oCol:cEditPicture:=aBrowse[ i, 4 ]
         Endif
      NEXT


 WITH OBJECT  oGrid
     :CreateFromCode()
   END

activate dialog oDlg
return nil


I convert EL-> into oElementi why now not run ok ? How I can to have the same ?


now I resolved with
Code (fw): Select all Collapse
 @0,nSplit+2 XBROWSE oApp:oGrid SIZE oApp():oDlg:nGridBottom,oApp():oDlg:nGridRight PIXEL OF oApp():oDlg ;
           COLUMNS "ELATTIVO","ELNOME","","ELCOLORE","ELORDINE","ELLOCK";
           HEADERS "Attivo","Descrizione elemento","Colore ", "Descr. Colore","Ordine","Bloccato";
      COLSIZES 80,80,80,80,80,80 ;
      CELL LINES NOBORDER ;
      DATASOURCE oElementi


I'd like to have the same schema also because I build the Xbrowse from an external class (tfsdi) with oApp():NewGrid( nSplit )

thanks
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
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Problem with xbrowse with tdatabase
Posted: Sat May 04, 2019 09:11 AM
on six column I have
WITH OBJECT oApp():aCols[6]
:AddResource("BTN_PNG_LOCKSI")
* :AddResource("BTN_PNG_LOCKNO")
:bBmpData := { || IIF( oElementi:ELLOCK,1,) }
:bEditValue := ""
END

but now I see also the value as you can see here
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
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problem with xbrowse with tdatabase
Posted: Sat May 04, 2019 02:26 PM
We advise you NOT to use your old syntax.
Please use it this way.
Code (fw): Select all Collapse
#include "FiveWin.ch"

static oElementi

REQUEST DBFCDX

Function test()
Local oDlg,oGrid
Local cDir:= ".\data\"

   RddSetDefault( "DBFCDX" )

   oElementi:=TDatabase():Open( , cDir+"Elementi", "DBFCDX", .T. )
   oElementi:setorder(2)
   oElementi:gotop()

   DEFINE DIALOG oDlg SIZE 600,400

   aBrowse   := { { "ELATTIVO",  i18n("Attivo"), ,              80, },;
                  { "ELNOME",    i18n("Descrizione elemento"),, 80, },;
                  { "",          i18n("Colore "),,              80, },;
                  { "ELCOLORE",  i18n("Descr. Colore"),,        80, },;
                  { "ELORDINE",  i18n("Ordine"),,               80, },;
                  { "ELLOCK",    i18n("Bloccato"),,             200,} }

   @ 00,10 XBROWSE oGrid SIZE -10,00 PIXEL OF oDlg ;
      DATASOURCE oElementi COLUMNS aBrowse

   WITH OBJECT  oGrid
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg

return nil
Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Problem with xbrowse with tdatabase
Posted: Sat May 04, 2019 03:35 PM

THANKS

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
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Problem with xbrowse with tdatabase
Posted: Sat May 04, 2019 03:47 PM
Sorry ,
I made as your code
Code (fw): Select all Collapse
 
aBrowse   := { { "ELATTIVO",  i18n("Attivo"),               80, },;
                  { "ELNOME",    i18n("Descrizione elemento"), 80, },;
                  { "",          i18n("Colore "),              80, },;
                  { "ELCOLORE",  i18n("Descr. Colore"),        80, },;
                  { "ELORDINE",  i18n("Ordine"),               80, },;
                  { "ELLOCK",    i18n("Bloccato"),             200,} }


       @0,nSplit+2 XBROWSE oApp:oGrid  ;
           SIZE oApp():oDlg:nGridBottom,oApp():oDlg:nGridRight PIXEL;
           OF oApp():oDlg ;
           DATASOURCE oElementi COLUMNS aBrowse


and it make an error ( the same your test corrected)


Code (fw): Select all Collapse
Application
===========
   Path and name: C:\Work\Prg\Bikini_scuola\Bikini\main.Exe (32 bits)
   Size: 5,054,464 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 19.03
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 2 mins 59 secs 
   Error occurred at: 04-05-2019, 17:44:06
   Error description: Error BASE/1070  Argument error: ==
   Args:
     [   1] = N   80
     [   2] = C   @T

Stack Calls
===========
   Called from: .\source\function\VALTOSTR.PRG => CVALTOSTR( 133 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN_ADJUST( 11995 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:ADJUST( 12072 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1431 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE( 1275 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
   Called from: .\source\classes\DIALOG.PRG => TFSDI:INITIATE( 805 )
   Called from: .\source\classes\DIALOG.PRG => TFSDI:ACTIVATE( 330 )
   Called from: source\PElementi.prg => ELEMENTI( 200 )
   Called from: source\main.prg => (b)TAPPLICATION_BUILDRIBBONBAR( 844 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 717 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 917 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1078 )
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
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problem with xbrowse with tdatabase
Posted: Sat May 04, 2019 10:02 PM

Mr. Silivio
Sorry.
I revised it and made a minor correction.
Please use the corrected program.

Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Problem with xbrowse with tdatabase
Posted: Sun May 05, 2019 07:40 AM

ok wich is the variables on ?

{ field, header, ? , size, ? },;

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
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problem with xbrowse with tdatabase
Posted: Sun May 05, 2019 07:56 AM

{ field, header, picture, size, justify, sortorder }

Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Problem with xbrowse with tdatabase
Posted: Sun May 05, 2019 08:39 AM

thanks

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

Static archive · New replies & topics via GitHub Discussions