用Racket做一个拼图游戏——27 创建状态显示区

27 创建状态显示区

先看代码，再作分析。

;创建状态显示区：

(define (create-status-area p)

(let ([vp (new vertical-panel%

[parent p]

[alignment '(left top)]

[min-height 30]

[stretchable-height #f])])

(set! message/status

(new message%

[label "准备就绪。"]

[parent vp]))))

这里vertical-panel%也不是必需的，这里主要是考虑对状态显示区的扩展，预留空间。

信息控件message%用来显示基本的状态信息。信息控件是一行静态的文本或一个静态的位图或者一个指定的图标（’app、’caution、’stop）。该文本或位图与信息控件的标签相对应 。它包含的属性有：label、parent、style、font、color、enabled、vert-margin、horiz-margin、min-width、min-height、stretchable-width、stretchable-height、auto-resize。