topic-18680

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

XBROWSE SHOW A RECORD - SUPERLIB
Posted: Thu Apr 29, 2010 07: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

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: XBROWSE SHOW A RECORD - SUPERLIB
Posted: Thu Apr 29, 2010 11:14 AM

Code (fw): Select all Collapse

#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