fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Luis Krause
2003-09-17 18:31:43 +00:00
parent a360e087d0
commit 98b1bc7596
2 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
harbour/utils/hbdoc/genng.prg
View File

@@ -1034,25 +1034,25 @@ FUNCTION GenNgTable( oNgi )
nPos := maxelem( afitable )
nPos2 := ASCAN( alensfitem, { | x | x == nPos } )
IF nNumTableItems == 2
cMaxItem := ' ' + "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "»"
cMaxItem := ' ' + "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "»"
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4
oNgi:WritePar( " É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4
ELSE
oNgi:WritePar( "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4
oNgi:WritePar( "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4
ENDIF
ELSEIF nNumTableItems == 3
cMaxItem := ' ' + "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "»"
cMaxItem := ' ' + "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "»"
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4
oNgi:WritePar( " É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4
ELSE
oNgi:WritePar( "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4
oNgi:WritePar( "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4
ENDIF
ELSEIF nNumTableItems == 4
cMaxItem := ' ' + "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "»"
cMaxItem := ' ' + "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "»"
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4
oNgi:WritePar( " É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4
ELSE
oNgi:WritePar( "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4
oNgi:WritePar( "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4
ENDIF
ENDIF
FOR x := 1 TO LEN( asitable )
@@ -1085,22 +1085,22 @@ FUNCTION GenNgTable( oNgi )
ELSE
IF nNumTableItems == 2
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. )
oNgi:WritePar( " Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. )
ELSE
oNgi:WritePar( "Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. )
oNgi:WritePar( "Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. )
ENDIF
ELSEIF nNumTableItems == 3
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4
oNgi:WritePar( " Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4
ELSE
oNgi:WritePar( "Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4
oNgi:WritePar( "Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4
ENDIF
ELSEIF nNumTableItems == 4
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4
oNgi:WritePar( " Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4
ELSE
oNgi:WritePar( "Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4
oNgi:WritePar( "Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4
ENDIF
ENDIF
@@ -1110,24 +1110,24 @@ FUNCTION GenNgTable( oNgi )
IF nNumTableItems == 2
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4
oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4
ELSE
oNgi:WritePar( "È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4
oNgi:WritePar( "È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4
ENDIF
ELSEIF nNumTableItems == 3
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4
oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4
ELSE
oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4
oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4
ENDIF
ELSEIF nNumTableItems == 4
IF LEN( cMaxItem ) < 76
oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4
oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4
ELSE
oNgi:WritePar( "È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4
oNgi:WritePar( "È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4
ENDIF
ENDIF

6
harbour/utils/hbdoc/genrtf.prg
View File

@@ -113,7 +113,7 @@ FUNCTION ProcessRtf()
LOCAL xAddBlank
LOCAL nNumTopics := 0
LOCAL nCurTopics := 1
LOCAL cBar := " " + Replicate(( ')', 80 )
LOCAL cBar := " " + Replicate( ')', 80 )
LOCAL nMode
LOCAL cFuncName
LOCAL cOneLine
@@ -1087,11 +1087,11 @@ FUNCTION GenRtfTable( oRtf )
nPos := maxrtfelem( afitable )
nPos2 := ASCAN( alensfitem, { | x | x == nPos } )
oRtf:WriteParBox( " " + Replicate(( CHR( 196 ), 80 ) )
oRtf:WriteParBox( " " + Replicate( CHR( 196 ), 80 ) )
FOR x := 1 TO LEN( afiTable )
ortf:WriteParFixed( IF( AT( "|", afiTable[ x ] ) > 0, STRTRAN( afiTable[ x ], "|", " " ), afiTable[ x ] ), '\fi-426\li426' )
NEXT
oRtf:WriteParBox( " " + Replicate(( CHR( 196 ), 80 ) )
oRtf:WriteParBox( " " + Replicate( CHR( 196 ), 80 ) )
// oRtf:WritePar( "" )
afiTable := {}