summaryrefslogtreecommitdiff
path: root/app/wlib/mswlib/mswmsg.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/mswmsg.c
Initial import of xtrkcad version 1:4.0.2-2
Diffstat (limited to 'app/wlib/mswlib/mswmsg.c')
-rw-r--r--app/wlib/mswlib/mswmsg.c212
1 files changed, 212 insertions, 0 deletions
diff --git a/app/wlib/mswlib/mswmsg.c b/app/wlib/mswlib/mswmsg.c
new file mode 100644
index 0000000..b128534
--- /dev/null
+++ b/app/wlib/mswlib/mswmsg.c
@@ -0,0 +1,212 @@
+#include <windows.h>
+#include <string.h>
+#include <malloc.h>
+#include <stdlib.h>
+#include <commdlg.h>
+#include <math.h>
+#include "mswint.h"
+
+/*
+ *****************************************************************************
+ *
+ * Message Boxes
+ *
+ *****************************************************************************
+ */
+
+/**
+ * factors by which fonts are resized if nonstandard text height is used
+ */
+
+#define SCALE_LARGE 1.6
+#define SCALE_SMALL 0.8
+
+#ifdef CONTROL3D
+static int messageHeight = 18;
+#endif
+
+struct wMessage_t {
+ WOBJ_COMMON
+ long flags;
+ const char * message;
+ };
+
+#ifndef CONTROL3D
+static void repaintMessage(
+ HWND hWnd,
+ wControl_p b )
+{
+ wMessage_p bm = (wMessage_p)b;
+ HDC hDc;
+ RECT rect;
+ HFONT hFont;
+ LOGFONT msgFont;
+ double scale = 1.0;
+
+ hDc = GetDC( hWnd );
+
+ if ( !mswThickFont )
+ hFont = SelectObject( hDc, mswLabelFont );
+
+ switch( wMessageSetFont( ((wMessage_p)b)->flags ))
+ {
+ case BM_LARGE:
+ scale = SCALE_LARGE;
+ break;
+ case BM_SMALL:
+ scale = SCALE_SMALL;
+ break;
+ }
+
+ /* is a non-standard text height required? */
+ if( scale != 1.0 )
+ {
+ /* if yes, get information about the standard font used */
+ GetObject( GetStockObject( DEFAULT_GUI_FONT ), sizeof( LOGFONT ), &msgFont );
+
+ /* change the height */
+ msgFont.lfHeight = (long)((double)msgFont.lfHeight * scale);
+
+ /* create and activate the new font */
+ hFont = SelectObject( hDc, CreateFontIndirect( &msgFont ) );
+ } else {
+ if ( !mswThickFont )
+ hFont = SelectObject( hDc, mswLabelFont );
+ }
+
+ rect.bottom = (long)(bm->y+( bm->h ));
+ rect.right = (long)(bm->x+( scale * bm->w ));
+ rect.top = bm->y;
+ rect.left = bm->x;
+
+ SetBkColor( hDc, GetSysColor( COLOR_BTNFACE ) );
+ ExtTextOut( hDc, bm->x, bm->y, ETO_CLIPPED|ETO_OPAQUE, &rect, bm->message, strlen( bm->message ), NULL );
+
+ if( scale != 1.0 )
+ /* in case we did create a new font earlier, delete it now */
+ DeleteObject( SelectObject( hDc, GetStockObject( DEFAULT_GUI_FONT )));
+ else
+ if ( !mswThickFont )
+ SelectObject( hDc, hFont );
+
+ ReleaseDC( hWnd, hDc );
+}
+#endif
+
+void wMessageSetValue(
+ wMessage_p b,
+ const char * arg )
+{
+ if (b->message)
+ free( CAST_AWAY_CONST b->message );
+ if (arg)
+ b->message = mswStrdup( arg );
+ else
+ b->message = NULL;
+#ifdef CONTROL3D
+ SetWindowText( b->hWnd, arg );
+#else
+ repaintMessage( ((wControl_p)(b->parent))->hWnd, (wControl_p)b );
+#endif
+}
+
+void wMessageSetWidth(
+ wMessage_p b,
+ wPos_t width )
+{
+ b->w = width;
+#ifdef CONTROL3D
+ SetWindowPos( b->hWnd, HWND_TOP, CW_USEDEFAULT, CW_USEDEFAULT,
+ width, messageHeight, SWP_NOMOVE );
+#endif
+}
+
+
+wPos_t wMessageGetHeight( long flags )
+{
+#ifdef CONTROL3D
+ return messageHeight;
+#else
+ double scale = 1.0;
+
+ if( flags & BM_LARGE )
+ scale = SCALE_LARGE;
+ if( flags & BM_SMALL )
+ scale = SCALE_SMALL;
+
+ return((wPos_t)((mswEditHeight - 4) * scale ));
+#endif
+}
+
+static void mswMessageSetBusy(
+ wControl_p b,
+ BOOL_T busy )
+{
+}
+
+
+#ifndef CONTROL3D
+static callBacks_t messageCallBacks = {
+ repaintMessage,
+ NULL,
+ NULL,
+ mswMessageSetBusy };
+#endif
+
+
+wMessage_p wMessageCreateEx(
+ wWin_p parent,
+ POS_T x,
+ POS_T y,
+ const char * helpStr,
+ POS_T width,
+ const char *message,
+ long flags )
+{
+ wMessage_p b;
+ int index;
+
+#ifdef CONTROL3D
+ RECT rect;
+#endif
+
+ b = (wMessage_p)mswAlloc( parent, B_MESSAGE, NULL, sizeof *b, NULL, &index );
+ mswComputePos( (wControl_p)b, x, y );
+ b->option |= BO_READONLY;
+ b->message = mswStrdup( message );
+ b->flags = flags;
+
+#ifdef CONTROL3D
+ if ( width <= 0 && strlen(b->message) > 0 ) {
+ width = wLabelWidth( b->message );
+ }
+
+ b->hWnd = CreateWindow( "STATIC", NULL,
+ SS_LEFTNOWORDWRAP | WS_CHILD | WS_VISIBLE,
+ b->x, b->y,
+ width, messageHeight,
+ ((wControl_p)parent)->hWnd, (HMENU)index, mswHInst, NULL );
+ if (b->hWnd == NULL) {
+ mswFail("CreateWindow(MESSAGE)");
+ return b;
+ }
+
+ if ( !mswThickFont )
+ SendMessage( b->hWnd, WM_SETFONT, (WPARAM)mswLabelFont, 0L );
+ SetWindowText( b->hWnd, message );
+
+ GetWindowRect( b->hWnd, &rect );
+ b->w = rect.right - rect.left;
+ b->h = rect.bottom - rect.top;
+#else
+ b->w = width;
+ b->h = wMessageGetHeight( flags ) + 1;
+
+ repaintMessage( ((wControl_p)parent)->hWnd, (wControl_p)b );
+#endif
+ mswAddButton( (wControl_p)b, FALSE, helpStr );
+#ifndef CONTROL3D
+ mswCallBacks[B_MESSAGE] = &messageCallBacks;
+#endif
+ return b;
+}