/****************************************************************************

**

** Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).

** All rights reserved.

** Contact: Nokia Corporation (qt-info@nokia.com)

**

** This file is part of the QtDeclarative module of the Qt Toolkit.

**

** $QT_BEGIN_LICENSE:LGPL$

** No Commercial Usage

** This file contains pre-release code and may not be distributed.

** You may use this file in accordance with the terms and conditions

** contained in the Technology Preview License Agreement accompanying

** this package.

**

** GNU Lesser General Public License Usage

** Alternatively, this file may be used under the terms of the GNU Lesser

** General Public License version 2.1 as published by the Free Software

** Foundation and appearing in the file LICENSE.LGPL included in the

** packaging of this file.  Please review the following information to

** ensure the GNU Lesser General Public License version 2.1 requirements

** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

**

** In addition, as a special exception, Nokia gives you certain additional

** rights.  These rights are described in the Nokia Qt LGPL Exception

** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

**

** If you have questions regarding the use of this file, please contact

** Nokia at qt-info@nokia.com.

**

**

**

**

**

**

**

**

** $QT_END_LICENSE$

**

****************************************************************************/

#include "private/qdeclarativetextinput_p.h"

#include "private/qdeclarativetextinput_p_p.h"

#include <private/qdeclarativeglobal_p.h>

#include <qdeclarativeinfo.h>

#include <QValidator>

#include <QTextCursor>

#include <QApplication>

#include <QFontMetrics>

#include <QPainter>

QT_BEGIN_NAMESPACE

/*!

    \qmlclass TextInput QDeclarativeTextInput

    \since 4.7

    \brief The TextInput item displays an editable line of text.

    \inherits Item

    The TextInput element displays a single line of editable plain text.

    TextInput is used to accept a line of text input. Input constraints

    can be placed on a TextInput item (for example, through a \l validator or \l inputMask),

    and setting \l echoMode to an appropriate value enables TextInput to be used for

    a password input field.

    On Mac OS X, the Up/Down key bindings for Home/End are explicitly disabled.

    If you want such bindings (on any platform), you will need to construct them in QML.

    \sa TextEdit, Text, {declarative/text/textselection}{Text Selection example}

*/

QDeclarativeTextInput::QDeclarativeTextInput(QDeclarativeItem* parent)

    : QDeclarativePaintedItem(*(new QDeclarativeTextInputPrivate), parent)

{

    Q_D(QDeclarativeTextInput);

    d->init();

}

QDeclarativeTextInput::~QDeclarativeTextInput()

{

}

/*!

    \qmlproperty string TextInput::text

    The text in the TextInput.

*/

QString QDeclarativeTextInput::text() const

{

    Q_D(const QDeclarativeTextInput);

    return d->control->text();

}

void QDeclarativeTextInput::setText(const QString &s)

{

    Q_D(QDeclarativeTextInput);

    if(s == text())

        return;

    d->control->setText(s);

}

/*!

    \qmlproperty string TextInput::font.family

    Sets the family name of the font.

    The family name is case insensitive and may optionally include a foundry name, e.g. "Helvetica [Cronyx]".

    If the family is available from more than one foundry and the foundry isn't specified, an arbitrary foundry is chosen.

    If the family isn't available a family will be set using the font matching algorithm.

*/

/*!

    \qmlproperty bool TextInput::font.bold

    Sets whether the font weight is bold.

*/

/*!

    \qmlproperty enumeration TextInput::font.weight

    Sets the font's weight.

    The weight can be one of:

    \list

    \o Font.Light

    \o Font.Normal - the default

    \o Font.DemiBold

    \o Font.Bold

    \o Font.Black

    \endlist

    \qml

    TextInput { text: "Hello"; font.weight: Font.DemiBold }

    \endqml

*/

/*!

    \qmlproperty bool TextInput::font.italic

    Sets whether the font has an italic style.

*/

/*!

    \qmlproperty bool TextInput::font.underline

    Sets whether the text is underlined.

*/

/*!

    \qmlproperty bool TextInput::font.strikeout

    Sets whether the font has a strikeout style.

*/

/*!

    \qmlproperty real TextInput::font.pointSize

    Sets the font size in points. The point size must be greater than zero.

*/

/*!

    \qmlproperty int TextInput::font.pixelSize

    Sets the font size in pixels.

    Using this function makes the font device dependent.

    Use \c pointSize to set the size of the font in a device independent manner.

*/

/*!

    \qmlproperty real TextInput::font.letterSpacing

    Sets the letter spacing for the font.

    Letter spacing changes the default spacing between individual letters in the font.

    A positive value increases the letter spacing by the corresponding pixels; a negative value decreases the spacing.

*/

