From 9d941c56d75f97b2f8ec1f4c12297a2280a52246 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Tue, 8 Sep 2015 23:54:00 +0000 Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Let the MessageView control use its default colors. [GB.FORM] * NEW: MessageView default colors are now default text background and foreground. git-svn-id: svn://localhost/gambas/trunk@7294 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- app/src/gambas3/.src/FMain.form | 1 - app/src/gambas3/.src/Project.module | 2 +- comp/src/gb.form/.src/Message/MessageView.class | 3 ++- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/app/src/gambas3/.src/FMain.form b/app/src/gambas3/.src/FMain.form index 0591ed421..f70c4bd5f 100644 --- a/app/src/gambas3/.src/FMain.form +++ b/app/src/gambas3/.src/FMain.form @@ -1078,7 +1078,6 @@ } { msgError MessageView MoveScaled(27,10,57,6) - Background = &HFFFFEF& Animated = True } { Panel1 Panel diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module index 4e56ff473..d30e7eba7 100644 --- a/app/src/gambas3/.src/Project.module +++ b/app/src/gambas3/.src/Project.module @@ -2082,7 +2082,7 @@ Public Function LoadFile(sPath As String) As Object Dec Application.Busy Files[sPath] = Null - FMain.ShowError(("Cannot open a binary file.") & "\n\n" & sPath, sPath) + FMain.ShowError(("Cannot open a binary file."), sPath) Return Endif diff --git a/comp/src/gb.form/.src/Message/MessageView.class b/comp/src/gb.form/.src/Message/MessageView.class index 99aee90ff..4aa33cc75 100644 --- a/comp/src/gb.form/.src/Message/MessageView.class +++ b/comp/src/gb.form/.src/Message/MessageView.class @@ -28,7 +28,8 @@ Private $aIcon As New Picture[] Public Sub _new() $hView = New DrawingArea(Me) As "View" - $hView.Background = Color.Merge(Color.LightBackground, Color.TextBackground, 0.9) + $hView.Background = Color.TextBackground + $hView.Foreground = Color.TextForeground $hClose = New Button($hView) As "CloseButton" $hClose.H = Desktop.Scale * 4