alanit TInforme class

alanit TInforme class

Postby José Luis Sánchez » Thu Feb 10, 2011 3:05 pm

Hello,
As I said, I leave as a contribution the TInforme class I use in my programs of alanit. In the package is the source code of the class, a couple of examples of usage and a document describing the class. The examples in the packet are taken from my program el Puchero, which you can download from http://www.alanit.com and here you have some screen captures

Image
Image
Image

This class is derived from one developed by Manuel Calero Solis, whom I thank for permission to publish the code.

The link to download the class is http://www.box.net/shared/vkvflziqyv
Regards,
José Luis Sánchez
User avatar
José Luis Sánchez
 
Posts: 540
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Re: alanit TInforme class

Postby Bayron » Thu Feb 10, 2011 8:13 pm

Thanks for sharing, It's for programmers like you, that apprentices like me can actually explore all the possibilities of (x)Harbour and FiveWin...
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: alanit TInforme class

Postby Silvio » Thu Feb 10, 2011 10:26 pm

Josè, Great !

I not found Ut_BrwRowConfig( oApp():oGrid )

I made a correction on your Tfsdi ...


::nTop = oApp():oBar:nHeight-1
instead of ::nTop := oApp():oBar:nHeight + 4

because on top you can see a line and the dialog is not near to oBar
this error can be seen when we use xbrowse in that special dialog fsdi

then when on the main window there is Ribbon menu we must change measure of ::nGridBottom !!

IF oApp():oBar:ClassName() == "TRIBBONBAR"
::nGridBottom := (::nBottom / 2) - 90
ELSE
::nGridBottom := (::nBottom / 2) - oApp:oBar:nHeight
ENDIF

instead of ::nGridBottom := (::nBottom / 2) - oApp():oToolBar:nHeight
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Re: alanit TInforme class

Postby Silvio » Fri Feb 11, 2011 11:44 am

Josè,

where I can found these function to test your tInforme class ?

Error: Unresolved external '_HB_FUN_DLGCENTER' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\PPROVEED.OBJ
Error: Unresolved external '_HB_FUN_ADJUSTWND' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\PPROVEED.OBJ
Error: Unresolved external '_HB_FUN_REGISTRAME' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\PPROVEED.OBJ
Error: Unresolved external '_HB_FUN_AGETFONT' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Error: Unresolved external '_HB_FUN_SWAPUPARRAY' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Error: Unresolved external '_HB_FUN_SWAPDWARRAY' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Error: Unresolved external '_HB_FUN_ASCANN' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Error: Unresolved external '_HB_FUN_BTITULO' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Error: Unresolved external '_HB_FUN_BCAMPO' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Error: Unresolved external '_HB_FUN_BPICTURE' referenced from C:\WORK\PRG\FSDI2006\FSDI2006\OBJ\TINFORME.OBJ
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 32 guests