/*!

    \qmlproperty real TextInput::font.wordSpacing

    Sets the word spacing for the font.

    Word spacing changes the default spacing between individual words.

    A positive value increases the word spacing by a corresponding amount of pixels,

    while a negative value decreases the inter-word spacing accordingly.

*/

/*!

    \qmlproperty enumeration TextInput::font.capitalization

    Sets the capitalization for the text.

    \list

    \o Font.MixedCase - This is the normal text rendering option where no capitalization change is applied.

    \o Font.AllUppercase - This alters the text to be rendered in all uppercase type.

    \o Font.AllLowercase	 - This alters the text to be rendered in all lowercase type.

    \o Font.SmallCaps -	This alters the text to be rendered in small-caps type.

    \o Font.Capitalize - This alters the text to be rendered with the first character of each word as an uppercase character.

    \endlist

    \qml

    TextInput { text: "Hello"; font.capitalization: Font.AllLowercase }

    \endqml

*/

QFont QDeclarativeTextInput::font() const

{

    Q_D(const QDeclarativeTextInput);

    return d->font;

}

void QDeclarativeTextInput::setFont(const QFont &font)

{

    Q_D(QDeclarativeTextInput);

    if (d->font == font)

        return;

    d->font = font;

    d->control->setFont(d->font);

    if(d->cursorItem){

        d->cursorItem->setHeight(QFontMetrics(d->font).height());

        moveCursor();

    }

    updateSize();

    emit fontChanged(d->font);

}

/*!

    \qmlproperty color TextInput::color

    The text color.

*/

QColor QDeclarativeTextInput::color() const

{

    Q_D(const QDeclarativeTextInput);

    return d->color;

}

void QDeclarativeTextInput::setColor(const QColor &c)

{

    Q_D(QDeclarativeTextInput);

    if (c != d->color) {

        d->color = c;

        clearCache();

        update();

        emit colorChanged(c);

    }

}

/*!

    \qmlproperty color TextInput::selectionColor

    The text highlight color, used behind selections.

*/

QColor QDeclarativeTextInput::selectionColor() const

{

    Q_D(const QDeclarativeTextInput);

    return d->selectionColor;

}

void QDeclarativeTextInput::setSelectionColor(const QColor &color)

{

    Q_D(QDeclarativeTextInput);

    if (d->selectionColor == color)

        return;

    d->selectionColor = color;

    QPalette p = d->control->palette();

    p.setColor(QPalette::Highlight, d->selectionColor);

    d->control->setPalette(p);

    clearCache();

    update();

    emit selectionColorChanged(color);

}

/*!

    \qmlproperty color TextInput::selectedTextColor

    The highlighted text color, used in selections.

*/

QColor QDeclarativeTextInput::selectedTextColor() const

{

    Q_D(const QDeclarativeTextInput);

    return d->selectedTextColor;

}

void QDeclarativeTextInput::setSelectedTextColor(const QColor &color)

{

    Q_D(QDeclarativeTextInput);

    if (d->selectedTextColor == color)

        return;

    d->selectedTextColor = color;

    QPalette p = d->control->palette();

    p.setColor(QPalette::HighlightedText, d->selectedTextColor);

    d->control->setPalette(p);

    clearCache();

    update();

    emit selectedTextColorChanged(color);

}

/*!

    \qmlproperty enumeration TextInput::horizontalAlignment

    Sets the horizontal alignment of the text within the TextInput item's

    width and height.  By default, the text is left aligned.

    TextInput does not have vertical alignment, as the natural height is

    exactly the height of the single line of text. If you set the height

    manually to something larger, TextInput will always be top aligned

    vertically. You can use anchors to align it however you want within

    another item.

    The valid values for \c horizontalAlignment are \c TextInput.AlignLeft, \c TextInput.AlignRight and

    \c TextInput.AlignHCenter.

*/

QDeclarativeTextInput::HAlignment QDeclarativeTextInput::hAlign() const

{

    Q_D(const QDeclarativeTextInput);

    return d->hAlign;

}

void QDeclarativeTextInput::setHAlign(HAlignment align)

{

    Q_D(QDeclarativeTextInput);

    if(align == d->hAlign)

        return;

    d->hAlign = align;

    updateRect();

    d->updateHorizontalScroll();

    emit horizontalAlignmentChanged(d->hAlign);

}

bool QDeclarativeTextInput::isReadOnly() const

{

    Q_D(const QDeclarativeTextInput);

    return d->control->isReadOnly();

}

void QDeclarativeTextInput::setReadOnly(bool ro)

{

    Q_D(QDeclarativeTextInput);

    if (d->control->isReadOnly() == ro)

        return;

    d->control->setReadOnly(ro);

    emit readOnlyChanged(ro);

}

