XBROWSE SHOW A RECORD - SUPERLIB

XBROWSE SHOW A RECORD - SUPERLIB

Postby MdaSolution » Thu Apr 29, 2010 7:34 am

DO YOU REMEMBER THE FUNCTION OF CLIPPER SUPERLIB 3.5 TO SHOW VERTICAL A RECORD ?

HOW I CAN IMPLEMENT tHIS WITH XBROWSE

THANKS
FWH .. BC582.. xharbour
User avatar
MdaSolution
 
Posts: 401
Joined: Tue Jan 05, 2010 2:33 pm

Re: XBROWSE SHOW A RECORD - SUPERLIB

Postby Antonio Linares » Thu Apr 29, 2010 11:14 am

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oDlg, oBrw, oCol, aRecord, nAt := 1
   
   USE Customer
   
   aRecord = Array( Customer->( FCount() ) )
   
   DEFINE DIALOG oDlg SIZE 300, 300

   @ 0, 0 XBROWSE oBrw OF oDlg ARRAY aRecord // AUTOSORT

   oCol = oBrw:AddCol()
   oCol:bStrData = { || Customer->( FieldName( oBrw:nArrayAt ) ) }
   oCol:cHeader = "FieldName"  

   oCol = oBrw:AddCol()
   oCol:bStrData = { || Customer->( FieldGet( oBrw:nArrayAt ) ) }
   oCol:cHeader = "Value"  

   oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW

   oBrw:CreateFromCode()
   oBrw:bKeyCount = { || Customer->( FCount() ) }
   
   oDlg:oClient = oBrw  
     
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oDlg:Resize()
     
return nil
 

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: XBROWSE SHOW A RECORD - SUPERLIB

Postby MdaSolution » Fri Apr 30, 2010 10:22 am

tx
FWH .. BC582.. xharbour
User avatar
MdaSolution
 
Posts: 401
Joined: Tue Jan 05, 2010 2:33 pm

Re: XBROWSE SHOW A RECORD - SUPERLIB

Postby MdaSolution » Mon May 03, 2010 3:38 pm

Antonio,
have you think about it to insert a new method on xbrowse class to show it ?
where the user can edit all fields .... just an idea !
FWH .. BC582.. xharbour
User avatar
MdaSolution
 
Posts: 401
Joined: Tue Jan 05, 2010 2:33 pm

Re: XBROWSE SHOW A RECORD - SUPERLIB

Postby ukoenig » Mon May 03, 2010 9:42 pm

The sample : xbrstru.prg shows how to edit a record vertical
and refreshes the xBrowse.

Image

Best Regards
Uwe :lol:
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 67 guests