Question

我正在使用DrRacket 5.3.4

有一个框架f，画布c

我将滚动条设置为画布。

我想得到图像的坐标（不是主窗口，框架的左上角相对坐标）

我怎样才能获得图像的x和y？

简而言之，滚动条已移动，因此我可以看到图像的区域，其x和y分别为90,90到290,290。

此时，我将鼠标移动到窗口的左上角。得到0,0。

但我想获得90,90。

我该怎么做？

谢谢！

#lang racket/gui 
(require racket/draw)
(define f
  (new frame% 
       [label "hey"]
       [width 200]
       [height 200]))
(define img (read-bitmap "some_image.png"))
(define img-w (send img get-width))
(define img-h (send img get-height))

(define (pcb c dc)
  (send dc draw-bitmap img 0 0))
(define my_c%
  (class canvas%
    (define/override (on-event e)

     (printf "x: ~a y: ~a \n" (send e get-x) (send e get-y)))

    (super-new)))
(define c (new my_c%
       [parent f]
       [style (list 'hscroll 'vscroll)]
       [paint-callback pcb]))

(send c init-auto-scrollbars img-w img-h 0 0)       

(send f show #t)

Answer 1

像这样：

(define my_c%
  (class canvas%
    (define/override (on-event e)
      (let-values (((x y) (send this get-view-start)))
        (printf "x: ~a y: ~a \n" (+ x (send e get-x)) (+ y (send e get-y)))))
    (super-new)))

get-view-start（多返回值）属性包含滚动条的x和y偏移量。因此，将其添加到当前的x和y位置可以获得图像上的位置。它可以为您提供高于图像实际大小的数字，因此您需要根据您的img-w和img-w值进行检查。

当canvas滚动时获取图像x y

1 个答案: