/*

 * Copyright (C) 2006, 2007 Apple Inc.

 * Copyright (C) 2009 Kenneth Rohde Christiansen

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Library General Public

 * License as published by the Free Software Foundation; either

 * version 2 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

 * Library General Public License for more details.

 *

 * You should have received a copy of the GNU Library General Public License

 * along with this library; see the file COPYING.LIB.  If not, write to

 * the Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 *

 */

#include "config.h"

#include "RenderThemeWin.h"

#include "CSSValueKeywords.h"

#include "Element.h"

#include "Frame.h"

#include "GraphicsContext.h"

#include "RenderSlider.h"

#include "Settings.h"

#include "SoftLinking.h"

#include "SystemInfo.h"

#include "UserAgentStyleSheets.h"

#if ENABLE(VIDEO)

#include "RenderMediaControls.h"

#endif

#include <tchar.h>

/* 

 * The following constants are used to determine how a widget is drawn using

 * Windows' Theme API. For more information on theme parts and states see

 * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/userex/topics/partsandstates.asp

 */

// Generic state constants

#define TS_NORMAL    1

#define TS_HOVER     2

#define TS_ACTIVE    3

#define TS_DISABLED  4

#define TS_FOCUSED   5

// Button constants

#define BP_BUTTON    1

#define BP_RADIO     2

#define BP_CHECKBOX  3

// Textfield constants

#define TFP_TEXTFIELD 1

#define EP_EDITBORDER_NOSCROLL 6

#define TFS_READONLY  6

// ComboBox constants (from vsstyle.h)

#define CP_DROPDOWNBUTTON 1

#define CP_BORDER 4

#define CP_READONLY 5

#define CP_DROPDOWNBUTTONRIGHT 6

// TrackBar (slider) parts

#define TKP_TRACK       1

#define TKP_TRACKVERT   2

// TrackBar (slider) thumb parts

#define TKP_THUMBBOTTOM 4

#define TKP_THUMBTOP    5

#define TKP_THUMBLEFT   7

#define TKP_THUMBRIGHT  8

// Trackbar (slider) thumb states

#define TUS_NORMAL      1

#define TUS_HOT         2

#define TUS_PRESSED     3

#define TUS_FOCUSED     4

#define TUS_DISABLED    5

// button states

#define PBS_NORMAL      1

#define PBS_HOT         2

#define PBS_PRESSED     3

#define PBS_DISABLED    4

#define PBS_DEFAULTED   5

SOFT_LINK_LIBRARY(uxtheme)

SOFT_LINK(uxtheme, OpenThemeData, HANDLE, WINAPI, (HWND hwnd, LPCWSTR pszClassList), (hwnd, pszClassList))

SOFT_LINK(uxtheme, CloseThemeData, HRESULT, WINAPI, (HANDLE hTheme), (hTheme))

SOFT_LINK(uxtheme, DrawThemeBackground, HRESULT, WINAPI, (HANDLE hTheme, HDC hdc, int iPartId, int iStateId, const RECT* pRect, const RECT* pClipRect), (hTheme, hdc, iPartId, iStateId, pRect, pClipRect))

SOFT_LINK(uxtheme, IsThemeActive, BOOL, WINAPI, (), ())

SOFT_LINK(uxtheme, IsThemeBackgroundPartiallyTransparent, BOOL, WINAPI, (HANDLE hTheme, int iPartId, int iStateId), (hTheme, iPartId, iStateId))

static bool haveTheme;

static const unsigned vistaMenuListButtonOutset = 1;

using namespace std;

namespace WebCore {

// This is the fixed width IE and Firefox use for buttons on dropdown menus

static const int dropDownButtonWidth = 17;

static const int shell32MagnifierIconIndex = 22;

// Default font size to match Firefox.

static const float defaultControlFontPixelSize = 13;

static const float defaultCancelButtonSize = 9;

static const float minCancelButtonSize = 5;

static const float maxCancelButtonSize = 21;

static const float defaultSearchFieldResultsDecorationSize = 13;

static const float minSearchFieldResultsDecorationSize = 9;

static const float maxSearchFieldResultsDecorationSize = 30;

static const float defaultSearchFieldResultsButtonWidth = 18;

static bool gWebKitIsBeingUnloaded;

static bool documentIsInApplicationChromeMode(const Document* document)

{

    Settings* settings = document->settings();

    return settings && settings->inApplicationChromeMode();

}

void RenderThemeWin::setWebKitIsBeingUnloaded()

{

    gWebKitIsBeingUnloaded = true;

}

PassRefPtr<RenderTheme> RenderThemeWin::create()

{

    return adoptRef(new RenderThemeWin);

}

#if !USE(SAFARI_THEME)

PassRefPtr<RenderTheme> RenderTheme::themeForPage(Page* page)

{

    static RenderTheme* winTheme = RenderThemeWin::create().releaseRef();

    return winTheme;

}

#endif

RenderThemeWin::RenderThemeWin()

