Ported icontitle control from WINE

svn path=/trunk/; revision=4945

reactos/include/user32/regcontrol.h

@@ -1,4 +1,4 @@
-/* $Id: regcontrol.h,v 1.1 2003/06/16 13:46:26 gvg Exp $
+/* $Id: regcontrol.h,v 1.2 2003/06/22 19:18:17 sedwards Exp $
  *
  * COPYRIGHT:        See COPYING in the top level directory
  * PROJECT:          ReactOS User32
@@ -8,6 +8,16 @@
  * REVISION HISTORY: 2003/06/16 GvG Created
  * NOTES:
  */
+#ifndef ROS_REGCONTROL_H
+#define ROS_REGCONTROL_H
+
+/* Missing from Winuser.h */
+#ifndef MAKEINTATOMA
+#define MAKEINTATOMA(atom)  ((LPCSTR)((ULONG_PTR)((WORD)(atom))))
+#endif
+
+/* Built-in class names (see _Undocumented_Windows_ p.418) */
+#define ICONTITLE_CLASS_ATOM MAKEINTATOMA(32772)  /* IconTitle */
 
 /* Built-in class descriptor */
 struct builtin_class_descr
@@ -35,3 +45,5 @@ extern const struct builtin_class_descr MDICLIENT_builtin_class;
 extern const struct builtin_class_descr MENU_builtin_class;
 extern const struct builtin_class_descr SCROLL_builtin_class;
 extern const struct builtin_class_descr STATIC_builtin_class;
+
+#endif /* ROS_REGCONTROL_H */

reactos/lib/user32/Makefile

@@ -1,4 +1,4 @@
-# $Id: Makefile,v 1.14 2003/06/16 13:46:26 gvg Exp $
+# $Id: Makefile,v 1.15 2003/06/22 19:18:06 sedwards Exp $
 
 PATH_TO_TOP = ../..
 
@@ -21,6 +21,7 @@ TARGET_LFLAGS = -nostartfiles -nostdlib
 
 CONTROLS_OBJECTS = \
 	controls/combobox.o \
+	controls/icontitle.o \
 	controls/listbox.o \
 	controls/scrollbar.o \
 	controls/static.o \

reactos/lib/user32/controls/icontitle.c

