suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win32: fix problem with bitmap labels

Browse Source 
related to PR 11566

original commit: a916f1af42ca6de02ac459da5614947473a72d44
This commit is contained in:
Matthew Flatt 2011-01-01 11:32:38 -07:00
parent b512236105
commit 502677e5bb
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mred/private/wx/win32/hbitmap.rkt
View File

@ -4,6 +4,7 @@
racket/draw racket/draw
racket/draw/private/local racket/draw/private/local
racket/class racket/class
"dc.rkt"
"types.rkt" "types.rkt"
"utils.rkt" "utils.rkt"
"const.rkt") "const.rkt")
@ -18,6 +19,18 @@
#:bg [bg (GetSysColor COLOR_BTNFACE)]) #:bg [bg (GetSysColor COLOR_BTNFACE)])
(let* ([w (send bm get-width)] (let* ([w (send bm get-width)]
[h (send bm get-height)] [h (send bm get-height)]
[bm (if (bm . is-a? . win32-bitmap%)
;; Windows wants to use the result bitmap
;; as an ARGB bitmap, but Cairo seems to transfer
;; RGB win32 bitmaps to RGB win32 bitmaps in a
;; way that sometimes mangles the alpha; avoid the
;; problem by first copying to a Cairo memory bitmap.
(let* ([new-b (make-object bitmap% w h #f #f)]
[dc (make-object bitmap-dc% new-b)])
(send dc draw-bitmap bm 0 0)
(send dc set-bitmap #f)
new-b)
bm)]
[mask-bm (or mask-bm [mask-bm (or mask-bm
(send bm get-loaded-mask))] (send bm get-loaded-mask))]
[to-frac (lambda (v) (/ v 255.0))] [to-frac (lambda (v) (/ v 255.0))]