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:
Paul Tucker
1999-08-10 05:08:46 +00:00
parent ae1e190b62
commit e8b53fedc5
4 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990810-00:55 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/gtapi.c source/rtl/gt/gtwin/c source/rtl/gt/gt_tpl.c
* minor formatting changes
* corrected an instance of nested comments.
19990809-14:15 EDT Paul Tucker <ptucker@sympatico.ca>
+ source/rtl/xsavescr.prg
* support for save screen and restore screen commands.

3
harbour/source/rtl/gt/gt_tpl.c
View File

@@ -5,6 +5,7 @@
/*
* GT_TPL.C: Video subsystem template.
*
* User programs should never call this layer directly!
*/
/* TODO: include any standard headers here */
@@ -76,7 +77,9 @@ int hb_gt_GetCursorStyle(void)
}
else
{
*/
/* example from the dos driver */
/*
hb_gt_GetCursorSize( &start, &end )
if((start == 32) && (end == 32))
{

10
harbour/source/rtl/gt/gtwin.c
View File

@@ -71,9 +71,9 @@ void hb_gt_Done(void)
if( HOutput != HOriginal )
{
COORD coDest = {0, 0};
COORD coBuf; /* the size of the buffer to read into */
CHAR_INFO *pCharInfo; /* buffer to store info from ReadConsoleOutput */
SMALL_RECT srWin; /* source rectangle to read from */
COORD coBuf; /* the size of the buffer to read into */
CHAR_INFO *pCharInfo; /* buffer to store info from ReadConsoleOutput */
SMALL_RECT srWin; /* source rectangle to read from */
CONSOLE_SCREEN_BUFFER_INFO csbi;
CONSOLE_CURSOR_INFO cci;
@@ -82,7 +82,7 @@ void hb_gt_Done(void)
srWin.Right = (coBuf.X = hb_gt_GetScreenWidth()) -1;
/* allocate a buffer for the screen rectangle */
pCharInfo = (CHAR_INFO *)hb_xgrab(coBuf.X * coBuf.Y * sizeof(CHAR_INFO));
pCharInfo = (CHAR_INFO *)hb_xgrab(coBuf.Y * coBuf.X * sizeof(CHAR_INFO));
/* read the screen rectangle into the buffer */
ReadConsoleOutput(HOutput, /* current screen handle */
@@ -423,7 +423,7 @@ void hb_gt_DispBegin(void)
srWin.Right = (coBuf.X = hb_gt_GetScreenWidth()) -1;
/* allocate a buffer for the screen rectangle */
pCharInfo = (CHAR_INFO *)hb_xgrab(coBuf.X * coBuf.Y * sizeof(CHAR_INFO));
pCharInfo = (CHAR_INFO *)hb_xgrab(coBuf.Y * coBuf.X * sizeof(CHAR_INFO));
/* read the screen rectangle into the buffer */
ReadConsoleOutput(HOutput, /* current screen handle */

7
harbour/source/rtl/gtapi.c
View File

@@ -61,9 +61,6 @@
/* TODO: functions not implemented yet
int hb_gtPostExt(void);
int hb_gtPreExt(void);
int hb_gtGetBlink(BOOL * bBlink);
int hb_gtSetBlink(BOOL bBlink);
int hb_gtSetMode(USHORT uiRows, USHORT uiCols);
*/
static USHORT s_uiCurrentRow = 0;
@@ -98,11 +95,11 @@ void hb_gtInit(void)
void hb_gtExit(void)
{
/* ptucker */
while( s_uiDispCount )
hb_gtDispEnd();
hb_gt_Done();
/* ptucker */
hb_xfree( _Color );
}
@@ -537,7 +534,7 @@ int hb_gtRepChar(USHORT uiRow, USHORT uiCol, USHORT uiChar, USHORT uiCount)
char buff[255];
memset(buff, uiChar, uiCount);
buff[uiCount] = 0x0;
buff[uiCount] = 0;
rc=hb_gtSetPos(uiRow, uiCol);
if(rc != 0)
return(rc);