lqml/examples/Qt6/meshtastic/qml/ext/messages/EmojiView.qml
pls.153 dc29ac9084 add Qt6 version of some examples (see below); revisions
'9999', 'advanced-qml-auto-reload', 'planets', 'sokoban'
2024-10-22 13:27:56 +02:00

42 lines
963 B
QML

import QtQuick
import QtQuick.Controls
import QtQuick.Controls.Basic
ScrollView {
width: parent.width
ScrollBar.vertical.policy: ScrollBar.AlwaysOn
ScrollBar.horizontal.policy: ScrollBar.AlwaysOff
property alias model: grid.model
GridView {
id: grid
anchors.fill: parent
cellWidth: emojis.itemSize
cellHeight: emojis.itemSize
leftMargin: 2
topMargin: 2
clip: true
highlightFollowsCurrentItem: false
focus: true
delegate: Text {
width: emojis.itemSize
height: emojis.itemSize
horizontalAlignment: Text.AlignHCenter
verticalAlignment: Text.AlignVCenter
font.pixelSize: emojis.itemSize - 4
text: modelData
}
MouseArea {
anchors.fill: parent
cursorShape: Qt.PointingHandCursor
onClicked: (mouse) => {
Lisp.call("app:emoji-clicked",
grid.itemAtIndex(grid.indexAt(mouse.x, mouse.y + grid.contentY)).text)
}
}
}
}