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

fix to prev

Browse Source
This commit is contained in:
Viktor Szakats
2008-08-20 09:58:46 +00:00
parent 35ad1b2ae4
commit b65f6352ba
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
harbour/contrib/hbnf/popadder.prg
View File

@@ -454,21 +454,21 @@ STATIC FUNCTION _ftAddScreen(aAdder)
_ftPushWin(2+nTopOS,2+nAddSpace,22+nTopOS,30+nAddSpace," Adder ", ;
"<F-1> for Help",,B_DOUBLE)
nCol := 5+nAddSpace
@ 7+nTopOS, nCol SAY " +---+ +---+ +---+"
@ 8+nTopOS, nCol SAY " | | | | | |"
@ 9+nTopOS, nCol SAY " +---+ +---+ +---+"
@ 10+nTopOS, nCol SAY "+---+ +---+ +---+ +---+"
@ 11+nTopOS, nCol SAY "| | | | | | | |"
@ 12+nTopOS, nCol SAY "+---+ +---+ +---+ | |"
@ 13+nTopOS, nCol SAY "+---+ +---+ +---+ | |"
@ 14+nTopOS, nCol SAY "| | | | | | | |"
@ 15+nTopOS, nCol SAY "+---+ +---+ +---+ +---+"
@ 16+nTopOS, nCol SAY "+---+ +---+ +---+ +---+"
@ 17+nTopOS, nCol SAY "| | | | | | | |"
@ 18+nTopOS, nCol SAY "+---+ +---+ +---+ | |"
@ 19+nTopOS, nCol SAY "+---------+ +---+ | |"
@ 20+nTopOS, nCol SAY "| | | | | |"
@ 21+nTopOS, nCol SAY "+---------+ +---+ +---+"
@ 7+nTopOS, nCol SAY ' ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿'
@ 8+nTopOS, nCol SAY ' ³ ³ ³ ³ ³ ³'
@ 9+nTopOS, nCol SAY ' ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ'
@ 10+nTopOS, nCol SAY 'ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿'
@ 11+nTopOS, nCol SAY '³ ³ ³ ³ ³ ³ ³ ³'
@ 12+nTopOS, nCol SAY 'ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ ³ ³'
@ 13+nTopOS, nCol SAY 'ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ³ ³'
@ 14+nTopOS, nCol SAY '³ ³ ³ ³ ³ ³ ³ ³'
@ 15+nTopOS, nCol SAY 'ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ'
@ 16+nTopOS, nCol SAY 'ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿'
@ 17+nTopOS, nCol SAY '³ ³ ³ ³ ³ ³ ³ ³'
@ 18+nTopOS, nCol SAY 'ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ ³ ³'
@ 19+nTopOS, nCol SAY 'ÚÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄ¿ ³ ³'
@ 20+nTopOS, nCol SAY '³ ³ ³ ³ ³ ³'
@ 21+nTopOS, nCol SAY 'ÀÄÄÄÄÄÄÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ'
_ftSetWinColor(W_CURR,W_TITLE)
nCol := 7+nAddSpace
@ 11+nTopOS, nCol SAY "7"