summaryrefslogtreecommitdiff
path: root/app/wlib/mswlib/mswtext.c
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2016-12-28 16:52:56 +0100
committerJörg Frings-Fürst <debian@jff-webhosting.net>2016-12-28 16:52:56 +0100
commit7b358424ebad9349421acd533c2fa1cbf6cf3e3e (patch)
tree686678532eefed525c242fd214d0cfb2914726c5 /app/wlib/mswlib/mswtext.c
Initial import of xtrkcad version 1:4.0.2-2
Diffstat (limited to 'app/wlib/mswlib/mswtext.c')
-rw-r--r--app/wlib/mswlib/mswtext.c383
1 files changed, 383 insertions, 0 deletions
diff --git a/app/wlib/mswlib/mswtext.c b/app/wlib/mswlib/mswtext.c
new file mode 100644
index 0000000..95f6268
--- /dev/null
+++ b/app/wlib/mswlib/mswtext.c
@@ -0,0 +1,383 @@
+#include <windows.h>
+#include <string.h>
+#include <malloc.h>
+#include <stdlib.h>
+#include <commdlg.h>
+#include <math.h>
+#include <stdio.h>
+#include "mswint.h"
+
+/*
+ *****************************************************************************
+ *
+ * Multi-line Text Boxes
+ *
+ *****************************************************************************
+ */
+
+static LOGFONT fixedFont = {
+ /* Initial default values */
+ -18, 0, /* H, W */
+ 0, /* A */
+ 0,
+ FW_REGULAR,
+ 0, 0, 0,/* I, U, SO */
+ ANSI_CHARSET,
+ 0, /* OP */
+ 0, /* CP */
+ 0, /* Q */
+ FIXED_PITCH|FF_MODERN, /* P&F */
+ "Courier" };
+static HFONT fixedTextFont, prevTextFont;
+
+struct wText_t {
+ WOBJ_COMMON
+ HANDLE hText;
+ };
+
+BOOL_T textPrintAbort = FALSE;
+
+
+void wTextClear(
+ wText_p b )
+{
+ long rc;
+ rc = SendMessage( b->hWnd, EM_SETREADONLY, 0, 0L );
+#ifdef WIN32
+ rc = SendMessage( b->hWnd, EM_SETSEL, 0, -1 );
+#else
+ rc = SendMessage( b->hWnd, EM_SETSEL, 1, MAKELONG( 0, -1 ) );
+#endif
+ rc = SendMessage( b->hWnd, WM_CLEAR, 0, 0L );
+ if ( b->option&BO_READONLY )
+ rc = SendMessage( b->hWnd, EM_SETREADONLY, 1, 0L );
+}
+
+
+void wTextAppend(
+ wText_p b,
+ const char * text )
+{
+ HANDLE hMem;
+ char * pMem, *cp;
+ int len, textSize;
+ long rc;
+ long lc;
+ len = strlen(text);
+ if (len <= 0)
+ return;
+ for (cp= CAST_AWAY_CONST text; *cp; cp++) {
+ if ( *cp == '\n' )
+ len++;
+ }
+ hMem = GlobalAlloc( GHND, (DWORD)len+10+1 );
+ pMem = (char*)GlobalLock( hMem );
+ for (cp=pMem; *text; cp++,text++) {
+ if (*text == '\n') {
+ *cp++ = '\r';
+ *cp = '\n';
+ } else
+ *cp = *text;
+ }
+ textSize = LocalSize( b->hText );
+ if ((long)textSize+(long)len > 10000L) {
+ if (len < 1024)
+ len = 1024;
+#ifdef WIN32
+ rc = SendMessage( b->hWnd, EM_SETSEL, 0, len );
+#else
+ rc = SendMessage( b->hWnd, EM_SETSEL, 0, MAKELONG( 0, len ) );
+#endif
+ rc = SendMessage( b->hWnd, WM_CLEAR, 0, 0L );
+#ifdef WIN32
+ rc = SendMessage( b->hWnd, EM_SCROLLCARET, 0, 0 );
+#else
+ rc = SendMessage( b->hWnd, EM_SETSEL, 0, MAKELONG( 32767, 32767 ) );
+#endif
+ }
+ lc = SendMessage( b->hWnd, EM_GETFIRSTVISIBLELINE, 0, 0L );
+ if ( lc < 0 )
+ lc = 0;
+ GlobalUnlock( hMem );
+ rc = OpenClipboard( b->hWnd );
+ rc = EmptyClipboard();
+ rc = (long)SetClipboardData( CF_TEXT, hMem );
+ rc = CloseClipboard();
+ rc = SendMessage( b->hWnd, EM_SETREADONLY, 0, 0L );
+ rc = SendMessage( b->hWnd, WM_PASTE, 0, 0L );
+ lc -= SendMessage( b->hWnd, EM_GETFIRSTVISIBLELINE, 0, 0L );
+#ifdef LATER
+ if ( lc < 0 )
+ SendMessage( b->hWnd, EM_LINESCROLL, 0, MAKELPARAM((WPARAM)lc,0) );
+#endif
+ lc = GetWindowTextLength( b->hWnd );
+ if ( b->option&BO_READONLY )
+ rc = SendMessage( b->hWnd, EM_SETREADONLY, 1, 0L );
+}
+
+
+BOOL_T wTextSave(
+ wText_p b,
+ const char * fileName )
+{
+ FILE * f;
+ int lc, l, len;
+ char line[255];
+
+ f = wFileOpen( fileName, "w" );
+ if (f == NULL) {
+ MessageBox( ((wControl_p)(b->parent))->hWnd, "TextSave", "", MB_OK|MB_ICONHAND );
+ return FALSE;
+ }
+
+ lc = (int)SendMessage( b->hWnd, EM_GETLINECOUNT, 0, 0L );
+
+ for ( l=0; l<lc; l++ ) {
+ *(WORD*)line = sizeof(line)-1;
+ len = (int)SendMessage( b->hWnd, EM_GETLINE, l, (DWORD)(LPSTR)line );
+ line[len] = '\0';
+ fprintf( f, "%s\n", line );
+ }
+ fclose( f );
+ return TRUE;
+}
+
+
+BOOL_T wTextPrint(
+ wText_p b )
+{
+ int lc, l, len;
+ char line[255];
+ HDC hDc;
+ int lineSpace;
+ int linesPerPage;
+ int currentLine;
+ int IOStatus;
+ TEXTMETRIC textMetric;
+ DOCINFO docInfo;
+
+ hDc = mswGetPrinterDC();
+ if (hDc == (HDC)0) {
+ MessageBox( ((wControl_p)(b->parent))->hWnd, "Print", "Cannot print", MB_OK|MB_ICONHAND );
+ return FALSE;
+ }
+ docInfo.cbSize = sizeof(DOCINFO);
+ docInfo.lpszDocName = "XTrkcad Log";
+ docInfo.lpszOutput = (LPSTR)NULL;
+ if (StartDoc(hDc, &docInfo) < 0) {
+ MessageBox( ((wControl_p)(b->parent))->hWnd, "Unable to start print job", NULL, MB_OK|MB_ICONHAND );
+ DeleteDC( hDc );
+ return FALSE;
+ }
+ StartPage( hDc );
+ GetTextMetrics( hDc, &textMetric );
+ lineSpace = textMetric.tmHeight + textMetric.tmExternalLeading;
+ linesPerPage = GetDeviceCaps( hDc, VERTRES ) / lineSpace;
+ currentLine = 1;
+
+ lc = (int)SendMessage( b->hWnd, EM_GETLINECOUNT, 0, 0L );
+
+ IOStatus = 0;
+ for ( l=0; l<lc; l++ ) {
+ *(WORD*)line = sizeof(line)-1;
+ len = (int)SendMessage( b->hWnd, EM_GETLINE, l, (DWORD)(LPSTR)line );
+ TextOut( hDc, 0, currentLine*lineSpace, line, len );
+ if (++currentLine > linesPerPage) {
+ EndPage( hDc );
+ currentLine = 1;
+ IOStatus = EndPage(hDc);
+ if (IOStatus < 0 || textPrintAbort )
+ break;
+ StartPage( hDc );
+ }
+ }
+ if (IOStatus >= 0 && !textPrintAbort ) {
+ EndPage( hDc );
+ EndDoc( hDc );
+ }
+ DeleteDC( hDc );
+ return TRUE;
+}
+
+
+wBool_t wTextGetModified(
+ wText_p b )
+{
+ int rc;
+ rc = (int)SendMessage( b->hWnd, EM_GETMODIFY, 0, 0L );
+ return (wBool_t)rc;
+}
+
+int wTextGetSize(
+ wText_p b )
+{
+ int lc, l, li, len=0;
+ lc = (int)SendMessage( b->hWnd, EM_GETLINECOUNT, 0, 0L );
+ for ( l=0; l<lc ; l++ ) {
+ li = (int)SendMessage( b->hWnd, EM_LINEINDEX, l, 0L );
+ len += (int)SendMessage( b->hWnd, EM_LINELENGTH, l, 0L ) + 1;
+ }
+ if ( len == 1 )
+ len = 0;
+ return len;
+}
+
+void wTextGetText(
+ wText_p b,
+ char * t,
+ int s )
+{
+ int lc, l, len;
+ s--;
+ lc = (int)SendMessage( b->hWnd, EM_GETLINECOUNT, 0, 0L );
+ for ( l=0; l<lc && s>=0; l++ ) {
+ *(WORD*)t = s;
+ len = (int)SendMessage( b->hWnd, EM_GETLINE, l, (DWORD)(LPSTR)t );
+ t += len;
+ *t++ = '\n';
+ s -= len+1;
+ }
+ *t++ = '\0';
+}
+
+
+void wTextSetReadonly(
+ wText_p b,
+ wBool_t ro )
+{
+ if (ro)
+ b->option |= BO_READONLY;
+ else
+ b->option &= ~BO_READONLY;
+ SendMessage( b->hWnd, EM_SETREADONLY, ro, 0L );
+}
+
+
+void wTextSetSize(
+ wText_p bt,
+ wPos_t width,
+ wPos_t height )
+{
+ bt->w = width;
+ bt->h = height;
+ if (!SetWindowPos( bt->hWnd, HWND_TOP, 0, 0,
+ bt->w, bt->h, SWP_NOMOVE|SWP_NOZORDER)) {
+ mswFail("wTextSetSize: SetWindowPos");
+ }
+}
+
+
+void wTextComputeSize(
+ wText_p bt,
+ int rows,
+ int lines,
+ wPos_t * w,
+ wPos_t * h )
+{
+ static wPos_t scrollV_w = -1;
+ static wPos_t scrollH_h = -1;
+ HDC hDc;
+ TEXTMETRIC metrics;
+
+ if (scrollV_w < 0)
+ scrollV_w = GetSystemMetrics( SM_CXVSCROLL );
+ if (scrollH_h < 0)
+ scrollH_h = GetSystemMetrics( SM_CYHSCROLL );
+ hDc = GetDC( bt->hWnd );
+ GetTextMetrics( hDc, &metrics );
+ *w = rows * metrics.tmAveCharWidth + scrollV_w;
+ *h = lines * (metrics.tmHeight + metrics.tmExternalLeading);
+ ReleaseDC( bt->hWnd, hDc );
+ if (bt->option&BT_HSCROLL)
+ *h += scrollH_h;
+}
+
+
+void wTextSetPosition(
+ wText_p bt,
+ int pos )
+{
+ long rc;
+ rc = SendMessage( bt->hWnd, EM_LINESCROLL, 0, MAKELONG( -65535, 0 ) );
+}
+
+static void textDoneProc( wControl_p b )
+{
+ wText_p t = (wText_p)b;
+ HDC hDc;
+ hDc = GetDC( t->hWnd );
+ SelectObject( hDc, mswOldTextFont );
+ ReleaseDC( t->hWnd, hDc );
+}
+
+static callBacks_t textCallBacks = {
+ mswRepaintLabel,
+ textDoneProc,
+ NULL };
+
+wText_p wTextCreate(
+ wWin_p parent,
+ POS_T x,
+ POS_T y,
+ const char * helpStr,
+ const char * labelStr,
+ long option,
+ POS_T width,
+ POS_T height )
+{
+ wText_p b;
+ DWORD style;
+ RECT rect;
+ int index;
+
+ b = mswAlloc( parent, B_TEXT, labelStr, sizeof *b, NULL, &index );
+ mswComputePos( (wControl_p)b, x, y );
+ b->option = option;
+ style = ES_MULTILINE | ES_LEFT | ES_AUTOVSCROLL | ES_WANTRETURN |
+ WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL;
+#ifdef BT_HSCROLL
+ if (option & BT_HSCROLL)
+ style |= WS_HSCROLL | ES_AUTOHSCROLL;
+#endif
+/* if (option & BO_READONLY)
+ style |= ES_READONLY;*/
+
+ b->hWnd = CreateWindow( "EDIT", NULL,
+ style, b->x, b->y,
+ width, height,
+ ((wControl_p)parent)->hWnd, (HMENU)index, mswHInst, NULL );
+ if (b->hWnd == NULL) {
+ mswFail("CreateWindow(TEXT)");
+ return b;
+ }
+#ifdef CONTROL3D
+ Ctl3dSubclassCtl( b->hWnd );
+#endif
+
+ if (option & BT_FIXEDFONT) {
+ if (fixedTextFont == (HFONT)0)
+ fixedTextFont = CreateFontIndirect( &fixedFont );
+ SendMessage( b->hWnd, WM_SETFONT, (WPARAM)fixedTextFont, (LPARAM)MAKELONG( 1, 0 ) );
+ } else if ( !mswThickFont ) {
+ SendMessage( b->hWnd, WM_SETFONT, (WPARAM)mswLabelFont, 0L );
+ }
+
+ b->hText = (HANDLE)SendMessage( b->hWnd, EM_GETHANDLE, 0, 0L );
+
+ if (option & BT_CHARUNITS) {
+ wPos_t w, h;
+ wTextComputeSize( b, width, height, &w, &h );
+ if (!SetWindowPos( b->hWnd, HWND_TOP, 0, 0,
+ w, h, SWP_NOMOVE|SWP_NOZORDER)) {
+ mswFail("wTextCreate: SetWindowPos");
+ }
+ }
+
+ GetWindowRect( b->hWnd, &rect );
+ b->w = rect.right - rect.left;
+ b->h = rect.bottom - rect.top;
+
+ mswAddButton( (wControl_p)b, FALSE, helpStr );
+ mswCallBacks[B_TEXT] = &textCallBacks;
+ return b;
+}