    : m_buttonTheme(0)

    , m_textFieldTheme(0)

    , m_menuListTheme(0)

    , m_sliderTheme(0)

{

    haveTheme = uxthemeLibrary() && IsThemeActive();

}

RenderThemeWin::~RenderThemeWin()

{

    // If WebKit is being unloaded, then uxtheme.dll is no longer available.

    if (gWebKitIsBeingUnloaded || !uxthemeLibrary())

        return;

    close();

}

HANDLE RenderThemeWin::buttonTheme() const

{

    if (haveTheme && !m_buttonTheme)

        m_buttonTheme = OpenThemeData(0, L"Button");

    return m_buttonTheme;

}

HANDLE RenderThemeWin::textFieldTheme() const

{

    if (haveTheme && !m_textFieldTheme)

        m_textFieldTheme = OpenThemeData(0, L"Edit");

    return m_textFieldTheme;

}

HANDLE RenderThemeWin::menuListTheme() const

{

    if (haveTheme && !m_menuListTheme)

        m_menuListTheme = OpenThemeData(0, L"ComboBox");

    return m_menuListTheme;

}

HANDLE RenderThemeWin::sliderTheme() const

{

    if (haveTheme && !m_sliderTheme)

        m_sliderTheme = OpenThemeData(0, L"TrackBar");

    return m_sliderTheme;

}

void RenderThemeWin::close()

{

    // This method will need to be called when the OS theme changes to flush our cached themes.

    if (m_buttonTheme)

        CloseThemeData(m_buttonTheme);

    if (m_textFieldTheme)

        CloseThemeData(m_textFieldTheme);

    if (m_menuListTheme)

        CloseThemeData(m_menuListTheme);

    if (m_sliderTheme)

        CloseThemeData(m_sliderTheme);

    m_buttonTheme = m_textFieldTheme = m_menuListTheme = m_sliderTheme = 0;

    haveTheme = uxthemeLibrary() && IsThemeActive();

}

void RenderThemeWin::themeChanged()

{

    close();

}

String RenderThemeWin::extraDefaultStyleSheet()

{

    return String(themeWinUserAgentStyleSheet, sizeof(themeWinUserAgentStyleSheet));

}

String RenderThemeWin::extraQuirksStyleSheet()

{

    return String(themeWinQuirksUserAgentStyleSheet, sizeof(themeWinQuirksUserAgentStyleSheet));

}

bool RenderThemeWin::supportsHover(const RenderStyle*) const

{

    // The Classic/2k look has no hover effects.

    return haveTheme;

}

Color RenderThemeWin::platformActiveSelectionBackgroundColor() const

{

    COLORREF color = GetSysColor(COLOR_HIGHLIGHT);

    return Color(GetRValue(color), GetGValue(color), GetBValue(color));

}

Color RenderThemeWin::platformInactiveSelectionBackgroundColor() const

{

    // This color matches Firefox.

    return Color(176, 176, 176);

}

Color RenderThemeWin::platformActiveSelectionForegroundColor() const

{

    COLORREF color = GetSysColor(COLOR_HIGHLIGHTTEXT);

    return Color(GetRValue(color), GetGValue(color), GetBValue(color));

}

Color RenderThemeWin::platformInactiveSelectionForegroundColor() const

{

    return platformActiveSelectionForegroundColor();

}

static void fillFontDescription(FontDescription& fontDescription, LOGFONT& logFont, float fontSize)

{    

    fontDescription.setIsAbsoluteSize(true);

    fontDescription.setGenericFamily(FontDescription::NoFamily);

    fontDescription.firstFamily().setFamily(String(logFont.lfFaceName));

    fontDescription.setSpecifiedSize(fontSize);

    fontDescription.setWeight(logFont.lfWeight >= 700 ? FontWeightBold : FontWeightNormal); // FIXME: Use real weight.

    fontDescription.setItalic(logFont.lfItalic);

}

static void fillFontDescription(FontDescription& fontDescription, LOGFONT& logFont)

{   

    fillFontDescription(fontDescription, logFont, abs(logFont.lfHeight));

}

void RenderThemeWin::systemFont(int propId, FontDescription& fontDescription) const

{

    static FontDescription captionFont;

    static FontDescription controlFont;

    static FontDescription smallCaptionFont;

    static FontDescription menuFont;

    static FontDescription iconFont;

    static FontDescription messageBoxFont;

    static FontDescription statusBarFont;

    static FontDescription systemFont;

    static bool initialized;

    static NONCLIENTMETRICS ncm;

    if (!initialized) {

        initialized = true;

        ncm.cbSize = sizeof(NONCLIENTMETRICS);

        ::SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(ncm), &ncm, 0);

    }

