Uniface 8.4 examples and other stuff.

1.     Description:

After do some work on Uniface 8.4 we have generate some representative Uniface code that shows the new Uniface 8.4 functionalists. But on the trx file there are as well other nice stuff, like Crystal Reports 10 signatures, OCX demos, and some “basic” forms coming from training's. Because we do not have time to extract each one of this forms/usp we have made an export of the repository. Disclaimer: Work done by Alejandro Arana at aarana70@yahoo.com.mx and Carles Zaragoza at carlesz@yahoo.com. Use it at your own risk.

2.     Installation:

Easy, just import the following .trx file in your repository. We recommend to import in a new repository. If you want only source I have includes the listings (*.pro).

3.     What you will found:

·        Several Models to support forms.

·        Crystal Reports 10 signatures. A couple of forms testing the functionality. CR.FRM

$CR$ = ""

newinstance "CRAPPLICATION", $CR$

$CRR$ = ""

$CR$->OPENREPORT($CRR$,"C:\USYS8401\CrystalReports\cr.rpt",-)

show

$CROCX$ = ""

$CROCX$ = $ocxhandle("CR.DUMMY") ; Crystal v10 OCX control 'CrystalActiveXReportViewer'

putmess "$procerror>%%$procerror%%% $procerrorcontext>%%$procerrorcontext%%%"

$CROCX$->SET_REPORTSOURCE($CRR$)

$CROCX$->VIEWREPORT()

edit

·        Drag and Drop example (Drag an image from hard disk drop into a Uniface form)

·        Microsoft Internet Explorer signatures and a ClientBrowser testing form.

·        Demo about new “managing file_system”, called DemoDirectorio.

$1 = $LDirList("", "")

GetItem $2, $1, 1

DelItem $1, 1

While ($2 != "")

   LFileCopy "%%$2", "Temp\"

   GetItem $2, $1, 1

   DelItem $1, 1

EndWhile

·        Form playing with $windowsproperties, called DemoWindows

Operation Cascada

Variables

   Numeric vNumInstancias, xPos, yPos

   String  vInstancias, NombreInstancia, propVentana

EndVariables

vInstancias = $instanceChildren("DEMOWINDOWS")

xPos = 0

yPos = 321

While (vInstancias != "")

   GetItem NombreInstancia, vInstancias, 1

   DelItem vInstancias, 1

   propVentana = "XPOS=%%xPos·;YPOS=%%yPos"

   $WindowProperties(NombreInstancia, "XPOS·;YPOS") = propventana

   xPos = xPos + 20

   yPos = yPos + 20

EndWhile

·        Form playing with entity grid, called DemoGrid. Click for an example!

·        Forms showing xml store and so on (working with ACADEMIA model)