FiveTech Software tech support forums

Posted: **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

Posted: **Thu Apr 29, 2010 11:14 am**

Code: Select all Expand view: #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

Posted: **Fri Apr 30, 2010 10:22 am**

Posted: **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 !

Posted: **Mon May 03, 2010 9:42 pm**

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

Best Regards
Uwe :lol:

XBROWSE SHOW A RECORD - SUPERLIB