1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
/****************************************************************************
**
** Copyright (C) 2012 Nokia Corporation and/or its subsidiary(-ies).
** All rights reserved.
** Contact: Nokia Corporation (qt-info@nokia.com)
**
** This file is part of the Qt Components project.
**
** $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
import QtDesktop 0.2
ScrollArea {
id: area
color: "white"
width: 280
height: 120
contentWidth: edit.paintedWidth + (2 * documentMargins)
property alias text: edit.text
property alias wrapMode: edit.wrapMode
property alias readOnly: edit.readOnly
property bool tabChangesFocus: false
property alias font: edit.font
property alias activeFocusOnPress: edit.activeFocusOnPress
property alias horizontalAlignment: edit.horizontalAlignment
highlightOnFocus: true
property int documentMargins: 4
frame: true
function append (string) {
text += "\n" + string
verticalScrollBar.value = verticalScrollBar.maximumValue
}
Accessible.role: Accessible.EditableText
// FIXME: probably implement text interface
Accessible.name: text
TextEdit {
id: edit
selectionColor: syspal.highlight
selectedTextColor: syspal.highlightedText
wrapMode: TextEdit.WordWrap;
width: area.viewportWidth - (2 * documentMargins)
x: documentMargins
y: documentMargins
// height has to be big enough to handle mouse focus
height: Math.max(area.height, paintedHeight)
selectByMouse: true
readOnly: false
color: syspal.text
SystemPalette {
id: syspal
colorGroup: enabled ? SystemPalette.Active : SystemPalette.Disabled
}
KeyNavigation.priority: KeyNavigation.BeforeItem
KeyNavigation.tab: area.tabChangesFocus ? area.KeyNavigation.tab : null
KeyNavigation.backtab: area.tabChangesFocus ? area.KeyNavigation.backtab : null
onContentSizeChanged: {
area.contentWidth = paintedWidth + (2 * documentMargins)
}
// keep textcursor within scrollarea
onCursorPositionChanged: {
if (cursorRectangle.y >= area.contentY + area.viewportHeight - 1.5*cursorRectangle.height - documentMargins)
area.contentY = cursorRectangle.y - area.viewportHeight + 1.5*cursorRectangle.height + documentMargins
else if (cursorRectangle.y < area.contentY)
area.contentY = cursorRectangle.y
if (cursorRectangle.x >= area.contentX + area.viewportWidth - documentMargins) {
area.contentX = cursorRectangle.x - area.viewportWidth + documentMargins
} else if (cursorRectangle.x < area.contentX)
area.contentX = cursorRectangle.x
}
}
Keys.onPressed: {
if (event.key == Qt.Key_PageUp) {
verticalValue = verticalValue - area.height
} else if (event.key == Qt.Key_PageDown)
verticalValue = verticalValue + area.height
}
}
|