From 46d7adce21252693d87a32898fe0c40f9d2dc7e9 Mon Sep 17 00:00:00 2001 From: Fabien Bodard Date: Fri, 23 Dec 2016 20:14:00 +0000 Subject: [PATCH] [GB.FORM.EDITOR] * BUG: Refresh the Preview when needed. git-svn-id: svn://localhost/gambas/trunk@8020 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- comp/src/gb.form.editor/.src/TextEditor.class | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/comp/src/gb.form.editor/.src/TextEditor.class b/comp/src/gb.form.editor/.src/TextEditor.class index cdb59d288..f0dd65ce7 100644 --- a/comp/src/gb.form.editor/.src/TextEditor.class +++ b/comp/src/gb.form.editor/.src/TextEditor.class @@ -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)