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

See ChangeLog entry 2001-08-22 13:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2001-08-22 17:41:10 +00:00
parent f29cb6b733
commit 025c1dc994
2 changed files with 63 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/source/rtl/console.c
View File

@@ -82,6 +82,8 @@
static BOOL s_bInit = FALSE;
static USHORT s_uiPRow;
static USHORT s_uiPCol;
static SHORT s_originalMaxRow;
static SHORT s_originalMaxCol;
static char s_szCrLf[ CRLF_BUFFER_LEN ];
static int s_iFilenoStdin;
static int s_iFilenoStdout;
@@ -129,7 +131,8 @@ void hb_conInit( void )
s_bInit = TRUE;
hb_gtInit( s_iFilenoStdin, s_iFilenoStdout, s_iFilenoStderr );
s_originalMaxRow = hb_gtMaxRow(); /* Save the original */
s_originalMaxCol = hb_gtMaxCol(); /* screen size */
hb_setkeyInit(); /* April White, May 6, 2000 */
}
@@ -137,6 +140,12 @@ void hb_conRelease( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_conRelease()"));
if( s_originalMaxRow != hb_gtMaxRow() || s_originalMaxCol != hb_gtMaxCol() )
{
/* If the program changed the screen size, restore the original */
hb_gtSetMode( s_originalMaxRow + 1, s_originalMaxCol + 1 );
}
hb_fsSetDevMode( s_iFilenoStdout, FD_TEXT );
hb_fsSetDevMode( s_iFilenoStderr, FD_TEXT );

53
harbour/tests/boxtst2.prg Normal file
View File

@@ -0,0 +1,53 @@
/*
* $Id$
*/
// Test program for box and line drawing functions.
/* Harbour Project source code
http://www.Harbour-Project.org/
Donated to the public domain on 2001-08-22 by David G. Holm <dholm@jsd-llc.com>
*/
#include "box.ch"
function Main()
local max_row, max_col, boxColor := "W+/B,N/BG", lineColor := "W+/R, N/BG"
SetMode(50, 80)
clear screen
max_row := maxrow()
max_col := maxcol()
// Draw filled boxes centered around the four screen corners.
DispBox(-10, -10, 10, 10, B_SINGLE + "X", boxColor)
DispBox(-10, max_col - 10, 10, max_col + 10, B_SINGLE + "X", boxColor)
DispBox(max_row - 10, -10, max_row + 10, 10, B_SINGLE + "X", boxColor)
DispBox(max_row - 10, max_col - 10, max_row + 10, max_col + 10, B_SINGLE + "X", boxColor)
// Draw non-filled boxes around the filled boxes.
DispBox(-15, -15, 15, 15, 1, boxColor)
DispBox(-15, max_col - 15, 15, max_col + 15, 1, boxColor)
DispBox(max_row - 15, -15, max_row + 15, 15, 1, boxColor)
DispBox(max_row - 15, max_col - 15, max_row + 15, max_col + 15, 1, boxColor)
// Draw a box in the center, then two boxes off screen.
DispBox( 20, 20, 25, 60, 2, boxColor)
DispBox( -10, -10, -1, -1, 2, boxColor)
DispBox( max_row + 1, max_col + 1, max_row + 10, max_col + 10, 2, boxColor)
// Draw horizontal lines from off-screen to on-screen,
// off-screen to off-screen, and on-screen to off-screen.
DispBox(1, -10, 1, 10, B_SINGLE, lineColor)
DispBox(2, -10, 2, max_col + 10, B_DOUBLE, lineColor)
DispBox(3, max_col - 10, 3, max_col + 10, B_SINGLE, lineColor)
// Draw vertical lines from off-screen to on-screen,
// off-screen to off-screen, and on-screen to off-screen.
DispBox(-10, 1, 10, 1, B_SINGLE, lineColor)
DispBox(-10, 2, max_row + 10, 2, B_DOUBLE, lineColor)
DispBox(max_row - 10, 3, max_row + 10, 3, B_SINGLE, lineColor)
inkey(5)
return nil