Antonio el código y todas las fuentes estan para descargar desde el enlace que publique
*
* $Id: pdfhbdoc.c,v 1.2 2005/04/23 06:52:17 guerra000 Exp $
*/
/*
* Harbour Project source code:
* PDF low level Api for HBDOC
*
* Copyright 2000-2004 Luiz Rafael Culik <culikr /at/ brturbo.com>
* www - <!-- m --><a class="postlink" href="http://www.harbour-project.org">http://www.harbour-project.org</a><!-- m -->
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site <!-- m --><a class="postlink" href="http://www.gnu.org/">http://www.gnu.org/</a><!-- m -->).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include <hbapi.h>
#include <hbapiitm.h>
#include "pdflib.h"
PDF *szPDFFile;
#define FONTBOLD "Courier-Bold"
#define FONTNORMAL "Courier"
#define FONTSIZE 10.0/*10.0*/
#define FONTSIZEBOLD 15.0
#define FONTSIZESMALL 10.0 /*10.0*/
#define FONTSIZETABLE 8.5
#define LEAD ((int) (FONTSIZESMALL * 1.0))
#define LEADLINK ((int) (FONTSIZESMALL * 1.3))
#define LEADTABLE ((int) (FONTSIZESMALL * 1.2))
static float fRow = 800;
static float fOldPos;
static float iWidth;
static float fCol;
static int sziFontBold = 0;
static int sziFont = 0;
static int iPage = 1;
static float fCurRow, fCurCol = 0 ,fCurLastCol, fLastRow;
static float fStartCol, fStartCol2;
static PHB_ITEM pArray = { 0 };
static HB_BOOL bInitArray = 0;
static float hb_checkStringWidth( const char * szString );
static float hb_pdfGetHeight( const char *szText );
static void hb_ProcessTableItem( PHB_ITEM p1, PHB_ITEM p2, PHB_ITEM p3, PHB_ITEM p4 );
static HB_ULONG uiLen;
static HB_ULONG uiCount;
static HB_BOOL bTItems;
static HB_BOOL bFItems;
float getText( PDF *p, const char *szText, int iFont, float frow, float fcol, float iw);
void setText( PDF *p, const char *szText, float frow, float fcol, float h, float iw);
HB_FUNC(HB_PDFNEW)
{
const char *szFileResult;
szFileResult= ( char * ) hb_parc( 1 );
if ( szPDFFile == NULL)
{
szPDFFile = PDF_new();
PDF_set_value( szPDFFile, "compress", ( float ) 9);
}
if ( PDF_open_file( szPDFFile, szFileResult ) == -1 )
{
hb_retl( 1 );
}
PDF_set_info( szPDFFile, "Keywords", "XHarbour compiler" );
PDF_set_info( szPDFFile, "Subject" , "XHarbour" ) ;
PDF_set_info( szPDFFile, "Title" , "XHarbour doc guide" );
PDF_set_info( szPDFFile, "Creator" , "HBDOC XHarbour Document Extractor" );
PDF_set_info( szPDFFile, "Author" , "Luiz Rafael Culik" );
sziFont = PDF_findfont( szPDFFile, FONTNORMAL, "host", 0);
sziFontBold = PDF_findfont( szPDFFile, FONTBOLD, "host", 0);
hb_retl( 0 );
}
HB_FUNC(HB_PDFNEWPAGE)
{
const char *szTitleT;
fCurCol = 0;
szTitleT= ( char * ) hb_parc( 1 );
PDF_begin_page( szPDFFile, a4_width, a4_height ); /* start a new page */
PDF_setfont( szPDFFile, sziFontBold, FONTSIZEBOLD );
PDF_show_xy( szPDFFile, szTitleT, 50, fRow -= LEAD );
}
HB_FUNC(HB_PDFENDPAGE)
{
fRow = 800;
PDF_end_page( szPDFFile ); /* close page */
iPage ++ ;
}
HB_FUNC(HB_PDFWRITEBOLDTEXT)
{
const char *szTextT;
szTextT = ( char * ) hb_parc( 1 );
if ( fRow<=40)
{
fRow=800;
PDF_end_page( szPDFFile );
sziFont = PDF_findfont( szPDFFile, FONTNORMAL, "host", 0 );
sziFontBold = PDF_findfont( szPDFFile, FONTBOLD, "host", 0 );
PDF_begin_page( szPDFFile, a4_width, a4_height ); /* start a new page */
iPage ++ ;
}
PDF_setfont( szPDFFile, sziFontBold, FONTSIZESMALL );
PDF_show_xy( szPDFFile, szTextT, 25, fRow -= LEAD );
PDF_setfont( szPDFFile, sziFont, FONTSIZESMALL );
}
HB_FUNC(HB_PDFWRITEBOLDTEXT1)
{
const char *szTextT;
szTextT = ( char * ) hb_parc( 1 );
if ( fRow <= 40 )
{
fRow = 800;
PDF_end_page( szPDFFile );
PDF_begin_page( szPDFFile, a4_width, a4_height ); /* start a new page */
sziFont = PDF_findfont( szPDFFile, FONTNORMAL, "host", 0);
sziFontBold = PDF_findfont( szPDFFile, FONTBOLD, "host", 0);
iPage ++;
}
PDF_setfont( szPDFFile, sziFontBold, FONTSIZEBOLD );
PDF_show_xy( szPDFFile, szTextT, 25, fRow -= LEAD );
PDF_setfont( szPDFFile, sziFont, FONTSIZESMALL );
}
HB_FUNC(HB_PDFWRITETEXT)
{
const char *szTextT;
szTextT = ( char * ) hb_parc( 1 );
if ( fRow <= 40 )
{
fRow=800;
PDF_end_page( szPDFFile );
sziFont = PDF_findfont( szPDFFile, FONTNORMAL, "host", 0);
sziFontBold = PDF_findfont( szPDFFile, FONTBOLD, "host", 0);
PDF_begin_page( szPDFFile, a4_width, a4_height); /* start a new page */
iPage ++;
}
PDF_setfont( szPDFFile, sziFont, FONTSIZESMALL );
PDF_show_xy( szPDFFile, szTextT, 25, fRow -= LEAD);
}
HB_FUNC(HB_PDFCLOSE)
{
hb_itemClear( &pArray );
PDF_close( szPDFFile ); /* close PDF document */
PDF_delete( szPDFFile ); /* delete the PDF object */
szPDFFile=NULL;
sziFontBold=NULL;
sziFont=NULL;
}
HB_FUNC(HB_PDFWRITEARG)
{
const char *szTextT;
const char *szBTextT;
szTextT = ( char * ) hb_parc( 2 );
szBTextT = ( char * ) hb_parc( 1 );
if ( fRow <= 40 )
{
fRow = 800;
PDF_end_page( szPDFFile );
sziFont = PDF_findfont( szPDFFile, FONTNORMAL, "host", 0);
sziFontBold = PDF_findfont( szPDFFile, FONTBOLD, "host", 0);
PDF_begin_page( szPDFFile, a4_width, a4_height); /* start a new page */
iPage ++;
}
PDF_setfont( szPDFFile, sziFontBold, FONTSIZESMALL );
PDF_show_xy( szPDFFile, szBTextT, 25, fRow -= LEAD );
PDF_setfont( szPDFFile, sziFont, FONTSIZESMALL );
PDF_show( szPDFFile, szTextT );
}
HB_FUNC(HB_PDFADDLINK)
{
int iPagetoGo = hb_parni( 2 ) - 1;
const char *szLink;
szLink = ( char * ) hb_parc( 1 );
if (fRow <= 40 )
{
fRow = 800;
PDF_end_page( szPDFFile );
sziFont = PDF_findfont( szPDFFile, FONTNORMAL, "host", 0 );
sziFontBold = PDF_findfont( szPDFFile, FONTBOLD, "host", 0 );
PDF_begin_page( szPDFFile, a4_width, a4_height ); /* start a new page */
PDF_setfont( szPDFFile, sziFont, FONTSIZESMALL );
iPage ++;
}
fCol = ( float ) fRow;
iWidth = hb_checkStringWidth( szLink );
// New Page, so curCol is 0
if ( fCurCol == 0)
{
fCurCol = 60 ;
fLastRow = ( fRow - LEADLINK );
fCurLastCol = ( fCol - LEAD );
fStartCol = 49 ;
fStartCol2 = 50 ;
}
if ( fCurCol + iWidth + 10 <= a4_width )
{
PDF_set_border_color( szPDFFile, ( float ) 1 ,( float ) 1 ,( float ) 1 );
PDF_add_locallink( szPDFFile, fStartCol, fLastRow, fCurCol + iWidth, fCol, iPagetoGo, "fitwidth");
PDF_setrgbcolor( szPDFFile, ( float ) 0, ( float ) 0, ( float ) 1 );
PDF_set_parameter( szPDFFile, "underline", "true" );
PDF_show_xy( szPDFFile, szLink, fStartCol2, fCurLastCol );
PDF_setrgbcolor( szPDFFile, ( float ) 0, ( float ) 0, ( float ) 0);
PDF_set_parameter( szPDFFile, "underline", "false");
fCurCol += 10 + iWidth;
fStartCol += iWidth;
fStartCol2 += iWidth;
if( fCurCol > a4_width )
{
fCurCol = 00 ;
fStartCol = 49 ;
fStartCol2 = 50 ;
fRow -= LEADLINK;
fCol -= LEAD;
}
}
iWidth = 0 ;
}
HB_FUNC(HB_PDFINITBOOK)
{
PHB_ITEM pItems;
pItems = hb_param( 1, HB_IT_ARRAY );
uiLen = hb_arrayLen( pItems );
if ( !bInitArray )
{
pArray = HB_IT_NIL;
hb_arrayNew( &pArray, 0 );
bInitArray = 1;
}
for ( uiCount = 1 ; uiCount <= uiLen ; uiCount++ )
{
const char *szBook = ( char * ) hb_arrayGetCPtr( pItems, uiCount );
int iLevel;
PHB_ITEM TempArray;
PHB_ITEM Temp;
Temp =HB_IT_NIL;
TempArray =HB_IT_NIL;
hb_arrayNew( &TempArray, 2 );
iLevel=PDF_add_bookmark( szPDFFile, szBook, 0, 0);
hb_arraySetForward( &TempArray, 1, hb_itemPutC( &Temp, hb_arrayGetCPtr( pItems, uiCount ) ) );
hb_arraySetForward( &TempArray, 2, hb_itemPutNI( &Temp, iLevel));
hb_arraySetForward( &pArray, uiCount, &TempArray );
hb_itemClear( &Temp ) ;
}
}
HB_FUNC(HB_PDFBOOKMARK)
{
const char *szBook1 =( char * )hb_parc( 2 );
HB_ULONG uiPos;
PHB_ITEM TempArray;
int iParent = 0;
PHB_ITEM pBlock = hb_param( 3, HB_IT_BLOCK );
TempArray = HB_IT_NIL;
//uiPos = hb_arrayScan( &pArray, pBlock, NULL, NULL, 0, 0 );
uiPos = hb_arrayScan( &pArray, pBlock, NULL, NULL, HB_FALSE );
if ( uiPos > 0 )
{
if ( hb_arrayGet( &pArray, uiPos, &TempArray ) )
{
iParent = hb_arrayGetNI( &TempArray, 2 );
hb_itemClear( &TempArray );
}
}
PDF_add_bookmark(szPDFFile, szBook1, iParent, 0);
}
HB_FUNC(HB_GETPAGE)
{
hb_retni( iPage );
}
static HB_BOOL hb_checkRow( float iLine )
{
if ( iLine <= 20 )
{
fRow = 800;
PDF_end_page( szPDFFile );
PDF_begin_page( szPDFFile, a4_width, a4_height); /* start a new page */
iPage ++;
return HB_TRUE ;
}
return HB_FALSE;
}
static float hb_checkStringWidth(const char *szString)
{
float fReturn;
fReturn = PDF_stringwidth( szPDFFile, szString, sziFont, FONTSIZESMALL);
return fReturn;
}
HB_FUNC(HB_PDFTABLE)
{
PHB_ITEM pTableItem ;
PHB_ITEM pTableItem1 ;
PHB_ITEM pTableItem2 ;
PHB_ITEM pTableItem3 ;
HB_ULONG ulPos;
pTableItem = hb_param( 1, HB_IT_ARRAY );
pTableItem1 = hb_param( 2, HB_IT_ARRAY );
pTableItem2 = hb_param( 3, HB_IT_ARRAY );
pTableItem3 = hb_param( 4, HB_IT_ARRAY );
if ( pTableItem2 != NULL)
{
bTItems = HB_TRUE;
}
if ( pTableItem3 != NULL )
{
bFItems = HB_TRUE;
bTItems = HB_FALSE;
}
fRow -= LEAD;
for ( ulPos = 1 ; ulPos <= hb_arrayLen( pTableItem ) ; ulPos ++ )
{
PHB_ITEM TempArray ;
PHB_ITEM TempArray1 ;
TempArray = HB_IT_NIL;
TempArray1 = HB_IT_NIL;
fCol = fRow;
hb_arrayGet( pTableItem, ulPos, &TempArray);
hb_arrayGet( pTableItem1, ulPos, &TempArray1 );
if ( !bTItems && !bFItems)
{
hb_ProcessTableItem( &TempArray, &TempArray1, NULL, NULL);
hb_itemClear( &TempArray );
hb_itemClear( &TempArray1 );
}
if ( bTItems && !bFItems)
{
PHB_ITEM TempArray2;
TempArray2 = HB_IT_NIL;
hb_arrayGet( pTableItem2 , ulPos, &TempArray2 );
hb_ProcessTableItem( &TempArray, &TempArray1, &TempArray2, NULL );
hb_itemClear( &TempArray );
hb_itemClear( &TempArray1 );
hb_itemClear( &TempArray2 );
}
if (!bTItems && bFItems)
{
PHB_ITEM TempArray2 ;
PHB_ITEM TempArray3 ;
TempArray3 = HB_IT_NIL;
TempArray2 = HB_IT_NIL;
hb_arrayGet( pTableItem2, ulPos, &TempArray2 );
hb_arrayGet( pTableItem3, ulPos, &TempArray3 );
hb_ProcessTableItem( &TempArray, &TempArray1, &TempArray2, &TempArray3 );
hb_itemClear( &TempArray );
hb_itemClear( &TempArray1 );
hb_itemClear( &TempArray2 );
hb_itemClear( &TempArray3 );
}
}
bTItems=HB_FALSE;
bFItems=HB_FALSE;
fOldPos=0;
}
static void hb_ProcessTableItem( PHB_ITEM p1, PHB_ITEM p2, PHB_ITEM p3, PHB_ITEM p4)
{
HB_ULONG ulTempPos;
HB_ULONG ulLen;
float fHeight;
float fI;
float iitem, iitem1, iitem2,iitem3;
ulLen = hb_arrayLen( p1 );
for ( ulTempPos = 1 ; ulTempPos <= ulLen ; ulTempPos ++ )
{
const char *szTemp = ( char * ) hb_arrayGetCPtr( p1, ulTempPos );
const char *szTemp1 = ( char * ) hb_arrayGetCPtr( p2, ulTempPos );
if (!bTItems && !bFItems)
{
PDF_setfont( szPDFFile, sziFont, FONTSIZETABLE);
iitem = getText( szPDFFile, szTemp1, sziFont, 293, fRow, 261);
iitem1 = getText( szPDFFile, szTemp, sziFont, 27, fRow, 261);
if ( iitem < iitem1)
{
setText( szPDFFile, szTemp1, 293, fRow, iitem1, 261);
setText( szPDFFile, szTemp, 27, fRow, iitem1, 261);
fRow -= iitem1;
}
else
{
setText( szPDFFile, szTemp1, 293, fRow, iitem, 261);
setText( szPDFFile, szTemp, 27, fRow, iitem, 261);
fRow -= iitem;
}
}
if (bTItems && !bFItems)
{
const char * szTemp2=( char * ) hb_arrayGetCPtr( p3, ulTempPos );
PDF_setfont( szPDFFile, sziFont, FONTSIZETABLE);
iitem = getText( szPDFFile, szTemp2, sziFont, 381, fRow, 173);
iitem1 = getText( szPDFFile, szTemp1, sziFont, 204, fRow, 172);
iitem2 = getText( szPDFFile, szTemp, sziFont, 27, fRow, 172);
if ( iitem > iitem1 && iitem > iitem2)
{
setText( szPDFFile, szTemp2, 381, fRow, iitem, 173);
setText( szPDFFile, szTemp1, 204, fRow, iitem, 172);
setText( szPDFFile, szTemp , 27, fRow, iitem, 172);
fRow -= iitem;
}
if ( iitem2 > iitem && iitem2 >iitem1)
{
setText( szPDFFile, szTemp2, 381, fRow, iitem2, 173);
setText( szPDFFile, szTemp1, 204, fRow, iitem2, 172);
setText( szPDFFile, szTemp, 27, fRow, iitem2, 172);
fRow -= iitem2;
}
if ( iitem1 > iitem && iitem1 > iitem2 )
{
setText( szPDFFile, szTemp2, 381, fRow, iitem1, 173);
setText( szPDFFile, szTemp1, 204, fRow, iitem1, 172);
setText( szPDFFile, szTemp, 27, fRow, iitem1, 172);
fRow -= iitem1;
}
}
if ( !bTItems && bFItems )
{
const char * szTemp2 = ( char * ) hb_arrayGetCPtr( p3, ulTempPos );
const char * szTemp3 = ( char * ) hb_arrayGetCPtr( p4, ulTempPos );
PDF_setfont( szPDFFile, sziFont, FONTSIZETABLE);
iitem1 = getText( szPDFFile, szTemp3, sziFont, 426, fRow, 128 );
iitem2 = getText( szPDFFile, szTemp2, sziFont, 293, fRow, 128 );
iitem = getText( szPDFFile, szTemp1, sziFont, 160, fRow, 128 );
iitem3 = getText( szPDFFile, szTemp, sziFont, 27, fRow, 128 );
if (iitem > iitem1 && iitem > iitem2 && iitem > iitem3)
{
setText( szPDFFile, szTemp3, 426, fRow, iitem, 128);
setText( szPDFFile, szTemp2, 293, fRow, iitem, 128);
setText( szPDFFile, szTemp1, 160, fRow, iitem, 128);
setText( szPDFFile, szTemp, 27, fRow, iitem, 128);
fRow -= iitem;
}
else
{
if (iitem2 > iitem && iitem2 > iitem1 && iitem2 > iitem3)
{
setText( szPDFFile, szTemp3, 426, fRow, iitem2, 128);
setText( szPDFFile, szTemp2, 293, fRow, iitem2, 128);
setText( szPDFFile, szTemp1, 160, fRow, iitem2, 128);
setText( szPDFFile, szTemp, 27, fRow, iitem2, 128);
fRow -= iitem2;
}
else
{
if ( iitem1 > iitem && iitem1 > iitem2 && iitem1 > iitem3)
{
setText( szPDFFile, szTemp3, 426, fRow, iitem1, 128);
setText( szPDFFile, szTemp2, 293, fRow, iitem1, 128);
setText( szPDFFile, szTemp1, 160, fRow, iitem1, 128);
setText( szPDFFile, szTemp, 27, fRow, iitem1, 128);
fRow -= iitem1;
}
else
{
if ( iitem3 > iitem && iitem3 > iitem2 && iitem3 > iitem)
{
setText( szPDFFile, szTemp3, 426, fRow, iitem3, 128);
setText( szPDFFile, szTemp2, 293, fRow, iitem3, 128);
setText( szPDFFile, szTemp1, 160, fRow, iitem3, 128);
setText( szPDFFile, szTemp, 27, fRow, iitem3, 128);
fRow -= iitem3;
}
else
{
setText( szPDFFile, szTemp3, 426, fRow, iitem3, 128);
setText( szPDFFile, szTemp2, 293, fRow, iitem3, 128);
setText( szPDFFile, szTemp1, 160, fRow, iitem3, 128);
setText( szPDFFile, szTemp, 27, fRow, iitem3, 128);
fRow -= iitem3;
}
}
}
}
}
}
}
float getText( PDF *p, const char *szText, int iFont, float frow, float fcol, float iw )
{
float h;
float w;
int c;
h = FONTSIZETABLE * 2;
PDF_setfont( p, iFont, 7.0);
c = PDF_show_boxed( p, szText, frow, fcol, iw, h, "justify", "blind" );
while ( c > 0)
{
h += FONTSIZETABLE;
c = PDF_show_boxed(p, szText, frow, fcol, iw, h, "justify", "blind" );
}
return h;
}
void setText( PDF *p, const char *szText, float frow, float fcol, float h, float iw )
{
PDF_show_boxed( p, szText, frow, fcol, iw, h, "justify", "" );
PDF_rect( p, frow, fcol, iw + 5, h );
PDF_stroke( p );
}
al respecto del tema de que estamos trayendo a colación, cuando transicionaron, y hablando de transiciones 
esta mañana ha sido entronizado Felipe VI como rey de todos los españoles. Viva el rey ! Viva España ! 
