Added utils.setbackgroundcolour function

Author: nickgammon

MDIClientWnd.cpp

@@ -0,0 +1,51 @@
+#include "stdafx.h"
+#include "MUSHclient.h"
+#include "mainfrm.h"
+
+#include "MDIClientWnd.h"
+
+// CMDIClientWnd
+
+IMPLEMENT_DYNAMIC(CMDIClientWnd, CWnd)
+
+CMDIClientWnd::CMDIClientWnd()
+{
+}
+
+CMDIClientWnd::~CMDIClientWnd()
+{
+}
+
+
+BEGIN_MESSAGE_MAP(CMDIClientWnd, CWnd)
+	ON_WM_ERASEBKGND()
+END_MESSAGE_MAP()
+
+
+
+// CMDIClientWnd message handlers
+
+// utils.setbackgroundcolour (ColourNameToRGB ("yellow") )
+
+BOOL CMDIClientWnd::OnEraseBkgnd(CDC* pDC)
+{
+
+  // if colour is 0xFFFFFFFF then use Windows default (same as before)
+  if (Frame.m_backgroundColour == 0xFFFFFFFF)
+      return CWnd::OnEraseBkgnd(pDC);
+
+	// Set brush to desired background color
+	CBrush backBrush(Frame.m_backgroundColour);
+
+	// Save old brush
+	CBrush* pOldBrush = pDC->SelectObject(&backBrush);
+
+	CRect rect;
+	pDC->GetClipBox(&rect);     // Erase the area needed
+	pDC->PatBlt(rect.left, rect.top, rect.Width(), rect.Height(), PATCOPY);
+
+  // put brush back
+	pDC->SelectObject(pOldBrush);
+
+	return TRUE;
+}

MDIClientWnd.h

@@ -0,0 +1,19 @@
+// MDIClientWnd.h : sub-classed MDI frame
+//
+/////////////////////////////////////////////////////////////////////////////
+
+#pragma once
+
+class CMDIClientWnd : public CWnd
+{
+	DECLARE_DYNAMIC(CMDIClientWnd)
+
+public:
+	CMDIClientWnd();
+	virtual ~CMDIClientWnd();
+
+	afx_msg BOOL OnEraseBkgnd(CDC* pDC);
+
+protected:
+	DECLARE_MESSAGE_MAP()
+};

mainfrm.cpp

@@ -64,7 +64,7 @@ int ActivityToolBarResourceNames [6] = {
 BEGIN_MESSAGE_MAP(CMyToolBar, CToolBar)
 	//{{AFX_MSG_MAP(CMyToolBar)
 	ON_WM_NCPAINT()
-	//}}AFX_MSG_MAP
+  //}}AFX_MSG_MAP
 END_MESSAGE_MAP()
 
 void CMyToolBar::OnNcPaint() 
@@ -257,6 +257,7 @@ m_wDeviceID = 0;    // no MCI device yet
 m_bFullScreen = false;	
 m_bFlashingWindow = false;
 m_iTabsCount = 0;
+m_backgroundColour = 0xFFFFFFFF;  // use default background colour
 
 ZeroMemory(&m_niData,sizeof(NOTIFYICONDATA));
 m_niData.cbSize = sizeof(NOTIFYICONDATA);
@@ -282,6 +283,12 @@ int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
 		return -1;
     }
 
+  if (!m_wndMDIClient.SubclassWindow(m_hWndMDIClient))
+	{
+		TRACE ("Failed to subclass MDI client window\n");
+		return (-1);
+	}
+
 	if (!m_wndToolBar.CreateEx(this, iToolbarFlags, WS_CHILD | WS_VISIBLE | CBRS_TOP
 		| CBRS_GRIPPER | CBRS_TOOLTIPS | CBRS_FLYBY | CBRS_SIZE_DYNAMIC) ||
 		!m_wndToolBar.LoadToolBar(IDR_MAINFRAME))
@@ -2332,3 +2339,4 @@ void CMainFrame::CheckTimerFallback ()
      ProcessTimers ();
 
   } // end of CMainFrame::CheckTimerFallback
+

mainfrm.h

@@ -4,6 +4,7 @@
 
 #pragma once
 
+#include "MDIClientWnd.h"
 #include "MyStatusBar.h"
 #include "MDITabs.h"
 
@@ -126,8 +127,12 @@ class CMainFrame : public CMDIFrameWnd
 
   CHARFORMAT  m_defaultInfoBarFormat;
 
+  COLORREF    m_backgroundColour;  // MDI frame background colour, 0xFFFFFFFF for the default
+
 protected:  // control bar embedded members
 
+  CMDIClientWnd m_wndMDIClient;
+
   bool        m_bActive;  // is app active or not?
 
 // Generated message map functions

scripting/lua_utils.cpp

@@ -2106,6 +2106,15 @@ static int menufontsize (lua_State *L)
   return 1;  // return old size
   } // end of menufontsize
 
+// See: http://forums.codeguru.com/showthread.php?383142-change-background-color-of-mainframe
+
+static int setbackgroundcolour (lua_State *L)
+  {
+  Frame.m_backgroundColour = luaL_optnumber (L, 1, 0);
+  Frame.InvalidateRect(NULL);
+  return 0;  // return nothing
+  } // end of setbackgroundcolour
+
 #if 0
 static int registry (lua_State *L)
   {
@@ -2155,6 +2164,7 @@ static const struct luaL_Reg xmllib [] =
   {"msgbox",            msgbox},       // msgbox - not Unicode
   {"multilistbox",      multilistbox},
   {"reload_global_prefs", reload_global_prefs},
+  {"setbackgroundcolour", setbackgroundcolour},
   {"showdebugstatus",   showdebugstatus},
   {"sendtofront",       send_to_front},
   {"shellexecute",      shell_execute},