ScrollbarY

This commit is contained in:
Thomas Forgione 2020-10-06 11:09:37 +02:00
parent 72fe1dbab1
commit 707d4f45f1
1 changed files with 5 additions and 2 deletions

View File

@ -37,7 +37,7 @@ view model =
, Font.family [ Font.typeface "Cantarell" ]
]
(Element.column
[ Element.width Element.fill ]
[ Element.width Element.fill, Element.height Element.fill ]
[ topBar, element ]
)
]
@ -294,7 +294,7 @@ videoView device zone playlist video =
( builder, contentPadding ) =
case device.class of
Element.Phone ->
( Element.column [ Element.width Element.fill, Element.spacing 10 ]
( Element.column [ Element.width Element.fill, Element.height Element.fill, Element.spacing 10 ]
, Element.paddingXY 10 0
)
@ -308,6 +308,7 @@ videoView device zone playlist video =
[ Element.width (Element.fillPortion 2)
, Element.spacing 10
, Element.alignTop
, Element.height Element.fill
]
[ Keyed.el
[ Element.width Element.fill
@ -352,6 +353,8 @@ videoView device zone playlist video =
, Element.alignTop
, Element.spacing 10
, Element.width (Element.fillPortion 1)
, Element.height Element.fill
, Element.scrollbarY
]
(List.map (videoInList zone playlist video) playlist.videos)
]