Исправление
Cirno,
(текущая версия)
:
Спасибо за наводку, что надо было рисовать в коллбеке и явно указывать альфа слой (хотя по документации я понял, что он умеет это сам делать). Получилось так: https://ibb.co/p4Ys4pv
#lang racket/gui
(define f (new frame%
[label "This Space For Rent"]
[min-width 640]
[min-height 480]))
(new canvas%
[parent f]
[paint-callback
(lambda (canvas dc)
(send dc draw-bitmap (make-object bitmap% "bg_014.jpg") 0 0)
(send dc draw-bitmap (make-object bitmap% "ri_miko_de_a1.png.base.png" 'png/alpha) 100 25)
)])
(send f show #t)
А как поменять картинку? Просто я думал, что мы канвас только один раз рисуем и он там стоит на фоне.
Исходная версия
Cirno,
:
Спасибо за наводку, что надо было рисовать в коллбеке и явно указывать альфа слой (хотя по документации я понял, что он умеет это сам делать. Получилось так: https://ibb.co/p4Ys4pv
#lang racket/gui
(define f (new frame%
[label "This Space For Rent"]
[min-width 640]
[min-height 480]))
(new canvas%
[parent f]
[paint-callback
(lambda (canvas dc)
(send dc draw-bitmap (make-object bitmap% "bg_014.jpg") 0 0)
(send dc draw-bitmap (make-object bitmap% "ri_miko_de_a1.png.base.png" 'png/alpha) 100 25)
)])
(send f show #t)
А как поменять картинку? Просто я думал, что мы канвас только один раз рисуем и он там стоит на фоне.