[GB.FORM.EDITOR]

* BUG: Refresh the Preview when needed.


git-svn-id: svn://localhost/gambas/trunk@8020 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2016-12-23 20:14:00 +00:00
parent c4be02babb
commit 46d7adce21

View file

@ -3681,6 +3681,7 @@ Public Sub Refresh()
ClearCacheLine
$hView.Refresh
If $bShowPreview Then $hTimerSideBarRefresh.Start
End
@ -4831,7 +4832,11 @@ Private Sub DrawBarImage(fRowHeight As Float)
Paint.Rectangle(0, y, 3, fRowHeight + 1)
Paint.Fill
Endif
If $hDoc.LinesInfo[i].Saved Then
Paint.Background = Color.Merge($iBackground, Color.Green, 0.2)
Paint.Rectangle(0, y, 3, fRowHeight + 1)
Paint.Fill
Endif
If $hDoc.LinesInfo[i].Bookmark Then
Paint.MoveTo(0, y)
Paint.RelLineTo(Paint.Width, 0)