File: [local] / OpenXM_contrib / gnuplot / win / Attic / wtext.c (download)
Revision 1.1.1.1 (vendor branch), Sun Jan 9 17:01:19 2000 UTC (24 years, 7 months ago) by maekawa
Branch: GNUPLOT
CVS Tags: VERSION_3_7 Changes since 1.1: +0 -0
lines
Import gnuplot 3.7
|
#ifndef lint
static char *RCSid = "$Id: wtext.c,v 1.11 1998/03/22 22:35:31 drd Exp $";
#endif
/* GNUPLOT - win/wtext.c */
/*[
* Copyright 1992, 1993, 1998 Russell Lang
*
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
*
* Permission to modify the software is granted, but not the right to
* distribute the complete modified source code. Modifications are to
* be distributed as patches to the released version. Permission to
* distribute binaries produced by compiling modified sources is granted,
* provided you
* 1. distribute the corresponding source modifications from the
* released version in the form of a patch file along with the binaries,
* 2. add special version identification to distinguish your version
* in addition to the base release version number,
* 3. provide your name and address as the primary contact for the
* support of your modified version, and
* 4. retain our contact information in regard to use of the base
* software.
* Permission to distribute the released version of the source code along
* with corresponding source modifications in the form of a patch file is
* granted with same provisions 2 through 4 for binary distributions.
*
* This software is provided "as is" without express or implied warranty
* to the extent permitted by applicable law.
]*/
/*
* AUTHORS
*
* Russell Lang
*
* Send your comments or suggestions to
* info-gnuplot@dartmouth.edu.
* This is a mailing list; to join it send a note to
* majordomo@dartmouth.edu.
* Send bug reports to
* bug-gnuplot@dartmouth.edu.
*/
/* WARNING: Do not write to stdout/stderr with functions not listed
in win/wtext.h */
#define STRICT
#include <string.h> /* use only far items */
#include <stdlib.h>
#include <ctype.h>
#include <dos.h>
#ifndef __MSC__
# include <mem.h>
#endif
#include <windows.h>
#include <windowsx.h>
#if WINVER >= 0x030a
# include <commdlg.h>
#endif
#include "wgnuplib.h"
#include "wresourc.h"
#include "wcommon.h"
/* font stuff */
#define TEXTFONTSIZE 9
#define TEXTFONTNAME "Terminal"
#ifndef EOF /* HBB 980809: for MinGW32 */
#define EOF -1 /* instead of using <stdio.h> */
#endif
/* limits */
#define MAXSTR 256
POINT ScreenMinSize = {16,4};
LRESULT CALLBACK WINEXPORT WndParentProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam);
LRESULT CALLBACK WINEXPORT WndTextProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam);
void ReadTextIni(LPTW lptw);
void LimitMark(LPTW lptw, POINT FAR *lppt);
char szNoMemory[] = "out of memory";
COLORREF TextColorTable[16] = {
RGB(0,0,0), /* black */
RGB(0,0,128), /* dark blue */
RGB(0,128,0), /* dark green */
RGB(0,128,128), /* dark cyan */
RGB(128,0,0), /* dark red */
RGB(128,0,128), /* dark magenta */
RGB(128,128,0), /* dark yellow */
RGB(128,128,128), /* dark grey */
RGB(192,192,192), /* light grey */
RGB(0,0,255), /* blue */
RGB(0,255,0), /* green */
RGB(0,255,255), /* cyan */
RGB(255,0,0), /* red */
RGB(255,0,255), /* magenta */
RGB(255,255,0), /* yellow */
RGB(255,255,255), /* white */
};
#define NOTEXT 0xF0
#define MARKFORE RGB(255,255,255)
#define MARKBACK RGB(0,0,128)
#define TextFore(attr) TextColorTable[(attr) & 15]
#define TextBack(attr) TextColorTable[(attr>>4) & 15]
void WDPROC
TextMessage(void)
{
MSG msg;
while (PeekMessage(&msg, 0, 0, 0, PM_REMOVE))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return;
}
void
CreateTextClass(LPTW lptw)
{
WNDCLASS wndclass;
#ifdef WIN32
hdllInstance = lptw->hInstance; /* not using a DLL */
#endif
wndclass.style = CS_HREDRAW | CS_VREDRAW;
wndclass.lpfnWndProc = WndTextProc;
wndclass.cbClsExtra = 0;
wndclass.cbWndExtra = 2 * sizeof(void FAR *);
wndclass.hInstance = lptw->hInstance;
wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
wndclass.hbrBackground = NULL;
lptw->hbrBackground = CreateSolidBrush(lptw->bSysColors ?
GetSysColor(COLOR_WINDOW) : RGB(0,0,0));
wndclass.lpszMenuName = NULL;
wndclass.lpszClassName = szTextClass;
RegisterClass(&wndclass);
wndclass.style = CS_HREDRAW | CS_VREDRAW;
wndclass.lpfnWndProc = WndParentProc;
wndclass.cbClsExtra = 0;
wndclass.cbWndExtra = 2 * sizeof(void FAR *);
wndclass.hInstance = lptw->hInstance;
if (lptw->hIcon)
wndclass.hIcon = lptw->hIcon;
else
wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
wndclass.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH);
wndclass.lpszMenuName = NULL;
wndclass.lpszClassName = szParentClass;
RegisterClass(&wndclass);
}
/* make text window */
int WDPROC
TextInit(LPTW lptw)
{
RECT rect;
HMENU sysmenu;
HGLOBAL hglobal;
char buf[80];
ReadTextIni(lptw);
if (!lptw->hPrevInstance)
CreateTextClass(lptw);
if (lptw->KeyBufSize == 0)
lptw->KeyBufSize = 256;
if (lptw->ScreenSize.x < ScreenMinSize.x)
lptw->ScreenSize.x = ScreenMinSize.x;
if (lptw->ScreenSize.y < ScreenMinSize.y)
lptw->ScreenSize.y = ScreenMinSize.y;
lptw->CursorPos.x = lptw->CursorPos.y = 0;
lptw->bFocus = FALSE;
lptw->bGetCh = FALSE;
lptw->CaretHeight = 0;
if (!lptw->nCmdShow)
lptw->nCmdShow = SW_SHOWNORMAL;
if (!lptw->Attr)
lptw->Attr = 0xf0; /* black on white */
hglobal = GlobalAlloc(GHND, lptw->ScreenSize.x * lptw->ScreenSize.y);
lptw->ScreenBuffer = (BYTE FAR *)GlobalLock(hglobal);
if (lptw->ScreenBuffer == (BYTE FAR *)NULL) {
MessageBox((HWND)NULL,szNoMemory,(LPSTR)NULL, MB_ICONHAND | MB_SYSTEMMODAL);
return(1);
}
_fmemset(lptw->ScreenBuffer, ' ', lptw->ScreenSize.x * lptw->ScreenSize.y);
hglobal = GlobalAlloc(GHND, lptw->ScreenSize.x * lptw->ScreenSize.y);
lptw->AttrBuffer = (BYTE FAR *)GlobalLock(hglobal);
if (lptw->AttrBuffer == (BYTE FAR *)NULL) {
MessageBox((HWND)NULL,szNoMemory,(LPSTR)NULL, MB_ICONHAND | MB_SYSTEMMODAL);
return(1);
}
_fmemset(lptw->AttrBuffer, NOTEXT, lptw->ScreenSize.x * lptw->ScreenSize.y);
hglobal = GlobalAlloc(LHND, lptw->KeyBufSize);
lptw->KeyBuf = (BYTE FAR *)GlobalLock(hglobal);
if (lptw->KeyBuf == (BYTE FAR *)NULL) {
MessageBox((HWND)NULL,szNoMemory,(LPSTR)NULL, MB_ICONHAND | MB_SYSTEMMODAL);
return(1);
}
lptw->KeyBufIn = lptw->KeyBufOut = lptw->KeyBuf;
lptw->hWndParent = CreateWindow(szParentClass, lptw->Title,
WS_OVERLAPPEDWINDOW,
lptw->Origin.x, lptw->Origin.y,
lptw->Size.x, lptw->Size.y,
NULL, NULL, lptw->hInstance, lptw);
if (lptw->hWndParent == (HWND)NULL) {
MessageBox((HWND)NULL,"Couldn't open parent text window",(LPSTR)NULL, MB_ICONHAND | MB_SYSTEMMODAL);
return(1);
}
GetClientRect(lptw->hWndParent, &rect);
lptw->hWndText = CreateWindow(szTextClass, lptw->Title,
WS_CHILD | WS_VSCROLL | WS_HSCROLL,
0, lptw->ButtonHeight,
rect.right, rect.bottom-lptw->ButtonHeight,
lptw->hWndParent, NULL, lptw->hInstance, lptw);
if (lptw->hWndText == (HWND)NULL) {
MessageBox((HWND)NULL,"Couldn't open text window",(LPSTR)NULL, MB_ICONHAND | MB_SYSTEMMODAL);
return(1);
}
lptw->hPopMenu = CreatePopupMenu();
AppendMenu(lptw->hPopMenu, MF_STRING, M_COPY_CLIP, "&Copy to Clipboard");
AppendMenu(lptw->hPopMenu, MF_STRING, M_PASTE, "&Paste");
#if WINVER >= 0x030a
AppendMenu(lptw->hPopMenu, MF_STRING, M_CHOOSE_FONT, "Choose &Font...");
#endif
AppendMenu(lptw->hPopMenu, MF_STRING | (lptw->bSysColors ? MF_CHECKED : MF_UNCHECKED),
M_SYSCOLORS, "&System Colors");
if (lptw->IniFile != (LPSTR)NULL) {
wsprintf(buf,"&Update %s",lptw->IniFile);
AppendMenu(lptw->hPopMenu, MF_STRING, M_WRITEINI, (LPSTR)buf);
}
sysmenu = GetSystemMenu(lptw->hWndParent,0); /* get the sysmenu */
AppendMenu(sysmenu, MF_SEPARATOR, 0, NULL);
AppendMenu(sysmenu, MF_POPUP, (UINT)lptw->hPopMenu, "&Options");
AppendMenu(sysmenu, MF_STRING, M_ABOUT, "&About");
if (lptw->lpmw)
LoadMacros(lptw);
ShowWindow(lptw->hWndText, SW_SHOWNORMAL);
BringWindowToTop(lptw->hWndText);
SetFocus(lptw->hWndText);
TextMessage();
return(0);
}
/* close a text window */
void WDPROC
TextClose(LPTW lptw)
{
HGLOBAL hglobal;
/* close window */
if (lptw->hWndParent)
DestroyWindow(lptw->hWndParent);
TextMessage();
hglobal = (HGLOBAL)GlobalHandle( SELECTOROF(lptw->ScreenBuffer) );
if (hglobal) {
GlobalUnlock(hglobal);
GlobalFree(hglobal);
}
hglobal = (HGLOBAL)GlobalHandle( SELECTOROF(lptw->AttrBuffer) );
if (hglobal) {
GlobalUnlock(hglobal);
GlobalFree(hglobal);
}
hglobal = (HGLOBAL)GlobalHandle( SELECTOROF(lptw->KeyBuf) );
if (hglobal) {
GlobalUnlock(hglobal);
GlobalFree(hglobal);
}
if (lptw->lpmw)
CloseMacros(lptw);
lptw->hWndParent = (HWND)NULL;
}
void
WriteTextIni(LPTW lptw)
{
RECT rect;
LPSTR file = lptw->IniFile;
LPSTR section = lptw->IniSection;
char profile[80];
int iconic;
if ((file == (LPSTR)NULL) || (section == (LPSTR)NULL))
return;
iconic = IsIconic(lptw->hWndParent);
if (iconic)
ShowWindow(lptw->hWndParent, SW_SHOWNORMAL);
GetWindowRect(lptw->hWndParent,&rect);
wsprintf(profile, "%d %d", rect.left, rect.top);
WritePrivateProfileString(section, "TextOrigin", profile, file);
wsprintf(profile, "%d %d", rect.right-rect.left, rect.bottom-rect.top);
WritePrivateProfileString(section, "TextSize", profile, file);
wsprintf(profile, "%d", iconic);
WritePrivateProfileString(section, "TextMinimized", profile, file);
wsprintf(profile, "%s,%d", lptw->fontname, lptw->fontsize);
WritePrivateProfileString(section, "TextFont", profile, file);
wsprintf(profile, "%d", lptw->bSysColors);
WritePrivateProfileString(section, "SysColors", profile, file);
if (iconic)
ShowWindow(lptw->hWndParent, SW_SHOWMINIMIZED);
return;
}
void
ReadTextIni(LPTW lptw)
{
LPSTR file = lptw->IniFile;
LPSTR section = lptw->IniSection;
char profile[81];
LPSTR p;
BOOL bOKINI;
bOKINI = (file != (LPSTR)NULL) && (section != (LPSTR)NULL);
profile[0] = '\0';
if (bOKINI)
GetPrivateProfileString(section, "TextOrigin", "", profile, 80, file);
if ( (p = GetInt(profile, (LPINT)&lptw->Origin.x)) == NULL)
lptw->Origin.x = CW_USEDEFAULT;
if ( (p = GetInt(p, (LPINT)&lptw->Origin.y)) == NULL)
lptw->Origin.y = CW_USEDEFAULT;
if ( (file != (LPSTR)NULL) && (section != (LPSTR)NULL) )
GetPrivateProfileString(section, "TextSize", "", profile, 80, file);
if ( (p = GetInt(profile, (LPINT)&lptw->Size.x)) == NULL)
lptw->Size.x = CW_USEDEFAULT;
if ( (p = GetInt(p, (LPINT)&lptw->Size.y)) == NULL)
lptw->Size.y = CW_USEDEFAULT;
if (bOKINI)
GetPrivateProfileString(section, "TextFont", "", profile, 80, file);
{
char FAR *size;
size = _fstrchr(profile,',');
if (size) {
*size++ = '\0';
if ( (p = GetInt(size, &lptw->fontsize)) == NULL)
lptw->fontsize = TEXTFONTSIZE;
}
_fstrcpy(lptw->fontname, profile);
if (lptw->fontsize == 0)
lptw->fontsize = TEXTFONTSIZE;
if (!(*lptw->fontname))
_fstrcpy(lptw->fontname,TEXTFONTNAME);
}
if (bOKINI) {
int iconic;
GetPrivateProfileString(section, "TextMinimized", "", profile, 80, file);
if ((p = GetInt(profile, &iconic)) == NULL)
iconic = 0;
if (iconic)
lptw->nCmdShow = SW_SHOWMINIMIZED;
}
lptw->bSysColors = FALSE;
GetPrivateProfileString(section, "SysColors", "", profile, 80, file);
if ((p = GetInt(profile, &lptw->bSysColors)) == NULL)
lptw->bSysColors = 0;
}
/* Bring Cursor into text window */
void WDPROC
TextToCursor(LPTW lptw)
{
int nXinc=0;
int nYinc=0;
int cxCursor;
int cyCursor;
cyCursor = lptw->CursorPos.y * lptw->CharSize.y;
if ( (cyCursor + lptw->CharSize.y > lptw->ScrollPos.y + lptw->ClientSize.y)
|| (cyCursor < lptw->ScrollPos.y) ) {
nYinc = max(0, cyCursor + lptw->CharSize.y - lptw->ClientSize.y) - lptw->ScrollPos.y;
nYinc = min(nYinc, lptw->ScrollMax.y - lptw->ScrollPos.y);
}
cxCursor = lptw->CursorPos.x * lptw->CharSize.x;
if ( (cxCursor + lptw->CharSize.x > lptw->ScrollPos.x + lptw->ClientSize.x)
|| (cxCursor < lptw->ScrollPos.x) ) {
nXinc = max(0, cxCursor + lptw->CharSize.x - lptw->ClientSize.x/2) - lptw->ScrollPos.x;
nXinc = min(nXinc, lptw->ScrollMax.x - lptw->ScrollPos.x);
}
if (nYinc || nXinc) {
lptw->ScrollPos.y += nYinc;
lptw->ScrollPos.x += nXinc;
ScrollWindow(lptw->hWndText,-nXinc,-nYinc,NULL,NULL);
SetScrollPos(lptw->hWndText,SB_VERT,lptw->ScrollPos.y,TRUE);
SetScrollPos(lptw->hWndText,SB_HORZ,lptw->ScrollPos.x,TRUE);
UpdateWindow(lptw->hWndText);
}
}
void
NewLine(LPTW lptw)
{
lptw->CursorPos.x = 0;
lptw->CursorPos.y++;
if (lptw->CursorPos.y >= lptw->ScreenSize.y) {
int i = lptw->ScreenSize.x * (lptw->ScreenSize.y - 1);
_fmemmove(lptw->ScreenBuffer, lptw->ScreenBuffer+lptw->ScreenSize.x, i);
_fmemset(lptw->ScreenBuffer + i, ' ', lptw->ScreenSize.x);
_fmemmove(lptw->AttrBuffer, lptw->AttrBuffer+lptw->ScreenSize.x, i);
_fmemset(lptw->AttrBuffer + i, NOTEXT, lptw->ScreenSize.x);
lptw->CursorPos.y--;
ScrollWindow(lptw->hWndText,0,-lptw->CharSize.y,NULL,NULL);
lptw->MarkBegin.y--;
lptw->MarkEnd.y--;
LimitMark(lptw, &lptw->MarkBegin);
LimitMark(lptw, &lptw->MarkEnd);
UpdateWindow(lptw->hWndText);
}
if (lptw->CursorFlag)
TextToCursor(lptw);
TextMessage();
}
/* Update count characters in window at cursor position */
/* Updates cursor position */
void
UpdateText(LPTW lptw, int count)
{
HDC hdc;
int xpos, ypos;
xpos = lptw->CursorPos.x*lptw->CharSize.x - lptw->ScrollPos.x;
ypos = lptw->CursorPos.y*lptw->CharSize.y - lptw->ScrollPos.y;
hdc = GetDC(lptw->hWndText);
if (lptw->bSysColors) {
SetTextColor(hdc, GetSysColor(COLOR_WINDOWTEXT));
SetBkColor(hdc, GetSysColor(COLOR_WINDOW));
}
else {
SetTextColor(hdc, TextFore(lptw->Attr));
SetBkColor(hdc, TextBack(lptw->Attr));
}
SelectObject(hdc, lptw->hfont);
TextOut(hdc,xpos,ypos,
(LPSTR)(lptw->ScreenBuffer + lptw->CursorPos.y*lptw->ScreenSize.x +
lptw->CursorPos.x), count);
(void)ReleaseDC(lptw->hWndText,hdc);
lptw->CursorPos.x += count;
if (lptw->CursorPos.x >= lptw->ScreenSize.x)
NewLine(lptw);
}
int WDPROC
TextPutCh(LPTW lptw, BYTE ch)
{
int pos;
switch(ch) {
case '\r':
lptw->CursorPos.x = 0;
if (lptw->CursorFlag)
TextToCursor(lptw);
break;
case '\n':
NewLine(lptw);
break;
case 7:
MessageBeep(0xFFFFFFFF);
if (lptw->CursorFlag)
TextToCursor(lptw);
break;
case '\t':
{
int n;
for ( n = 8 - (lptw->CursorPos.x % 8); n>0; n-- )
TextPutCh(lptw, ' ');
}
break;
case 0x08:
case 0x7f:
lptw->CursorPos.x--;
if (lptw->CursorPos.x < 0) {
lptw->CursorPos.x = lptw->ScreenSize.x - 1;
lptw->CursorPos.y--;
}
if (lptw->CursorPos.y < 0)
lptw->CursorPos.y = 0;
break;
default:
pos = lptw->CursorPos.y*lptw->ScreenSize.x + lptw->CursorPos.x;
lptw->ScreenBuffer[pos] = ch;
lptw->AttrBuffer[pos] = lptw->Attr;
UpdateText(lptw, 1);
}
return ch;
}
void
TextPutStr(LPTW lptw, LPSTR str)
{
BYTE FAR *p, FAR *pa;
int count, limit;
while (*str) {
p = lptw->ScreenBuffer + lptw->CursorPos.y*lptw->ScreenSize.x + lptw->CursorPos.x;
pa = lptw->AttrBuffer + lptw->CursorPos.y*lptw->ScreenSize.x + lptw->CursorPos.x;
limit = lptw->ScreenSize.x - lptw->CursorPos.x;
for (count=0; (count < limit) && *str && (isprint(*str) || *str=='\t'); count++) {
if (*str=='\t') {
int n;
for ( n = 8 - ((lptw->CursorPos.x+count) % 8); (count < limit) & (n>0); n--, count++ ) {
*p++ = ' ';
*pa++ = lptw->Attr;
}
str++;
count--;
}
else {
*p++ = *str++;
*pa++ = lptw->Attr;
}
}
if (count>0) {
UpdateText(lptw, count);
}
if (*str=='\n') {
NewLine(lptw);
str++;
}
else if (*str && !isprint(*str) && *str!='\t') {
TextPutCh(lptw, *str++);
}
}
}
void
LimitMark(LPTW lptw, POINT FAR *lppt)
{
if (lppt->x < 0)
lppt->x = 0;
if (lppt->y < 0) {
lppt->x = 0;
lppt->y = 0;
}
if (lppt->x > lptw->ScreenSize.x)
lppt->x = lptw->ScreenSize.x;
if (lppt->y >= lptw->ScreenSize.y) {
lppt->x = 0;
lppt->y = lptw->ScreenSize.y;
}
}
void
ClearMark(LPTW lptw, POINT pt)
{
RECT rect1, rect2, rect3;
int tmp;
if ((lptw->MarkBegin.x != lptw->MarkEnd.x) ||
(lptw->MarkBegin.y != lptw->MarkEnd.y) ) {
if (lptw->MarkBegin.x > lptw->MarkEnd.x) {
tmp = lptw->MarkBegin.x;
lptw->MarkBegin.x = lptw->MarkEnd.x;
lptw->MarkEnd.x = tmp;
}
if (lptw->MarkBegin.y > lptw->MarkEnd.y) {
tmp = lptw->MarkBegin.y;
lptw->MarkBegin.y = lptw->MarkEnd.y;
lptw->MarkEnd.y = tmp;
}
/* calculate bounding rectangle in character coordinates */
if (lptw->MarkBegin.y != lptw->MarkEnd.y) {
rect1.left = 0;
rect1.right = lptw->ScreenSize.x;
}
else {
rect1.left = lptw->MarkBegin.x;
rect1.right = lptw->MarkEnd.x + 1;
}
rect1.top = lptw->MarkBegin.y;
rect1.bottom = lptw->MarkEnd.y + 1;
/* now convert to client coordinates */
rect1.left = rect1.left * lptw->CharSize.x - lptw->ScrollPos.x;
rect1.right = rect1.right * lptw->CharSize.x - lptw->ScrollPos.x;
rect1.top = rect1.top * lptw->CharSize.y - lptw->ScrollPos.y;
rect1.bottom = rect1.bottom * lptw->CharSize.y - lptw->ScrollPos.y;
/* get client rect and calculate intersection */
GetClientRect(lptw->hWndText, &rect2);
IntersectRect(&rect3, &rect1, &rect2);
/* update window if necessary */
if (!IsRectEmpty(&rect3)) {
InvalidateRect(lptw->hWndText, &rect3, TRUE);
}
}
LimitMark(lptw, &pt);
lptw->MarkBegin.x = lptw->MarkEnd.x = pt.x;
lptw->MarkBegin.y = lptw->MarkEnd.y = pt.y;
UpdateWindow(lptw->hWndText);
}
/* output a line including attribute changes as needed */
void
DoLine(LPTW lptw, HDC hdc, int xpos, int ypos, int offset, int count)
{
BYTE FAR *pa, attr;
int idx, num;
pa = lptw->AttrBuffer + offset;
if ((offset < 0) || (offset >= lptw->ScreenSize.x*lptw->ScreenSize.y))
MessageBox((HWND)NULL, "panic", "panic", MB_OK | MB_ICONEXCLAMATION);
idx = 0;
num = count;
while (num > 0) {
attr = *pa;
while ((num > 0) && (attr == *pa)) {
/* skip over bytes with same attribute */
num--;
pa++;
}
if (lptw->bSysColors) {
SetTextColor(hdc, GetSysColor(COLOR_WINDOWTEXT));
SetBkColor(hdc, GetSysColor(COLOR_WINDOW));
}
else {
SetTextColor(hdc, TextFore(attr));
SetBkColor(hdc, TextBack(attr));
}
TextOut(hdc,xpos,ypos, (LPSTR)(lptw->ScreenBuffer + offset + idx),
count-num-idx);
xpos += lptw->CharSize.x * (count-num-idx);
idx = count-num;
}
}
void
DoMark(LPTW lptw, POINT pt, POINT end, BOOL mark)
{
int xpos, ypos;
HDC hdc;
int count;
int offset;
offset = lptw->ScreenSize.x * pt.y + pt.x;
hdc = GetDC(lptw->hWndText);
SelectObject(hdc, lptw->hfont);
if (lptw->bSysColors) {
SetTextColor(hdc, GetSysColor(COLOR_HIGHLIGHTTEXT));
SetBkColor(hdc, GetSysColor(COLOR_HIGHLIGHT));
}
else {
SetTextColor(hdc, MARKFORE);
SetBkColor(hdc, MARKBACK);
}
while (pt.y < end.y) {
/* multiple lines */
xpos = pt.x*lptw->CharSize.x - lptw->ScrollPos.x;
ypos = pt.y*lptw->CharSize.y - lptw->ScrollPos.y;
count = lptw->ScreenSize.x - pt.x;
if (mark)
TextOut(hdc,xpos,ypos, (LPSTR)(lptw->ScreenBuffer + offset), count);
else {
DoLine(lptw, hdc, xpos, ypos, offset, count);
if (lptw->bSysColors) {
SetTextColor(hdc, GetSysColor(COLOR_HIGHLIGHTTEXT));
SetBkColor(hdc, GetSysColor(COLOR_HIGHLIGHT));
}
else {
SetTextColor(hdc, MARKFORE);
SetBkColor(hdc, MARKBACK);
}
}
offset += count;
pt.y++;
pt.x=0;
}
/* partial line */
xpos = pt.x*lptw->CharSize.x - lptw->ScrollPos.x;
ypos = pt.y*lptw->CharSize.y - lptw->ScrollPos.y;
count = end.x - pt.x;
if (end.y != lptw->ScreenSize.y) {
if (mark)
TextOut(hdc,xpos,ypos, (LPSTR)(lptw->ScreenBuffer + offset), count);
else
DoLine(lptw, hdc, xpos, ypos, offset, count);
}
(void)ReleaseDC(lptw->hWndText,hdc);
}
void
UpdateMark(LPTW lptw, POINT pt)
{
int begin, point, end;
LimitMark(lptw, &pt);
begin = lptw->ScreenSize.x*lptw->MarkBegin.y + lptw->MarkBegin.x;
point = lptw->ScreenSize.x*pt.y + pt.x;
end = lptw->ScreenSize.x*lptw->MarkEnd.y + lptw->MarkEnd.x;
if (begin <= end) {
/* forward mark */
if (point >= end) {
/* extend marked area */
DoMark(lptw, lptw->MarkEnd, pt, TRUE);
}
else if (point >= begin) {
/* retract marked area */
DoMark(lptw, pt, lptw->MarkEnd, FALSE);
}
else { /* retract and reverse */
DoMark(lptw, lptw->MarkBegin, lptw->MarkEnd, FALSE);
DoMark(lptw, pt, lptw->MarkBegin, TRUE);
}
}
else {
/* reverse mark */
if (point <= end) {
/* extend marked area */
DoMark(lptw, pt, lptw->MarkEnd, TRUE);
}
else if (point <= begin) {
/* retract marked area */
DoMark(lptw, lptw->MarkEnd, pt, FALSE);
}
else { /* retract and reverse */
DoMark(lptw, lptw->MarkEnd, lptw->MarkBegin, FALSE);
DoMark(lptw, lptw->MarkBegin, pt, TRUE);
}
}
lptw->MarkEnd.x = pt.x;
lptw->MarkEnd.y = pt.y;
}
#if WINVER >= 0x030a
/* Windows 3.1 drag-drop feature */
char szFile[80];
void
DragFunc(LPTW lptw, HDROP hdrop)
{
int i, cFiles;
LPSTR p;
if ( (lptw->DragPre==(LPSTR)NULL) || (lptw->DragPost==(LPSTR)NULL) )
return;
cFiles = DragQueryFile(hdrop, 0xffff, (LPSTR)NULL, 0);
for (i=0; i<cFiles; i++) {
DragQueryFile(hdrop, i, szFile, 80);
for (p=lptw->DragPre; *p; p++)
SendMessage(lptw->hWndText,WM_CHAR,*p,1L);
for (p=szFile; *p; p++)
SendMessage(lptw->hWndText,WM_CHAR,*p,1L);
for (p=lptw->DragPost; *p; p++)
SendMessage(lptw->hWndText,WM_CHAR,*p,1L);
}
DragFinish(hdrop);
}
#endif
void
TextCopyClip(LPTW lptw)
{
int size, count;
HGLOBAL hGMem;
LPSTR cbuf, cp;
POINT pt, end;
TEXTMETRIC tm;
UINT type;
HDC hdc;
if ((lptw->MarkBegin.x == lptw->MarkEnd.x) &&
(lptw->MarkBegin.y == lptw->MarkEnd.y) ) {
/* copy user text */
return;
}
size = (lptw->MarkEnd.y - lptw->MarkBegin.y + 1)
* (lptw->ScreenSize.x + 2) + 1;
hGMem = GlobalAlloc(GMEM_MOVEABLE, (DWORD)size);
cbuf = cp = (LPSTR)GlobalLock(hGMem);
if (cp == (LPSTR)NULL)
return;
pt.x = lptw->MarkBegin.x;
pt.y = lptw->MarkBegin.y;
end.x = lptw->MarkEnd.x;
end.y = lptw->MarkEnd.y;
while (pt.y < end.y) {
/* copy to global buffer */
count = lptw->ScreenSize.x - pt.x;
_fmemcpy(cp, lptw->ScreenBuffer + lptw->ScreenSize.x*pt.y+pt.x, count);
/* remove trailing spaces */
for (count=count-1; count>=0; count--) {
if (cp[count]!=' ')
break;
cp[count] = '\0';
}
cp[++count] = '\r';
cp[++count] = '\n';
cp[++count] = '\0';
cp += count;
pt.y++;
pt.x=0;
}
/* partial line */
count = end.x - pt.x;
if (end.y != lptw->ScreenSize.y) {
_fmemcpy(cp, lptw->ScreenBuffer + lptw->ScreenSize.x*pt.y+pt.x, count);
cp[count] = '\0';
}
size = _fstrlen(cbuf) + 1;
GlobalUnlock(hGMem);
hGMem = GlobalReAlloc(hGMem, (DWORD)size, GMEM_MOVEABLE);
/* find out what type to put into clipboard */
hdc = GetDC(lptw->hWndText);
SelectObject(hdc, lptw->hfont);
GetTextMetrics(hdc,(TEXTMETRIC FAR *)&tm);
if (tm.tmCharSet == OEM_CHARSET)
type = CF_OEMTEXT;
else
type = CF_TEXT;
ReleaseDC(lptw->hWndText, hdc);
/* give buffer to clipboard */
OpenClipboard(lptw->hWndParent);
EmptyClipboard();
SetClipboardData(type, hGMem);
CloseClipboard();
}
void
TextMakeFont(LPTW lptw)
{
LOGFONT lf;
TEXTMETRIC tm;
LPSTR p;
HDC hdc;
hdc = GetDC(lptw->hWndText);
_fmemset(&lf, 0, sizeof(LOGFONT));
_fstrncpy(lf.lfFaceName,lptw->fontname,LF_FACESIZE);
lf.lfHeight = -MulDiv(lptw->fontsize, GetDeviceCaps(hdc, LOGPIXELSY), 72);
lf.lfPitchAndFamily = FIXED_PITCH;
lf.lfCharSet = DEFAULT_CHARSET;
if ( (p = _fstrstr(lptw->fontname," Italic")) != (LPSTR)NULL ) {
lf.lfFaceName[ (unsigned int)(p-lptw->fontname) ] = '\0';
lf.lfItalic = TRUE;
}
if ( (p = _fstrstr(lptw->fontname," Bold")) != (LPSTR)NULL ) {
lf.lfFaceName[ (unsigned int)(p-lptw->fontname) ] = '\0';
lf.lfWeight = FW_BOLD;
}
if (lptw->hfont != 0)
DeleteObject(lptw->hfont);
lptw->hfont = CreateFontIndirect((LOGFONT FAR *)&lf);
/* get text size */
SelectObject(hdc, lptw->hfont);
GetTextMetrics(hdc,(TEXTMETRIC FAR *)&tm);
lptw->CharSize.y = tm.tmHeight;
lptw->CharSize.x = tm.tmAveCharWidth;
lptw->CharAscent = tm.tmAscent;
if (lptw->bFocus)
CreateCaret(lptw->hWndText, 0, lptw->CharSize.x, 2+lptw->CaretHeight);
ReleaseDC(lptw->hWndText, hdc);
return;
}
void
TextSelectFont(LPTW lptw) {
#if WINVER >= 0x030a
LOGFONT lf;
CHOOSEFONT cf;
HDC hdc;
char lpszStyle[LF_FACESIZE];
LPSTR p;
/* Set all structure fields to zero. */
_fmemset(&cf, 0, sizeof(CHOOSEFONT));
_fmemset(&lf, 0, sizeof(LOGFONT));
cf.lStructSize = sizeof(CHOOSEFONT);
cf.hwndOwner = lptw->hWndParent;
_fstrncpy(lf.lfFaceName,lptw->fontname,LF_FACESIZE);
if ( (p = _fstrstr(lptw->fontname," Bold")) != (LPSTR)NULL ) {
_fstrncpy(lpszStyle,p+1,LF_FACESIZE);
lf.lfFaceName[ (unsigned int)(p-lptw->fontname) ] = '\0';
}
else if ( (p = _fstrstr(lptw->fontname," Italic")) != (LPSTR)NULL ) {
_fstrncpy(lpszStyle,p+1,LF_FACESIZE);
lf.lfFaceName[ (unsigned int)(p-lptw->fontname) ] = '\0';
}
else
_fstrcpy(lpszStyle,"Regular");
cf.lpszStyle = lpszStyle;
hdc = GetDC(lptw->hWndText);
lf.lfHeight = -MulDiv(lptw->fontsize, GetDeviceCaps(hdc, LOGPIXELSY), 72);
ReleaseDC(lptw->hWndText, hdc);
lf.lfPitchAndFamily = FIXED_PITCH;
cf.lpLogFont = &lf;
cf.nFontType = SCREEN_FONTTYPE;
cf.Flags = CF_SCREENFONTS | CF_FIXEDPITCHONLY | CF_INITTOLOGFONTSTRUCT | CF_USESTYLE;
if (ChooseFont(&cf)) {
RECT rect;
_fstrcpy(lptw->fontname,lf.lfFaceName);
lptw->fontsize = cf.iPointSize / 10;
if (cf.nFontType & BOLD_FONTTYPE)
lstrcat(lptw->fontname," Bold");
if (cf.nFontType & ITALIC_FONTTYPE)
lstrcat(lptw->fontname," Italic");
TextMakeFont(lptw);
/* force a window update */
GetClientRect(lptw->hWndText, (LPRECT) &rect);
SendMessage(lptw->hWndText, WM_SIZE, SIZE_RESTORED,
MAKELPARAM(rect.right-rect.left, rect.bottom-rect.top));
GetClientRect(lptw->hWndText, (LPRECT) &rect);
InvalidateRect(lptw->hWndText, (LPRECT) &rect, 1);
UpdateWindow(lptw->hWndText);
}
#endif
}
/* parent overlapped window */
LRESULT CALLBACK WINEXPORT
WndParentProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rect;
LPTW lptw;
lptw = (LPTW)GetWindowLong(hwnd, 0);
switch(message) {
case WM_SYSCOMMAND:
switch(LOWORD(wParam))
{
case M_COPY_CLIP:
case M_PASTE:
case M_CHOOSE_FONT:
case M_SYSCOLORS:
case M_WRITEINI:
case M_ABOUT:
SendMessage(lptw->hWndText, WM_COMMAND, wParam, lParam);
}
break;
case WM_SETFOCUS:
if (IsWindow(lptw->hWndText)) {
SetFocus(lptw->hWndText);
return(0);
}
break;
case WM_GETMINMAXINFO:
{
POINT FAR * MMinfo = (POINT FAR *)lParam;
TEXTMETRIC tm;
hdc = GetDC(hwnd);
SelectObject(hdc, GetStockObject(OEM_FIXED_FONT));
GetTextMetrics(hdc,(LPTEXTMETRIC)&tm);
ReleaseDC(hwnd,hdc);
/* minimum size */
MMinfo[3].x = ScreenMinSize.x*tm.tmAveCharWidth
+ GetSystemMetrics(SM_CXVSCROLL) + 2*GetSystemMetrics(SM_CXFRAME);
MMinfo[3].y = ScreenMinSize.y*tm.tmHeight
+ GetSystemMetrics(SM_CYHSCROLL) + 2*GetSystemMetrics(SM_CYFRAME)
+ GetSystemMetrics(SM_CYCAPTION);
}
return(0);
case WM_SIZE:
SetWindowPos(lptw->hWndText, (HWND)NULL, 0, lptw->ButtonHeight,
LOWORD(lParam), HIWORD(lParam)-lptw->ButtonHeight,
SWP_NOZORDER | SWP_NOACTIVATE);
return(0);
case WM_COMMAND:
if (IsWindow(lptw->hWndText))
SetFocus(lptw->hWndText);
SendMessage(lptw->hWndText, message, wParam, lParam); /* pass on menu commands */
return(0);
case WM_PAINT:
{
hdc = BeginPaint(hwnd, &ps);
if (lptw->ButtonHeight) {
HBRUSH hbrush;
GetClientRect(hwnd, &rect);
hbrush = CreateSolidBrush(GetSysColor(COLOR_BTNSHADOW));
rect.bottom = lptw->ButtonHeight-1;
FillRect(hdc, &rect, hbrush);
DeleteObject(hbrush);
SelectObject(hdc, GetStockObject(BLACK_PEN));
MoveTo(hdc, rect.left, lptw->ButtonHeight-1);
LineTo(hdc, rect.right, lptw->ButtonHeight-1);
}
EndPaint(hwnd, &ps);
return 0;
}
#if WINVER >= 0x030a
case WM_DROPFILES:
{
WORD version = LOWORD(GetVersion());
if ((LOBYTE(version)*100 + HIBYTE(version)) >= 310)
DragFunc(lptw, (HDROP)wParam);
}
break;
#endif
case WM_CREATE:
{
RECT crect, wrect;
TEXTMETRIC tm;
lptw = ((CREATESTRUCT FAR *)lParam)->lpCreateParams;
SetWindowLong(hwnd, 0, (LONG)lptw);
lptw->hWndParent = hwnd;
/* get character size */
TextMakeFont(lptw);
hdc = GetDC(hwnd);
SelectObject(hdc, lptw->hfont);
GetTextMetrics(hdc,(LPTEXTMETRIC)&tm);
lptw->CharSize.y = tm.tmHeight;
lptw->CharSize.x = tm.tmAveCharWidth;
lptw->CharAscent = tm.tmAscent;
ReleaseDC(hwnd,hdc);
GetClientRect(hwnd, &crect);
if ( lptw->CharSize.x*lptw->ScreenSize.x < crect.right ) {
/* shrink x size */
GetWindowRect(lptw->hWndParent,&wrect);
MoveWindow(lptw->hWndParent, wrect.left, wrect.top,
wrect.right-wrect.left + (lptw->CharSize.x*lptw->ScreenSize.x - crect.right),
wrect.bottom-wrect.top,
TRUE);
}
if ( lptw->CharSize.y*lptw->ScreenSize.y < crect.bottom ) {
/* shrink y size */
GetWindowRect(lptw->hWndParent,&wrect);
MoveWindow(lptw->hWndParent, wrect.left, wrect.top,
wrect.right-wrect.left,
wrect.bottom-wrect.top + (lptw->CharSize.y*lptw->ScreenSize.y+lptw->ButtonHeight - crect.bottom),
TRUE);
}
}
#if WINVER >= 0x030a
{
WORD version = LOWORD(GetVersion());
if ((LOBYTE(version)*100 + HIBYTE(version)) >= 310)
if ( (lptw->DragPre!=(LPSTR)NULL) && (lptw->DragPost!=(LPSTR)NULL) )
DragAcceptFiles(hwnd, TRUE);
}
#endif
break;
case WM_DESTROY:
#if WINVER >= 0x030a
{
WORD version = LOWORD(GetVersion());
if ((LOBYTE(version)*100 + HIBYTE(version)) >= 310)
DragAcceptFiles(hwnd, FALSE);
}
#endif
DeleteObject(lptw->hfont);
lptw->hfont = 0;
break;
case WM_CLOSE:
if (lptw->shutdown) {
FARPROC lpShutDown = lptw->shutdown;
(*lpShutDown)();
}
break;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
/* child text window */
LRESULT CALLBACK WINEXPORT
WndTextProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rect;
int nYinc, nXinc;
LPTW lptw;
lptw = (LPTW)GetWindowLong(hwnd, 0);
switch(message) {
case WM_SETFOCUS:
lptw->bFocus = TRUE;
CreateCaret(hwnd, 0, lptw->CharSize.x, 2+lptw->CaretHeight);
SetCaretPos(lptw->CursorPos.x*lptw->CharSize.x - lptw->ScrollPos.x,
lptw->CursorPos.y*lptw->CharSize.y + lptw->CharAscent
- lptw->CaretHeight - lptw->ScrollPos.y);
if (lptw->bGetCh)
ShowCaret(hwnd);
break;
case WM_KILLFOCUS:
DestroyCaret();
lptw->bFocus = FALSE;
break;
case WM_SIZE:
lptw->ClientSize.y = HIWORD(lParam);
lptw->ClientSize.x = LOWORD(lParam);
lptw->ScrollMax.y = max(0, lptw->CharSize.y*lptw->ScreenSize.y - lptw->ClientSize.y);
lptw->ScrollPos.y = min(lptw->ScrollPos.y, lptw->ScrollMax.y);
SetScrollRange(hwnd, SB_VERT, 0, lptw->ScrollMax.y, FALSE);
SetScrollPos(hwnd, SB_VERT, lptw->ScrollPos.y, TRUE);
lptw->ScrollMax.x = max(0, lptw->CharSize.x*lptw->ScreenSize.x - lptw->ClientSize.x);
lptw->ScrollPos.x = min(lptw->ScrollPos.x, lptw->ScrollMax.x);
SetScrollRange(hwnd, SB_HORZ, 0, lptw->ScrollMax.x, FALSE);
SetScrollPos(hwnd, SB_HORZ, lptw->ScrollPos.x, TRUE);
if (lptw->bFocus && lptw->bGetCh) {
SetCaretPos(lptw->CursorPos.x*lptw->CharSize.x - lptw->ScrollPos.x,
lptw->CursorPos.y*lptw->CharSize.y + lptw->CharAscent
- lptw->CaretHeight - lptw->ScrollPos.y);
ShowCaret(hwnd);
}
return(0);
case WM_VSCROLL:
switch(LOWORD(wParam)) {
case SB_TOP:
nYinc = -lptw->ScrollPos.y;
break;
case SB_BOTTOM:
nYinc = lptw->ScrollMax.y - lptw->ScrollPos.y;
break;
case SB_LINEUP:
nYinc = -lptw->CharSize.y;
break;
case SB_LINEDOWN:
nYinc = lptw->CharSize.y;
break;
case SB_PAGEUP:
nYinc = min(-1,-lptw->ClientSize.y);
break;
case SB_PAGEDOWN:
nYinc = max(1,lptw->ClientSize.y);
break;
case SB_THUMBPOSITION:
nYinc = LOWORD(lParam) - lptw->ScrollPos.y;
break;
default:
nYinc = 0;
}
if ( (nYinc = max(-lptw->ScrollPos.y,
min(nYinc, lptw->ScrollMax.y - lptw->ScrollPos.y)))
!= 0 ) {
lptw->ScrollPos.y += nYinc;
ScrollWindow(hwnd,0,-nYinc,NULL,NULL);
SetScrollPos(hwnd,SB_VERT,lptw->ScrollPos.y,TRUE);
UpdateWindow(hwnd);
}
return(0);
case WM_HSCROLL:
switch(LOWORD(wParam)) {
case SB_LINEUP:
nXinc = -lptw->CharSize.x;
break;
case SB_LINEDOWN:
nXinc = lptw->CharSize.x;
break;
case SB_PAGEUP:
nXinc = min(-1,-lptw->ClientSize.x);
break;
case SB_PAGEDOWN:
nXinc = max(1,lptw->ClientSize.x);
break;
case SB_THUMBPOSITION:
nXinc = LOWORD(lParam) - lptw->ScrollPos.x;
break;
default:
nXinc = 0;
}
if ( (nXinc = max(-lptw->ScrollPos.x,
min(nXinc, lptw->ScrollMax.x - lptw->ScrollPos.x)))
!= 0 ) {
lptw->ScrollPos.x += nXinc;
ScrollWindow(hwnd,-nXinc,0,NULL,NULL);
SetScrollPos(hwnd,SB_HORZ,lptw->ScrollPos.x,TRUE);
UpdateWindow(hwnd);
}
return(0);
case WM_KEYDOWN:
if (GetKeyState(VK_SHIFT) < 0) {
switch(wParam) {
case VK_HOME:
SendMessage(hwnd, WM_VSCROLL, SB_TOP, (LPARAM)0);
break;
case VK_END:
SendMessage(hwnd, WM_VSCROLL, SB_BOTTOM, (LPARAM)0);
break;
case VK_PRIOR:
SendMessage(hwnd, WM_VSCROLL, SB_PAGEUP, (LPARAM)0);
break;
case VK_NEXT:
SendMessage(hwnd, WM_VSCROLL, SB_PAGEDOWN, (LPARAM)0);
break;
case VK_UP:
SendMessage(hwnd, WM_VSCROLL, SB_LINEUP, (LPARAM)0);
break;
case VK_DOWN:
SendMessage(hwnd, WM_VSCROLL, SB_LINEDOWN, (LPARAM)0);
break;
case VK_LEFT:
SendMessage(hwnd, WM_HSCROLL, SB_LINEUP, (LPARAM)0);
break;
case VK_RIGHT:
SendMessage(hwnd, WM_HSCROLL, SB_LINEDOWN, (LPARAM)0);
break;
}
}
else {
switch(wParam) {
case VK_HOME:
case VK_END:
case VK_PRIOR:
case VK_NEXT:
case VK_UP:
case VK_DOWN:
case VK_LEFT:
case VK_RIGHT:
case VK_DELETE:
{ /* store key in circular buffer */
long count;
count = lptw->KeyBufIn - lptw->KeyBufOut;
if (count < 0) count += lptw->KeyBufSize;
if (count < lptw->KeyBufSize-2) {
*lptw->KeyBufIn++ = 0;
if (lptw->KeyBufIn - lptw->KeyBuf >= lptw->KeyBufSize)
lptw->KeyBufIn = lptw->KeyBuf; /* wrap around */
*lptw->KeyBufIn++ = HIWORD(lParam) & 0xff;
if (lptw->KeyBufIn - lptw->KeyBuf >= lptw->KeyBufSize)
lptw->KeyBufIn = lptw->KeyBuf; /* wrap around */
}
}
}
}
break;
case WM_RBUTTONDOWN:
{
POINT pt;
pt.x = LOWORD(lParam);
pt.y = HIWORD(lParam);
ClientToScreen(hwnd,&pt);
TrackPopupMenu(lptw->hPopMenu, TPM_LEFTALIGN,
pt.x, pt.y, 0, hwnd, NULL);
}
return(0);
case WM_LBUTTONDOWN:
{ /* start marking text */
POINT pt;
pt.x = LOWORD(lParam);
pt.y = HIWORD(lParam);
pt.x = (pt.x + lptw->ScrollPos.x)/lptw->CharSize.x;
pt.y = (pt.y + lptw->ScrollPos.y)/lptw->CharSize.y;
ClearMark(lptw, pt);
}
SetCapture(hwnd); /* track the mouse */
lptw->Marking = TRUE;
break;
case WM_LBUTTONUP:
{ /* finish marking text */
/* ensure begin mark is before end mark */
ReleaseCapture();
lptw->Marking = FALSE;
if ((lptw->ScreenSize.x*lptw->MarkBegin.y + lptw->MarkBegin.x) >
(lptw->ScreenSize.x*lptw->MarkEnd.y + lptw->MarkEnd.x)) {
POINT tmp;
tmp.x = lptw->MarkBegin.x;
tmp.y = lptw->MarkBegin.y;
lptw->MarkBegin.x = lptw->MarkEnd.x;
lptw->MarkBegin.y = lptw->MarkEnd.y;
lptw->MarkEnd.x = tmp.x;
lptw->MarkEnd.y = tmp.y;
}
}
break;
case WM_MOUSEMOVE:
if ( (wParam & MK_LBUTTON) && lptw->Marking ) {
RECT rect;
POINT pt;
pt.x = LOWORD(lParam);
pt.y = HIWORD(lParam);
GetClientRect(hwnd, &rect);
if (PtInRect(&rect, pt)) {
pt.x = (pt.x + lptw->ScrollPos.x)/lptw->CharSize.x;
pt.y = (pt.y + lptw->ScrollPos.y)/lptw->CharSize.y;
UpdateMark(lptw, pt);
}
else {
int nXinc;
int nYinc;
do {
nXinc = 0;
nYinc = 0;
if (pt.x > rect.right) {
nXinc = lptw->CharSize.x * 4;
pt.x = (rect.right + lptw->ScrollPos.x)/lptw->CharSize.x + 2;
}
else if (pt.x < rect.left) {
nXinc = -lptw->CharSize.x * 4;
pt.x = (rect.left + lptw->ScrollPos.x)/lptw->CharSize.x - 2;
}
else
pt.x = (pt.x + lptw->ScrollPos.x)/lptw->CharSize.x;
if (pt.y > rect.bottom) {
nYinc = lptw->CharSize.y;
pt.y = (rect.bottom + lptw->ScrollPos.y)/lptw->CharSize.y + 1;
}
else if (pt.y < rect.top) {
nYinc = -lptw->CharSize.y;
pt.y = (rect.top + lptw->ScrollPos.y)/lptw->CharSize.y - 1;
}
else
pt.y = (pt.y + lptw->ScrollPos.y)/lptw->CharSize.y;
LimitMark(lptw, &pt);
nXinc = max(nXinc, -lptw->ScrollPos.x);
nYinc = max(nYinc, -lptw->ScrollPos.y);
nYinc = min(nYinc, lptw->ScrollMax.y - lptw->ScrollPos.y);
nXinc = min(nXinc, lptw->ScrollMax.x - lptw->ScrollPos.x);
if (nYinc || nXinc) {
lptw->ScrollPos.y += nYinc;
lptw->ScrollPos.x += nXinc;
ScrollWindow(lptw->hWndText,-nXinc,-nYinc,NULL,NULL);
SetScrollPos(lptw->hWndText,SB_VERT,lptw->ScrollPos.y,TRUE);
SetScrollPos(lptw->hWndText,SB_HORZ,lptw->ScrollPos.x,TRUE);
UpdateWindow(lptw->hWndText);
}
UpdateMark(lptw, pt);
GetCursorPos(&pt);
ScreenToClient(hwnd, &pt);
}
while( (nYinc || nXinc) && !PtInRect(&rect, pt) &&
(GetAsyncKeyState(VK_LBUTTON) < 0) );
}
}
break;
case WM_CHAR:
{ /* store key in circular buffer */
long count;
count = lptw->KeyBufIn - lptw->KeyBufOut;
if (count < 0) count += lptw->KeyBufSize;
if (count < lptw->KeyBufSize-1) {
*lptw->KeyBufIn++ = wParam;
if (lptw->KeyBufIn - lptw->KeyBuf >= lptw->KeyBufSize)
lptw->KeyBufIn = lptw->KeyBuf; /* wrap around */
}
}
return(0);
case WM_COMMAND:
if (LOWORD(wParam) < NUMMENU)
SendMacro(lptw, LOWORD(wParam));
else
switch(LOWORD(wParam))
{
case M_COPY_CLIP:
TextCopyClip(lptw);
return 0;
case M_PASTE:
{
HGLOBAL hGMem;
BYTE FAR *cbuf;
TEXTMETRIC tm;
UINT type;
/* find out what type to get from clipboard */
hdc = GetDC(hwnd);
SelectObject(hdc, lptw->hfont);
GetTextMetrics(hdc,(TEXTMETRIC FAR *)&tm);
if (tm.tmCharSet == OEM_CHARSET)
type = CF_OEMTEXT;
else
type = CF_TEXT;
ReleaseDC(lptw->hWndText, hdc);
/* now get it from clipboard */
OpenClipboard(hwnd);
hGMem = GetClipboardData(type);
if (hGMem) {
cbuf = (BYTE FAR *) GlobalLock(hGMem);
while (*cbuf) {
if (*cbuf != '\n')
SendMessage(lptw->hWndText,WM_CHAR,*cbuf,1L);
cbuf++;
}
GlobalUnlock(hGMem);
}
CloseClipboard();
return 0;
}
case M_CHOOSE_FONT:
TextSelectFont(lptw);
return 0;
case M_SYSCOLORS:
lptw->bSysColors = !lptw->bSysColors;
if (lptw->bSysColors)
CheckMenuItem(lptw->hPopMenu, M_SYSCOLORS, MF_BYCOMMAND | MF_CHECKED);
else
CheckMenuItem(lptw->hPopMenu, M_SYSCOLORS, MF_BYCOMMAND | MF_UNCHECKED);
SendMessage(hwnd, WM_SYSCOLORCHANGE, (WPARAM)0, (LPARAM)0);
InvalidateRect(hwnd, (LPRECT)NULL, 1);
UpdateWindow(hwnd);
return 0;
case M_WRITEINI:
WriteTextIni(lptw);
return 0;
case M_ABOUT:
AboutBox(hwnd,lptw->AboutText);
return 0;
}
return(0);
case WM_SYSCOLORCHANGE:
DeleteObject(lptw->hbrBackground);
lptw->hbrBackground = CreateSolidBrush(lptw->bSysColors ?
GetSysColor(COLOR_WINDOW) : RGB(0,0,0));
return(0);
case WM_ERASEBKGND:
return(1); /* we will erase it ourselves */
case WM_PAINT:
{
POINT source, width, dest;
POINT MarkBegin, MarkEnd;
hdc = BeginPaint(hwnd, &ps);
if (ps.fErase)
FillRect(hdc, &ps.rcPaint, lptw->hbrBackground);
SelectObject(hdc, lptw->hfont);
SetMapMode(hdc, MM_TEXT);
SetBkMode(hdc,OPAQUE);
GetClientRect(hwnd, &rect);
source.x = (rect.left + lptw->ScrollPos.x) / lptw->CharSize.x; /* source */
source.y = (rect.top + lptw->ScrollPos.y) / lptw->CharSize.y;
dest.x = source.x * lptw->CharSize.x - lptw->ScrollPos.x; /* destination */
dest.y = source.y * lptw->CharSize.y - lptw->ScrollPos.y;
width.x = ((rect.right + lptw->ScrollPos.x + lptw->CharSize.x - 1) / lptw->CharSize.x) - source.x; /* width */
width.y = ((rect.bottom + lptw->ScrollPos.y + lptw->CharSize.y - 1) / lptw->CharSize.y) - source.y;
if (source.x < 0)
source.x = 0;
if (source.y < 0)
source.y = 0;
if (source.x+width.x > lptw->ScreenSize.x)
width.x = lptw->ScreenSize.x - source.x;
if (source.y+width.y > lptw->ScreenSize.y)
width.y = lptw->ScreenSize.y - source.y;
/* ensure begin mark is before end mark */
if ((lptw->ScreenSize.x*lptw->MarkBegin.y + lptw->MarkBegin.x) >
(lptw->ScreenSize.x*lptw->MarkEnd.y + lptw->MarkEnd.x)) {
MarkBegin.x = lptw->MarkEnd.x;
MarkBegin.y = lptw->MarkEnd.y;
MarkEnd.x = lptw->MarkBegin.x;
MarkEnd.y = lptw->MarkBegin.y;
}
else {
MarkBegin.x = lptw->MarkBegin.x;
MarkBegin.y = lptw->MarkBegin.y;
MarkEnd.x = lptw->MarkEnd.x;
MarkEnd.y = lptw->MarkEnd.y;
}
/* for each line */
while (width.y>0) {
if ( (source.y >= MarkBegin.y) && (source.y <= MarkEnd.y) ) {
int start, end;
int count, offset;
if (source.y == MarkBegin.y)
start = MarkBegin.x;
else
start = 0;
if (source.y == MarkEnd.y)
end = MarkEnd.x;
else
end = lptw->ScreenSize.x;
/* do stuff before marked text */
offset = 0;
count = start - source.x;
if (count > 0)
DoLine(lptw, hdc, dest.x, dest.y,
source.y*lptw->ScreenSize.x + source.x, count);
/* then the marked text */
offset += count;
count = end - start;
if ((count > 0) && (offset < width.x)){
if (lptw->bSysColors) {
SetTextColor(hdc, GetSysColor(COLOR_HIGHLIGHTTEXT));
SetBkColor(hdc, GetSysColor(COLOR_HIGHLIGHT));
}
else {
SetTextColor(hdc, MARKFORE);
SetBkColor(hdc, MARKBACK);
}
TextOut(hdc, dest.x + lptw->CharSize.x*offset, dest.y,
(LPSTR)(lptw->ScreenBuffer + source.y*lptw->ScreenSize.x
+ source.x + offset), count);
}
/* then stuff after marked text */
offset += count;
count = width.x + source.x - end;
if ((count > 0) && (offset < width.x))
DoLine(lptw, hdc, dest.x + lptw->CharSize.x*offset, dest.y,
source.y*lptw->ScreenSize.x + source.x + offset, count);
}
else {
DoLine(lptw, hdc, dest.x, dest.y,
source.y*lptw->ScreenSize.x + source.x, width.x);
}
dest.y += lptw->CharSize.y;
source.y++;
width.y--;
}
EndPaint(hwnd, &ps);
return 0;
}
case WM_CREATE:
lptw = ((CREATESTRUCT FAR *)lParam)->lpCreateParams;
SetWindowLong(hwnd, 0, (LONG)lptw);
lptw->hWndText = hwnd;
break;
case WM_DESTROY:
DeleteObject(lptw->hbrBackground);
break;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
/* ================================== */
/* replacement stdio routines */
/* TRUE if key hit, FALSE if no key */
int WDPROC
TextKBHit(LPTW lptw)
{
return (lptw->KeyBufIn != lptw->KeyBufOut);
}
/* get character from keyboard, no echo */
/* need to add extended codes */
int WDPROC
TextGetCh(LPTW lptw)
{
int ch;
TextToCursor(lptw);
lptw->bGetCh = TRUE;
if (lptw->bFocus) {
SetCaretPos(lptw->CursorPos.x*lptw->CharSize.x - lptw->ScrollPos.x,
lptw->CursorPos.y*lptw->CharSize.y + lptw->CharAscent
- lptw->CaretHeight - lptw->ScrollPos.y);
ShowCaret(lptw->hWndText);
}
while (!TextKBHit(lptw)) { /* CMW: can't use TextMessage here as it does not idle properly */
MSG msg;
GetMessage(&msg, 0, 0, 0);
TranslateMessage(&msg);
DispatchMessage(&msg);
}
ch = *lptw->KeyBufOut++;
if (ch=='\r')
ch = '\n';
if (lptw->KeyBufOut - lptw->KeyBuf >= lptw->KeyBufSize)
lptw->KeyBufOut = lptw->KeyBuf; /* wrap around */
if (lptw->bFocus)
HideCaret(lptw->hWndText);
lptw->bGetCh = FALSE;
return ch;
}
/* get character from keyboard, with echo */
int WDPROC
TextGetChE(LPTW lptw)
{
int ch;
ch = TextGetCh(lptw);
TextPutCh(lptw, (BYTE)ch);
return ch;
}
LPSTR WDPROC
TextGetS(LPTW lptw, LPSTR str, unsigned int size)
{
LPSTR next = str;
while (--size>0) {
switch(*next = TextGetChE(lptw)) {
case EOF:
*next = 0;
if (next == str) return (char *)NULL;
return str;
case '\n':
*(next+1) = 0;
return str;
case 0x08:
case 0x7f:
if (next > str)
--next;
break;
default:
++next;
}
}
*next = 0;
return str;
}
int WDPROC
TextPutS(LPTW lptw, LPSTR str)
{
TextPutStr(lptw, str);
return str[_fstrlen(str)-1];
}
/* ================================== */
/* routines added for elvis */
void WDPROC
TextGotoXY(LPTW lptw, int x, int y)
{
lptw->CursorPos.x = x;
lptw->CursorPos.y = y;
}
int WDPROC
TextWhereX(LPTW lptw)
{
return lptw->CursorPos.x;
}
int WDPROC
TextWhereY(LPTW lptw)
{
return lptw->CursorPos.y;
}
void WDPROC
TextCursorHeight(LPTW lptw, int height)
{
lptw->CaretHeight = height;
if (lptw->bFocus)
CreateCaret(lptw->hWndText, 0, lptw->CharSize.x, 2+lptw->CaretHeight);
}
void WDPROC
TextClearEOL(LPTW lptw)
{
HDC hdc;
int xpos, ypos;
int from, len;
POINT pt;
pt.x = pt.y = 0;
ClearMark(lptw, pt);
from = lptw->CursorPos.y*lptw->ScreenSize.x + lptw->CursorPos.x;
len = lptw->ScreenSize.x-lptw->CursorPos.x;
_fmemset(lptw->ScreenBuffer + from, ' ', len);
_fmemset(lptw->AttrBuffer + from, NOTEXT, len);
xpos = lptw->CursorPos.x*lptw->CharSize.x - lptw->ScrollPos.x;
ypos = lptw->CursorPos.y*lptw->CharSize.y - lptw->ScrollPos.y;
hdc = GetDC(lptw->hWndText);
if (lptw->bSysColors) {
SetTextColor(hdc, GetSysColor(COLOR_WINDOWTEXT));
SetBkColor(hdc, GetSysColor(COLOR_WINDOW));
}
else {
SetTextColor(hdc, TextFore(lptw->Attr));
SetBkColor(hdc, TextBack(lptw->Attr));
}
SelectObject(hdc, (lptw->hfont));
TextOut(hdc,xpos,ypos,
(LPSTR)(lptw->ScreenBuffer + lptw->CursorPos.y*lptw->ScreenSize.x +
lptw->CursorPos.x), lptw->ScreenSize.x-lptw->CursorPos.x);
(void)ReleaseDC(lptw->hWndText,hdc);
}
void WDPROC
TextClearEOS(LPTW lptw)
{
RECT rect;
int from, len;
POINT pt;
pt.x = pt.y = 0;
ClearMark(lptw, pt);
from = lptw->CursorPos.y*lptw->ScreenSize.x + lptw->CursorPos.x;
len = lptw->ScreenSize.x-lptw->CursorPos.x +
(lptw->ScreenSize.y-lptw->CursorPos.y-1)*lptw->ScreenSize.x;
_fmemset(lptw->ScreenBuffer + from, ' ', len);
_fmemset(lptw->AttrBuffer + from, NOTEXT, len);
GetClientRect(lptw->hWndText, (LPRECT) &rect);
InvalidateRect(lptw->hWndText, (LPRECT) &rect, 1);
UpdateWindow(lptw->hWndText);
}
void WDPROC
TextInsertLine(LPTW lptw)
{
RECT rect;
int from, to, len;
POINT pt;
pt.x = pt.y = 0;
ClearMark(lptw, pt);
from = lptw->CursorPos.y*lptw->ScreenSize.x,
to = (lptw->CursorPos.y+1)*lptw->ScreenSize.x;
len = (lptw->ScreenSize.y-lptw->CursorPos.y-1)*lptw->ScreenSize.x;
_fmemmove(lptw->ScreenBuffer + to, lptw->ScreenBuffer + from, len);
_fmemmove(lptw->AttrBuffer + to, lptw->AttrBuffer + from, len);
_fmemset(lptw->ScreenBuffer + from, ' ', lptw->ScreenSize.x);
_fmemset(lptw->AttrBuffer + from, NOTEXT, lptw->ScreenSize.x);
GetClientRect(lptw->hWndText, (LPRECT) &rect);
InvalidateRect(lptw->hWndText, (LPRECT) &rect, 1);
UpdateWindow(lptw->hWndText);
if (lptw->CursorFlag)
TextToCursor(lptw);
}
void WDPROC
TextDeleteLine(LPTW lptw)
{
RECT rect;
int from, to, len;
POINT pt;
pt.x = pt.y = 0;
ClearMark(lptw, pt);
to = lptw->CursorPos.y*lptw->ScreenSize.x,
from = (lptw->CursorPos.y+1)*lptw->ScreenSize.x;
len = (lptw->ScreenSize.y-lptw->CursorPos.y-1)*lptw->ScreenSize.x;
_fmemmove(lptw->ScreenBuffer + to, lptw->ScreenBuffer + from, len);
_fmemmove(lptw->AttrBuffer + to, lptw->AttrBuffer + from, len);
from = lptw->ScreenSize.x*(lptw->ScreenSize.y -1);
_fmemset(lptw->ScreenBuffer + from, ' ', lptw->ScreenSize.x);
_fmemset(lptw->AttrBuffer + from, NOTEXT, lptw->ScreenSize.x);
GetClientRect(lptw->hWndText, (LPRECT) &rect);
InvalidateRect(lptw->hWndText, (LPRECT) &rect, 1);
UpdateWindow(lptw->hWndText);
if (lptw->CursorFlag)
TextToCursor(lptw);
}
void WDPROC
TextScrollReverse(LPTW lptw)
{
RECT rect;
int len = lptw->ScreenSize.x * (lptw->ScreenSize.y - 1);
_fmemmove(lptw->ScreenBuffer+lptw->ScreenSize.x, lptw->ScreenBuffer, len);
_fmemset(lptw->ScreenBuffer, ' ', lptw->ScreenSize.x);
_fmemmove(lptw->AttrBuffer+lptw->ScreenSize.x, lptw->AttrBuffer, len);
_fmemset(lptw->AttrBuffer, NOTEXT, lptw->ScreenSize.x);
if (lptw->CursorPos.y)
lptw->CursorPos.y--;
ScrollWindow(lptw->hWndText,0,+lptw->CharSize.y,NULL,NULL);
GetClientRect(lptw->hWndText, (LPRECT) &rect);
rect.top = lptw->ScreenSize.y*lptw->CharSize.y;
if (rect.top < rect.bottom)
InvalidateRect(lptw->hWndText, (LPRECT) &rect, 1);
lptw->MarkBegin.y++;
lptw->MarkEnd.y++;
LimitMark(lptw, &lptw->MarkBegin);
LimitMark(lptw, &lptw->MarkEnd);
UpdateWindow(lptw->hWndText);
}
void WDPROC
TextAttr(LPTW lptw, BYTE attr)
{
lptw->Attr = attr;
}
/* About Box */
BOOL CALLBACK WINEXPORT
AboutDlgProc(HWND hDlg, UINT wMsg, WPARAM wParam, LPARAM lParam)
{
switch (wMsg) {
case WM_INITDIALOG:
{
char buf[80];
GetWindowText(GetParent(hDlg),buf,80);
SetDlgItemText(hDlg, AB_TEXT1, buf);
SetDlgItemText(hDlg, AB_TEXT2, (LPSTR)lParam);
#ifdef __DLL__
wsprintf(buf,"WGNUPLOT.DLL Version %s",(LPSTR)WGNUPLOTVERSION);
SetDlgItemText(hDlg, AB_TEXT3, buf);
#endif
}
return TRUE;
case WM_DRAWITEM:
{
LPDRAWITEMSTRUCT lpdis = (LPDRAWITEMSTRUCT)lParam;
#ifdef WIN32
DrawIcon(lpdis->hDC, 0, 0, (HICON)GetClassLong(GetParent(hDlg), GCL_HICON));
#else
DrawIcon(lpdis->hDC, 0, 0, (HICON)GetClassWord(GetParent(hDlg), GCW_HICON));
#endif
}
return FALSE;
case WM_COMMAND:
switch (LOWORD(wParam)) {
case IDCANCEL:
case IDOK:
EndDialog(hDlg, LOWORD(wParam));
return TRUE;
}
break;
}
return FALSE;
}
void WDPROC
AboutBox(HWND hwnd, LPSTR str)
{
#ifdef WIN32
DialogBoxParam(hdllInstance,"AboutDlgBox",hwnd,AboutDlgProc,(LPARAM)str);
#else
DLGPROC lpfnAboutDlgProc;
#ifdef __DLL__
lpfnAboutDlgProc = (DLGPROC)GetProcAddress(hdllInstance, "AboutDlgProc");
#else
lpfnAboutDlgProc = (DLGPROC)MakeProcInstance((FARPROC)AboutDlgProc, hdllInstance);
#endif
DialogBoxParam(hdllInstance,"AboutDlgBox",hwnd,lpfnAboutDlgProc,(LPARAM)str);
EnableWindow(hwnd,TRUE);
#ifndef __DLL__
FreeProcInstance((FARPROC)lpfnAboutDlgProc);
#endif
#endif
}