int QDeclarativeTextInput::maxLength() const

{

    Q_D(const QDeclarativeTextInput);

    return d->control->maxLength();

}

void QDeclarativeTextInput::setMaxLength(int ml)

{

    Q_D(QDeclarativeTextInput);

    if (d->control->maxLength() == ml)

        return;

    d->control->setMaxLength(ml);

    emit maximumLengthChanged(ml);

}

/*!

    \qmlproperty bool TextInput::cursorVisible

    Set to true when the TextInput shows a cursor.

    This property is set and unset when the TextInput gets active focus, so that other

    properties can be bound to whether the cursor is currently showing. As it

    gets set and unset automatically, when you set the value yourself you must

    keep in mind that your value may be overwritten.

    It can be set directly in script, for example if a KeyProxy might

    forward keys to it and you desire it to look active when this happens

    (but without actually giving it active focus).

    It should not be set directly on the element, like in the below QML,

    as the specified value will be overridden an lost on focus changes.

    \code

    TextInput {

        text: "Text"

        cursorVisible: false

    }

    \endcode

    In the above snippet the cursor will still become visible when the

    TextInput gains active focus.

*/

bool QDeclarativeTextInput::isCursorVisible() const

{

    Q_D(const QDeclarativeTextInput);

    return d->cursorVisible;

}

void QDeclarativeTextInput::setCursorVisible(bool on)

{

    Q_D(QDeclarativeTextInput);

    if (d->cursorVisible == on)

        return;

    d->cursorVisible = on;

    d->control->setCursorBlinkPeriod(on?QApplication::cursorFlashTime():0);

    //d->control should emit the cursor update regions

    emit cursorVisibleChanged(d->cursorVisible);

}

/*!

    \qmlproperty int TextInput::cursorPosition

    The position of the cursor in the TextInput.

*/

int QDeclarativeTextInput::cursorPosition() const

{

    Q_D(const QDeclarativeTextInput);

    return d->control->cursor();

}

void QDeclarativeTextInput::setCursorPosition(int cp)

{

    Q_D(QDeclarativeTextInput);

    d->control->moveCursor(cp);

}

/*!

  \internal

  Returns a Rect which encompasses the cursor, but which may be larger than is

  required. Ignores custom cursor delegates.

*/

QRect QDeclarativeTextInput::cursorRectangle() const

{

    Q_D(const QDeclarativeTextInput);

    QRect r = d->control->cursorRect();

    r.setHeight(r.height()-1); // Make consistent with TextEdit (QLineControl inexplicably adds 1)

    return r;

}

/*!

    \qmlproperty int TextInput::selectionStart

    The cursor position before the first character in the current selection.

    Setting this and selectionEnd allows you to specify a selection in the

    text edit.

    Note that if selectionStart == selectionEnd then there is no current

    selection. If you attempt to set selectionStart to a value outside of

    the current text, selectionStart will not be changed.

    \sa selectionEnd, cursorPosition, selectedText

*/

int QDeclarativeTextInput::selectionStart() const

{

    Q_D(const QDeclarativeTextInput);

    return d->lastSelectionStart;

}

/*!

    \qmlproperty int TextInput::selectionEnd

    The cursor position after the last character in the current selection.

    Setting this and selectionStart allows you to specify a selection in the

    text edit.

    Note that if selectionStart == selectionEnd then there is no current

    selection. If you attempt to set selectionEnd to a value outside of

    the current text, selectionEnd will not be changed.

    \sa selectionStart, cursorPosition, selectedText

*/

int QDeclarativeTextInput::selectionEnd() const

{

    Q_D(const QDeclarativeTextInput);

    return d->lastSelectionEnd;

}

void QDeclarativeTextInput::select(int start, int end)

{

    Q_D(QDeclarativeTextInput);

    if (start < 0 || end < 0 || start > d->control->text().length() || end > d->control->text().length())

        return;

    d->control->setSelection(start, end-start);

}

/*!

    \qmlproperty string TextInput::selectedText

    This read-only property provides the text currently selected in the

    text input.

    It is equivalent to the following snippet, but is faster and easier

    to use.

    \qml

    myTextInput.text.toString().substring(myTextInput.selectionStart,

        myTextInput.selectionEnd);

    \endqml

*/

QString QDeclarativeTextInput::selectedText() const

{

    Q_D(const QDeclarativeTextInput);

    return d->control->selectedText();

}

/*!

    \qmlproperty bool TextInput::activeFocusOnPress

    Whether the TextInput should gain active focus on a mouse press. By default this is

    set to true.

*/

bool QDeclarativeTextInput::focusOnPress() const

{

    Q_D(const QDeclarativeTextInput);

    return d->focusOnPress;

}