Есть условно вот это


#lang racket/gui
(require racket/draw)
(define f (new frame%
               [label "This Space For Rent"]
               [min-width 640]
               [min-height 480]))
(new canvas%
     [parent f]
     [style (list 'transparent)]
     [paint-callback
      (lambda (canvas dc)
        (send dc draw-bitmap (make-object bitmap% "bg_014.jpg" 0 0))])
;; (define l (new message% [parent f]
;;                [label (make-object bitmap% "hmm.png" 'png)]))

(send f show #t)


Вот фоновое изображение:
https://ibb.co/Gv2CNt3


Картинка должна прозрачно встать, но у неё не удается:
https://ibb.co/cCsggcL


Куда копать?









 ,






URL записи