如何为简单的扫雷游戏创建 MigLayout？答案

【问题标题】：How to create a MigLayout for a simple minesweeper game?如何为简单的扫雷游戏创建 MigLayout？
【发布时间】：2015-11-19 14:07:54
【问题描述】：

我正在开发一个简单的 clojure 扫雷游戏，主要是为了稍微练习一下语言。 “核心游戏引擎”已准备就绪，现在我想添加一个简单的 UI。我查看了seesaw，到目前为止效果很好。

我唯一苦苦挣扎的是我想使用的mig layout。我的想法是采用以下布局：

 _______________________
[_________NORTH_________]
[   ][             ][   ]
[ W ][    FIXED    ][ E ]
[ E ][    SIZE     ][ A ]
[ S ][    BOARD    ][ S ]
[ T ][             ][ T ]
[___][_____________][___]
[_________SOUTH_________]

在调整窗口大小的情况下，北、西、东和南应该增长。主面板应具有固定大小，其中包含代表游戏板的所有按钮。

在阅读 mig 布局之前，我考虑过使用包含网格面板的边框面板，但正如跷跷板 github 页面上所述：

Seesaw 在 seesaw.core/form-panel 函数中基本支持 GridBagLayout。我不建议使用它，因为它是半生不熟的，不如使用 MigLayout (seesaw.mig) 或 JGoodies (seesaw.forms) 强大。

我想试试 MigLayout。我的第一次尝试：

(defn make-border-panel 
[]
(mig-panel 
 :constraints ["fill" "[grow][][grow]" "[grow][][grow]"]
 :items [ 
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["Minesweeper North"  "dock north"]
       ["W"                  "dock west" ]
       ["E"                  "dock east" ]
       ["Minesweeper South"  "dock south"]
      ]))

更新 1

我将暂时忽略北、南、西、东，并执行以下操作以至少获得中心板：

(defn make-button [x y]
   (button :id (format "cell_%d_%d" x y)
           :icon (clojure.java.io/resource "minesweeper/icons/button.png")))


(defn make-board
  [w h]
  (mig-panel 
      :constraints [(str "wrap" w) "[]" "[]" ]
      :items (for [x (range w) y (range h)]  
          (vector (make-button x y) "w 24px!, h 24px!"))))

【问题讨论】：

好的。你有问题吗？
实际上，我如何才能实现上述边框布局与固定大小的中心。 “更新 1”应该只是一个中间解决方案，而我正在弄清楚如何去做。

标签： clojure miglayout minesweeper seesaw

【解决方案1】：

我意识到我的扫雷游戏并不需要 WEST 和 EAST 面板。我的最终布局如下所示：

 _____________
[____NORTH____]
[             ]
[             ]
[   CENTER    ]
[             ]
[_____________]
[____SOUTH____]

Center 本身是另一个 mig 面板，其中包含代表地雷的按钮。 clojure 中的代码如下所示：

(defn make-layout
  [rows cols level]
  (mig-panel
   :constraints ["wrap1" "[center]" "[][]" ]
   :items       [[(make-info-panel)]
                [(make-board-panel rows cols level)]]))


(defn make-board-panel
  [rows cols level]
  (let [bg (button-group)]
    (mig-panel
     :constraints [(str "gap 0, wrap" rows) "[]" "[]" ]
     :items       (for [row (range rows) col (range cols)]
                    (vector (make-button row col level bg) "w 24px!, h 24px!")))))

【讨论】：