The following program looks "correct" when my Windows display scaling is
set to 100%, and looks "wrong" when set to anything higher than 100%. By
"correct" I mean that the 4 squares meet in the center of the canvas,
stretched to the maximum size possible that the canvas width and height
will allow.
What is interesting is that I can make the program look correct by
immediately scaling the values returned from `get-scaled-client-size`. For
example, if my display is set to 150%, I can make the program look correct
by immediately multiplying the returned width and height by 2/3, because
100% is 2/3 of 150%. But right now I have to hard-code the 2/3 factor. Is
there a way to get that 2/3 factor programmatically in Racket? Or (even
better), is there something else I should be calling instead of
`get-scaled-client-size` that would return the dimensions I want?
This is Racket CS 8.0.0.11 on Windows. Let me know if you want screenshots.
Thanks in advance.
#lang racket/gui
(require pict)
(define frame
(new frame%
[label "Scale Test"]))
(define (paint canvas dc)
(define-values (w h) (send canvas get-scaled-client-size))
(define-values (size x-offset y-offset)
(if (> w h)
(values h (/ (- w h) 2) 0)
(values w 0 (/ (- h w) 2))))
(println (list w h size x-offset y-offset))
(for ([x (list x-offset (+ x-offset (/ size 2)))]
#:when #t
[y (list y-offset (+ y-offset (/ size 2)))])
(send dc draw-rectangle x y (/ size 2) (/ size 2))))
(define canvas
(new canvas%
[parent frame]
[paint-callback paint]))
(send frame show #t)
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/ef44708d-8938-4a57-b2d7-576b02bdd8f3n%40googlegroups.com.
