一个画布中的几个位图

时间:2019-10-19 22:28:06

标签: user-interface racket

如何在同一张画布上甚至在背景上绘制带有球拍/图形用户界面和/或球拍/绘图的几个位图?

我认为也许我需要绘制背景,然后制作标签以包含位图,但我不知道。

这里是加载和绘制背景的代码。

#lang racket/gui
(require racket/draw)

(define frame (new frame%
                   [label "BlaCEkJack"]
                   [width 800]
                   [height 800]
                   [style (list 'no-resize-border)]))

(define bg (read-bitmap "Fondo.png"))

(define bitmap-canvas%
  (class canvas%
    (init-field [bitmap #f])
    (inherit get-dc)
    (define/override (on-paint)
      (send (get-dc) draw-bitmap bitmap 0 0))
    (super-new)))

(define mycanvas (new bitmap-canvas% [parent frame] [bitmap bg]))

(send frame show #t)

0 个答案:

没有答案