lqml/examples/Qt6/sokoban/qml/main.qml

import QtQuick
import QtQuick.Controls
import QtQuick.Controls.Basic
import QtQuick.Window
import "ext/" as Ext

Rectangle {
  id: main
  width: Screen.desktopAvailableWidth
  height: Screen.desktopAvailableHeight
  color: Qt.darker("lightsteelblue", 1.25)

  property bool small: (Math.max(width, height) < 1000)

  function isLandscape() { return (Screen.primaryOrientation === Qt.LandscapeOrientation) }

  Ext.Dynamic {}

  Row {
    anchors.centerIn: parent
    // adapt 'level' and 'board' scale to screen size
    scale: isLandscape()
           ? ((Screen.desktopAvailableHeight - 10) / board.height)
           : ((Screen.desktopAvailableWidth - 10) / (board.width + 2 * level.width))

    Slider {
      id: level
      objectName: "level"
      height: board.height
      orientation: Qt.Vertical
      stepSize: 1.0

      onValueChanged: Lisp.call("qsoko:set-maze")
    }

    Rectangle {
      id: board
      objectName: "board"
      width: 512; height: 512
      color: "lightsteelblue"
    }

    // dummy to have it exactly centered
    Item {
      width: level.width
      height: level.height
    }
  }

  Row {
    id: buttons1
    objectName: "buttons1"
    spacing: main.small ? 10 : 15
    padding: 10
    anchors.bottom: parent.bottom

    Ext.Button {
      objectName: "previous"
      text: "\uf100"
    }
    Ext.Button {
      objectName: "next"
      text: "\uf101"
    }
  }

  Row {
    id: buttons2
    objectName: "buttons2"
    spacing: main.small ? 10 : 15
    padding: 10
    anchors.right: parent.right
    anchors.bottom: parent.bottom

    Ext.Button {
      objectName: "undo"
      text: "\uf112"
    }
    Ext.Button {
      objectName: "restart"
      text: "\uf0e2"
    }
    Ext.Button {
      objectName: "solve"
      text: "\uf17b"
    }
  }

  // container for arrow buttons
  Item {
    id: arrows
    y: buttons1.y - height - (main.small ? 25 : 50)
    width: up.width * 3
    height: up.height * 3
    anchors.margins: 10
    anchors.horizontalCenter: buttons2.horizontalCenter

    Ext.ArrowButton {
      id: up
      objectName: "up"
      text: "\uf139"
      anchors.horizontalCenter: parent.horizontalCenter
    }

    Ext.ArrowButton {
      objectName: "left"
      text: "\uf137"
      anchors.verticalCenter: parent.verticalCenter
    }

    Ext.ArrowButton {
      objectName: "right"
      text: "\uf138"
      anchors.verticalCenter: parent.verticalCenter
      anchors.right: parent.right
    }

    Ext.ArrowButton {
      objectName: "down"
      text: "\uf13a"
      anchors.horizontalCenter: parent.horizontalCenter
      anchors.bottom: parent.bottom
    }
  }

  // level change animations

  Ext.ScaleAnimator {
    objectName: "zoom_board_out"
    target: board
    from: 1.0
    to: 0.0
    duration: 250
  }

  Ext.ScaleAnimator {
    objectName: "zoom_board_in"
    target: board
    from: 0.0
    to: 1.0
    duration: 250
  }

  // etc

  Keys.onPressed: {
    if (event.key === Qt.Key_Back) {
      event.accepted = true
      Lisp.call("qml:qquit")
    }
  }

  FontLoader {
    id: fontAwesome
    source: "fonts/fontawesome-webfont.ttf"
  }
}