d8ef95e7be
* harbour/config/rules.cf
* harbour/config/bsd/gcc.cf
* harbour/config/darwin/gcc.cf
* harbour/config/dos/bcc16.cf
* harbour/config/dos/djgpp.cf
* harbour/config/dos/owatcom.cf
* harbour/config/dos/rsx32.cf
* harbour/config/dos/watcom.cf
* harbour/config/linux/gcc.cf
* harbour/config/os2/gcc.cf
* harbour/config/os2/icc.cf
* harbour/config/sunos/gcc.cf
* harbour/config/w32/bcc32.cf
* harbour/config/w32/gcc.cf
* harbour/config/w32/global.cf
* harbour/config/w32/icc.cf
* harbour/config/w32/mingw32.cf
* harbour/config/w32/msvc.cf
* harbour/config/w32/rsxnt.cf
* harbour/config/w32/watcom.cf
* use F macro extension to extract file name from given macros.
It simplified some rules and allow to use vpath and differ file
locations in GNU Makefiles
* moved the BCC16 excpetion for C_RULE from global rules.cf to
DOS bcc16.cf file
* use mainstd library in MinGW build
* harbour/include/hbapi.h
+ added two new functions: hb_winmainArgInit() and hb_winmainArgGet()
to set/retrieve WinMain() parameters.
+ added hb_strMatchWildExact()
* harbour/source/pp/ppcore.c
* initialized variable to avoid compiler warning
* harbour/source/rtl/console.c
* cleaned comment
* harbour/source/rtl/hbffind.c
! Fixed invalid handle error in Windows when file() fails
(fix borrowed from xHarbour)
* harbour/source/rtl/strmatch.c
+ added hb_strMatchWildExact()
+ added 3-rd parameter <lExact> to WildMatch() - when it's TRUE
WildMatch() will check if given pattern cover the whole string.
Without it it check if pattern is valid prefix only.
* harbour/source/rtl/gtcrs/gtcrs.c
* harbour/source/rtl/gtcrs/gtcrs.h
* harbour/source/rtl/gtsln/mousesln.c
* do not call Gpm_GetSnapshot() to avoid stupid message on stderr
generated from GPM library - I lost the the hope that it will be
fixed ;-)
* harbour/source/rtl/gtpca/gtpca.c
* use select() in *nixes for cursor position terminal feedback.
* harbour/source/rtl/gtwin/gtwin.c
* try to always allocate console when compiled without
HB_NO_ALLOC_CONSOLE. It allow to use GTWIN also in real windows
programs.
+ harbour/source/rtl/gtwvt/Makefile
+ harbour/source/rtl/gtwvt/gtwvt.c
+ harbour/source/rtl/gtwvt/gtwvt.h
+ added new GT driver GTWVT - the core of this driver it's Peter Ress
work in xHarbour. In Harbour GTWVT contains only pure GT code without
local to GTWVT xHarbour extensions and GTWVT contrib libraries.
This extensions can be added but later but I want to keep them
separated from the core GTWVT code and add them as upper level GT
which can inherit from GTWVT. Just like I've implemented CTWIN.
Please update non GNU make files and test this GT in Windows.
The programs which want to use GTWVT should be compiled as standard
Windows GUI programs. GTWVT replaces window console code.
if you add to your code:
proc GTSYS()
request HB_GT_WIN
request HB_GT_WVT
return
then the final binaries will be linked with both GT drivers and you
can switch between them using //gt[:]<name> switch. F.e.:
./my_prog //gtwin
or
./my_prog //gtwvt
this feature works in all platforms.
People who works in shell environment (*nixes, MSYS, DJGPP) and use
hb* scripts does not have to use GTSYS() in source code but can simply
use -gt<name> switch in hblnk and hbmk.
* harbour/source/rtl/gtxwc/gtxwc.c
* some minor cleanups and code formatting
* harbour/source/vm/Makefile
+ harbour/source/vm/mainstd/Makefile
* moved mainstd.c to separate mainstd library for MinGW32 build.
Unfortunately MinGW always link main() function if it locate
it in libraries and ignores WinMain() what effectively makes
impossible to create Windows GUI programs if we have main() in
VM library. People who are using MinGW and wants to create only
pure console programs should now include mainstd library to linked
library list.
* harbour/source/vm/cmdarg.c
* harbour/source/vm/mainwin.c
+ added two new functions: hb_winmainArgInit() and hb_winmainArgGet()
to set/retrieve WinMain() parameters.
163 lines
6.8 KiB
C
163 lines
6.8 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Header File for Video subsystem for Win32 using GUI windows instead of Console
|
|
* Copyright 2003 Peter Rees <peter@rees.co.nz>
|
|
* Rees Software & Systems Ltd
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#ifndef HB_WVT_H_
|
|
|
|
#define HB_WVT_H_
|
|
|
|
#define HB_GT_NAME WVT
|
|
|
|
/* #define WVT_DEBUG */
|
|
|
|
#include <windows.h>
|
|
/*#include <winuser.h>*/
|
|
/*#include <commctrl.h>*/
|
|
|
|
#include "hbset.h"
|
|
#include "hbgtcore.h"
|
|
#include "hbinit.h"
|
|
#include "hbapierr.h"
|
|
#include "hbapiitm.h"
|
|
#include "inkey.ch"
|
|
#include "error.ch"
|
|
#include "hbvm.h"
|
|
#include "hbgfxdef.ch"
|
|
|
|
|
|
#define WVT_CHAR_QUEUE_SIZE 128
|
|
#define WVT_MAX_ROWS 256
|
|
#define WVT_MAX_COLS 256
|
|
#define WVT_DEFAULT_ROWS 25
|
|
#define WVT_DEFAULT_COLS 80
|
|
|
|
#define BLACK RGB( 0x0 ,0x0 ,0x0 )
|
|
#define BLUE RGB( 0x0 ,0x0 ,0x85 )
|
|
#define GREEN RGB( 0x0 ,0x85,0x0 )
|
|
#define CYAN RGB( 0x0 ,0x85,0x85 )
|
|
#define RED RGB( 0x85,0x0 ,0x0 )
|
|
#define MAGENTA RGB( 0x85,0x0 ,0x85 )
|
|
#define BROWN RGB( 0x85,0x85,0x0 )
|
|
#define WHITE RGB( 0xC6,0xC6,0xC6 )
|
|
#define LIGHT_GRAY RGB( 0x60,0x60,0x60 )
|
|
#define BRIGHT_BLUE RGB( 0x00,0x00,0xFF )
|
|
#define BRIGHT_GREEN RGB( 0x60,0xFF,0x60 )
|
|
#define BRIGHT_CYAN RGB( 0x60,0xFF,0xFF )
|
|
#define BRIGHT_RED RGB( 0xF8,0x00,0x26 )
|
|
#define BRIGHT_MAGENTA RGB( 0xFF,0x60,0xFF )
|
|
#define YELLOW RGB( 0xFF,0xFF,0x00 )
|
|
#define BRIGHT_WHITE RGB( 0xFF,0xFF,0xFF )
|
|
|
|
#define WM_MY_UPDATE_CARET ( WM_USER + 0x0101 )
|
|
|
|
typedef struct global_data
|
|
{
|
|
USHORT ROWS; /* number of displayable rows in window */
|
|
USHORT COLS; /* number of displayable columns in window */
|
|
COLORREF foreground; /* forground colour */
|
|
COLORREF background; /* background colour */
|
|
|
|
BOOL CaretExist; /* TRUE if a caret has been created */
|
|
BOOL CaretHidden; /* TRUE if a caret has been hiden */
|
|
int CaretSize; /* Size of solid caret */
|
|
|
|
POINT mousePos; /* the last mouse position */
|
|
BOOL MouseMove; /* Flag to say whether to return mouse movement events */
|
|
|
|
int Keys[ WVT_CHAR_QUEUE_SIZE ]; /* Array to hold the characters & events */
|
|
int keyPointerIn; /* Offset into key array for character to be placed */
|
|
int keyPointerOut; /* Offset into key array of next character to read */
|
|
int keyLast; /* last inkey code value in buffer */
|
|
|
|
POINT PTEXTSIZE; /* size of the fixed width font */
|
|
BOOL FixedFont; /* TRUE if current font is a fixed font */
|
|
int FixedSize[ WVT_MAX_COLS ]; /* buffer for ExtTextOut() to emulate fixed pitch when Proportional font selected */
|
|
int fontHeight; /* requested font height */
|
|
int fontWidth ; /* requested font width */
|
|
int fontWeight; /* Bold level */
|
|
int fontQuality; /* requested font quality */
|
|
char fontFace[ LF_FACESIZE ]; /* requested font face name LF_FACESIZE #defined in wingdi.h */
|
|
HFONT hFont; /* current font handle */
|
|
|
|
HWND hWnd; /* the window handle */
|
|
|
|
HDC hdc; /* Handle to Windows Device Context */
|
|
|
|
int CodePage; /* Code page to use for display characters */
|
|
BOOL Win9X; /* Flag to say if running on Win9X not NT/2000/XP */
|
|
BOOL AltF4Close; /* Can use Alt+F4 to close application */
|
|
BOOL CentreWindow; /* True if window is to be Reset into centre of window */
|
|
|
|
BOOL fIgnoreWM_SYSCHAR;
|
|
|
|
} GLOBAL_DATA;
|
|
typedef GLOBAL_DATA * LPGLOBAL_DATA;
|
|
|
|
/* Harbour compatible definitions */
|
|
#define K_SH_LEFT K_LEFT /* Shift-Left == Left */
|
|
#define K_SH_UP K_UP /* Shift-Up == Up */
|
|
#define K_SH_RIGHT K_RIGHT /* Shift-Right == Right */
|
|
#define K_SH_DOWN K_DOWN /* Shift-Down == Down */
|
|
#define K_SH_INS K_INS /* Shift-Ins == Ins */
|
|
#define K_SH_DEL K_DEL /* Shift-Del == Del */
|
|
#define K_SH_HOME K_HOME /* Shift-Home == Home */
|
|
#define K_SH_END K_END /* Shift-End == End */
|
|
#define K_SH_PGUP K_PGUP /* Shift-PgUp == PgUp */
|
|
#define K_SH_PGDN K_PGDN /* Shift-PgDn == PgDn */
|
|
#define K_SH_RETURN K_RETURN /* Shift-Enter == Enter */
|
|
#define K_SH_ENTER K_ENTER /* Shift-Enter == Enter */
|
|
|
|
#ifndef WM_MOUSEWHEEL
|
|
#define WM_MOUSEWHEEL 0x020A
|
|
#endif
|
|
|
|
#endif /* HB_WVT_H_ */
|