Merge branch 'bsteers4-master-patch-90416' into 'master'

IconView.class: do not return before drawing background picture if no items are added.

See merge request gambas/gambas!253
This commit is contained in:
Benoît Minisini 2021-12-12 17:09:30 +00:00
commit 679ccaecd4

View file

@ -429,19 +429,20 @@ Public Sub ScrollArea_Draw()
Dim bRaiseDraw As Boolean
Dim bFocus As Boolean
If $aItems.Count = 0 Then Return
If $iLock Then Return
bFocus = $hView.HasFocus
hSaveClip = Paint.ClipRect
If $hPicture Then
Draw.FillX = -$hView.ScrollX
Draw.FillY = -$hView.ScrollY
Draw.Tile($hPicture, 0, 0, Draw.Width, Draw.Height)
Endif
If $aItems.Count = 0 Then Return
bFocus = $hView.HasFocus
hSaveClip = Paint.ClipRect
bRaiseDraw = Object.CanRaise(Me, "Draw")
X = hSaveClip.X + $hView.ScrollX