Yatay kaydırma çubuğuna sahip bir tuval js_of_ocaml

Question

Aşağıdaki şekilde js_of_ocaml dosyasında bir tuval oluşturuyorum.

(* create document *) 
let document = Dom_html.window##document 

(* function to create canvas *) 
let create_canvas() = 
let canvas = Dom_html.createCanvas document in 
canvas##width <- 500; 
canvas##height <- 500; 
canvas 

(* create canvas *) 
let canvas = create_canvas() 

let start _ = 
    let main = get_main() in 
    Dom.appendChild main canvas; 
    Js._false in 

Dom_html.window##onload <- Dom_html.handler start 

Sadece beyaz bir ekran görüyorum.
Şimdi, tuvale yatay kaydırma çubuğu eklemek istiyorum.
Sanırım beyaz kanvastan daha küçük bir yatay kaydırma çubuğu olan bir kutu yapmalıyım ve beyaz kanvas kutuda.
Bunu nasıl yapabilirim?

Answer 1

Tuvali, genişliğin tuval genişliğinden daha küçük olduğu bir div içine koyabilirsiniz. Aşağıdaki kodu kontrol edin:

module Html = Dom_html 

let doc = Html.window##document 

let create_div() = 
    let div = Html.createDiv doc in 
    div##style##width <- Js.string "500px"; 
    div##style##overflowX <- Js.string "scroll"; 
    div 


let create_canvas() = 
    let canvas = Dom_html.createCanvas document in 
    canvas##width <- 900; 
    canvas##height <- 900; 
    canvas 

let start _ = 
    let main = get_main() in 
    let wrapper = create_div() in 
    let canvas = create_canvas() in 
    Dom.appendChild wrapper canvas; 
    Dom.appendChild main wrapper; 
    Js._false in 

Dom_html.window##onload <- Dom_html.handler start 

Bu kod aşağıdaki jsfiddle ait js_of_ocaml için çevirisidir: https://jsfiddle.net/pre1wacc/