Add qml/VerticalList.qml

2026-01-14 16:03:04 +01:00 · 2026-01-14 16:03:04 +01:00 · bad6e08cee
commit bad6e08cee
parent 26b94cc715
1 changed files with 39 additions and 0 deletions
--- a/qml/VerticalList.qml
+++ b/qml/VerticalList.qml
@ -0,0 +1,39 @@
+import QtQuick
+import QtQuick.Controls
+
+Item {
+    id: vl
+    property var itemsModel: []
+    property int currentIndex: 0
+    signal activated(int idx)
+    signal triggered(var entryObj)
+
+    readonly property int count: lv.count
+
+    function positionViewAtIndex(i, mode) { lv.positionViewAtIndex(i, mode) }
+    function triggerCurrent() {
+        if (lv.currentItem && lv.currentItem.entryObj) triggered(lv.currentItem.entryObj)
+    }
+
+    ListView {
+        id: lv
+        anchors.fill: parent
+        model: vl.itemsModel
+        spacing: 10
+        currentIndex: vl.currentIndex
+        clip: true
+        boundsBehavior: Flickable.StopAtBounds
+
+        delegate: XmbItemDelegate {
+            width: lv.width
+            entryObj: modelData
+            focused: (index === lv.currentIndex)
+            onClicked: {
+                vl.activated(index)
+                vl.triggered(entryObj)
+            }
+        }
+
+        onCurrentIndexChanged: vl.activated(currentIndex)
+    }
+}