Rysowanie na płótnie% element

Question

Mam problem podczas próby narysowania na element GUI canvas.

Tworzę ramkę, płótno i próbuję narysować kontekst dc płótna metodą draw-line, ale nic się nie dzieje. Ramka z płótnem jest pokazana, ale linia nie jest pokazana na płótnie.

(require racket/gui/base) 

(define frame (new frame% [label "Frame"] [width 500] [height 500])) 
(define canvas (new canvas% [parent frame])) 
(define dc (send canvas get-dc)) 

(send dc draw-line 10 10 200 200) 
(send frame show #t) 

Czy ktoś wie, gdzie się mylę w powyższym kodzie?

Answer 1

Spróbuj tego:

(require racket/gui/base) 

(define frame (new frame% [label "Frame"] [width 500] [height 500])) 
(define canvas (new canvas% [parent frame])) 
(define dc (send canvas get-dc)) 

(send frame show #t) 
(sleep/yield 1) 
(send dc draw-line 10 10 200 200) 

Wydaje się, że trzeba pokazać ramkę, a następnie trochę poczekać aby okno się przygotować.

Answer 2

Problem polega na tym, że chociaż można narysować na kanwie pod numerem wywołanie metody malowania na płótnie, efekt jest tymczasowy. Każde działanie okna wymagające odświeżenia okna (takie jak przenoszenie i zmiana rozmiaru) może potencjalnie wymazać rysunek.

Dlatego: Rysuj wszystko od wewnątrz wywołania funkcji malowania.

#lang racket 
(require racket/gui/base) 

(define frame (new frame% [label "Frame"] [width 500] [height 500])) 
(define canvas (new canvas% 
        [parent frame] 
        [paint-callback 
        (λ(can dc) (send dc draw-line 10 10 200 200))])) 
(define dc (send canvas get-dc)) 
(send frame show #t) 

Zobacz Documentation on the canvas class uzyskania dalszych informacji.