I'm new to FiveWin. 
I have a generic routine for browsing files in Clipper. I called it DbBrowse(nRow1, nCol1, nRow2, nCol2, aoColumns, ...). Basically I send the coordinates and the Columns (array) and that's it. How can I implement these using FiveWin ?
How can I implement a report with preview ? I need the simplest example of both (TBrowse & a report) using FiveWin. Thank you.
HunterEc:
There are many samples in C:\FW\Samples folder, I'm sure you
will find what you need.
Regards
@ 1, 1 LISTBOX oLbx ;
FIELDS Clients->Name, AllTrim( Clients->Address ),;
Clients->Phone, Str( Clients->Age, 3 ) ;
HEADERS "Name", "Address", "Phone", "Age" ;
FIELDSIZES 222, 213, 58, 24 ;
SIZE 284, 137 OF oWnd#include "FiveWin.ch"
#include "report.ch"
function Main()
local oReport
USE TEST INDEX TEST NEW
REPORT oReport TITLE "*** My First Report ***" PREVIEW
COLUMN TITLE "St" DATA Test->State
COLUMN TITLE "First Name" DATA Test->First
COLUMN TITLE " Salary" DATA Test->Salary
END REPORT
oReport:CellView()
ACTIVATE REPORT oReport
CLOSE TEST
RETURN NILAntonio:
Thank you for your help and GREAT support. On the browse subject, is there a way to receive the columns as PARAMETERS and then do the browse. This way I can port my generic TBrowse routine? On the example that you posted, fields are hard coded. Thanks in advance.
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oBrw
USE TEST
DEFINE DIALOG oDlg;
SIZE 800, 600
@ 0, 0 LISTBOX oBrw FIELDS
oBrw:bLine = &( "{ || { TEST -> last, TEST -> first } }" )
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER
CLOSE
RETURN NILEnrico: thank you very much for your example. Now, how can I make this LISTBOX pop up when the user press, for example, F2 to activate a lookup window (which will be the listbox). Thank you.
Enrico: if I use the Test file VIA DBFCDX in your example and REQUEST & link the library, the LISTBOX does not come up on screen. Any thoughts on this? Thank you.
Gustavo,
You have all the required tools to build your application in 32 bits with Harbour/xHarbour and FWH.
We strongly recommend you to migrate your application to 32 bits. It will solve many troubles
HunterEC wrote:Enrico: thank you very much for your example. Now, how can I make this LISTBOX pop up when the user press, for example, F2 to activate a lookup window (which will be the listbox). Thank you.
SETKEY( VK_F2, { || YourLookUpFunction() } )oDlg:bKeyDown = { || If( GetKeyState( VK_F2 ), YourLookUpFunction(), ) }HunterEC wrote:Enrico: if I use the Test file VIA DBFCDX in your example and REQUEST & link the library, the LISTBOX does not come up on screen. Any thoughts on this? Thank you.
#include "Fivewin.ch"
REQUEST DBFCDX
FUNCTION MAIN()
LOCAL oDlg, oBrw
RDDSETDEFAULT( "DBFCDX" )
USE TEST
DEFINE DIALOG oDlg;
SIZE 800, 600
@ 0, 0 LISTBOX oBrw FIELDS
oBrw:bLine = &( "{ || { TEST -> last, TEST -> first } }" )
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER
CLOSE
RETURN NILAnyway, I agree with Antonio: 32 bit is the way to go. 16 bit is a dead platform.
EMG
Enrico:
Thank you for your help & suggestion to move up to 32 bits. 