    switch (propId) {

        case CSSValueIcon: {

            if (!iconFont.isAbsoluteSize()) {

                LOGFONT logFont;

                ::SystemParametersInfo(SPI_GETICONTITLELOGFONT, sizeof(logFont), &logFont, 0);

                fillFontDescription(iconFont, logFont);

            }

            fontDescription = iconFont;

            break;

        }

        case CSSValueMenu:

            if (!menuFont.isAbsoluteSize())

                fillFontDescription(menuFont, ncm.lfMenuFont);

            fontDescription = menuFont;

            break;

        case CSSValueMessageBox:

            if (!messageBoxFont.isAbsoluteSize())

                fillFontDescription(messageBoxFont, ncm.lfMessageFont);

            fontDescription = messageBoxFont;

            break;

        case CSSValueStatusBar:

            if (!statusBarFont.isAbsoluteSize())

                fillFontDescription(statusBarFont, ncm.lfStatusFont);

            fontDescription = statusBarFont;

            break;

        case CSSValueCaption:

            if (!captionFont.isAbsoluteSize())

                fillFontDescription(captionFont, ncm.lfCaptionFont);

            fontDescription = captionFont;

            break;

        case CSSValueSmallCaption:

            if (!smallCaptionFont.isAbsoluteSize())

                fillFontDescription(smallCaptionFont, ncm.lfSmCaptionFont);

            fontDescription = smallCaptionFont;

            break;

        case CSSValueWebkitSmallControl:

        case CSSValueWebkitMiniControl: // Just map to small.

        case CSSValueWebkitControl: // Just map to small.

            if (!controlFont.isAbsoluteSize()) {

                HGDIOBJ hGDI = ::GetStockObject(DEFAULT_GUI_FONT);

                if (hGDI) {

                    LOGFONT logFont;

                    if (::GetObject(hGDI, sizeof(logFont), &logFont) > 0)

                        fillFontDescription(controlFont, logFont, defaultControlFontPixelSize);

                }

            }

            fontDescription = controlFont;

            break;

        default: { // Everything else uses the stock GUI font.

            if (!systemFont.isAbsoluteSize()) {

                HGDIOBJ hGDI = ::GetStockObject(DEFAULT_GUI_FONT);

                if (hGDI) {

                    LOGFONT logFont;

                    if (::GetObject(hGDI, sizeof(logFont), &logFont) > 0)

                        fillFontDescription(systemFont, logFont);

                }

            }

            fontDescription = systemFont;

        }

    }

}

bool RenderThemeWin::supportsFocus(ControlPart appearance) const

{

    switch (appearance) {

        case PushButtonPart:

        case ButtonPart:

        case DefaultButtonPart:

            return true;

        default:

            return false;

    }

}

bool RenderThemeWin::supportsFocusRing(const RenderStyle* style) const

{

    return supportsFocus(style->appearance());

}

unsigned RenderThemeWin::determineClassicState(RenderObject* o)

{

    unsigned state = 0;

    switch (o->style()->appearance()) {

        case PushButtonPart:

        case ButtonPart:

        case DefaultButtonPart:

            state = DFCS_BUTTONPUSH;

            if (!isEnabled(o))

                state |= DFCS_INACTIVE;

            else if (isPressed(o))

                state |= DFCS_PUSHED;

            break;

        case RadioPart:

        case CheckboxPart:

            state = (o->style()->appearance() == RadioPart) ? DFCS_BUTTONRADIO : DFCS_BUTTONCHECK;

            if (isChecked(o))

                state |= DFCS_CHECKED;

            if (!isEnabled(o))

                state |= DFCS_INACTIVE;

            else if (isPressed(o))

                state |= DFCS_PUSHED;

            break;

        case MenulistPart:

            state = DFCS_SCROLLCOMBOBOX;

            if (!isEnabled(o))

                state |= DFCS_INACTIVE;

            else if (isPressed(o))

                state |= DFCS_PUSHED;

        default:

            break;

    }

    return state;

}

