From f1f23bcb9364fff0a2e26361133df57c189f866f Mon Sep 17 00:00:00 2001 From: Bruce Steers Date: Tue, 9 Aug 2022 00:27:42 +0100 Subject: [PATCH] WebDrawingArea, fix using zero value Color.Black [GB.GUI.WEB] * BUG: use IsNull() to check style as Color.Black is 0 --- comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class b/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class index 4c85560f2..0d90eface 100644 --- a/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class +++ b/comp/src/gb.web.gui/.src/Paint/PaintDriver_WebDrawingArea.class @@ -36,7 +36,7 @@ Private Sub HandleStyle(hStyle As Variant, sProperty As String) As Boolean Dim hBrush As PaintBrush Dim hGradient As Gradient - If Not hStyle Then hStyle = Me.Brush + If IsNull(hStyle) Then hStyle = Me.Brush If TypeOf(hStyle) = gb.Integer Then