@@ -0,0 +1,240 @@
+/*
+ * Icontitle window class.
+ *
+ * Copyright 1997 Alex Korobka
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+/*
+ * COPYRIGHT:        See COPYING in the top level directory
+ * PROJECT:          ReactOS User32
+ * PURPOSE:          Static control
+ * FILE:             lib/user32/controls/icontitle.c
+ * PROGRAMER:        Steven Edwards
+ * REVISION HISTORY: 2003/06/21 SAE Created
+ * NOTES:            Adapted from Wine
+ */
+
+#include "windows.h"
+#include "user32/regcontrol.h"
+
+#ifndef WM_ISACTIVEICON /* Winuser.h */
+#define WM_ISACTIVEICON         0x0035
+#endif /* winuser.h */
+
+static BOOL bMultiLineTitle;
+static HFONT hIconTitleFont;
+
+static LRESULT CALLBACK IconTitleWndProc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam );
+
+/*********************************************************************
+ * icon title class descriptor
+ */
+const struct builtin_class_descr ICONTITLE_builtin_class =
+{
+    "ICONTITLE_CLASS_ATOM", /* name */
+    CS_GLOBALCLASS,       /* style */
+    NULL,                 /* procA (winproc is Unicode only) */
+    IconTitleWndProc,     /* procW */
+    0,                    /* extra */
+    (LPCSTR) IDC_ARROW,   /* cursor */ /* FIXME Wine uses IDC_ARROWA */
+    0                     /* brush */
+};
+
+
+
+/***********************************************************************
+ *           ICONTITLE_Create
+ */
+HWND ICONTITLE_Create( HWND owner )
+{
+    HWND hWnd;
+    HINSTANCE instance = (HINSTANCE)GetWindowLongA( owner, GWL_HINSTANCE );
+    LONG style = WS_CLIPSIBLINGS;
+
+    if (!IsWindowEnabled(owner)) style |= WS_DISABLED;
+    if( GetWindowLongA( owner, GWL_STYLE ) & WS_CHILD )
+	hWnd = CreateWindowExA( 0, ICONTITLE_CLASS_ATOM, NULL,
+                                style | WS_CHILD, 0, 0, 1, 1,
+                                GetParent(owner), 0, instance, NULL );
+    else
+	hWnd = CreateWindowExA( 0, ICONTITLE_CLASS_ATOM, NULL,
+                                style, 0, 0, 1, 1,
+                                owner, 0, instance, NULL );
+    //WIN_SetOwner( hWnd, owner );  /* MDI depends on this */
+    SetWindowLongW( hWnd, GWL_STYLE,
+                    GetWindowLongW( hWnd, GWL_STYLE ) & ~(WS_CAPTION | WS_BORDER) );
+    return hWnd;
+}
+
+/***********************************************************************
+ *           ICONTITLE_SetTitlePos
+ */
+static BOOL ICONTITLE_SetTitlePos( HWND hwnd, HWND owner )
+{
+    static WCHAR emptyTitleText[] = {'<','.','.','.','>',0};
+    WCHAR str[80];
+    HDC hDC;
+    HFONT hPrevFont;
+    RECT rect;
+    INT cx, cy;
+    POINT pt;
+
+    int length = GetWindowTextW( owner, str, sizeof(str)/sizeof(WCHAR) );
+
+    while (length && str[length - 1] == ' ') /* remove trailing spaces */
+        str[--length] = 0;
+
+    if( !length )
+    {
+        lstrcpyW( str, emptyTitleText );
+        length = lstrlenW( str );
+    }
+
+    if (!(hDC = GetDC( hwnd ))) return FALSE;
+
+    hPrevFont = SelectObject( hDC, hIconTitleFont );
+
+    SetRect( &rect, 0, 0, GetSystemMetrics(SM_CXICONSPACING) -
+             GetSystemMetrics(SM_CXBORDER) * 2,
+             GetSystemMetrics(SM_CYBORDER) * 2 );
+
+    DrawTextW( hDC, str, length, &rect, DT_CALCRECT | DT_CENTER | DT_NOPREFIX | DT_WORDBREAK |
+               (( bMultiLineTitle ) ? 0 : DT_SINGLELINE) );
+
+    SelectObject( hDC, hPrevFont );
+    ReleaseDC( hwnd, hDC );
+
+    cx = rect.right - rect.left +  4 * GetSystemMetrics(SM_CXBORDER);
+    cy = rect.bottom - rect.top;
+
+    pt.x = (GetSystemMetrics(SM_CXICON) - cx) / 2;
+    pt.y = GetSystemMetrics(SM_CYICON);
+
+    /* point is relative to owner, make it relative to parent */
+    MapWindowPoints( owner, GetParent(hwnd), &pt, 1 );
+
+    SetWindowPos( hwnd, owner, pt.x, pt.y, cx, cy, SWP_NOACTIVATE );
+    return TRUE;
+}
+
+/***********************************************************************
+ *           ICONTITLE_Paint
+ */
+static BOOL ICONTITLE_Paint( HWND hwnd, HWND owner, HDC hDC, BOOL bActive )
+{
+    RECT rect;
+    HFONT hPrevFont;
+    HBRUSH hBrush = 0;
+    COLORREF textColor = 0;
+
+    if( bActive )
+    {
+	hBrush = GetSysColorBrush(COLOR_ACTIVECAPTION);
+	textColor = GetSysColor(COLOR_CAPTIONTEXT);
+    }
+    else
+    {
+        if( GetWindowLongA( hwnd, GWL_STYLE ) & WS_CHILD )
+	{
+	    hBrush = (HBRUSH) GetClassLongA(hwnd, GCL_HBRBACKGROUND);
+	    if( hBrush )
+	    {
+		INT level;
+		LOGBRUSH logBrush;
+		GetObjectA( hBrush, sizeof(logBrush), &logBrush );
+		level = GetRValue(logBrush.lbColor) +
+			   GetGValue(logBrush.lbColor) +
+			      GetBValue(logBrush.lbColor);
+		if( level < (0x7F * 3) )
+		    textColor = RGB( 0xFF, 0xFF, 0xFF );
+	    }
+	    else
+		hBrush = GetStockObject( WHITE_BRUSH );
+	}
+	else
+	{
+	    hBrush = GetStockObject( BLACK_BRUSH );
+	    textColor = RGB( 0xFF, 0xFF, 0xFF );
+	}
+    }
+
+    GetClientRect( hwnd, &rect );
+    DPtoLP( hDC, (LPPOINT)&rect, 2 );
+    FillRect( hDC, &rect, hBrush );
+
+    hPrevFont = SelectObject( hDC, hIconTitleFont );
+    if( hPrevFont )
+    {
+	WCHAR buffer[80];
+
+        INT length = GetWindowTextW( owner, buffer, sizeof(buffer) );
+        SetTextColor( hDC, textColor );
+        SetBkMode( hDC, TRANSPARENT );
+
+        DrawTextW( hDC, buffer, length, &rect, DT_CENTER | DT_NOPREFIX |
+                   DT_WORDBREAK | ((bMultiLineTitle) ? 0 : DT_SINGLELINE) );
+
+	SelectObject( hDC, hPrevFont );
+    }
+    return (hPrevFont != 0);
+}
+
+/***********************************************************************
+ *           IconTitleWndProc
+ */
+LRESULT WINAPI IconTitleWndProc( HWND hWnd, UINT msg,
+                                 WPARAM wParam, LPARAM lParam )
+{
+    HWND owner = GetWindow( hWnd, GW_OWNER );
+
+    if (!IsWindow(hWnd)) return 0;
+
+    switch( msg )
+    {
+        case WM_CREATE:
+            if (!hIconTitleFont)
+            {
+                LOGFONTA logFont;
+                SystemParametersInfoA( SPI_GETICONTITLELOGFONT, 0, &logFont, 0 );
+                SystemParametersInfoA( SPI_GETICONTITLEWRAP, 0, &bMultiLineTitle, 0 );
+                hIconTitleFont = CreateFontIndirectA( &logFont );
+            }
+            return (hIconTitleFont ? 0 : -1);
+	case WM_NCHITTEST:
+	     return HTCAPTION;
+	case WM_NCMOUSEMOVE:
+	case WM_NCLBUTTONDBLCLK:
+	     return SendMessageW( owner, msg, wParam, lParam );
+	case WM_ACTIVATE:
+	     if( wParam ) SetActiveWindow( owner );
+             return 0;
+	case WM_CLOSE:
+	     return 0;
+	case WM_SHOWWINDOW:
+            if (wParam) ICONTITLE_SetTitlePos( hWnd, owner );
+	     return 0;
+	case WM_ERASEBKGND:
+            if( GetWindowLongA( owner, GWL_STYLE ) & WS_CHILD )
+                lParam = SendMessageA( owner, WM_ISACTIVEICON, 0, 0 );
+            else
+                lParam = (owner == GetActiveWindow());
+            if( ICONTITLE_Paint( hWnd, owner, (HDC)wParam, (BOOL)lParam ) )
+                ValidateRect( hWnd, NULL );
+            return 1;
+    }
+    return DefWindowProcW( hWnd, msg, wParam, lParam );
+}