unsigned RenderThemeWin::determineState(RenderObject* o)

{

    unsigned result = TS_NORMAL;

    ControlPart appearance = o->style()->appearance();

    if (!isEnabled(o))

        result = TS_DISABLED;

    else if (isReadOnlyControl(o) && (TextFieldPart == appearance || TextAreaPart == appearance || SearchFieldPart == appearance))

        result = TFS_READONLY; // Readonly is supported on textfields.

    else if (isPressed(o)) // Active overrides hover and focused.

        result = TS_ACTIVE;

    else if (supportsFocus(appearance) && isFocused(o))

        result = TS_FOCUSED;

    else if (isHovered(o))

        result = TS_HOVER;

    if (isChecked(o))

        result += 4; // 4 unchecked states, 4 checked states.

    return result;

}

unsigned RenderThemeWin::determineSliderThumbState(RenderObject* o)

{

    unsigned result = TUS_NORMAL;

    if (!isEnabled(o->parent()))

        result = TUS_DISABLED;

    else if (supportsFocus(o->style()->appearance()) && isFocused(o->parent()))

        result = TUS_FOCUSED;

    else if (toRenderSlider(o->parent())->inDragMode())

        result = TUS_PRESSED;

    else if (isHovered(o))

        result = TUS_HOT;

    return result;

}

unsigned RenderThemeWin::determineButtonState(RenderObject* o)

{

    unsigned result = PBS_NORMAL;

    if (!isEnabled(o))

        result = PBS_DISABLED;

    else if (isPressed(o))

        result = PBS_PRESSED;

    else if (supportsFocus(o->style()->appearance()) && isFocused(o))

        result = PBS_DEFAULTED;

    else if (isHovered(o))

        result = PBS_HOT;

    else if (isDefault(o))

        result = PBS_DEFAULTED;

    return result;

}

ThemeData RenderThemeWin::getClassicThemeData(RenderObject* o)

{

    ThemeData result;

    switch (o->style()->appearance()) {

        case PushButtonPart:

        case ButtonPart:

        case DefaultButtonPart:

        case CheckboxPart:

        case RadioPart:

            result.m_part = DFC_BUTTON;

            result.m_state = determineClassicState(o);

            break;

        case MenulistPart:

            result.m_part = DFC_SCROLL;

            result.m_state = determineClassicState(o);

            break;

        case SearchFieldPart:

        case TextFieldPart:

        case TextAreaPart:

            result.m_part = TFP_TEXTFIELD;

            result.m_state = determineState(o);

            break;

        case SliderHorizontalPart:

            result.m_part = TKP_TRACK;

            result.m_state = TS_NORMAL;

            break;

        case SliderVerticalPart:

            result.m_part = TKP_TRACKVERT;

            result.m_state = TS_NORMAL;

            break;

        case SliderThumbHorizontalPart:

            result.m_part = TKP_THUMBBOTTOM;

            result.m_state = determineSliderThumbState(o);

            break;

        case SliderThumbVerticalPart:

            result.m_part = TKP_THUMBRIGHT;

            result.m_state = determineSliderThumbState(o);

            break;

        default:

            break;

    }

    return result;

}

ThemeData RenderThemeWin::getThemeData(RenderObject* o)

{

    if (!haveTheme)

        return getClassicThemeData(o);

    ThemeData result;

    switch (o->style()->appearance()) {

        case PushButtonPart:

        case ButtonPart:

        case DefaultButtonPart:

            result.m_part = BP_BUTTON;

            result.m_state = determineButtonState(o);

            break;

        case CheckboxPart:

            result.m_part = BP_CHECKBOX;

            result.m_state = determineState(o);

            break;

        case MenulistPart:

        case MenulistButtonPart:

            result.m_part = isRunningOnVistaOrLater() ? CP_DROPDOWNBUTTONRIGHT : CP_DROPDOWNBUTTON;

            if (isRunningOnVistaOrLater() && documentIsInApplicationChromeMode(o->document())) {

                // The "readonly" look we use in application chrome mode

                // only uses a "normal" look for the drop down button.

                result.m_state = TS_NORMAL;

            } else

                result.m_state = determineState(o);

            break;

        case RadioPart:

            result.m_part = BP_RADIO;

            result.m_state = determineState(o);

            break;