1 files changed, 66 insertions, 0 deletions
diff --git a/basicsuite/textinput/ScrollBar.qml b/basicsuite/textinput/ScrollBar.qml
new file mode 100644
index 0000000..e6a8143
--- /dev/null
+++ b/basicsuite/textinput/ScrollBar.qml
@@ -0,0 +1,66 @@
+/****************************************************************************
+**
+** Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies).
+** Contact: http://www.qt-project.org/
+**
+** This file is part of the examples of the Qt Toolkit.
+**
+** $QT_BEGIN_LICENSE:BSD$
+** You may use this file under the terms of the BSD license as follows:
+**
+** "Redistribution and use in source and binary forms, with or without
+** modification, are permitted provided that the following conditions are
+** met:
+**   * Redistributions of source code must retain the above copyright
+**     notice, this list of conditions and the following disclaimer.
+**   * Redistributions in binary form must reproduce the above copyright
+**     notice, this list of conditions and the following disclaimer in
+**     the documentation and/or other materials provided with the
+**     distribution.
+**   * Neither the name of Nokia Corporation and its Subsidiary(-ies) nor
+**     the names of its contributors may be used to endorse or promote
+**     products derived from this software without specific prior written
+**     permission.
+**
+** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+** LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+** OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+** SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+** LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+** OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."
+**
+** $QT_END_LICENSE$
+**
+****************************************************************************/
+
+import QtQuick 2.0
+
+Item {
+    property var scrollArea: parent
+
+    width: 6
+    opacity: scrollArea && scrollArea.movingVertically ? 1.0 : 0.0
+    visible: scrollArea && scrollArea.contentHeight >= scrollArea.height
+    anchors { right: parent.right; top: parent.top; bottom: parent.bottom; margins: 2 }
+
+    Behavior on opacity { NumberAnimation { properties: "opacity"; duration: 600 } }
+
+    function size() {
+        var nh = scrollArea.visibleArea.heightRatio * height
+        var ny = scrollArea.visibleArea.yPosition * height
+        return ny > 3 ? Math.min(nh, Math.ceil(height - 3 - ny)) : nh + ny
+    }
+    Rectangle {
+        x: 1
+        y: scrollArea ? Math.max(2, scrollArea.visibleArea.yPosition * parent.height) : 0
+        height: scrollArea ? size() : 0
+        width: parent.width - 2
+        color: Qt.rgba(1.0, 1.0, 1.0, 0.5)
+        radius: 1
+    }
+}