luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
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
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
comp/src/gb.gui.base/.src/IconView/IconView.class
View file

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