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

2001-08-22 01:42 GMT+2 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* source/rtl/tbrowse.prg
     * now that DispBox() works as expected I can use it even for 1 line headers/
       footers inside ::RedrawHeaders()
This commit is contained in:
Maurilio Longo
2001-08-21 23:43:37 +00:00
parent a2bee8b2b3
commit 32c0ca63ba
2 changed files with 8 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-08-22 01:42 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/tbrowse.prg
* now that DispBox() works as expected I can use it even for 1 line headers/
footers inside ::RedrawHeaders()
2001-08-22 01:25 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/gtos2.c
+ Driver tries to set codepage 437 on startup. Needed by box drawing functions

23
harbour/source/rtl/tbrowse.prg
View File

@@ -715,14 +715,8 @@ METHOD RedrawHeaders(nWidth) CLASS TBrowse
if ::lHeaders // Drawing headers
if ::nHeaderHeight > 1
// Clear area of screen occupied by headers
DispBox(::nTop, ::nLeft, ::nTop + ::nHeaderHeight - 1, ::nRight, cBlankBox, ::ColorSpec)
else
DispOutAt(::nTop, ::nLeft, Space(::nRight - ::nLeft + 1), ::ColorSpec )
endif
// Clear area of screen occupied by headers
DispBox(::nTop, ::nLeft, ::nTop + ::nHeaderHeight - 1, ::nRight, cBlankBox, ::ColorSpec)
// Set cursor at first field start of description
DevPos(::nTop, ::nLeft + (( nWidth - ::nColsWidth ) / 2))
@@ -787,13 +781,7 @@ METHOD RedrawHeaders(nWidth) CLASS TBrowse
if ::lFooters // Drawing footers
// Clear area of screen occupied by footers
if ::nFooterHeight > 1
DispBox(::nBottom - ::nFooterHeight + 1, ::nLeft, ::nBottom, ::nRight, cBlankBox, ::ColorSpec)
else
DispOutAt(::nBottom, ::nLeft, Space(::nRight - ::nLeft + 1), ::ColorSpec)
endif
DispBox(::nBottom - ::nFooterHeight + 1, ::nLeft, ::nBottom, ::nRight, cBlankBox, ::ColorSpec)
// Set cursor at first field start of description
DevPos(::nBottom, ::nLeft + (( nWidth - ::nColsWidth ) / 2))
@@ -1278,8 +1266,6 @@ METHOD WriteMLineText(cStr, nPadLen, lHeader, cColor) CLASS TBrowse
DevPos(nRow + n - 1, nCol)
DispOut(PadR(__StrToken(@cS, n, ";"), nPadLen), cColor)
//cSubStr := iif((nSemiCPos := Rat(";", cStr)) <> 0, Right(cStr, Len(cStr) - nSemiCPos), cStr)
//cStr := Left(cStr, nSemiCPos - 1)
next
DevPos(nRow, nCol + nPadLen)
@@ -1300,9 +1286,6 @@ METHOD WriteMLineText(cStr, nPadLen, lHeader, cColor) CLASS TBrowse
for n := 0 to (::nFooterHeight - 1)
DevPos(nRow - n, nCol)
DispOut(PadR(__StrToken(@cS, ::nFooterHeight - n, ";"), nPadLen), cColor)
//cSubStr := iif((nSemiCPos := Rat(";", cStr)) <> 0, Right(cStr, Len(cStr) - nSemiCPos), cStr)
//cStr := Left(cStr, nSemiCPos - 1)
next
DevPos(nRow, nCol + nPadLen)